Orientacion del texto

[senpiterno]

Se me olvidava, intente migrar el codigo de VB a Delphi, pero no dio ningun resultado, reeplace el PictureBox por un TPaintBox, pero como te digo no dio ningun resultado....

[vic_ia]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LOGFONT : TLogFont;
  Font    : HFONT;
begin
  LOGFONT.lfHeight := 30;
  LOGFONT.lfWidth  := 10;
  LOGFONT.lfWeight := FW_NORMAL;
  LOGFONT.lfEscapement := 900; { angulo expresado en decimas de grado }
  LOGFONT.lfStrikeOut  := 0; { distinto de cero para activarlo }
  LOGFONT.lfItalic     := 0; { distinto de cero para activarlo }
  LOGFONT.lfUnderline  := 0; { distinto de cero para activarlo }
  LOGFONT.lfFaceName := 'Tahoma';

  Font := CreateFontIndirect(LOGFONT);

  SelectObject(Form1.Canvas.Handle,Font);
  Form1.Canvas.TextOut(100,100,Edit1.Text);
  DeleteObject(Font);
end;

si te fijas, no necesitas redefinir ni los tipos ni las funciones del API, puesto que eso ya lo ha hecho delphi...

obviamente al igual que como tu, no he asignado todas las propiedades del LOGFONT...

por simplicidad pongo el texto en el canvas del form pero le puedes hacer en el canvas del control que te sea mas adecuado....

espero te sea de utilidad....

saludos....

[senpiterno]

Lamento decirte amigo vic_ia que el metodo que me indicaste solo funciona en el canvas de un Form, pero no en otros objetos como PaintBox, Image Shape....

Lo he provado varias veces y como te menciono solo funciona en el canvas del form. El problema es que yo necesito realizarlo sobre un objeto de los que te mencione anteriormente...

Quizas tengas la respuesta de ¿porque solo funciona en el canvas del form?.

saludos..

[vic_ia]

hola...

pues yo he probado con un Paintbox sustituyendo las lineas correspondientes y me funciona sin ningun problema

Código Delphi [-]
  SelectObject(PaintBox.Canvas.Handle,Font);
  PaintBox.Canvas.TextOut(100,100,Edit1.Text);

saludos...

[senpiterno]

Tienes razon amigo vic_ia, si funciona con el canvas de otros objetos, el problema del porque no se mostraba el texto en pantalla esta en la siguiente linea:

Código Delphi [-]
 
PaintBox1.Canvas.TextOut(x,y,'Hola');

"x" e "y", no tenian valores apropiados respecto al tamaño del Paintbox que estaba utilizando....pero el problema ya esta solucionado...
Muchas gracias amigo vic_ia, de verdad me has servido de mucha ayuda..

Gracias y saludos.