W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-20 #1 用TEXTOUT能不能写出带有特效色彩的文字?比如想用TEXTOUT写出那些绿色包边,两种色彩的字..
W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-20 #2 用TEXTOUT能不能写出带有特效色彩的文字?比如想用TEXTOUT写出那些绿色包边,两种色彩的字..
A ak_2005 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-20 #3 Font.Color := clGreen; Font.Name := '华文彩云';
W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-21 #5 有没有人帮忙呀,分不够再加,这个问题也可以说是怎么才能在画布上写出双色彩的字,比如包边,倾斜等字体的字,我试了用TEXTOUT是不可能写出来的,但是如果在一个EDIT里就可以实现,现在有办法将EDIT里的字写到CANVAS上去就可以了.有办法吗....
有没有人帮忙呀,分不够再加,这个问题也可以说是怎么才能在画布上写出双色彩的字,比如包边,倾斜等字体的字,我试了用TEXTOUT是不可能写出来的,但是如果在一个EDIT里就可以实现,现在有办法将EDIT里的字写到CANVAS上去就可以了.有办法吗....
C chen_liang Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #8 看看你的字库里有没有那种字体，没有的话当然没有效果
G gooodlife Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #9 procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Font.Color := clRed; Form1.Canvas.Font.Name := '华文彩云'; Form1.Canvas.Font.Style := Form1.Canvas.Font.Style + [fsStrikeOut] + [fsItalic]; Form1.Canvas.TextOut(10, 10, '最爱我的老婆了'); end;
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Font.Color := clRed; Form1.Canvas.Font.Name := '华文彩云'; Form1.Canvas.Font.Style := Form1.Canvas.Font.Style + [fsStrikeOut] + [fsItalic]; Form1.Canvas.TextOut(10, 10, '最爱我的老婆了'); end;
W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #10 有点效果呀.能不能写出里面是绿色,字体外面是红色的字来呢.
L lfzxs Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-01 #11 procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Brush.Color := clGreen ; Form1.Canvas.Font.Color := clRed; Form1.Canvas.Font.Name := '华文彩云'; Form1.Canvas.Font.Size := 18; Form1.Canvas.TextOut(10, 10, '最爱我的老婆了'); end;
procedure TForm1.Button1Click(Sender: TObject); begin Form1.Canvas.Brush.Color := clGreen ; Form1.Canvas.Font.Color := clRed; Form1.Canvas.Font.Name := '华文彩云'; Form1.Canvas.Font.Size := 18; Form1.Canvas.TextOut(10, 10, '最爱我的老婆了'); end;
W wei0916 Unregistered / Unconfirmed GUEST, unregistred user! 2005-08-02 #12 没有效果呀,这里不能帖图片,我会将图片帖到网站上让你们看的,保证你们都没有见过,到时再看看是用DELPHI里什么东东做出来的吧....
