如题
解决方案 »
- cannot perform this operation on a closed dataset问题
- 为什么这样连接两个数据库不成功?先谢谢各位啦
- 问csv文件的问题
- 在delphi中怎样展开bom表,不用sql 后台procedure!,只用adoquery ,自定yi function() ,temp table 急急急!谢谢!
- delphi里有没有监视webserive过程的工具?我想看传过来的soap内容?
- 简单的sql 删除问题!看看我的代码错在哪(急,在线等!!求帮忙~~~)
- 关于调用动态链接库.dll的问题
- 两个问题希望高手指点.
- 关于 多线程的问题
- 哪个事件可控制窗口的最小化?
- 多表组合分类统计问题~~~
- 一个简单的问题
Rect: TRect; State: TGridDrawState);
var Rect1 : TRect;
s : string;
begin
if (ACol =1) and (ARow = 1) then
begin
Rect1 := Rect;
s:= 'abcde';
DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), Rect1, DT_CENTER);
end
end;
Rect: TRect; State: TGridDrawState);
var
s : string;
begin
if (ACol =1) and (ARow = 1) then //指定(1,1)单元格
begin
s:= TStringGrid(Sender).Cells[ACol,ARow];//单元格的值TStringGrid(Sender).Canvas.Brush.Color := clRed;//设置背景为红色
TStringGrid(Sender).Canvas.FillRect(Rect);//补充这一句,否则cell中将会显示一部分旧的数据DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), Rect, DT_CENTER);
end;end;
Rect: TRect; State: TGridDrawState);
VAR
s: String;
R: TRect;
begin
R := Rect;
if StringGrid1.Cells [Acol,ARow]='0' then
BEGIN
s:='0';
StringGrid1.Canvas.font.Color:=clLime;
StringGrid1.Canvas.Brush.Color:=clred;
TStringGrid(Sender).Canvas.FillRect(Rect);
DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), R, DT_CENTER);
END; if StringGrid1.Cells [Acol,ARow]='1' then
BEGIN StringGrid1.Canvas.font.Color:=clred;
StringGrid1.Canvas.Brush.Color:=clLime;
TStringGrid(Sender).Canvas.FillRect(Rect);
DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), R, DT_CENTER);
END; StringGrid1.Canvas.pen.Color:= StringGrid1.Font.Color ;
StringGrid1.canvas.fillRect(rect);
StringGrid1.Canvas.textout(rect.left+1,rect.Top ,StringGrid1.cells[acol,arow]);
end;這樣怎麼不行啊!!!
Rect: TRect; State: TGridDrawState);
VAR
s: String;
R: TRect;
begin
R := Rect;
if StringGrid1.Cells [Acol,ARow]='0' then
BEGIN
s:='0';
StringGrid1.Canvas.font.Color:=clLime;
StringGrid1.Canvas.Brush.Color:=clred;
TStringGrid(Sender).Canvas.FillRect(Rect);
DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), R, DT_CENTER);
END; if StringGrid1.Cells [Acol,ARow]='1' then
BEGIN
s:='1';
StringGrid1.Canvas.font.Color:=clred;
StringGrid1.Canvas.Brush.Color:=clLime;
TStringGrid(Sender).Canvas.FillRect(Rect);
DrawText(TStringGrid(Sender).Canvas.Handle, PChar(s), Length(s), R, DT_CENTER);
END; StringGrid1.Canvas.pen.Color:= StringGrid1.Font.Color ;
StringGrid1.canvas.fillRect(rect);
StringGrid1.Canvas.textout(rect.left+1,rect.Top ,StringGrid1.cells[acol,arow]);
end;