Aero Glass Effect Doesn't Work
lazarus / 34-Windows

----------------------------------------------------------------------
johnya · 2012-03-11 20:03

Hi,
I am trying to implement Aero Glass effect using the technique
described here:
http://wiki.lazarus.freepascal.org/Aero_Glass

But it just doesn't work for me. The resulting form has black
background, and the labels on it have magenta contours.

I've tried this on several other projects but it is still the same. I
suspect the problem will be with setting the transparency of the form
using SetLayeredWindowAttributes. When I set the form color to black
and do not change the window style to Layered, I can see the aero
glass effect, but all black texts are transparent as well.

I'm quite new in Lazarus, so it may be easy, but, please, can somebody
help me?

I've attached very simple project, taken from Lazarus examples
(childsizinglayout). I used exactly the code from the wiki (link is
above).

Thank you.

----------------------------------------------------------------------
lainz · 2012-03-11 21:48

The label has magenta color because you need special controls designed
to work with aero.

In this article

http://wiki.lazarus.freepascal.org/Aero_Glass

there is a bugs section where you can see the problems of that code.

QuoteAs you can see in the first image Labels aren't displayed fine in
Aero Glass, there are links with components and code that show how to
make "Glow Labels":

GlowLabel for Delphi
http://development.mwcs.de/glowlabel.html

Aero Glass - ein Text (Label) hintergrund "machen"
http://www.delphipraxis.net/953968-post4.html

Also if you clic the transparent part of the window the back window /
desktop is selected (focus is lost in the form with aero glass).

----------------------------------------------------------------------
johnya · 2012-03-11 22:08

Thanks. I've studied it. What's interesting, your screentshot looks
much better then mine. I've attached it. The background is black on my
computer (Vista). Did you change the source code?

I have Lazarus version 0.9.30.
BTW, this effect works on my computer if I do not set the window
layered.

----------------------------------------------------------------------
lainz · 2012-03-11 23:11

I've not changed nothing

Just when I opened your project I've not installed a package i put
'ignore use TForm as replace'.