edexter
18-10-2007, 12:47 PM
I was able to compile the example that comes with phoenix but when I try to use that as an example for a simplier program I get stuck.. with this it seems to freeze on my screen.. I am just trying to print text at a certain location.
program Fonts2;
{$APPTYPE CONSOLE}
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
uses
ClASSES, SysUtils,
dglOpenGL,
phxBase,
phxScreen,
phxTypes,crt,
phxFonts;
var Screen: TPHXScreen;
Fonts : TPHXFontList;
xxend : char;
begin
// Create the window
Screen:= TPHXScreen.getInstance;
// Open the window
if not Screen.Open('Dexters Font Demo', -1, -1, 800, 600) then Exit;
Fonts := TPHXFontList.Create;
Fonts.LoadFont('Font1.phxfnt');
Fonts.LoadFont('Font2.phxfnt');
//repeat
repeat
//Timer.Update;
// Clear the window
Screen.Clear();
Fonts[0].TextOut(4,4,'test');
Fonts[0].TextOut(4,4,'test');
//repeat
//until (Screen.Visible = False);
// xxend := readkey();
until (Screen.Visible = False);
Fonts.Free;
end.
program Fonts2;
{$APPTYPE CONSOLE}
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
uses
ClASSES, SysUtils,
dglOpenGL,
phxBase,
phxScreen,
phxTypes,crt,
phxFonts;
var Screen: TPHXScreen;
Fonts : TPHXFontList;
xxend : char;
begin
// Create the window
Screen:= TPHXScreen.getInstance;
// Open the window
if not Screen.Open('Dexters Font Demo', -1, -1, 800, 600) then Exit;
Fonts := TPHXFontList.Create;
Fonts.LoadFont('Font1.phxfnt');
Fonts.LoadFont('Font2.phxfnt');
//repeat
repeat
//Timer.Update;
// Clear the window
Screen.Clear();
Fonts[0].TextOut(4,4,'test');
Fonts[0].TextOut(4,4,'test');
//repeat
//until (Screen.Visible = False);
// xxend := readkey();
until (Screen.Visible = False);
Fonts.Free;
end.