Einfärben von DBCtrlGrid-Zeilen aufgrund von Inhalten

[Schiller]

Hallo,
mein Erfolg mit meiner letzten Frage macht mir Mut, eine weitere, mir schon lange auf der Seele liegende Frage mit Eurer Hilfe zu klären:
DBGrid-Komponente lässt viele Wünsche offen; insbesondere kann man Controls nicht gut unterbringen.
Daher will ich alternativ DBCtrlGrid einsetzen, was aber auch leider nicht alles unterstützt (ganz normale Schalter z.B. oder DBLookUpCombos...
Jetzt möchte ich Zeilen einfärben, wenn ein Datensatz einen bestimmten Wert enthält. Es gibt aber nur die Möglichkeit, mit der Eigenschaft "SelectedColor" die Farbe des aktuellen Datensatzes zu setzen. Irre ich mich? Wie kann ich vorgehen? Gibt es eine handhabbare Alternative (eine Gridkomponente, die mehr kann, aber bei der nicht gleich 10000e von Programmzeilen eingebunden werden müssen, die auch gepflegt werden wollen, ich habe mit einigen Gridherstellern schon einschlägige Erfahrung)?

[marabu]

Zitat von Schiller:

Jetzt möchte ich Zeilen einfärben, wenn ein Datensatz einen bestimmten Wert enthält.

Delphi-Quellcode:

procedure TMainForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Table.FieldByName('KONTOSTAND').AsInteger < 0 
    then DBGrid.Canvas.Brush.Color := clRed
    else DBGrid.Canvas.Brush.Color := clWhite;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

marabu

[Schiller]

So ungefähr könnte das gehen. Ich arbeite ja aus den genannten Gründen jetzt mit DBCtrlGrid statt mit DBGrid. Dort gibt es die Routine PaintPanel, die die Funktion von deiner DefaultDrawColumnCell übernehmen könnte. Die hat jedoch zum Aufruf keine ausreichende Sichtbarkeit. Ich muss also erst eine neue, von DBCtrlGrid geerbte Komponente schaffen, in der ich die Sichtbarkeit von PaintPanel von Protected auf Public setze. Dann müsste es gehen. Leider stürzt mir derzeit bei der Zuweisung einer Datenquelle zur neuen Komponente Delphi 7 ab. Da muss ich jetzt weiter forschen. Einen einfacheren Weg gibt es wohl nicht?

[Schiller]

über die paintPanel-Methode von TDBCtrlGrid habe ich keinen Erfolg. Zunächst klappt das ja auch mit allen Datensätzen: diese werden entsprechend dem Inhalt eingefärbt. Leider wird dann aber der selektierte Datensatz mit der Farbe des letzten Datensatzes gefärbt, ohne dass ich darauf Einfluss nehmen könnte. Die Routine wird zu verschiedenen Zeitpunkten aufgerufen, zum Schluss aber zeichnet "irgendjemand" nochmal mit der offenbar zuletzt verwendeten Farbe. Ich komme da einfach nicht ran!

[uschi]

wenns was kosten darf
würde ich dir devexpress ans herz legen. alles andere ist unwirtschaftlich.

[Schiller]

natürlich sollte das möglichst nichts kosten...
zudem habe ich keine guten Erfahrungen mit derartigen Komponenten, weil die Einarbeitung in keinem Verhältnis zum Erfolg steht.
Was kostets' denn und wo gibts das?

[Hansa]

Zitat von Schiller:

...habe ich keine guten Erfahrungen mit derartigen Komponenten, weil die Einarbeitung in keinem Verhältnis zum Erfolg steht...

So ist es. Siehe momentanes Problem. Verwende ein normales Stringgrid und fertig. Dir bleiben dann sämtliche Möglichkeiten erhalten ohne irgendwelche Kompromisse eingehen zu müssen, oder bei einer exotischen Komponente rauszufinden, wie was geht. 8)

[uschi]

kosten sind natürlich unterschiedlich.

und erzähl mir nix vom pferd. die komponenten kauft man ja nicht nur um bissl bunt rumzumalen.

er hat oben auch controls im grid gesprochen.

http://devexpress.com/Downloads/VCL/...GridSuite5.zip

hier ist ne demo ~7MB

kannst du mal reinschauen obs sich nicht doch lohnt.



trotzdem vielen dank hansa für dein unqualifiziertes kommentar.

[WoGe]

Ich weiss nicht warum Ihr Euch alle so aufregt

so gehts doch wunderbar

Delphi-Quellcode:

procedure TRechnung.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
begin
  if DBCtrlGrid.DataSource.DataSet.FieldByName('zeilenNo').AsInteger = 3 then
         DBCtrlGrid.Color := clred else DBCtrlGrid.Color := clBtnFace;
end;

end.

das färbt das 4te !! Panel zuverlässig rot

mfg
wo

[Hansa]

Zitat von uschi:

...trotzdem vielen dank hansa für dein unqualifiziertes kommentar.

Nun gut, aber so kann ich das nicht stehen lassen. Du bist ja anscheinend qualifizierter. 8) Dann dürfte es ein leichtes sein, mir folgendes zu erklären :

Anforderungen :

1.

Bei Eingabe von Daten 1-3 Zeilen der Bezeichnung, Adresse usw. anzeigen. Also in Abhängigkeit von den bestückten DB-Feldern. Ist nur eines da, dann Anzeige : 1 Zeile. Sind 3 da und das 1. und 3. haben einen Wert, dann muß die 2. Zeile angezeigt werden, obwohl sie leer ist. Es geht jeweils um einen DS (Datensatz) und zwar gemischt 1-3 Zeilen !!

2.

Zahlen-Formatierung : rechtsbündig anzeigen / eingeben mit definierten Nachkommastellen bei reals.

3. Kennzeichnung im Grid pro Zelle. D.h. in Spalte 4 könnte "Storno" stehen aber nur kleiner Kasten innerhalb der Zelle und farblich mit weiß auf rot. In Spalte 1 könnte stehen : "Scan" Das soll dann weiß auf schwarz klein unten links in der Zelle stehen.

Habe das mit dem vorhandenen StringGrid gemacht. Einfach das OndrawCell umgebaut. Ansonsten sieht die Realität so aus : 2 Wochen suchen nach geigneten Komonenten/Installation, keine Testversion usw. 2 Wochen testen. Bei Fragen keine Antwort, bzw. langsam.

Umstieg auf Stringgrid, Programm umgebaut usw. : 1 Woche. Die DB-Komponenten sind IMHO einfach zu schwach und unflexibel, egal ob von Borland oder sonst einem.