[Lazarus] Transparent container

Graeme Geldenhuys graemeg.lists at gmail.com
Tue Dec 22 07:35:02 CET 2009


JoshyFun wrote:
> that do not repaint its background. At a first attempt I intercept the
> OnPaint event of a TPanel and TScrollBox but both of them even when
> paint does nothing they paint a "btnFace" background.

I think you uncovered a bug their.  Alternatively create a TCustomComponent
descendant and in the constructor add something like the following:

...
  ControlStyle := ControlStyle + [csAcceptsControls, csCaptureMouse,
    csClickEvents, csNoFocus] - [csOpaque];
...


Also, when you say "transparent", do you mean like what can be done with a
TLabel, or do you mean the whole window is truly transparent so that you
can see through it and onto the desktop?  I don't think LCL supports the
latter.


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/





More information about the Lazarus mailing list