顏色取決於列名的文本

Question

一個stringgrid列我這樣做：

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; 

有沒有一種辦法顏色的列時（例如）週日（SUN）出現？我希望SUN專欄（一路下來）以不同於其他的顏色出現。

Answer 1

您可以通過使用OnDrawCell事件（執行而不是將DefaultDraw設置爲False）來執行此操作。下面是與常規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; 

輸出示例：

下面是輸出只是正是你想要的第二個例子（除了我沒有轉換太陽蓋）：

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; 

這裏的捕獲到第二樣品不一致：

Answer 2

使用DrawCell過程是要走的路。這個例子處理了具有「Sun」的列可能在任何列中的可能性。將DefaultDrawing保留爲默認值 - 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;