TPanel + WS_EX_Transparent + PNG = ...

← →
000001 (2007-07-06 22:55) [0]

Задача: накрыть некоторые элементы (TEdit, TLabel, TMemo, ...) прозрачной панелью, на которой размещен полупрозрачный PNG-рисунок.
Всё ок, в случае с TButton и TLabel, а вот в случае TEdit и TMemo - не получается, лезут они сверху прозрачной панели, сверху PNG-картинки.

Прозрачность панели реализуется так:

{ TPanel } procedure TPanel.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle + WS_EX_Transparent; end; procedure TPanel.Paint; var XBitMap: TBitMap; XOldDC: HDC; XRect: TRect; begin if (csDesigning in ComponentState) then inherited Paint else begin XRect := ClientRect; XOldDC := Canvas.Handle; XBitMap := TBitMap.Create; try XBitMap.Height := Height; XBitMap.Width:=Width; Canvas.Handle := XBitMap.Canvas.Handle; inherited Paint; RedrawWindow(Parent.Handle, @XRect, 0, RDW_ERASE or RDW_INVALIDATE or RDW_NOCHILDREN or RDW_UPDATENOW); finally Canvas.Handle := XOldDC; Canvas.BrushCopy(XRect, XBitMap, XRect, Color); XBitMap.Free; end; end; end;

Что посоветуете?

← →
hommRO (2007-07-06 23:01) [1]

> Что посоветуете?

Edit1.OnChange
Panel1.Invalidate;

← →
000001 (2007-07-06 23:09) [2]

Посмотрел я CM_INVALIDATE, да срабатывает, хорошо, но получается интересно: прозрачность (и вообще прозрачность ли?) TImage начинает уменьшаться с каждым вызовом Invalidate. Т.е. что тут и от чего это происходит от моего прозрачного TPanel или от полупрозрачного PNG...по чему так? и что делать?

← →
hommRO (2007-07-06 23:14) [3]

> и что делать?

Вопрос по нармальному задать?

← →
000001 (2007-07-06 23:24) [4]

Не знаю, как сказать. Делаю Panel.Invalidate, вся полупрозрачность от PNG теряется.

← →
hommRO (2007-07-07 00:13) [5]

Мое мнение ввобще на счет сабжа: для реализации этого в win32 уйдет сил не меньше, чем при реализации с нуля (собственной отрисовкой контролов, событий клавиатуры, но просто на одном окне. с WS_EX_Transparent вообще ничего хорошего никогда не получится.

TPanel + WS_EX_Transparent + PNG = ... Найти похожие ветки