请教对GDI+熟的朋友:我用tgpbitmap写了几个字,如何将其赋值给delphi7的timage呢?(50)

  • 主题发起人 主题发起人 wyxriver
  • 开始时间 开始时间
W

wyxriver

Unregistered / Unconfirmed
GUEST, unregistred user!
w:=500; h:=200; b:=TGPBitmap.Create(w,h); g:=TGPGraphics.Create(b); sb:=TGPSolidBrush.Create(MakeColor(255,0,0)); font := TGPFont.Create('宋体', 100); g.DrawString('AAA', -1, font, MakePoint(0.0,0), sb); image1.Picture.assign()以上是我的代码,image1是窗体上的一个timage,如何将上面生成的文字显示在image1中呢?
 
var w,h:Integer; g:IGPGraphics ; b:IGPBitmap; sb:IGPSolidBrush; font:IGPFont; Point:TGPPointF;begin w:=500; h:=200; b:=TGPBitmap.Create(w,h); g:=TGPGraphics.Create(b); sb:=TGPSolidBrush.Create(TGPcolor.Create(255,0,0)); font := TGPFont.Create('宋体', 100); Point.Initialize(0, 0); g.DrawString('AAA', font,Point, sb); graphic2 := TGPGraphics.Create(Image1.Canvas.Handle); graphic2.DrawImage(b,0,0);end;
 
后退
顶部