社区
Delphi
帖子详情
各位,如何将Tlistbox显示到tbitmap.canvas上???
whfsdh
2000-03-04 10:04:00
这段代码不行
listbox1.perform(WM_PATIN, bitmap.canvas, 0)
...全文
155
7
打赏
收藏
各位,如何将Tlistbox显示到tbitmap.canvas上???
这段代码不行 listbox1.perform(WM_PATIN, bitmap.canvas, 0)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
AcherMagic
2000-03-04
打赏
举报
回复
WM_PAINT是发给窗口的消息
Bitmap是TBitmap类型
向Bitmap发这种消息是没有用的
929
2000-03-04
打赏
举报
回复
不知你为什么想在BITMAP上显示LISTBOX,LISTBOX是一个控件,它实际上是一个子窗口。放在窗口上才是有作用的。
把LISTBOX图象复制到BITMAP上,可以把它画出来。但是,画出来LISTBOX并不能起到LISTBOX的作用。
我用IMAGE当做一个图片复制了一下。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.CopyRect(image1.ClientRect,listbox1.Canvas,listbox1.ClientRect );
end;
end.
whfsdh
2000-03-04
打赏
举报
回复
谢谢各位,这个问题我自己解决了.
hubdog
2000-03-04
打赏
举报
回复
easy,用tlistbox.paintto方法就可以了.
kxy
2000-03-04
打赏
举报
回复
我看不如这样,
运行时动态创建控件,干吗要自己画:)
如果运行时要移动,改变一个控件的大小,DDHCode有一个控件可以实现
如果要同时移动多个控件的话:(麻烦,DreamControl控件包可以实现
可以做的和delphi的IDE很象.
AcherMagic
2000-03-04
打赏
举报
回复
先画一个边框
procedure TForm1.Button1Click(Sender: TObject);
var
Rect : TRect;
begin
Image1.Canvas.Pen.Width := 1;
Image1.Canvas.Pen.Color := clBlack;
Image1.Canvas.Rectangle(Image1.ClientRect);
Rect.Left := ListBox1.ClientRect.Left+1;
Rect.Right := ListBox1.ClientRect.Right-1;
Rect.Top := ListBox1.ClientRect.Top+1;
Rect.Bottom := ListBox1.ClientRect.Bottom-1;
Image1.Canvas.CopyRect(Rect,ListBox1.Canvas,ListBox1.ClientRect);
end;
whfsdh
2000-03-04
打赏
举报
回复
我的意思是将listbox(可以是任意的TWinControl)的外观画到canvas上,我想做一个Form Designer,您的代码没有边框,您看看,还有没有别的方法。
Delphi 6集成开发环境
3.4.1 T
ListBox
组件................................82 3.4.2 TComboBox 组件..........................83 3.4.3 TTreeView 组件.............................83 3.4.4 TListView 组件............................
Delphi中关于
Canvas
.TextOut的用法
我想让字符串在
Canvas
上显现出来,但不知道如何改变字底边的颜色,想变成透明或其它色彩都行,只是希望所输出的字符串不会影响到
Canvas
里边的图形。请问前辈们让如何做呢?
Canvas
.Font.Color:=clblue;//字体颜色//...
delphi绘图
canvas
及应用(转)
delphi绘图
canvas
及应用2010年03月25日 星期四 14:59DELPHI为编程者提供了一个灵活的绘图场所,
CANVAS
类,在DELPHI中的很多控件都...具有
CANVAS
属性的控件 T
Bitmap
,TComboBox,TDBComboBox,TDBGrid,TDBListBo
delphi
canvas
使用
在DELPHI为编程者提供了一个灵活的绘图场所,即本文所述的
CANVAS
类,在DELPHI中的很多控件都具有此属性,使编程者可以 在这些的控件的表面随心所欲的绘图,这对完善用户界面或者制 作...具有
CANVAS
属性的控件: T
Bitmap
Delphi中关于
Canvas
.TextOut
我想让字符串在
Canvas
上显现出来,但不知道如何改变字底边的颜色,想变成透明或其它色彩都行, 只是希望所输出的字符串不会影响到
Canvas
里边的图形。请问前辈们让如何做呢?
Canvas
....
Delphi
5,387
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章