Главная страница
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.017 c
15-1192012446
NiGGa
2007-10-10 14:34
2007.11.11
Delphi7 и .dfm


5-1163074690
karton
2006-11-09 15:18
2007.11.11
TabControl внутри компонента


2-1192790942
Shakesbeer
2007-10-19 14:49
2007.11.11
Работа с com-портом.


2-1192536340
Kolan
2007-10-16 16:05
2007.11.11
Variant := := StrToInt( 1 ) приводит к исключению, почему?


2-1192461569
koha
2007-10-15 19:19
2007.11.11
ListView и позиция курсора.