有关TDrawGrid的小问题。在线等待----- 如何在tdrawgrid的各个cell中画个圆,然后再写字。用DrawCell事件。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 混点分~~~~~~~~~~~~~var CurCol,CurRow:integer;//用与记录当前行、列 procedure TfrmMain.DrawGridMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin TDrawGrid(Sender).MouseToCell(X, Y,CurCol,CurRow); end; procedure TfrmMain.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var Text:String; begin with Sender as TDrawGrid do begin //ImageList1.Draw(Canvas,Rect.Left,Rect.Top,图形序号数组[ACol,ARow]); Canvas.Ellipse(...);//画圆 Canvas.Rectangle(...);//画方 Canvas.Font.Size:=9; Canvas.Font.Color:=clBlue; Text:='要写的字'; Canvas.TextOut(Rect.Left,Rect.Top,Text);//写字 end; end; 非常感谢tommy_linux(津工之鸟),怎么给分?不知道还有没有需要特别注意的地方。如果在不同的cell中画不同颜色的图形呢? 怎么改成相对路径呀 如何动态的修改ACCESS的密码 急, delphi遇到initcc32.exe 错误, 无法进行调试? 请问关于bmp图形显示的问题! 急!!! 判断当前操作系统 请大家帮忙,我感觉有点难度。急!! 《中国开发者联盟》 欢迎您的加入! 找不到Proxies.pas文件(在线等待) C#转Delpi 最近比较笨 请大家指点一二 动态创建完按钮后,如何给它加个事件呀,如click()事件。谢谢 help me !!!(DELPHI)
Shift: TShiftState; X, Y: Integer);
begin
TDrawGrid(Sender).MouseToCell(X, Y,CurCol,CurRow);
end; procedure TfrmMain.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Text:String;
begin
with Sender as TDrawGrid do
begin
//ImageList1.Draw(Canvas,Rect.Left,Rect.Top,图形序号数组[ACol,ARow]);
Canvas.Ellipse(...);//画圆
Canvas.Rectangle(...);//画方
Canvas.Font.Size:=9;
Canvas.Font.Color:=clBlue;
Text:='要写的字';
Canvas.TextOut(Rect.Left,Rect.Top,Text);//写字
end;
end;
不知道还有没有需要特别注意的地方。如果在不同的cell中
画不同颜色的图形呢?