我在做一个设计,数据库中的纪录有检查,没检查,就诊等4种状态,每种状态要用图标表示
解决方案 »
- 改变Form标题栏的颜色,不想它是蓝色,太死板,送40分
- delphi如何实现分栏
- 在xp有沒有辦法用編程實現'禁用服務'
- 如何建函数(前五名解答者各二十分,以不重复且正确为准)。
- 如何可以判别字段的类型?(字符型还是数字型)
- 今天买了台电脑--终于有自己的电脑了!高兴啊!
- delphi开发的系统中关于权限分配的问题的讨论
- 怎样判断我要生成的文件在一个目录里有没有相同的文件?
- 我想在 sql 里动态加 order by....我private 了一个变量不行。。。。。。。。
- 开发一个包括6个标签和一个矩形框的自定义控件
- 如何创建登陆窗体 高分相赠送
- 关于函数application.messagebox~~高手来看看
var
MyImage1:TImage;
MyImage2:TImage;
MyImage3:TImage;
MyImage4:TImage;MyImage1:=TImage.Create(Self);//检查
MyImage2:=TImage.Create(Self);//没检查
MyImage3:=TImage.Create(Self);//就诊
MyImage4:=TImage.Create(Self);
MyImage1.Picture.Bitmap.LoadFromFile('C:\检查.bmp');
MyImage2.Picture.Bitmap.LoadFromFile('C:\没检查.bmp');
MyImage3.Picture.Bitmap.LoadFromFile('C:\就诊.bmp');
MyImage4.Picture.Bitmap.LoadFromFile('C:\检查.bmp');
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if field.FieldName<>'状态的字段名' then exit;
if Field.asstring='检查' then
dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage1.Picture.Graphic);
if Field.asstring='没检查' then
dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage2.Picture.Graphic);
if Field.asstring='就诊' then
dbGrid1.Canvas.Draw(Rect.Left,Rect.Top,MyImage3.Picture.Graphic);
end;