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

Вниз

Вывод Bitmap на экран без создания окна   Найти похожие ветки 

 
Алик   (2006-12-13 11:29) [0]

Добрый день,

Как принято во многих прогах, в момент загрузки программы появляется картинка типа About.
Как можно это сделать не создавая дополнительной формы для этого (TForm).

Пробовал следующий вариант

var
 DesktopCanvas: TCanvas;
begin
 DesktopCanvas := TCanvas.Create;
 try
   DesktopCanvas.Handle := GetDC(0);
   try
     DesktopCanvas.MoveTo(0, 0);
     DesktopCanvas.LineTo(Screen.Width, Screen.Height);
   finally
     ReleaseDC(0, DesktopCanvas.Handle);
     DesktopCanvas.Handle := 0;
   end;
 finally
   DesktopCanvas.Free;
 end;
end;


Но когда начинает что-то появляться на экране, данный рисунок затирается.
Как сделать, чтобы он не исчезал?


 
DVM ©   (2006-12-13 11:34) [1]


> Как сделать, чтобы он не исчезал?

Ловушку глобальную поставить на WM_PAINT


 
DVM ©   (2006-12-13 11:37) [2]


> Как можно это сделать не создавая дополнительной формы для
> этого (TForm).

А зачем такое изобретать то? Хочешь сделать окно как в продуктах Adobe? И без регионов?

Лучше так:
1) Сделать скриншот экрана.
2) Создать окно без бордюра
3) Отрисовать на окне часть скриншота
4) Отрисовать сверху свой рисунок с учетом прозрачности
5) Готово.



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
15-1165564392
vajo
2006-12-08 10:53
2006.12.31
Американцы собираются на луну в 20году


3-1161084645
safo
2006-10-17 15:30
2006.12.31
Как трассировать sql-запросы к ODBC?


3-1161322590
DelphiN!
2006-10-20 09:36
2006.12.31
SQL запрос


15-1165919871
Jus
2006-12-12 13:37
2006.12.31
ADSL подключение


3-1161006018
Игорь ЖАКО
2006-10-16 17:40
2006.12.31
Поле для статуса записи