Hallo Leute,
da mir das leider alles nicht zusagt, habe ich mich hingesetzt und die TBitBtn Klasse "kopiert".
Dann habe ich die Sachen vom TPngBitBtn hinzugefügt, weil ich lieber Pngs anzeigen will als Bitmaps. Aus TButton dann das wichtige Default. Und zu guter letzt die Möglichkeit den Button flach zu machen.
Soweit ist jetzt alles schön.
Jetzt hätte ich aber gern noch dieses "Blau", das man sieht wenn man mit der Maus über einen Button geht, als Hintergrund, wenn es der DefaultButton ist.
Ich habe:
Delphi-Quellcode:
Details := ThemeServices.GetElementDetails(tbPushButtonHot); //tbPushButtonDefaulted noch mehr "Schnickschnak"
ThemeServices.DrawElement(DrawItemStruct.hDC, Details, DrawItemStruct.rcItem);
versucht. Das gibt mir genau die richtige Farbe, aber leider habe ich da auch diesen blöden Rand drum herum.
Kann mir jemand sagen ob:
1. ich diese Farbe irgendwo her bekommen kann, oder ob diese Farbe immer die Selbe ist?
2. ich diese obige Routine benutzen kann und den Rand/Füllung dabei loswerden?
Am schönsten wäre 1.
Danke für eure Hilfe,
David