Delphi7 GDI+画图的问题

zzyhost 2014-11-22 01:40:27

代码不报错，可为什么画不出来呀？？？该如何将资源里的这张图片b1给画出来？？？

...全文

233 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

frtrnr 2014-11-25

打赏
举报

procedure TForm1.FormPaint(Sender: TObject); var bmp: TGPBitmap; g: TGPGraphics; begin g := TGPGraphics.Create(Canvas.Handle); bmp := TGPBitmap.Create(HInstance ,'B1'); g.DrawImage(bmp, 10, 10); bmp.Free; g.Free; end;

利用DELPHI开发工具进行GDI画图,画无规则区域，然后可以进行区域修改等功能

用gdi+代替TBitmap和TJpegImage、TPngImage，非常实力，作者是国外有名delphi网站

FMX 的 Canvas 在不同的系统上会分别使用: WinVista、Win7: D2D (FMX.Canvas.D2D.pas) WinXP: GDI+ (FMX.Canvas.GDIP.pas) Mac 系列: Core Graphics (FMX.Canvas.Mac.pas) 和 HTML5 中的 Canvas 非常类似, 现在的 Canvas 模糊了 Pen 的概念: 之前的 Canvas.Pen 对应: Canvas.Stroke; 之前的 Canvas.Brush 对应: Canvas.Fill. 在 FMX 中, Canvas 无处不在, 其 Canvas.Stroke、Canvas.Fill 的状态也各不相同, 一般要先初始化它们.

以制作公章为列，包含PictureBox与Panel控件的使用，文字旋转输入，适合初学。

这是利用CnPack代码的水波算法制作的，只利用了GDI画图，在有的电脑上可能有闪烁。不久本工作室将提供DirectX画图的代码

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章