如何在delphi xe2中更改所選行的邊框顏色和啓用樣式DBGrid的背景顏色？

Question

我在應用程序中使用了默認樣式「Amethyst Kamri」。而且我的DBgrid的選定行顏色根據樣式而改變。但我想更改選定行的邊框顏色和背景顏色。 我使用answer of following question.

https://stackoverflow.com/a/9472000

現在我想改變顏色改變字體樣式。這個怎麼做？

Answer 1

您需要首先從Vcl.DBGrids.TDBGrid calss繼承TDBGrid。並覆蓋Paint程序。 像這樣：

type 
    TDBGrid = class(Vcl.DBGrids.TDBGrid) 
    protected 
    procedure Paint; override; 
    end; 

上油漆過程：

procedure TDBGrid.Paint; 
var 
    i, X, Y: Integer; 
begin 
    inherited; 
    Y := RowHeights[0] + 1; 
    X := Width; 
    for i := 1 to Self.RowCount - 1 do 
    begin 
    Y := Y + RowHeights[i] + 1; 
    Canvas.Brush.Color := clRed; 
    Canvas.FillRect(Rect(0, Y, X, Y + 1)); 
    end; 
end; 

這是最終的結果：