Farbe der stringgrid-Spalte je nach columnname text

Ich bin, dies zu tun :

procedure TForm1.BitBtn1Click(Sender: TObject);
 var dtStart: TDateTime;
  I: Integer;
begin
  dtStart := DateTimePicker1.Date;
  for I := 0 to 7 do
    AdvStringGrid1.Cells[I+1, 0] := uppercase(FormatDateTime('DD/MM/YYYY     DDD', dtStart + I));
   end;

Gibt es eine Möglichkeit, die Farbe einer Spalte, wenn (Beispiel), Sonntag (SUN) erscheint? Ich möchte die SONNE-Spalte (ganz unten) erscheinen in einer anderen Farbe als der rest.

InformationsquelleAutor user763539 | 2012-05-10

3

Können Sie dies mit Hilfe der OnDrawCell Ereignis (tun nicht set DefaultDraw False). Hier ist ein Beispiel mit einem regelmäßigen TStringGrid:
```
//Sample to populate the cells with the days of the week
procedure TForm1.FormShow(Sender: TObject);
var
  r, c: Integer;
begin
  StringGrid1.ColCount := 8;  //Ignore fixed column and row for this example
  StringGrid1.RowCount := 8;

  for c := 1 to StringGrid1.ColCount - 1 do
    for r := 1 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[c, r] := FormatSettings.ShortDayNames[c];
end;

//Assign this to the StringGrid's OnDrawCell using the Object Inspector 
//Events tab.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellText: string;
begin
  if (ARow > 0) and (ACol > 0) then
  begin
    CellText := StringGrid1.Cells[ACol, ARow];
    if Pos('Sun', CellText) > 0 then
    begin
      StringGrid1.Canvas.Brush.Color := clRed;
      StringGrid1.Canvas.FillRect(Rect);
    end
    else
      StringGrid1.Canvas.Brush.Color := clWindow;
  end;

  //The '+ 4' is from the VCL; it's hard-coded when themes are enabled. 
  //You should probably check the grid's DrawingStyle to see if it's 
  //gdsThemed, and adjust as needed. I leave that as an exercise for you.
  StringGrid1.Canvas.TextOut(Rect.Left + 4, Rect.Top + 4, CellText);
end;
```
Beispiel für die Ausgabe von den genauen code oben:

