Klasse von TCheckbox ableiten

[Bummi]

@DeddyH , wenn man den braucht, sicher.
Dafür fängt man sich dann halt die üblichen Transparenzprobleme ein.

[DeddyH]

Das ist mir klar, aber es soll auch Leute geben, die noch die Tastatur beherrschen

[JYPDWhite]

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

[Bummi]

@JYPDWhite

berichte von Deinem Erfolg, bei einem schnellen antesten hatte ich massives Geflackere ...

[JYPDWhite]

Also ich habe es letztendlich Quick&Dirty so gelöst:

Delphi-Quellcode:

procedure TAdvancedCheckbox.WMPaint(var Message: TWMPaint);
var

  Canvas :TCanvas;
  oldColor :TColor;
  oldStyle :TBrushStyle;
begin

inherited;

  if(Visible) then begin
   Canvas:=TCanvas.Create();
   Canvas.Handle := GetWindowDC(Self.Handle);
//   canvas.TextOut(15,0, '88');
//   canvas.Ellipse(x1, y1, x1+x2, y1+y2);
   oldColor:=Canvas.Brush.Color;
   if(isAusgewaehlt) then begin
     if(isUebernommen) then begin
      Canvas.Brush.Color:=farbeUebernommen;
     end else begin
      Canvas.Brush.Color:=farbeNichtUebernommen;
     end;
   end else begin
     Canvas.Brush.Color:=farbeNichtAusgewaehlt;
   end;

   oldStyle:=Canvas.Brush.Style;
   Canvas.Brush.Style:=bsSolid;
   canvas.Ellipse(15, 1, 30, 16);
   canvas.Brush.Style:=oldStyle;
   canvas.Brush.Color:=oldColor;

   FreeAndNil(Canvas);

  end;

end;

dazu ist das Form auf dem das ganze Zeug liegt DoubleBuffered:=true; ich konnte bei mir kein geflackere feststellen.
Am Anfang hatte ich das inherited nicht drinne. Da hatte ich extremes geflackere da dann Windows ein ständiges neuzeichnen veranlasst hat.

[Bummi]

IMHO fehlt da noch ein ReleaseDC

[DeddyH]

Und ein try-finally-Block.