| Код |
function WindowProc(Hwn, PMsg, Wpr, Lpr: Longint): Longint; stdcall;
var
ps: tagPAINTSTRUCT;
rect: TRect;
MyHDC: HDC;
Str: String;
hfontt: HFONT;
begin
Result := DefWindowProc(Hwn, PMsg, Wpr, Lpr);
//Çàêðûòèå ôîðìû
if PMsg = WM_DESTROY then DoExit;
//Çàêðûòèå ôîðìû ïî íàæàòèþ ESC
if (PMsg = WM_KeyDown)
and (Wpr = VK_ESCAPE) then DoExit;
//Ïåðåðèñîâêà ôîðìû
if PMsg = WM_PAINT then
begin
Str := 'Ìîé òåêñò' + #0;
MyHDC := BeginPaint(Hwn, ps);
{GetClientRect(Hwn, rect);
DrawText(MyHDC, PAnsiChar(Str), -1, rect,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);}
SelectObject(MyHDC, CreateFont(24,16,0,0,400,0,0,0,OEM_CHARSET,
OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,DEFAULT_PITCH or
FF_SCRIPT,
PAnsiChar(Str)));
SetTextColor(MyHDC,$0000FF00);
SetBkColor(MyHDC,$0000FFFF);
TextOut(MyHDC, 0, 0, PAnsiChar(Str),SIZEOF(Str));
SelectObject(MyHDC, hfontt);
EndPaint(Hwn, ps);
end;
end;
|
Вот такой код вывода текста на API форму. Но на форме (белого цвета, стиль - WS_OVERLAPPEDWINDOW) ничего нет. Я использовал DrawText - не получилось, использовал TextOut - тоже самое. Понимаю, что ошибся, но где???? |
)