[cruiser]

TcruOverlayImageList

Hierbei handelt es sich erneut um eine VCL-Komponente, die ich mir zum eigenen Gebrauch entwickelt hab, aber auch gern anderen zur Verfügung stellen möchte.

Es handelt sich dabei um eine Ableitung von TImageList, kann also genau so eingesetzt werden.

Im unterschied zu normalen Imagelists hat diese ein paar zusätzliche Eigenschaften und Methoden zum steuern der Overlays. Dabei kann ein anderes Glyph über einen bestimmten Index geblendet werden, oder aber zusätzlich ein Farbrechteck.

Eigenschaften:
OverlayImages(TImageList): Eine (optionale) Imagelist mit (kleineren) Overlay-Glyphs
DrawBorder(Boolean): Steuert, ob ein Rahmen um Farbrechtecke gezeichnet wird.
BorderColor(TColor): Die Farbe des Rahmens;

Methoden:
ClearOverlay(aIndex: Integer); Löscht den Overlay des Index.
SetColorBottom(aIndex: Integer; aColor: TColor); Zeichnet im unteren Viertel des Glyphs ein Rechteck mit der angegebenen Farbe.
SetColorFull(aIndex: Integer; aColor: TColor); Zeichnet den Kompletten Glyph als farbiges Rechteck mit der angegeben Farbe.
SetOverlay(aIndex: Integer; aOvlIdx: Integer; aCorner: TcruOverlayCorner); Blendet ein anderes Glyph über den angegeben Index. Ist eine Imagelist in OverlayImages angegeben, gibt der overlayindex dieser Liste an, ansonsten gilt der Overlayindex als Index auf die OverlayImageList selbst. aCorner gibt die Ecke an, in der das Glyph gezeichnet werden soll und kann folgende Werte annehmen:
TcruOverlayCorner=(ocrTopLeft, ocrBottomLeft, ocrBottomRight, ocrTopRight); Ich hoffe auf etwas Input von euch