几个小问题:一是关于ado与dbchart的,一是关于dxgrid的隔行显示不同颜色的问题。//准程序员 怎么提前的那个东西没了?要么问问,装了dbchart的pro会不会影响其它的控件? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你知道具体的代码不?和dbgrid的不同,用不上。 有这个控件吗,发给我试一下,[email protected] 太大了,小新。整个控件有十几M大哩,是Developer Express Inc的ExpressQuantumGrid2.1,功能非常的全,只是设置也非常的多,让人找都找不到。 我也使用这个控件的,到现在不知道如何让一整行变色,好像和dbgrid的自画不太一样强烈up!!!up up up 应该说不多,这个控件我用了三个来月,可以说除此之外的功能应该说都掌握了,就是这一个,demo中没有,帮助中,哦,还好,帮助中有些说明,我先看看。大家帮我看看第一个问题。 行了行了,没想到比dbgrid还简单些。功能也多一些,第一次我弄错的时候,结果居然把整个form的颜色随着cell的移动而变了。呵呵。请大家帮我看看第一个问题!! 问题2,procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);begin if (DBGrid1.DataSource.DataSet.RecNo mod 2) = 0 then begin DBGrid1.Canvas.Brush.Color := SQLINIFile.ReadInteger('Interface','GRID_Color_01',clgray); DBGrid1.Canvas.FillRect (rect); dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString); end else begin DBGrid1.Canvas.Brush.Color := SQLINIFile.readInteger('Interface','GRID_Color_02',clSilver); DBGrid1.Canvas.FillRect (rect); dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString); end ;end;我使用的是从INI文件中读取颜色的数值,你可以直接指定颜色。 yuqiong(小芝麻),人家说的是dxDbgrid... sorry,kylix2001(皮卡丘) , faint. 请求指点:如何将TImage中图片写入标准RichEdit控件中? wwDBGrid CheckBox 全选问题 在线 delphil中怎么给外部应用程序传递参数? 我用BusinessSkinForm换肤后,没法改变字体的颜色和字体大小? 请问一下怎么调用NERO的SDK开发刻录软件? 如何使不退出程序就不能关闭系统? 用delphi写一个打包的工具 如何让一个窗体运行后在WINDOWS任务条上没有图标! 有谁听说过深圳科皓吗? 急!请问在DELPHI中如何使用拨号网络?谢谢!!! 高手指教,TTable与TQuery用哪个好些?如何用? 请问如何用ADO实现数据库的多线程编程
强烈up!!!up up up
请大家帮我看看第一个问题!!
Field: TField; State: TGridDrawState);begin if (DBGrid1.DataSource.DataSet.RecNo mod 2) = 0 then begin
DBGrid1.Canvas.Brush.Color := SQLINIFile.ReadInteger('Interface','GRID_Color_01',clgray);
DBGrid1.Canvas.FillRect (rect);
dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);
end
else begin
DBGrid1.Canvas.Brush.Color := SQLINIFile.readInteger('Interface','GRID_Color_02',clSilver);
DBGrid1.Canvas.FillRect (rect);
dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);
end ;
end;我使用的是从INI文件中读取颜色的数值,你可以直接指定颜色。