Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как работать с рабочим столом в Windows98 [D7, 95/98]


Super135 ©   (2006-11-23 22:53:00) 

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


Super135   (2006-11-24 20:47:00) [1]

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


Loginov Dmitry   (2006-11-24 07:48:00) [2]

Invalidate()


ASoft   (2006-11-24 07:04:00) [3]


> 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;

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


Super135   (2006-11-23 23:15:00) [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;


Palladin   (2006-11-23 23:00:00) [5]

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

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


Palladin   (2006-11-23 22:58:00) [6]

Фломастером


Kostafey   (2006-11-23 22:57:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо