procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s : String ;
begin
if (acol = 2) and(arow >0) then
begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.canvas.FrameRect(rect);
end ;
if (acol = 3) and(arow >0) then
begin
StringGrid1.Canvas.Brush.Color := clYellow ;
StringGrid1.canvas.FrameRect(rect);
end ;
Rect: TRect; State: TGridDrawState);
var
s : String ;
begin
if (acol = 2) and(arow >0) then
begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.canvas.FrameRect(rect);
end ;
if (acol = 3) and(arow >0) then
begin
StringGrid1.Canvas.Brush.Color := clYellow ;
StringGrid1.canvas.FrameRect(rect);
end ;
解决方案 »
- delphi 用AVICap实现视频捕获 有个问题 请大家帮忙看看?
- image移动时,闪烁很历害,如何解决?
- 如何动态改变ActiveForm的GUID
- 在TQuery中进行查询比较的问题??高手指教,在线给分!
- 关于dbgrid绑定的datasouce
- 关于trayicon的提示hint二次更改的问题~~~~~~~急!
- 一个初学者的问题
- DELPHI怎么切换界面,小弟新手,求个方式...
- 如何判断要附加到sqlserver2000的数据库是否已经存在?
- 要调试VCL的原吗,要加什么才能进行调试阿
- 怎样利用TADOStoredProc 来获取记录集!!!
- 问大家一下,关于报表的控件,什么最好用?答者有分!
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s : String ;
begin
if (acol = 2) and(arow >0) then
begin
StringGrid1.Canvas.Brush.Color := clYellow ;
StringGrid1.Canvas.pen.Color := StringGrid1.Font.Color ;
StringGrid1.canvas.fillRect(rect);
StringGrid1.Canvas.textout(rect.left+1,rect.Top ,StringGrid1.cells[acol,arow]);
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.canvas.FrameRect(rect);
end ;
end;
end.