Ir al contenido


Foto

[TRUCO DELPHI] Rotando fuentes.


  • Por favor identifícate para responder
5 respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 28 noviembre 2016 - 02:42

[TRUCO DELPHI] Rotando fuentes.


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. lf : TLogFont;
  4. tf : TFont;
  5. begin
  6. with Form1.Canvas do begin
  7. Font.Name := 'Arial';
  8. Font.Size := 24;
  9. tf := TFont.Create;
  10. try
  11. tf.Assign(Font);
  12. GetObject(tf.Handle, sizeof(lf), @lf);
  13. lf.lfEscapement := 450;
  14. lf.lfOrientation := 450;
  15. tf.Handle := CreateFontIndirect(lf);
  16. Font.Assign(tf);
  17. finally
  18. tf.Free;
  19. end;
  20. TextOut(20, Height div 2, 'Texto Rotado!');
  21. end;
  22. end;

Saludos!


  • 1

#2 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 01:59

[TRUCO DELPHI] Rotar una fuente.


delphi
  1. var
  2. LogFont: TLogFont;
  3.  
  4. with MyCanvas do begin
  5. Font.Name := 'Arial';
  6. Font.Size := 24;
  7. Font.Style := [fsBold];
  8. GetObject(Font.Handle, @LogFont, SizeOf(LogFont));
  9. with LogFont do begin
  10. lfOrientation := 450; {45 Grados}
  11. lfEscapement := lfOrientation end;
  12. Font.Handle := CreateFontIndirect(LogFont);

Saludos!


  • 1

#3 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.965 mensajes
  • LocationMadrid - España

Escrito 09 diciembre 2016 - 02:34

Crear una fuente rotada, en este caso vertical usando la API:


delphi
  1. // Rota -90º: Texto en vertical
  2. Font:= CreateFont(300,0,-900,0,FW_BOLD,0,0,0,DEFAULT_CHARSET,OUT_OUTLINE_PRECIS,
  3. CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY, VARIABLE_PITCH, 'Arial Rounded MT Bold');

Saludos.


  • 1

#4 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.965 mensajes
  • LocationMadrid - España

Escrito 11 diciembre 2016 - 11:09

No repitas trucos, si lo que deseas es añadir algo más a un truco, usa ese mismo hilo: Rotando fuentes
 
 
Saludos.
  • 0

#5 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 11 diciembre 2016 - 12:27

Hola, el foro tiene alguna opcion de MERGE THREADs, porque aunque hacen lo mismo, el codigo es Distinto.

Saludos!


  • 1

#6 escafandra

escafandra

    Advanced Member

  • Moderadores
  • PipPipPip
  • 3.965 mensajes
  • LocationMadrid - España

Escrito 11 diciembre 2016 - 12:57

Listo.

 

 

Saludos.


  • 1