设计期导入图片问题!vcl70.bpl报错

vargent77 2003-10-17 09:39:11
问题是设计期导入图片时出错,错误信息:Access violation of adress007a6d9f in module 'vcl70.bpl'.Read of Adress 00001a1b
但是如果动态创建,就没有问题。
constructor TBtn9.Create(AOwner: TComponent); //创建,设置各项属性
var
map:TBitmap;
begin
inherited;
Fpic :=TBitmap.Create;
ControlStyle :=ControlStyle+[csOpaque];
Cursor :=crHandPoint;
Height :=30;
width :=60;
FAlignment :=tjLeft;
FPicTop :=1;
FPicLeft :=1;
end;
procedure TBtn9.SetPic(const Value: TBitmap);//取图片,相当于glyph只是换了个位置
begin
if(FPic<>nil)then FPic.Destroy;
FPic:=Value;
Invalidate();
end;

procedure TBtn9.Paint;
var
TextRect1,BmpRect:TRect;
Bmp1:TBitmap;
begin
inherited;
if(FPic<>nil)then
Canvas.Draw(FPicLeft,FPicTop,FPic);//画图片
TextRect1:=Rect(FPic.Width+FTextLeft,FTextTop,self.ClientWidth-FTextLeft,(self.ClientHeight div 2)-FTextTop);
DrawText(Canvas.Handle,PChar(FText),length(FText),TextRect1,Flags[FAlignment]);//画text1
TextRect1:=Rect(FPic.Width+FTextLeft,(self.ClientHeight div 2)+FTextTop,self.ClientWidth-FTextLeft,self.ClientHeight-FTextTop);
DrawText(Canvas.Handle,PChar(FText1),length(FText1),TextRect1,Flags[FAlignment]);//画text2
我需要的大概就是:
---------------
| | caption:如CSDN |
| 图片 |------------------
| | text:如连接成功 |
----------------------------
这样的效果

...全文
177 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
huojiehai 2003-10-17
  • 打赏
  • 举报
回复
估计是delphi有问题了,重装delphi试试,不过delphi7是有些不稳定
vargent777 2003-10-17
  • 打赏
  • 举报
回复
这样解决了
procedure TBtn9.SetPic(const Value: TBitmap);//
FPic.Assign(Value);
Invalidate();
Victor 串口 VCL 控件,版本 1.5.0.1 for C++ Builder 2010 / 2009 Victor 串口 VCL 控件,版本 1.3.3.5 for BCB 5 & BCB 6 简单实用, 功能强大的 C++ Builder 串口控件! 本控件是免费的, 不需要注册! 2010年1月20日发布 1.5.0.1 版本 (适用于C++ Builder 2010 / 2009) 这个版本是针对 C++ Builder 2010 / 2009 开发的版本,不能用在以往版本的 C++ Builder。 使用之前请先阅读下载压缩包里面的 readme.txt 【控件安装方法】 1.在 C++ Builder 2010 / 2009 里面打开 VictorComm.groupproj 工程组,编译所有工程, 即分别编译 VictorComm32.cbproj 和 VictorCommDesign.cbproj 工程 2.安装编译生成的 VictorCommDesign.bpl 设计控件包 3.要注意操作系统的 PATH 环境变量,如果是 C++ Builder 2010,控件 *.bpl 不在操作系统 PATH 搜索路径里面,可能会无法安装控件 注意:默认情况下,在 Windows XP 里,C++ Builder 编译生成的控件放在了 C:\Documents and Settings\All Users\Documents\RAD Studio\x.0\BPL 和 C:\Documents and Settings\All Users\Documents\RAD Studio\x.0\DCP 这两个文件夹里面,如果是 Windows Vista / Windows 7 将放在 c:\Users\Public\Documents\RAD Studio\x.0\BPL 文件夹 在使用上,C++ Builder 菜单: Project->Options->Directories/Conditionals Include Path 和 Library Path 都要添上安装路径(包含*.h和*.lib的文件夹) ①Include Path 右面的“…”按钮,添加包含控件文件的文件夹 ②Library Path 右面的“…”按钮,添加包含控件文件的文件夹 【示例程序】 压缩包里面的 Examples 文件夹里面包含了9个常用的示例程序。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