Einzelnen Beitrag anzeigen

DonManfred

Registriert seit: 8. Nov 2007
Ort: Düren
55 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Wenn das Fälligkeitsdatum erreicht ist soll Zelle im Stringgrid rot angezeigt wer

  Alt 8. Jun 2010, 15:04
GetCellColor ist dein Freund...

so ungefähr (schnell hier im editor geschrieben)...

Delphi-Quellcode:
procedure TFRechnung.AdvStringGrid3GetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
  Datumrechnung, Datumrechungfaellig: TDate;
begin
  if odd(ARow) then begin
    abrush.color := $00E4E4E4; // $00ECECF0
    afont.Color := clBlack;
  end else begin
    abrush.color := $00EEEEEE;
    afont.Color := clBlack;
  end;
  if ARow = 0 then begin
    abrush.Color := clBtnFace;
    afont.Color := clBlack;
  end;
  // Hier nun eine Prüfung ob die aktuelle Zelle anders gefärbt werden muss.
  // wenn ja, dann abrush und/oder afont entsprechend setzen...
  Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
  Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);
  if Datumrechungfaellig = Datumrechnung + 14 then abrush.color := clred;
end;

Geändert von mkinzler ( 8. Jun 2010 um 19:17 Uhr) Grund: Auch das neue Forum hat einen Delphi-Quelltext-Highlighter! 2 x umgesteltt!!!!!
  Mit Zitat antworten Zitat