blob: 9454ec73e3786db68a0b8805c8f6053deb0d9028 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
PROGRAM GetFontAsltest;
uses easyasl,msgbox,amigautils;
{
An example to get a font with easyasl.
24 Jan 2000.
nils.sjoholm@mailbox.swipnet.se
}
VAR
myfont : tFPCFontInfo;
dummy : BOOLEAN;
BEGIN
dummy := GetFontAsl('Pick a font',myfont,NIL);
IF dummy THEN BEGIN
MessageBox('FPC Pascal Request',
'You picked as font :' + myfont.nfi_Name + #10 +
'The fontsize is :' + longtostr(myfont.nfi_Size) + #10 +
'The fontstyle is :' + longtostr(myfont.nfi_Style) + #10 +
'The flags are set to :' + longtostr(myfont.nfi_Flags) + #10 +
'Frontpen is number :' + longtostr(myfont.nfi_FrontPen) + #10 +
'And as the backpen :' + longtostr(myfont.nfi_BackPen) + #10 +
'And finally drawmode :' + longtostr(myfont.nfi_DrawMode),
'Nice font!');
END ELSE
MessageBox('FPC Pascal request','You didn''t pick a font','Why not?');
END.
|
