AlphaBlend в ListView и RichEdit

← →
user's (2004-05-02 21:10) [0]

Подскажите как заставить просвечиваться ListView и RichEdit ??
Заранее спасибо.

← →
DVM © (2004-05-02 21:35) [1]

Нормальным способом в Win9X никак. Только если отрисовывать самостоятельно то, что расположено под ними при приходе WM_ERASEBKGND. Сопряжено с большими проблемами и глюками. Лучше эту идею оставить.
Если ListView надо сделать таким как на рабочем столе эксплорера (он не прозрачный!), то это так:
WM_ERASEBCKGND:
begin
PaintDesktop(wParam)
end;

← →
user's (2004-05-02 21:57) [2]

а мона хотябы сделать чтоб не AlphaBlend, а тупо показывало что находиться за ним, причЁм чтоб можно было писать там текст в рич эдите. Типа Transparent ?

← →
user's (2004-05-02 22:02) [3]

Вот так примерно обрабатывать ?

procedure WMEraseBkgnd(var message: TWMEraseBkgnd); message WM_PAINT;

← →
DVM © (2004-05-02 22:04) [4]

> user"s (02.05.04 21:57) [2]

Можно. Опять же обрабатывая WM_ERASEBCKGND RichEdita.
Но тут есть другая проблема. Windows по умолчанию не рисует ту часть родительского окна, что находится под дочерним. Соответственно, что даже если получить часть изображения родительского окна, расположенного под дочерним, то там будет не тот рисунок. Данное поведение регулируется стилями дочернего окна WS_CLIPCHILDREN и стилем WS_CLIPSIBLINGS.

← →
DVM © (2004-05-02 22:05) [5]

> Вот так примерно обрабатывать ?

Примерно так, только почему там WM_PAINT?

← →
user's (2004-05-02 22:48) [6]

вот так ?

type TRichEdit1 = class(TRichEdit) public procedure WMEraseBkgnd(var message: TWMEraseBkgnd); message WM_ERASEBKGND; end;

а что в самой процедурене писать?

> а что в самой процедурене писать?

Для начала попробуй написать PaintDesktop(message.wParam);
Должен прорисоваться рабочий стол. Если не получится - можно бросать это дело.

← →
user's (2004-05-02 23:33) [8]

e message есть только Result, Unused, DC, Msg

попробовал DC, но шото без результатно :(

> user"s (02.05.04 23:33) [8]

PaintDesktop(message.DC);
message.Result:=1;

AlphaBlend в ListView и RichEdit Найти похожие ветки