Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизПерерисовка окна Найти похожие ветки
← →
Злодей (2003-08-21 16:12) [0]Здраствуйте. У меня трабл. Мне нужно поверх активного окна (не моё приложение) вывести текст (время). Но при выводе текст мерцает. Что-то подсказывает, что надо ловить onPaint этого окна, но пока силёнок маловато, а очень надобно. Помогите, плз...
← →
KSergey (2003-08-21 16:21) [1]Ну сделать свое окно - и его на самый верх покласть. И ничего мерцать не будет (возможно, смотря как сделать ;).
← →
MMF (2003-08-21 16:47) [2]Подмени оконную процедуру, что-то вроде:
OldProc:= Pointer(GetWindowLong(Wnd,GWL_WNDPROC));
SetWindowLong(WND, GWL_WNDPROC, Integer(@NewProc));
SendMessage(WND, WM_Paint, 0, 0);
function NewProc(Handle: hWND; Msg, wParam, lParam : LongInt): LongInt; stdcall;
begin
Result:=CallWindowProc(OldProc, Handle, Msg, wParam, lParam);
if Handle=StatusWnd Then
Case MSG of
WM_PAINT : RefreshText();
end;
end;
procedure RefreshText();
var
StatusRect, TextRect: TRect;
Text: string;
begin
Text="Гы-гы";
StatusDC:=GetDC(WND);
GetClientRect(WND, StatusRect);
SetTextColor(StatusDC, clBlue);
SetBkColor(StatusDC, clSilver);
DrawText(StatusDC, Pchar(Text), -1, TextRect, DT_RIGHT);
ReleaseDC(WND, StatusDC);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c