canvasTextOut()输出的文字背静如何变成透明的呢? 我输出到屏幕上的文字都是白色的底,太难看了,能不能变成透明的呢?还有文字能不能变成半透明的呢,文字能不能用在最上面呢?不防碍其他操作。谢谢大家 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Canvas.Brush.Color := 你的颜色;Canvas.Brush.Style := bsClear;//等等,你自己查查就知道了; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var LogFont : TLogFont; newFont : TFont;begin with Form1.Canvas do begin Font.Name := '黑体'; // 字体 Font.Size := 32; // 字号 Font.Color:= $00ffcc; // 颜色 // 创建新字体 newFont := TFont.Create; newFont.Assign(Font); // 新字体继承窗体字体的属性 Font.Assign(newFont); newFont.Free; // 在鼠标按下的位置显示文字 TextOut(X, Y, '旋转文字Demo'); end;end; Canvas.Brush.Style := bsClear;Canvas.Brush.Color := 你的颜色;Canvas.TextOut(); : ljmanage(过客):下面这一句不能用否则反会显示背景。 Canvas.Brush.Color := 你的颜色; 对,应该就是这样Canvas.Brush.Style := bsClear;Canvas.TextOut(); 如何让画布重画的时候文字还在上面呢?现在的程序做成了,但是一刷新就没有了!如何没有FREE前一直有呢? 关于注册表操作有点难度的问题......! 界面上的flash动画不能随窗体改变而改变,必需点击一下才能变化,怎么解决 如何删除一行文本? 网格中的浮点型字段显示问题,求助! 报表问题 数据查找的小问题 有没有兄弟做过msn messenger 的addin? 50分问题:在Delphi中如何实现文件的复制。 请教问题:关于字符串的保存? 为什么老要我输密码 关于Delphi7的数据模块怎样用? 帮我看看这段代码出错在哪?
Canvas.Brush.Style := bsClear;//等等,你自己查查就知道了;
Shift: TShiftState; X, Y: Integer);
var
LogFont : TLogFont;
newFont : TFont;
begin
with Form1.Canvas do
begin
Font.Name := '黑体'; // 字体
Font.Size := 32; // 字号
Font.Color:= $00ffcc; // 颜色
// 创建新字体
newFont := TFont.Create;
newFont.Assign(Font); // 新字体继承窗体字体的属性
Font.Assign(newFont);
newFont.Free;
// 在鼠标按下的位置显示文字
TextOut(X, Y, '旋转文字Demo');
end;end;
Canvas.Brush.Color := 你的颜色;
Canvas.TextOut();
下面这一句不能用否则反会显示背景。
Canvas.Brush.Color := 你的颜色;
Canvas.Brush.Style := bsClear;
Canvas.TextOut();