как рисовать текст на чужом окне

[Crazyman]

код

procedure DrawText(const hWnd:Thandle; const text:string);
var
 DC:thandle;
begin

 DC := GetWindowDC(hWnd);
 SetBkMode (DC, RGB(255,055,10));
 selectobject(dc, createfont(12,12, 0, 0, FW_SEMIBOLD	,
  0,0,0, DEFAULT_CHARSET, 0, 0, 1, 0, 'Arial'));
 SetTextColor(DC,RGB(0,255,0));
 TextOut(DC,5,10,PChar(Text),Length(Text));
 ReleaseDC(hWnd, DC);
end;

я вот набросал код, но когда он рисует , текст налаживает дргу на друга и получается фигня в общем что не так ?

[rpy3uH]

как понять "текст налаживает друг на друга"?

[Stilet]

Наверное он имеет ввиду что текст в чужем окне рисуется без отрисовки его фона.

[Crazyman]

Сообщение от rpy3uH

как понять "текст налаживает друг на друга"?

вообщем данная функция записана в цикле repeat until . Текст меняется и когда рисуется другой тект, то старый не удаляется и остается и происходит наложение, получается куча слов в одном месте.

[rpy3uH]

в цикле перед отрисовкой очищай то место где рисуешь. Можно, например, на этом месте нарисовать прямоугольник и закрасить его, либо перерисовать целевое окно (сообщение WM_PAINT)

[Crazyman]

Сообщение от rpy3uH

в цикле перед отрисовкой очищай то место где рисуешь. Можно, например, на этом месте нарисовать прямоугольник и закрасить его, либо перерисовать целевое окно (сообщение WM_PAINT)

Ну прямоугольник тоже остоваться будет !!! Некоторые части этого прямоугольника будут остоваться !!