Girar 90º una Etiqueta (Label)

[Barzaugc]

Esto puede ser algo con lo que ustedes se toparon en sus inicio en Delphi, quisiera saber como girar una etiqueta (label) 90º hacia arriba. si puedo hacer que se vea la imagen siguiente en los foros, se les facilitará mucho más el entenderme, pero como no se utilizar muy bien los foros, tal vez no salga la imagen.

C:\agua.bmp

Al que me entienda y me pueda ayudar, muchas gracias.

[vic_ia]

hola...

te dejo el siguiente codigo, espero que sea lo que buscas, solo ajustalo a tus necesidades...

procedure TForm5.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(Form5.Canvas.Handle,Font);
Form5.Canvas.TextOut(100,250,'mi texto en vertical);
DeleteObject(Font);
end;

saludos...

[Barzaugc]

Muchas gracias por el codigo, pero dime una cosa.. No habría manera de ponerlo como caption de algun objeto?, por ejemplo de un panel.

[vic_ia]

hola nuevamente...

pues que yo sepa de forma directa no, tendrias en todo caso que derivar tu propio control del control correspondiente, lo que yo hago cuando necesito tal cosa, elimino el texto del caption del control y en su lugar dibujo el texto en donde me es mas conveniente... por ejemplo en el codigo que te puse puedes sustituir el form por el panel que tu mencionas y las coordenadas para que aparezca en la posicion que tu lo requieras...

saludos..