还未解决!请进★★谁能提供这个简单源码(矢量图),分数全部表示谢意! (300分)

  • 主题发起人 主题发起人 thisgame
  • 开始时间 开始时间
to :sgzc 敬候佳音 [:)]
 
to thisgame:
O2Plan中有方法:ExportMetafile用于将矢量图保存为wmf格式。
参见示例:Editor/PlanEdit.exe
菜单:Plan/Export下可保存为wmf/gif/bmp/jpg等格式。
 
http://www.inprises.com/control/CadoDraw.v4.1.for.Delphi.and.BCB.Full.Source.WinAll.Retail-DiSTiNCT.rar
带源码哟。

 
to apw:有for d7的版本吗?
to :aolo 不能下载
 
to thisgame:
email给你了。 
 
to apw:收到了,for d7是你自己改的啊!多谢了!
   我先试一下,有问题还得请教你,分数一定会给的(包括剩下的)
 
to apw: d4 d5 版本的一个demo编译通不过,另外一个问题请教:
    如何打开emf、gif 等格式的的文件?我看了一下好象只能保存不能打开
(gif插入是可以的)
[Error] SAGManager.pas(65): Undeclared identifier: 'AniGifs'
[Error] SAGManager.pas(89): Undeclared identifier: 'AniGifCount'
[Error] SAGManager.pas(89): Undeclared identifier: 'AniGifs'
[Error] SAGManager.pas(89): ')' expected but identifier 'Name' found
[Error] SAGManager.pas(90): ';' expected but 'WITH' found
[Error] SAGManager.pas(91): Undeclared identifier: 'ItemIndex'
[Error] SAGManager.pas(92): Undeclared identifier: 'UpdatePicture'
[Error] SAGManager.pas(93): '.' expected but ';' found
[Warning] SAGManager.pas(95): Text after final 'end.
' - ignored by compiler
[Error] SAGManager.pas(24): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.FormClose'
[Error] SAGManager.pas(25): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.SPListBoxClick'
[Error] SAGManager.pas(26): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.AddButtonClick'
[Error] SAGManager.pas(27): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.RenameButtonClick'
[Error] SAGManager.pas(28): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.SelectPictureButtonClick'
[Error] SAGManager.pas(29): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.DeleteButtonClick'
[Error] SAGManager.pas(30): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.CopyButtonClick'
[Error] SAGManager.pas(31): Unsatisfied forward or external declaration: 'TStandardAniGifsForm.PasteButtonClick'
[Hint] SAGManager.pas(34): Private symbol 'SetButtons' declared but never used
[Hint] SAGManager.pas(35): Private symbol 'UpdatePicture' declared but never used
[Fatal Error] Main.pas(358): Could not compile used unit 'SAGManager.pas'
 
to sgzc:如果你的可行那是最好了,就不用第三方控件
 
Oxygen Plan的Demo我没编译它,只是看了看执行文件。
控件很好用。 我用在D5,D7,C5下用没问题。
要嵌入常用的图形如,GIF、WMF、JPEG、BMP用TPlanPicture元件即可。
要直接打开图形用为背景,用Plan.BackgroundPicture.LoadFromFile(...);可打开各种图像文件。
sgzc说的方法可以在控件中看TPlanPicture类中的Draw方法。
总体来说明,Delphi中对图像的处理方法无外乎打开的绘制。
用VCL中的一个TPicture完全可以解决各种图形的操作(理论上说只要在TPicture中注册的基于TGraphic的图像格式处理类,它都可以处理,如:VCL的TJPEG,RxLib的TGIFImage等。有兴趣可读RxLib的Rxgif.pas).
假若:FPicture : TPicture;
1.打开图像用:FPicture.LoadFromFile(FileName), 文件名可以是已知类型的图像文件名。
2.将图像复制到剪贴板:FPicture.Assign(Clipboard);
3.从剪贴板粘贴图像:Clipboard.Assign(FPicture);
4.绘制图像:Canvas.Draw(x,y,FPicture.Graphic);
5.缩放到指定区域:Canvas.StretchDraw(rect, FPicture.Graphic);
6.更复杂的绘制,可以用Windows API函数:BitBlt查Windows SDK帮助或MSDN;
hdcDest用Canvas.Handle, hdcSrc用Picture.Bitmap.Handle(任何图像打开后被TPicture转成Bitmap).

 
To thisgame
邮件已发,请查收。
 
谢谢大家,特别是apw和sgzc,分数不多,不成敬意
to apw:这里还有分:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2001563
 
metadraw控件支持编辑wmf文件,可以打开gif(不可以是动画)
搜索一下可以找到下载地址 很多。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
864
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部