2,496
社区成员
发帖
与我相关
我的任务
分享提问：如何改变DBGRID选中单元的背景色
鼠标点中一个CELL后，背景色变为兰色，如何修改成其他颜色？同时，如何修改这个单元格的字体颜色？
在选中其他CELL时，该格子配色自动还原。
在选中其他CELL时，该格子配色自动还原。
...全文
请发表友善的回复…
发表回复
dickeybird888 2003-09-29
- 打赏
- 举报
哈哈
FrameSniper 2003-09-29
- 打赏
- 举报
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
{case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;} //这个是该背景色的，不是高亮色
if gdSelected in State then
begin
//Canvas.Font.Color :=clBackground; //这个是改字体色的
Canvas.Brush.Color:=clSkyBlue; //改高亮色
Canvas.FillRect(Rect);
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
{case Self.ADOQuery1.RecNo Mod 2 of
0: Canvas.Brush.Color :=clMoneyGreen;
1: Canvas.Brush.Color :=clWindow;
end;} //这个是该背景色的，不是高亮色
if gdSelected in State then
begin
//Canvas.Font.Color :=clBackground; //这个是改字体色的
Canvas.Brush.Color:=clSkyBlue; //改高亮色
Canvas.FillRect(Rect);
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
jinjiajun 2003-09-29
- 打赏
- 举报
能不能具体一点？我要做的就是点一个单元格，它的背景色本来是变成兰色，现在我想换掉。怎么做？
wangl 2003-09-29
- 打赏
- 举报
利用DBgrid的OnDrawColumnCell事件。
hmzgz81 2003-09-29
- 打赏
- 举报
在 canves对象的BrushCropy方法！
procedure BrushCopy(const Dest:TRect;Bitmap:TBitmap;const Source:TRect;Color:Tcolor)
procedure BrushCopy(const Dest:TRect;Bitmap:TBitmap;const Source:TRect;Color:Tcolor)
大聪 2003-09-29
- 打赏
- 举报
selected
