Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.022 c
2-1192536340
Kolan
2007-10-16 16:05
2007.11.11
Variant := := StrToInt( 1 ) приводит к исключению, почему?


15-1192019663
ANTPro
2007-10-10 16:34
2007.11.11
У кого есть книга Ф. Юань — Программирование графики для Windows


2-1192557885
Riply
2007-10-16 22:04
2007.11.11
Помогите с оптимизацией.


15-1191534621
Альберт
2007-10-05 01:50
2007.11.11
отмена autorun


2-1192626983
Elec3C
2007-10-17 17:16
2007.11.11
Inc, Dec.