1 reply to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Fuente suavizada.

delphi

var
 lf : TLogFont;
begin
 GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @lf);
 lf.lfQuality := ANTIALIASED_QUALITY;
 Canvas.Font.Handle := CreateFontIndirect(lf);
 Canvas.TextOut(0,0,'Hello');
end;

Saludos!

[escafandra]

Usando la API:

delphi

// ANTIALIASED_QUALITY
Font1:= CreateFont(48,0,0,0,FW_BOLD,0,0,0,DEFAULT_CHARSET,OUT_OUTLINE_PRECIS,
                    CLIP_DEFAULT_PRECIS,ANTIALIASED_QUALITY, VARIABLE_PITCH, 'Arial Rounded MT Bold');

Saludos.