برگزیده های پرشین تولز

تغییر تنظیمات فونت Canvas.Textout

M.Yaghoubian

کاربر تازه وارد
تاریخ عضویت
23 آپریل 2007
نوشته‌ها
2
لایک‌ها
0
محل سکونت
Shahin Shahr
با سلام، من عضو جدید هستم...
من می خوام روی یک Image متن بنویسم، برای این کار از Textout استفاده کردم
ولی روی image یک مربع سیاه نمایش داده می شه...:blink:
لطفا منو راهنمایی کنید چطور فونت اونو تنظیم کنم؟
 

NewAge

کاربر تازه وارد
تاریخ عضویت
29 می 2007
نوشته‌ها
9
لایک‌ها
0
محل سکونت
ً
با سلام، من عضو جدید هستم...
من می خوام روی یک Image متن بنویسم، برای این کار از Textout استفاده کردم
ولی روی image یک مربع سیاه نمایش داده می شه...:blink:
لطفا منو راهنمایی کنید چطور فونت اونو تنظیم کنم؟

دوست من اين مشکل ارتباطي به تنظيم فونت نداره.

تنها نکته مهم اين مسئله اينه که شما بايد اين کار (Image.Canvas.TextOut) را در پراسيژر Paint انجام بدهيد.(هر گاه نياز به Paint کردن صفحه باشد، اين پراسيژر صدا زده ميشود):lol:​

کد:
procedure Paint; override;
.
.
.
procedure TForm1.Paint;
begin
  inherited;
  Image1.Canvas.Font.Style := [fsBold]+[fsItalic];
  Image1.Canvas.TextOut(0, 0, 'salam');
end;

فکر نميکنم ديگه مشکلي وجود داشته باشه!:)
 
بالا