Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JYPDWhite,
6. Dez 2012
Also ich habe es letztendlich Quick&Dirty so gelöst:
procedure TAdvancedCheckbox.WMPaint(var Message: TWMPaint);
var
Canvas :TCanvas;
oldColor :TColor;
oldStyle :TBrushStyle;
begin
inherited;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JYPDWhite,
4. Dez 2012
Hi ihr,
erstmal danke für die Antworten. Das Projekt läuft noch bei Delphi 2007. Gut dann werde ich das mal probieren mich in WM_Paint mit rein zu hängen.
Ne eigene Stringgridklasse die mit Checkboxen und Buttons usw klarkommt habe ich ja auch schon gebaut ;-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by JYPDWhite,
3. Dez 2012
Hi ihr,
ich möchten neben einer Checkbox ein Bild anzeigen und da habe ich mir gedacht "machst du halt ne neue Komponente die von TCheckbox abgeleitet ist". Gesagt getan. Dann war der nächste Schritt die Paint Methode überschreiben.
Nunja würde ich ja gerne. Nur gibt es in der Basisklasse (und der ihren Basisklassen) keine paint Methode. Dann habe ich einfach mal alle Methoden überschrieben...