社区
Delphi
帖子详情
(急需(分数多多呢!))如何让Delphi在Image(有Bitmap)上写字(背景应为透明,例如TextOut的白色背景是不行的)??????
yxf
2000-03-20 09:22:00
...全文
503
9
打赏
收藏
(急需(分数多多呢!))如何让Delphi在Image(有Bitmap)上写字(背景应为透明,例如TextOut的白色背景是不行的)??????
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hirong
2000-03-21
打赏
举报
回复
记得在VC++中只要将DC设置成透明的就可以了
pDC->SetBkMode(TRANSPARENT);
DELPHI我没试过.
ahao
2000-03-21
打赏
举报
回复
不对,我搞错了,如果有Bitmap的话还是把Transparent去掉吧,不然会闪烁的,前面几位已经说对了.
ahao
2000-03-21
打赏
举报
回复
哈哈,我的一定行:
用BCB是:
Image1->Transparent=true;
Image1->Canvas->Brush->Style = bsClear;
Image1->Canvas->Font->Size=9;
Image1->Canvas->Font->Name="宋体";
Image1->Canvas->TextOut(10, 10, "透明汉字");
改成Delphi可能是:
Image1.Transparent=true;
Image1.Canvas.Brush.Style = bsClear;
Image1.Canvas.Font.Size=9;
Image1.Canvas.Font.Name='宋体';
Image1.Canvas.TextOut(10, 10, '透明汉字');
OK?
sunsetyang
2000-03-21
打赏
举报
回复
已经写在image1中的东西会丢失?不会吧!!
dengdeng
2000-03-21
打赏
举报
回复
ahao 的回答是对的。
不过最好把代码写在Image1所在Form的OnPaint事件中,避免刷新后丢失。
5201314
2000-03-20
打赏
举报
回复
在quickreport上试试!我也在研究这个问题!欢迎交流!
Mars
2000-03-20
打赏
举报
回复
with image1 do
begin
canvas.brush.style:=bsclear;
canvas.textout(widht div 2,height div 2,'hello');
end;
//ok!!!
huzi
2000-03-20
打赏
举报
回复
用Label也可以呀。Label有透明属性
Lin
2000-03-20
打赏
举报
回复
没有问题啊, 只需设置CanvasBrush.Style为bsClear就OK, 如:
...
Image1.Canvas.Brush.Style := bsClear;
Image1.Canvas.TextOut(10, 10, '透明汉字');
...
Windows游戏编程系列之1:GUI窗口界面编程及游戏入门实战
位图简介 38 1)在资源中添加位图资源 39 2)从资源中加载位图: Load
Bitmap
39 3)创建一个与当前DC相匹配的DC(内存DC) 39 4)将
bitmap
放入匹配的DC中:SelectObject 40 5)成像(1:1 比例 ) 40 6)取出位图 40...
创建
Bitmap
时设置
背景
为
透明
做一张
透明
图片(R.drawable.transtion) 将
透明
图片decode为
Bitmap
在此
Bitmap
上做你想做的事 注意
透明
图片的宽高应大于你最终想要图片的宽高
Bitmap
bitmap
=
Bitmap
.create
Bitmap
(
Bitmap
Factory.decodeResource(context.getResources(), R.drawable.transt
bitmap
实现
背景
透明
public class
Bitmap
Region { //创建支持位图区域的控件(目前有button,form,
image
button) public static void CreateControlRegion(Control control,
Bitmap
bitmap
) { //判断控件是否存在
delphi
从
image
list中获取
透明
背景
图片的方法
Bitmap
:= T
Bitmap
.Create();
Bitmap
.TransparentMode := tmFixed; //必须在get
Bitmap
前设置
Bitmap
.Transparent := True;if (
Image
List.Get
Bitmap
(SubMenu.Tag,
Bitmap
)) thenbegin
Bitmap
.Trans
Android
Bitmap
透明
背景
直接上源码: private
Bitmap
bitmap
; private Canvas canvas;
bitmap
=
Bitmap
.create
Bitmap
(dmWidth, dmHeight,
Bitmap
.Config.ARGB_8888);
bitmap
.setHasAlpha(true); canvas = new Canvas(leadsBit
Delphi
5,392
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章