Hier ein zweites Beispiel, dass sich die Ausgaben nur genau das, was Sie wollen (außer, dass ich nicht zu konvertieren, die SONNE zu Kappen):
```
procedure TForm1.FormShow(Sender: TObject);
var
  r, c: Integer;
begin
  StringGrid1.DefaultColWidth := 100;
  StringGrid1.ColCount := 8;
  StringGrid1.RowCount := 8;

  for c := 1 to StringGrid1.ColCount - 1 do
    for r := 1 to StringGrid1.RowCount - 1 do
      StringGrid1.Cells[c, r] := FormatDateTime('mm/dd/yyyy ddd', 
                                                Date() + c + r - 1);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  CellText: string;
begin
  if (ARow > 0) and (ACol > 0) then
  begin
    CellText := StringGrid1.Cells[ACol, ARow];
    if Pos('Sun', CellText) > 0 then
      StringGrid1.Canvas.Brush.Color := clRed
    else
      StringGrid1.Canvas.Brush.Color := clWindow;
    StringGrid1.Canvas.FillRect(Rect);
  end;
  StringGrid1.Canvas.TextOut(Rect.Left + 4, Rect.Top + 4, CellText);
end;
```
Hier ist die Aufnahme entsprechen, die ein zweites Beispiel:
- Es funktioniert nicht in meinem Fall. Ich habe das Datum auch dort.Auch diese Farben nur aktive Zellen. Ich würde gerne die Farbe der gesamten Spalte (einschließlich der fixed-Zelle), wenn in der Spalte "name" existiert das Wort SONNE.
- Dieser code von dir auch löscht den Inhalt meiner Zelle reinigen, so kann ich alles sehen ...
- Ähm, Nein, tut es nicht. 🙂 Ich füge einen screen-capture. Es wird auch die Farbe jeder Zelle mit dem text Sun (gefunden durch die Verwendung von Pos im code oben), nicht nur aktive Zellen. Sie TUN müssen, passen Sie den code entsprechend Ihrer Bedürfnisse; das, was ich geschrieben war ein Beispiel, wie es zu tun, aber es ist nur ein Ausgangspunkt. 🙂
- Ich habe die Daten, die Sie angezeigt in der Spalte Namen (fixe Zellen). Diese version von Euch sucht aktiv durch Zellen und erkennt nicht die Zeichen in der Spalte name.Wie ich schon sagte, ich möchte, dass das Programm zu erkennen, das Wort SONNE in der Spalte name und die Farbe, die Spalte von oben nach unten. Ich bin nicht füllen die aktiven Zellen mit Daten. Jedoch,für mich , das erste code-Beispiel füllte die Zelle mit der Farbe und wischte meinen text aus. Testen Sie diese neue version später, aber es ist im Grunde das gleiche wie die erste version...
- Ich denke, wir haben ein scheitern der Kommunikation hier. 🙂 Sie fragte Färbung eine Spalte, die ist, was ich gezeigt. Jetzt scheinen Sie zu Fragen Färbung ein Spaltenkopf, das ist ähnlich (nur entfernen Sie das Häkchen für Col > 0 and Row > 0, was entfernt, die Zellen fixiert, und passen Sie den code entsprechend ändern Pos zu checken, was in die Feste Zeile oder Spalte, die Sie möchten, um zu testen, für SUN). Möchten Sie die Farbe der Zellen in die gesamte Spalte oder nur die überschrift der Spalte? Können Sie klären, welche es ist? Danke. 🙂
- "Zellen in die gesamte Spalte oder nur die überschrift der Spalte?" kann Sie zeigen mir beide Versionen ?
InformationsquelleAutor Ken White
0

Mit der DrawCell-Verfahren ist der Weg zu gehen. Dieses Beispiel behandelt die Möglichkeit, dass die Spalte mit "Sonne" könnte in einer beliebigen Spalte. Lassen Sie DefaultDrawing auf den Standardwert true.
```
    procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
         Rect: TRect; State: TGridDrawState);
    begin
      with Sender as TStringGrid do
       if Pos('Sun', Cells[ACol, 0])>0 then begin
         Canvas.Brush.Color := clRed;
         Canvas.FillRect(Rect);
         Canvas.Font.Color := clwhite;
         Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
       end;
      end;
    
```
- Sorry für die späte Antwort ...ich war ein paar Tage. Ich habe sehr merkwürdiges Verhalten der string-Netz, wenn ich Ihren code. Meine Spalte Kopfzeile Namen, die in 2 Reihen plötzlich zu einem wird, und der Teil, der wurde in der zweiten Zeile teilweise abgeschnitten. Auch die gesamte Spalte ist nicht gefärbt, nur wenn ich auf die Zelle darunter. Ich weiß nicht wie ich pics hier zu posten, also könnte ich Sie Euch zeigen...
- Wie postest du die pics hier ? Ich dont haben, dass option, außer, dass in meiner ursprünglichen Frage ... "Hilfe" ist keine Hilfe ...
- Mein schlechtes - ich wusste nicht, Sie wurden mit einer 3rd-party-Komponente. Ich denke, mit AdvStringGrid Sie können die Farbe sehr leicht. Sie nicht brauchen, um eine DrawCell Verfahren.Kann nicht helfen, mit pics 🙁
- Diese string-grids sollen einfach sein, aber wenn Sie versuchen, einige einfache Dinge, es stellt sich heraus zu sein, ein Alptraum... 🙂
InformationsquelleAutor bobonwhidbey

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.