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

Как правильно нарисовать вне формы и поверх остальных форм   Найти похожие ветки 

← →
Dibroff   (2005-09-04 10:55) [0]

Создаю сплеш скрин так сказать, но хочу его создать как в фотошопе последнем, то есть вывод пнг с альфаканалом с тенями и тд. Обычная отрисовка региона формы по картинке тут не прокатит. Ну вот написал следующее.

var c: TCanvas;
...
 c := TCanvas.Create;
...
procedure DrawImage(myImage: TImage);
begin
 c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
 c.Draw(200,200,myImage.Picture.Graphic);
end;
...
//после того как все формы создались я пытаюсь очистить канву
c.FillRect(c.cliprect);
c := nil;
c.Free;

Рисует она и выводит графику как надо. НО проблема остается в том, что картинка эта остается и ее никак не вычистить. Все эти методы не очищают канву. Я так понимаю что надо посылать сообщения всем открытым окнам и рабочему столу о необходимости перерисовки, но это кажется полным бредом. Нельзя ли изменить мой код так, чтобы моя картинка рисовалась не на чужих окнах, а на невидимом DC поверх всех окон как-нибудь (я просто понятия не имею как это сделать). Ну или как-нибудь иначе, но чтобы я мог в после создания форм грамотно очистить канву. Пожалуйста видоизмините мой код или покажите свой примерчик. заранее спасибо.

---

← →
Dibroff   (2005-09-04 12:37) [1]

Спецы, просыпаемся ;)

---

← →
nes ©   (2005-09-04 13:41) [2]

Invalidaterect

---

← →
Dibroff   (2005-09-04 14:47) [3]

Да пробовал и это, не помогает

---

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

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



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