Label'i dikine nasıl yapabilirim ?

[gamsizgani]

Label'in içine yazdığım yazıyı enine değil de boyuna nasıl yapabilirim ?

[kelaynak2]

forma bir image,1 button koyun

procedure TForm1.Button1Click(Sender: TObject);
Var LogRec: TLOGFONT;
CLR_CLEAR: TColor; // Variable that stores the background color...
acimiz:integer;
begin
acimiz:=90;//açısı
with image1, canvas do
begin
Font.Name := 'Arial';
Brush.Color := CLR_CLEAR;
FillRect(rect(0,0,Width,Height));
Font.Size := 48;
Font.Style := [fsBold];
GetObject(Font.Handle, SizeOf(LogRec),Addr(LogRec));

LogRec.lfEscapement := acimiz*10; {escapement in 10ths of degrees}
Font.Handle := CreateFontIndirect( LogRec );
TextOut(20,height-20-TextHeight('M') {150},'Merhaba ');
end;
end;

[oguzozturk74]

viewtopic.php?t=1311&highlight=dikey

[selman]

selam
Raize bileşenlerinden Raize display dan Rzlabel companenti işinizi görür sanırım.........

[gamsizgani]

Arkadaşlar ilginize çok teşekkür ederim sorunumu çözdünüz:) Özellikle Oğuz arkadaşın pratik çözümü için ayrıca teşekkür ederim.

Kendinize İyi Davranın...