Feld in Stringgrid färben

[5etH]

okay super danke nachdem ich es leich umgeschrieben hatte funktioniert es .. nur kann ich den inhalt des textes nichtmehr lesen wenn er es färbt -.-" ... wie kann ich das ändern ?

[Klaus01]

Du musst den Text mit TextOut nochmal neuzeichnen.

Grüße
Klaus

[5etH]

also habe das nun so gelöst aber der text ist immernoch nicht sichtbar hab ich vill den rückgabewert oder sowas vergessen ?

Delphi-Quellcode:

procedure TKndT.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
   Rect: TRect; State: TGridDrawState);
  var i : Integer;
      w : extended;
      s : string;
  begin
    s := ( sender as TStringGrid).Cells[ ACol, ARow];
    if TryStrToFloat( s , w) then
    if w >= 200 then
        begin
         ( sender as TStringGrid).Canvas.Brush.Color := clred;
         ( sender as TStringGrid).canvas.TextOut(Acol,Arow, stringgrid1.cells[Acol,Arow]);         
         ( sender as TStringGrid).Canvas.FillRect(Rect);
         
        end;

end;

schonmal vielen Dank
euer Manu

[mkinzler]

( sender as TStringGrid).TextOut(Acol,Arow, ( sender as TStringGrid).cells[Acol,Arow]);

[5etH]

geht so auch nicht

Delphi-Quellcode:

    if TryStrToFloat( s , w) then
    if w >= 200 then
        begin
         ( sender as TStringGrid).Canvas.Brush.Color := clred;

         ( sender as TStringGrid).Canvas.FillRect(Rect);

         ( sender as TStringGrid).canvas.TextOut(Acol,Arow, ( sender as TStringGrid).cells[Acol,Arow]);

        end;

[mkinzler]

Setzt mal explizit die gewünschte Textfarbe

[Klaus01]

Versuche es einmal so:

Delphi-Quellcode:

procedure TKndT.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer; 
   Rect: TRect; State: TGridDrawState); 
  var i : Integer; 
      w : extended; 
      s : string; 
  begin 
    s := ( sender as TStringGrid).Cells[ ACol, ARow]; 
    if TryStrToFloat( s , w) then 
    if w >= 200 then 
        begin 
         ( sender as TStringGrid).Canvas.Brush.Color := clred; 
         ( sender as TStringGrid).Canvas.FillRect(Rect);          // erst füllen
         ( sender as TStringGrid).Canvas.Brush.Color := clblack;  // wie mkinzler schreibt
         ( sender as TStringGrid).canvas.TextOut(Acol,Arow,s);    // dann reinschreiben
          
        end; 

end;

Grüße
Klaus

[mkinzler]

Ich meinte egentlich
( sender as TStringGrid).Canvas.Font.Color := clBlack;

[5etH]

hmm nein leider auch nicht

[mkinzler]

Acol und Arow sind auch nur die Indizes für die Zellen und nicht deren Position!