我用delphi作了一个画图的程序,但不知怎么在上面写字(就象附件中的画图程序一样,)请各位帮忙.谢谢.(50分)

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

wxylt555888

Unregistered / Unconfirmed
GUEST, unregistred user!
我做过一个,要的画你给我你的邮箱
 
能不能也发给我一个,我借鉴一下。
 
不告诉我邮箱我怎么给你
 
是不是动态生成TEdit,以前我考虑过,但因为时间关系没有试验
sniper2300,请你也给我发一个吧,xfhj@xf.gov.cn
谢谢!

 
放一个Image,Edit.这是立体字:
image1.Canvas.Brush.Color:=clwhite;
image1.Canvas.FillRect(rect(0,0,image1.Width,image1.Height));
image1.Canvas.Brush.Style:=bsclear;
image1.Canvas.Font.Size:=24;
image1.Canvas.Font.Color:=clblack;
image1.Canvas.TextOut(23,22,edit1.Text);
image1.Canvas.Font.Color:=clred;
image1.Canvas.TextOut(20,20,edit1.text);
 
建议用drawtext,可以有各种对齐方式
 
tsljc的方式就不错
 
接受答案了.
 

Similar threads

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