pngimage控件支持delphi6等

之前上传的版本如果安装了DEV组件，则加载PNG图片时将会出错。感谢下载的网友指出的错误，因为本人上传之后一直未关注过评论，今天偶然发现，在此向各位致歉。 我在本机的XE版本下安装时好像不需要obj文件，但既然有网友指出，我就将d7目录下的obj拷贝了一份放在xe源码目录内。 该修改版本仅在D7和XE中测试。如果是其他版本，请自行修改。 安装说明参见压缩包内的reademe文件。 ---------------------------------------------------------- 针对XE版本增加的属性 如下： Anchors: TAnchors; //按钮相对位置 Action: TActionList; //与 actionlist 连接 CaptionAlign: TAlignment; //按钮标题对齐方式 //是否填充渐变色，取决于后两个变量 IsDrawGradientColorFace: Boolean; //是否以渐变色填充按钮表面 IsDrawFaceOnMouseOver: boolean; //鼠标悬停时是否填充按钮表面 IsDrawFaceOnPush: Boolean; //鼠标按下时是否填充按钮表面 //边框 IsDrawBorderOnMouseOver: Boolean; IsDrawBorderOnPush: Boolean; //悬停及按下时的渐变色设置 DrawOverFaceStartColor: TColor; //鼠标悬停时渐变填充起始色 DrawOverFaceEndColor: TColor; //鼠标悬停时渐变填充结束色 DrawPushFaceStartColor: TColor; DrawPushFaceEndColor: TColor; //按钮表面单色 DrawUniqueColorFaceOnMouseOver: TColor; //鼠标悬停时单色填充时的颜色 DrawUniqueFaceColorOnPush: TColor; //边框 DrawBorderOnMouseOver: TColor; //鼠标悬停时边框颜色 DrawBorderOnPush: TColor; IsShowCaption: boolean; //是否显示按钮文字 注：与颜色相关的属性仅在 buttonStyle 设为 pbsFlat 或 pbsNoFrame 时有效

使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var png: tpngimage; begin png := tpngimage.Create; png.LoadFromFile(getcurrentdir() + '\pic.png'); Image1.Picture.Bitmap.Assign(png); png.Free; end;

Delphi7可用的PngImage控件 PNG Delphi v.1.564，可用于D7显示Png图片。 使用方法：（Delphi 7 使用成功案例） 1、将本包中所有文件复制到开发文件保存的目录中 2、在USES单元中加入pngimage 3、窗体中插入image1控件 4、在调用位置，加入如下代码就OK啦！ var Png: TPngObject; begin Png := TPngObject.Create; try Png.LoadFromFile(getcurrentdir() + '\test.png'); img1.Picture.Assign(Png); finally Png.Free; end; end;

适合delphi7使用的第三方控件pngimage,带源码的.pas文件。

Delphi下pngimage控件版本1.43