Einzelnen Beitrag anzeigen

TaubenUlli

Registriert seit: 26. Nov 2015
11 Beiträge
 
#8

AW: StringGrid Zellenfarbe ändern?

  Alt 31. Dez 2015, 22:29
Habs auf meine Bedürfnisse angepasst und läuft jetzt wie geschmiert!
Bei dem Code von dir wurden auch die Headleisten mit den Lösungen mit Farbe überdeckt, was natürlich ungünstig war,
hab das verbessert und bringt mir jetzt das gewünschte Ergebnis.
https://i.gyazo.com/e3622c77aab1977d...44403291ba.png
1000 Dank für den Code, und ein frohes Neues!

Code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  sg : TStringGrid;
  c : TCanvas;
begin
  sg := TStringGrid( Sender );
  c := sg.Canvas;


  If (ACol>0) And (ARow>0) Then Begin
    If
      sg.Cells[ACol,ARow] = '1' Then
      c.Brush.Color := clBlack
    Else If
      sg.Cells[ACol,ARow] = '0' Then
      c.Brush.Color := clGray
    Else If
      sg.Cells[ACol,ARow] = '' Then
      c.Brush.Color := clWhite
    Else
      c.Brush.Color := clRed;
    //...
    c.FillRect(Rect);
  end;

end;

Geändert von TaubenUlli (31. Dez 2015 um 22:43 Uhr)
  Mit Zitat antworten Zitat