mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-11 20:05:03 -05:00
15 lines
318 B
Plaintext
15 lines
318 B
Plaintext
|
program new;
|
||
|
|
var
|
||
|
|
Font : TFont;
|
||
|
|
begin
|
||
|
|
Font := TFont.Create;
|
||
|
|
Font.Name := 'Courier New';
|
||
|
|
Font.Size := 10;
|
||
|
|
Font.Style := [];
|
||
|
|
LoadSystemFont(Font,'test');
|
||
|
|
DisplayDebugImgWindow(0,0);
|
||
|
|
DisplayDebugImgWindow(150,50);
|
||
|
|
DrawBitmapDebugImg(BitmapFromText('BMP[0] has not been freed','test'));
|
||
|
|
Font.free;
|
||
|
|
end.
|