[fpc-pascal]API Windows Create Font

[Anton Tichawa]

hi,

i looked into my sources - there's "CreateFontA" instead of "CreateFont".

hth

anton.


----- Original Message ----- 
From: Luis Del Aguila <aguila3000 at terra.com.pe>
To: <fpc-pascal at lists.freepascal.org>
Sent: Monday, February 25, 2002 2:12 PM
Subject: [fpc-pascal]API Windows Create Font


> I write the next code in my program,
> 
> dc:=GetDc(Ventana);
> Settextcolor(dc,rgb(0,0,0));
> hf1:=CreateFont(20,0,0,0,fw_normal,0 ,0,0,ansi_charset,
>                             out_default_precis,clip_default_precis,
>                             default_quality,default_pitch or ff_dontcare,
>                             'Courier New');
> selectObject(dc,hf1);
> textout(dc,1,1,'Courier',7);
> releasedc(ventana,dc);
> 
> but I get this error message :
> 
> Free Pascal Compiler version 1.0.4 [2000/12/30] for i386
> Copyright (c) 1993-2000 by Florian Klaempfl
> Target OS: Win32 for i386
> Compiling
> c:\docume~1\admini~1\misdoc~1\inve\pascal\pruebas\eid\editor\cfont.pp
> cfont.pp(20,10) Error: Identifier not found CREATEFONT
> cfont.pp(93,4) Fatal: There were 1 errors compiling module, stopping
> 
> I use the unit Windows.
> Why don't FPC 1.0.4 found the CreateFont Function?.
> 
> Att.
> Luis Del Aguila
> 
> 
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal