社区
Delphi
帖子详情
关于Dbgrid显示的问题?
chengxuejun1
2002-12-03 03:23:05
在数据表中有一个逻辑型字段,如何使它在Dbgrid1上以复选框形式出现?如何使复选框的值与数据表中的逻辑型字段值对应起来?
...全文
51
3
打赏
收藏
关于Dbgrid显示的问题?
在数据表中有一个逻辑型字段,如何使它在Dbgrid1上以复选框形式出现?如何使复选框的值与数据表中的逻辑型字段值对应起来?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
happyzsl
2002-12-03
打赏
举报
回复
这是我的一个程序:
C++Builder 的,与Delphi原理一样
void __fastcall TW_MM_P_Receive::dbgIncomeDrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
int iLeft = 0;
if (Column->FieldName == "Checked")
{
iLeft =(Rect.Right-Rect.Left-10)/2 + 1/2;
dbgIncome->Canvas->Brush->Color =clWhite; //去掉阴影
dbgIncome->Canvas->FillRect(Rect);
dbgIncome->Canvas->Pen->Color =clBlue; //
dbgIncome->Canvas->Pen->Width =2;
dbgIncome->Canvas->MoveTo(Rect.Left+iLeft,Rect.Top+3);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft+10,Rect.Top+3);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft+10,Rect.Top+13);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft,Rect.Top+13);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft,Rect.Top+2);
if (adoqIncome->FieldByName("Checked")->AsString == "1")
{
dbgIncome->Canvas->MoveTo(Rect.Left+iLeft,Rect.Top+6);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft+4,Rect.Top+11);
dbgIncome->Canvas->LineTo(Rect.Left+iLeft+12,Rect.Top+1);
}
}
}
//---------------------------------------------------------------------------
zqdshsy
2002-12-03
打赏
举报
回复
也可以通过DBGRID的单元重绘来解决,看一下昨天的论坛
有DBGRID的单元重绘的详细编码。
zqdshsy
2002-12-03
打赏
举报
回复
用DXDBGRID
可以实现checkbox,lookup,treeview的功能
delphi动态配置
DB
grid
列
显示
类
delphi
db
grid
+clientdataSet实现的动态配置
db
grid
显示
列类,输入一个xml文件,单保存即可把
db
grid
中所有列保存到xml中,还可以拖动,修改是否
显示
,
显示
宽度。
Delphi中
DB
Grid
数据分行/拆行/多行
显示
Delphi中
DB
Grid
数据分行/拆行/多行
显示
C1True
Db
Grid
显示
页脚
C1True
Db
Grid
显示
页脚,可用于现实C1True
Db
grid
控件的即时页脚
Delphi ADO查询示例
DB
Grid
显示
数据.rar
Delphi ADO查询示例
DB
Grid
显示
数据.rar-
DB
Grid
功能强大的数据库控件, 修改增加了 Ctrl+C 等快捷按键, 对 Null 字段进行变色
显示
.
Delphi
5,939
社区成员
262,944
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章