使用TMS TDBAdvGrid，如何根據單元格值爲不同顏色的線着色？

Question

所有的標題。 我們怎樣才能爲每行定製一個辦公室點。當鼠標移動到一行時，顯示該記錄的信息（來自數據庫查詢）。

感謝

Answer 1

您可以使用網格的CellProperties屬性color單個細胞。您可以使用此上色整行：

var 
    RowIndex: Integer; 
    ColIndex: Integer; 

with MyDBAdvGrid do 
begin 
    // you choose the row index; you may want to iterate all rows to 
    // color each of them 
    RowIndex := 2; 
    // now iterate all (non-fixed, visible) cells in the row and color each cell 
    for ColIndex := FixedCols to ColCount - 1 do 
    begin 
    CellProperties[ColIndex, RowIndex].BrushColor := clYellow; 
    CellProperties[ColIndex, RowIndex].FontColor := clGreen; 
    end; 
end; 

要使用記錄數據，我建議當用戶移動鼠標更新它填補你的辦公室提示。使用MouseToCell函數獲取鼠標下的行和列，然後使用MyDBAdvGrid.AllCells[ColIndex, RowIndex]來訪問單元格內容。

Answer 2

Heinrich答案的替代方法是使用OnGetCellColor事件。同樣

procedure TDBAdvGrid.DBGridGetCellColor(Sender: TObject; ARow, 
    ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); 
begin 
    if (your condition) then ABrush.Color := clRed; 
end; 

的提示：

這可以使用像這樣

procedure TDBAdvGrid.DBGridGridHint(Sender: TObject; ARow, ACol: Integer; 
    var hintstr: String); 
begin 
    hintstr := 'your hint text'; 
end;