farbige Stringgrid ?

[stoxx]

Ich bräuchte schon seit einiger Zeit eine Stringrid, die einzelne Zellen in verschiedenen Farben darstellen kann.
Einige freie Komponenten können nur komplette Zeilen oder Spalten farbig zeichnen

Diese Komponente kann wohl auch einzelne Zellen.

http://www.tmssoftware.com/advgrid2.htm

Die Developer License mit Sourcen kostet 75 Euro. Und wie es aussieht wohl mit tausenden mit Funktionen überfrachtet.

Diese Komponente ist frei, man bekommt sie aber unter D7 absolut nich zum laufen so ohne weiteres.
(steht auch extra bei den Bugs)

http://www.hoerstemeier.com/grid_d.htm


Nun wollte ich noch ein letztes Mal fragen, ob jemand so eine Komponente kennt, sonst werde ich mich nächste Woche selber dran machen müssen. und mit OnDrawCell was basteln.


Danke und Gruß !

[eddy]

Hallo stoxx,

mit StringGrid kann ich Dir nicht helfen, aber so geht's in TDBGrid:

Code:

procedure TFMoney.dbgKDDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Grid : TDBGrid;
  i : integer;
begin
  if (gdSelected in State) or (gdFocused in State) then exit;
  Grid:= TDBGrid(Sender);
  i := Grid.DataSource.DataSet.RecNo;
  if odd(i) then begin
    Grid.Canvas.Brush.Color := clInfoBk;
    Grid.DefaultDrawColumnCell(Rect, 0, Column, State);
  end;  
end;

So ähnlich wird's wohl auch mit Stringgrid gehen.

mfg
eddy

[stoxx]

Hi .. Danke für das Statement, so hab ich es nun auch gemacht.
Nur gefällt mir diese Lösung nicht, da ich die Farbzuweisung gern im Object "Stringgrid" selbst hätte.
Das Verfahren wiederspricht meinem Bestreben die "Anzeige von Daten" von den eigentlichen Implementationen komplett zu trennen.
Aber geht schon so.
und wenn man eine eigene STringgrid Komponente da draus machen will, dann muss ich mir das nochmal durch den kopf gehen lassen, welches ondrawcell dann vorrang haben soll.
na mal sehen. soviel zeit hab ich leider für die STringgrid nich ...

[eddy]

Hallo stoxx,

wenn Du es als Komponente machst, dann brauchst Du ja nur 2 Properties einführen:

1. Zweizeilig gefärbt = true/false
2. Hintergrundfarbe : TColor

Eine Veröffentlichung dieser Komponente, die ja wohl aus TStringGrid hervorgeht, wäre auch nicht übel.

mfg
eddy