Как работать с рабочим столом в Windows98

← →
Super135 © (2006-11-23 22:53) [0]

Нарисовать на рабочем столе могу а очистить (обновить) нет.
(Тоесть вывожу какуюто надпись(ето получается) потом ее надо затереть(ето не получается) а потом еще раз вывести в другом месте(ето получается)) Ну и до кучи а рисовать можно (тоесть на рабочем столе)??????

← →
Kostafey © (2006-11-23 22:57) [1]

Хаотичный какой-то вопрос. А как ты рисовал ? Через Handle ?

← →
Palladin © (2006-11-23 22:58) [2]

Фломастером

← →
Palladin © (2006-11-23 23:00) [3]

? ручкой? карандашами? маркером?

с карандашами все просто, стирается резинкой или просто пальцем
ручкой - уже сложней, зависит от поверхности рабочего стола
фломастер тоже прост, палец наслюнявь и потери поверхность (помыть палец потом не забудь)
маркер - самый тяжелый случай...

← →
Super135 © (2006-11-23 23:15) [4]

procedure TForm1.DeskTopPaint(Sender:Tobject);
var
DeskTop:TCanvas;
begin
DeskTop:=TCanvas.Create;
try
DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
DeskTop.Brush.Style:=bsClear; // Устанавливаем тип кисти
With DeskTop.Font do // Подбираем шрифт
Begin
Color:=clwhite;
Size:=13;
Name:="Times New Roman";
Style:=[fsBold];
end;
DeskTop.TextOut(70,10,"Сегодня : "+DateToStr(Now));
ReleaseDC(0, DeskTop.handle);
finally
DeskTop.Free; // Уберем за собой
end;

end;

← →
ASoft (2006-11-24 07:04) [5]

> Super135 © (23.11.06 23:15) [4]

молодец, для "рисования" на рабочем столе пример ты нашел...
а для обновления рабочего стола я нашел вот этот пример:
The RedrawWindow function updates the specified rectangle or region in a window"s client area...
var nR: PRect; begin New(nR); try nR^ := Rect(0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)); RedrawWindow(0, nR, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT); finally Dispose(nR); end; end;
здесь обновляется весь рабочий стол

Invalidate()

Большое спасибо. Всем кто помог.

Как работать с рабочим столом в Windows98 Найти похожие ветки