PDA

View Full Version : سوال: معادل این کد دلفی برای قلم لبه نرم چیه؟



mbshareat
سه شنبه 13 اردیبهشت 1390, 20:40 عصر
با سلام
من توی دلفی با این کد می تونم قلم نرم با ضد پلگی برای Label یا Button داشته باشم:


procedure SetFontToClearType(const aFont: TFont);
var
LogFont: TLogFont; TempFont: TFont;
begin
TempFont:= TFont.Create;
try
TempFont.Assign(aFont);
GetObject(TempFont.Handle, sizeof(LogFont), @LogFont);
LogFont.lfQuality := 5;
TempFont.Handle:= CreateFontIndirect(LogFont);
aFont.Assign(TempFont);
finally
TempFont.Free;
end;
end;

برای استفاده از این زیر برنامه هم باید جایی این کد را وارد کنم:

SetFontToClearType)Label1.Font);
اما توی VB نمی دونم چطور میشه این کد رو پیاده کرد.
اگه کسی میدونه لطف کنه راهنمایی کنه!