Автор ВИКТОР сАМиленко задал вопрос в разделе Другие языки и технологии
Спасите, срочно нужна помощь (logfont: TLogFont;) и получил лучший ответ
Ответ от MMM_Corp[гуру]
во первых не TLogFont, а TFont
создаете так: hFontNormal:=CreateFont(13, 0, 0, 0, FW_NORMAL, 0, 0, 0, RUSSIAN_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS,
CLEARTYPE_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Tahoma' );
так создаете шрифт, никакого подчеркывания здесь нет!
во вторых:
отрисовку чегото надо делать на WM_Paint собитии, а не так как в ынаписали, это не правильно! если уже так пишите то создавайте bitmap, рисуйте на нем, а потом уже через sendmessage, посилайте image
в третых SetBKmode(Form1.canvas.handle, transparent);
надо писать так:
WM_CTLCOLORSTATIC:
Begin
SetBkMode(Wparam, TRANSPARENT);
Result:=GetStockObject(Null_Brush);
// if (wparam<>0) and (lparam=label6) then
begin
SetTextColor(wparam,rgb(0,0,0));
end;
End;
вот так будет правильно! учите WinAPI
П. С. почитай: ссылка