Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.027 c