我使用Delphi的OnDrawCell事件进行TStringGrid的自定义绘图。 单元格覆盖区域没有问题,但是如何绘制最右列右侧和最后一行下方的背景呢?
(编辑) 实际上并不需要绘制,我只想设置用于背景的颜色。 我正在使用XE2并研究VCL样式。 即使在默认绘图中,在stringgrid中设置颜色似乎根本没有任何效果。
TIA
我使用Delphi的OnDrawCell事件进行TStringGrid的自定义绘图。 单元格覆盖区域没有问题,但是如何绘制最右列右侧和最后一行下方的背景呢?
(编辑) 实际上并不需要绘制,我只想设置用于背景的颜色。 我正在使用XE2并研究VCL样式。 即使在默认绘图中,在stringgrid中设置颜色似乎根本没有任何效果。
TIA
我在Google上找到了这段代码(不是我的,我找不到作者的名字,可能来源于StackExchange...)。它定义了一个从TStringGrid派生出来的类,并实现了新的背景绘制。(该示例使用位图,但您可以轻松更改...)
type
TStringGrid = class(Grids.TStringGrid)
private
FGraphic: TGraphic;
FStretched: Boolean;
function BackgroundVisible(var ClipRect: TRect): Boolean;
procedure PaintBackground;
protected
procedure Paint; override;
procedure Resize; override;
procedure TopLeftChanged; override;
public
property BackgroundGraphic: TGraphic read FGraphic write FGraphic;
property BackgroundStretched: Boolean read FStretched write FStretched;
end;
TForm1 = class(TForm)
StringGrid: TStringGrid;
Image: TImage;
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TStringGrid }
function TStringGrid.BackgroundVisible(var ClipRect: TRect): Boolean;
var
Info: TGridDrawInfo;
R: TRect;
begin
CalcDrawInfo(Info);
SetRect(ClipRect, 0, 0, Info.Horz.GridBoundary, Info.Vert.GridBoundary);
R := ClientRect;
Result := (ClipRect.Right < R.Right) or (ClipRect.Bottom < R.Bottom);
end;
procedure TStringGrid.Paint;
begin
inherited Paint;
PaintBackground;
end;
procedure TStringGrid.PaintBackground;
var
R: TRect;
begin
if (FGraphic <> nil) and BackgroundVisible(R) then
begin
with R do
ExcludeClipRect(Canvas.Handle, Left, Top, Right, Bottom);
if FStretched then
Canvas.StretchDraw(ClientRect, FGraphic)
else
Canvas.Draw(0, 0, FGraphic);
end;
end;
procedure TStringGrid.Resize;
begin
inherited Resize;
PaintBackground;
end;
procedure TStringGrid.TopLeftChanged;
begin
inherited TopLeftChanged;
PaintBackground;
end;
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
// Usage:
StringGrid.BackgroundGraphic := Image.Picture.Graphic;
StringGrid.BackgroundStretched := True;
end;