Ir al contenido


Foto

[TRUCO DELPHI] Fuente suavizada.


  • Por favor identifícate para responder
1 respuesta en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 01:56

[TRUCO DELPHI] Fuente suavizada.


delphi
  1. var
  2. lf : TLogFont;
  3. begin
  4. GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @lf);
  5. lf.lfQuality := ANTIALIASED_QUALITY;
  6. Canvas.Font.Handle := CreateFontIndirect(lf);
  7. Canvas.TextOut(0,0,'Hello');
  8. end;

Saludos!


  • 1

#2 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 09 diciembre 2016 - 02:41

Usando la API:


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


Saludos.
  • 1




IP.Board spam blocked by CleanTalk.