请问在DBgrideh中怎样实现如图所示的功能? 本帖最后由 mtxxm1226 于 2012-05-17 11:47:01 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 显示文字Image1.Canvas.TextOut(X,Y,'要显示文字');画线Image1.Canvas.MoveTo(X,Y);Image1.Canvas.LineTo(X,Y);颜色Image1.Canvas.Pen.Color:=clRed;自己确定坐标X,Y 写过: with (Sender as TDBGridEh).Canvas do //画 cell 的边框 begin Pen.Color := clSilver; //定义画笔颜色(蓝色) MoveTo(Rect.Left, Rect.Bottom); //画笔定位 LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线 Pen.Color := $00F3FFE8; //定义画笔颜色(绿色) MoveTo(Rect.Right, Rect.Top); //画笔定位 LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线 end; grideh实现不了,自己用form或者panel啥的,在canvas上画出来 谁来说说怎么用DELPHI制作腾讯的快速登录qzone功能? 如何在软件中加入网络广告? 小弟不才,写了个记事本,给大家的献丑了~~ 怎么取得计算机名字和IP地址 屡教不改之徒建议封杀 这样的sql怎么写!急 FR怎么能自动导入报表格式文件 请大家教一教我!!! 如何获得当前打开的窗口的句柄,比如IE窗口,然后关闭它? 为什么我用ShowMessage(FormatDatetime('yyyy-mm/dd',date)) 得到的是'2002-07-23' ? 过年了,找人一起做个三国杀游戏玩玩 delphi统计文件夹中各个excel文件的总行数
Image1.Canvas.TextOut(X,Y,'要显示文字');画线
Image1.Canvas.MoveTo(X,Y);
Image1.Canvas.LineTo(X,Y);颜色
Image1.Canvas.Pen.Color:=clRed;自己确定坐标X,Y
with (Sender as TDBGridEh).Canvas do //画 cell 的边框
begin
Pen.Color := clSilver; //定义画笔颜色(蓝色)
MoveTo(Rect.Left, Rect.Bottom); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画蓝色的横线 Pen.Color := $00F3FFE8; //定义画笔颜色(绿色)
MoveTo(Rect.Right, Rect.Top); //画笔定位
LineTo(Rect.Right, Rect.Bottom); //画绿色的竖线
end;