Texto en Vertical

[Giniromero]

Muchas gracias por la ayuda, miraré los link que me comentais, (aunque ya he mirado el de Torry.net y no me ha servido de mucho).

En cuanto a lo que me comenta neftali de usar PanelControl, con el TabPosition como left, ya lo tenía contemplado como una opción, pero, como dije al respecto en mi primer mensaje, teniendo en cuenta que no voy a usar pestañas en mi aplicación, me parece una solución algo cutre, por que en la implementación tuve que minimizar el controlPanel al tamaño de las pestañas.

Muchas gracias de todos modos por la ayuda,

saludos,

Virginia

[[Lepe]]

las suits LMDTOOLS, JVCL llevan el label que quieres.

Las JVCL son más de 400 componentes para delphi
Las LMDTOOLS son 5 o 6 pestañas de la paleta de componentes.(hay una version free en la web esa)

Saludos

[Alfredo]

Hola, virginia...

Prueba este codigo: (es de trucomania Nº 117)

procedure TForm1.Button1Click(Sender: TObject);
var
  Hfont: Thandle;
  logfont:TLogFont;
  font: Thandle;
  count: integer;
begin
  LogFont.lfheight:=30;
  logfont.lfwidth:=10;
  logfont.lfweight:=900;
  {Angulo * 10}
  LogFont.lfEscapement:=-450;
  logfont.lfcharset:=1;
  logfont.lfoutprecision:=out_tt_precis;
  logfont.lfquality:=draft_quality;
  logfont.lfpitchandfamily:=FF_Modern;

  font:=createfontindirect(logfont);

  Selectobject(Form1.canvas.handle,font);

  SetTextColor(Form1.canvas.handle,rgb(0,0,200));
  SetBKmode(Form1.canvas.handle,transparent);
 
  for count:=1 to 100 do
    begin 
  canvas.textout(Random(form1.width),Random(form1.height),'Rotated');
  SetTextColor(form1.canvas.handle,rgb(Random(255),Random(255),Random(255)));
    end;
  deleteobject(font);

end;

Con unos pocos arreglos pudiera ser de ayuda....

[Giniromero]

Hola a Todos,

Al final lo resolví poniendo botones y en los botones,imagenes con el texto en vertical.

Muchas gracias a todos por todo en cualquier caso.

Virginia