کد نویسی چرخش textدر دلفی 7

[khanboloky]

بااستفاده ازفرمول text out عددی را روی فرم نوشته ام چگونه می توان آنرا نود درجه چرخاند؟

[دلفــي]

بااستفاده ازفرمول text out عددی را روی فرم نوشته ام چگونه می توان آنرا نود درجه چرخاند؟

به این راحتی نمی تونی مگه اینکه از یه کامپوننت که مخصوص این کاره استفاده کنی !
مانند : JEDI

[ali_abbasi22145]

reportbuildr دارد روي text كليك راست ماوس و انتخاب Angle زاويه 90 درجه انتخاب شود

[alinikaein]

سلام دوست عزيز؛

من كد زير را همين‌طوري براتون نوشتم. خودتون مي‌تونيد بهينه‌ش كنيد و يا تغيير بديد.




var
NormalText, RotatedText: TBitmap;
MyX, MyY: Integer;
MyText: String;
begin
NormalText := TBitmap.Create;
RotatedText := TBitmap.Create;

MyText := 'Ali Nikaein';

NormalText.Canvas.Font.Name := 'Tahoma';
NormalText.Canvas.Font.Size := 10;
NormalText.Canvas.Font.Style := [fsBold];
NormalText.Width := NormalText.Canvas.TextWidth(MyText);
NormalText.Height := NormalText.Canvas.TextHeight(MyText);
NormalText.Canvas.TextOut(0, 0, MyText);

RotatedText.Width := NormalText.Height;
RotatedText.Height := NormalText.Width;

for MyX := 0 to NormalText.Width do
for MyY := 0 to NormalText.Height do
RotatedText.Canvas.Pixels[NormalText.Height - MyY - 1, MyX] := NormalText.Canvas.Pixels[MyX, MyY];

Form1.Canvas.Draw(100, 100, RotatedText);

NormalText.Free;
RotatedText.Free;

end;





يا علي... موفق باشيد...

[maisam57]

میتونی از Raize Components استفاده کنی(rzlabel)