Suche Komponente: Grid mit Checkboxen

[mschaefer]

Suche eine Komponente die mindestens vier Spalten
Checkboxen in einer Liste darstellen kann. Also davon dann mehrere Zeilen.

Grüße // Martin

[mkinzler]

-StringGrid mit OwnerDraw
-VirtualTreeView

[Hansa]

OwnerDraw im Stringgrid ? Seit wann gibts denn das und wozu ? :shock:

Das hier sollte als Anregung reichen (OnDrawCell) :

Delphi-Quellcode:

var DrawState: Integer;
    DrawRect: TRect;

...          if ACol in CheckBoxCols then begin
            DrawRect:=Rect;
            DrawState := ISChecked[StrToInt (sgSender.Cells [ACol,ARow]) = 1];
            sgSender.Canvas.FillRect(Rect); // hinter Cells liegende 0/1 nicht anz.
            DrawFrameControl((Sender as TStringGrid).Canvas.Handle,DrawRect,DFC_BUTTON,DrawState);
          end

Grundgedanke ist, den tatsächlichen Zelleninhalt zu übertünchen. Tatsächlich steht in der Zelle zwar 0 oder 1, aber man sieht nur die Checkbox.

[mkinzler]

Zitat:

OwnerDraw im Stringgrid ? Seit wann gibts denn das und wozu ? Shocked

Hä, du sagst das es nicht gibt und implemnetierst ihn dann anschliessend :gruebel:

[toms]

Zitat:

Zitat von mkinzler

Zitat:

OwnerDraw im Stringgrid ? Seit wann gibts denn das und wozu ? Shocked

Hä, du sagst das es nicht gibt und implemnetierst ihn dann anschliessend :gruebel:

Das war wohl ironisch gemeint... :idea:

[mkinzler]

Dann hat er aber den falschen Smiley verwendet

[Hansa]

Zitat:

Zitat von mkinzler

das es nicht gibt und implemnetierst ihn dann anschliessend :gruebel:

Was macht man, wenn etwas nicht so geht wie gewünscht ? Man lässt es bleiben oder macht das eben selber wie mans braucht. Einfach, was ? :mrgreen: Für die paar Zeichen-Operationen im DrawCell eine eigene property OnOwnerDraw einzuführen ? Wer will, solls machen.

[mkinzler]

onDrawCell ist doch Ownerdraw

[DeddyH]

[OT]
*Füße hochleg*
*Chipstüte aufreiß*
*Bierflasche öffne*

Mal sehen, wie lange das Missverständnis noch weitergeht :mrgreen:
[/OT]

[Hansa]

Zitat:

Zitat von DeddyH

[OT]
Mal sehen, wie lange das Missverständnis noch weitergeht :mrgreen:
[/OT]

Missverständnis ? Das ist eher eine Verständnisfrage. :mrgreen:

Man verwendet für das alternative Zeichnen einzelner Zellen beim TStringgrid die Methode OnDrawCell und für VirualTreeView die Methode OnCustomDraw, OnCustomDrawItem etc. Im Zusammenhang gibts da noch eine Property OwnerDraw und OwnerData. Rest -> F1 :P