Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Рисую на экране всякие козяблики   Найти похожие ветки 

 
juice   (2005-01-28 17:21) [0]

Рисую на экране всякие козяблики, а как их потом убрать? А если серьезно, надо отобразить надпись а через несколько секунд убрать ее. Отображаю так:
C := TCanvas.Create;
 with c do
 begin
       Handle := GetDC(0);
       Font.Color:=RGB(255, 255, 255);
       Font.Name:="Arial";
       Font.Size:=20;
       Brush.Color:=RGB(0,0,0);
       TextOut(0,0, "wefwefew");
       c.Refresh;
       Free;
 end;

А вот как убрать ее не знаю. Просто сохранить кусок экрана до отображения надписи а затем восстановить его это очень ненадежно. Если мне не изменяет память API обладает средствами "обновления(перерисовки)" окон. Что вы скажите?


 
Digitman ©   (2005-01-28 17:29) [1]


>  Рисую на экране всякие козяблики


нет бы рисовать нужную юзеру инф-цию) ..
ан нет ! обязательно "козяблики" он должен лицезреть) ... а как иначе ? на то он и юзер !)


 
Георгий Бедный   (2005-01-28 18:52) [2]

Делай как в играх и скринсейверах: на отдельную битмапу копируешь экран, потом совмещаешь её на форме с текстом. Единственный недостаток - копия экрана не будет обновляться. Но, думаю, ты сообразишь, как усовершенствовать такой способ.


 
Набережных С. ©   (2005-01-28 20:30) [3]

W:=GetParent(GetDesktopWindow);
 R:=Rect(сам считай);
 InvalidateRect(W, @R, false);


 
Eraser ©   (2005-01-28 21:26) [4]

Набережных С. ©
W:=GetParent(GetDesktopWindow);

Это всё равно, что ноль к нулю приравнивать.


 
Набережных С. ©   (2005-01-28 22:31) [5]

>Eraser ©   (28.01.05 21:26) [4]

А ты проверь.


 
Набережных С. ©   (2005-01-28 22:37) [6]

>Eraser ©   (28.01.05 21:26) [4]

Да, ты прав, извини, глюканул:(


 
Георгий Бедный   (2005-01-29 13:24) [7]

Кстати, о скринсейверах: кто-нить знает, как правильно прописать окно его настроек в WinAPI?? Мне надо SpinEdit для скорости, Edit и Button для имени файла (Имя файла: ______ Обзор...). Заранее благодарен.



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

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
6-1104455235
nsvi
2004-12-31 04:07
2005.03.13
Отправка письма на через сервер smtp, требующий авторизации


4-1107175604
mbIkola
2005-01-31 15:46
2005.03.13
Как определить факт закрытия сессии в терминальном режиме.


14-1109156186
вредитель
2005-02-23 13:56
2005.03.13
Если бы....


3-1108127226
Max Zyuzin
2005-02-11 16:07
2005.03.13
Посоветуйте чем лучше состыковывать Delphi 7 и MSSQL


4-1105649578
Scained
2005-01-13 23:52
2005.03.13
Как перевести Ring3 в Ring0