DBGrid DrawColumnCell

[StoRmtec]

Hallo
Habe ein Probelm und zwar hole ich mir Daten in die DBGrid und da möchte ich gerne immer wenn ein - dafür steht sollte die farbe rot werden sonst grün

Delphi-Quellcode:

procedure Tfrm_depot.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  holdColor: TColor;
 begin
 holdColor := DBGrid1.Canvas.Brush.Color;
  if Column.FieldName = 'gewinn' then
    if (Column.Field.text = '--') then
    begin
      DBGrid3.Canvas.Font.Color := clred;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end;
   if (Column.Field.text = '') then
    begin
      DBGrid3.Canvas.Font.Color := clgreen;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end;
end;

bringe es aber nicht hin wenn ich den Betrag richtig hineinschreibe geht es.

Danke

StoRmtec

[mkinzler]

Welchen Typ hat das Feld??

[StoRmtec]

Ist ein normales Feld von einer DBGrid. Hinterlegt ist in der Datenbank VARCHAR

[mkinzler]

Warum VarChar? Und Warum per Text?

[StoRmtec]

mmh keine ahnung habe die datenbank vorgegeben bekommen
kann man da nichts machen dann?

[joachimd]

steht denn das richtige drin? Eventuell hängen dahinter noch Leerzeichen o.ä., das heißt, Du solltest mit Copy(...) vergleichen.

[DeddyH]

Da scheinen auch begin und end zu fehlen. Klappt es evtl. so (aus dem Kopf getippt):

Delphi-Quellcode:

procedure Tfrm_depot.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  holdColor: TColor;
begin
  holdColor := DBGrid1.Canvas.Brush.Color;
  if Column.FieldName = 'gewinn' then
  begin  
    if (trim(Column.Field.AsString) = '--') then
    begin
      DBGrid3.Canvas.Font.Color := clred;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end
    else if (trim(Column.Field.AsString) = '') then
    begin
      DBGrid3.Canvas.Font.Color := clgreen;
      DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid3.Canvas.Brush.Color := holdColor;
    end;
  end;
end;

:?:

[StoRmtec]

Hallo Habe es versucht wenn ich statt den -- ZB -3,18 angebe dann macht
er mir den eintrag rot. Aber sonst wenn nur das - steht dann nicht

danke

[StoRmtec]

Hat noch wer eine Idee für mein Problem.

Danke

[joachimd]

Zitat:

Zitat von StoRmtec

Hat noch wer eine Idee für mein Problem.

nimm den Debugger, setzte einen Haltepunkt und schaue, was wirklich in den Feldern drin steht.

[StoRmtec]

wie kann ich den ddas genau machen wenn ich einen halte Punkt setze dann sehe ich
trotzdem nicht.
Kann mir vl wer weiterhelfen.

LG
StoRmtec

[DeddyH]

Du könntest die entsprechenden Daten ja auch in eine Stringliste schreiben und diese dann abspeichern. So kannst Du Dir die Daten in aller Ruhe anschauen.

[Kirchi]

So sollte es gehen:

Delphi-Quellcode:

procedure Tfrm_depot.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  DBGrid3.Canvas.Font.Color := clblack;
  if Column.FieldName = 'gewinn' then
  begin  
    if (trim(Column.Field.AsString) = '--') then
    begin
      DBGrid3.Canvas.Font.Color := clred;
    end
    else if (trim(Column.Field.AsString) = '') then
    begin
      DBGrid3.Canvas.Font.Color := clgreen;
    end;
  end;
  DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

[Blup]

Getestet wird ob in der Zelle nur diese Zeichenfolge '--' eventuell mit führenden oder folgenden Leerzeichen steht.
Wenn in der Zelle '-3,18', '--xx--' oder nur '-' steht, ist diese Bedingung nicht erfüllt.

Der Test auf einen negativen Betrag könnte so aussehen:
if Pos('-', Trim(Column.Field.AsString)) = 1 then

[DeddyH]

Es geht eben nichts über eine exakte Problembeschreibung.

[StoRmtec]

Danke Leute es hat funktioniert.

LG StoRmtec