Вниз
Скачать: CL | DM;

Полупрозрачность tpngimage на прозрачной форме.   Найти похожие ветки 

← →
Дмитрий Белькевич ©   (2007-08-22 19:29) [0]

Дано: форма, на ней лежит png (tpngimage), требуется, что бы его полупрозрачности не мешала форма (сейчас tpngimage полупрозрачен относительно формы, но хотелось бы что бы он был полупрозрачен относительно рабочего стола винды).


← →
Lacmus ©   (2007-08-22 20:23) [1]


   procedure WMEraseBkgrnd(var aMessage: TMessage); message WM_ERASEBKGND;
 public
   { Public declarations }
 end;

var
 Form43: TForm43;

implementation

{$R *.dfm}

procedure TForm43.WMEraseBkgrnd(var aMessage: TMessage);
begin
 aMessage.Result := 1
end;



?


← →
Дмитрий Белькевич ©   (2007-08-22 20:55) [2]

Работает, но с глюками. При отображении вначале всё ок, но потом места, где альфа-канал прозрачный на png, не прорисовываются. Если каким-то окном потягать над формой, то остаются следы от окна.


← →
Lacmus ©   (2007-08-23 17:18) [3]

На Windows XP проблему повторить не удалось, форма с PngImage нормально отображается при операциях с другими окнами, есть проблемы при изменении размеров формы, решается выключением, включением AlphaBlend формы, решение конечно плохое, но другого пока нет.


← →
homm ©   (2007-08-23 20:17) [4]

> [0] Дмитрий Белькевич ©   (22.08.07 19:29)

Выслал мылом.


← →
Дмитрий Белькевич ©   (2007-08-23 22:29) [5]


> Выслал мылом.


Спасибо, получил. Всё даёт.



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

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



Память: 0.46 MB
Время: 0.012 c
6-1173451478
K@KTUS
2007-03-09 17:44
2007.11.11
Компоненты FastNet


2-1192457940
foreverDelphi
2007-10-15 18:19
2007.11.11
как вывести текст


2-1192678112
Lebedev
2007-10-18 07:28
2007.11.11
Как динамически в RadioGroup создать Items?


15-1192012446
NiGGa
2007-10-10 14:34
2007.11.11
Delphi7 и .dfm


2-1192591433
balepa
2007-10-17 07:23
2007.11.11
Access Violation or Invalide Pointer operation




   Наверх