Скачать: CL | DM;

Как работать с рабочим столом в 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;

здесь обновляется весь рабочий стол

---

← →
Loginov Dmitry ©   (2006-11-24 07:48) [6]

Invalidate()

---

← →
Super135 ©   (2006-11-24 20:47) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c