"Transparenz" bei eigener Komponente

[Muetze1]

Moin!

Zitat von franz:

Hi,
Ich habe hier eine Lösung für alle Komponenten, die von TWinControl abgeleitet sind. Allerdings funktioniert die Lösung nicht mit folgenden Farben, was im übrigen gar nicht so schlimm ist, da die transparente Farbe automatisch ermittelt werden kann.

clScrollBar, clBackground, clActiveCaption, clInactiveCaption, clMenu, clWindow, clWindowFrame, clMenuText, clWindowText, clCaptionText, clActiveBorder, clInactiveBorder, clAppWorkSpace, clHighlight, clHighlightText, clBtnFace, clBtnShadow, clGrayText, clBtnText, clInactiveCaptionText, clBtnHighlight, cl3DdkShadow, cl3Dlight, clInfoText, clInfoBk

Dazu kann ich Abhilfe geben. Diese Farben sind Konstanten mit einem negativen Wert und enthalten keine RGB Werte, weshalb sie nicht funktionieren bei dem Pixels[] Vergleich. Abhilfe schafft hier einfach, wenn man die Transparenzfarbe vorher durch ColorToRGB() durchjagt, danach sind diese Konstanten zu den aktuellen RGB Werten der Systemeinstellungen umgewandelt. Danach ist dann auch der Vergleich möglich.

MfG
Muetze1