| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 盒子之家 斑竹:huadugaojian,sunyesy | |||||
| 作者： |
|
2004/2/15 17:50:21 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 帮偶修正一下，偶调试不出来偶要效果，具体 在程序中都有了？谢谢啦！
  |
|||||
| 作者： |
|
2004/2/15 18:17:30 | ||||
| 1楼： | 编译成Exe我看看吧 我不想开Delphi，装的东西太多了，开起来慢 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 18:56:08 | ||||
| 2楼： | --
|
|||||
| 作者： |
|
2004/2/15 19:28:00 | ||||
| 3楼： | 在自画前先 Canvas->FillRect(Rect); ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 19:34:25 | ||||
| 4楼： | 是过了 一样的，达不到效果！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/15 19:34:32 | ||||
| 4楼： |
Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 19:54:47 | ||||
| 5楼： | // Delphi code procedure TForm.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var pCan: TCanvas; bmp : TBitmap; S : String; begin pCan := ComboBox1.Canvas; if odSelected in State then bmp := Image2.Picture.Bitmap else bmp := Image1.Picture.Bitmap; pCan.FillRect(Rect); pCan.Draw(Rect.Left, Rect.Top, bmp); Inc(pCan.Left, bmp.Width + 4); S := ComboBox1.Items[Index]; DrawText(pCan.Handle, PChar(S), Length(S), Rect, DT_SINGLELINE or DT_VCENTER); end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 19:56:45 | ||||
| 5楼： | 老大 偶觉得 要画到这样还挺难的：
|
|||||
| 作者： |
|
2004/2/15 19:58:41 | ||||
| 6楼： | 也很简单的(比上面的复杂点) 用Canvas.TextWidth获取字符长度就可以了 不过那个FocusRect(就是那个虚线框)就没办法了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 20:00:07 | ||||
| 6楼： | 偶不知道他是怎么画的：
|
|||||
| 作者： |
|
2004/2/15 20:12:19 | ||||
| 7楼： | D7自带有一个扩展的ComboBox，应该是用的那个吧 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 20:24:07 | ||||
| 7楼： | 老大不行啊 差太远了：） pCan := ComboBox1.Canvas; if odSelected in State then bmp := Image2.Picture.Bitmap else bmp := Image1.Picture.Bitmap; pCan.FillRect(Rect); pCan.Draw(Rect.Left, Rect.Top, bmp); Inc(Rect.Left, bmp.Width + 4); S := ComboBox1.Items[Index]; ATextRect.Left :=Rect.Left; ATextRect.Top := Rect.Top ; ATextRect.Right := ATextRect.Left+ ComboBox1.Canvas.TextWidth(s); ATextRect.Bottom :=bmp.Height ; ComboBox1.Canvas.Rectangle(ATextRect); DrawText(pCan.Handle, PChar(S), Length(S), Rect, DT_SINGLELINE or DT_VCENTER);
|
|||||
| 作者： |
|
2004/2/15 20:25:51 | ||||
| 8楼： | D7自带有一个扩展的ComboBox ？？？？哦 偶找找！  ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/15 20:26:01 | ||||
| 8楼： | 好像在 Additional 页 ：） ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/15 20:30:14 | ||||
| 9楼： | 妙妙啊！真牛！真的是这个，老大谢谢提醒啊！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/15 21:13:10 | ||||
| 10楼： | 报到！迟来了。 ；） ---------------------------------------------- 米软科技有限公司  http://www.szmesoft.com
|
|||||
| 信息 |
| 登陆以后才能回复 |
