-
-
image位一个地图，想在上面画个半透明的圆，怎么实现展开阅读全文
-
等级
本版专家分：46751勋章
-
- 黄花 2013年12月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2014年4月 Delphi大版内专家分月排行榜第三
2014年3月 Delphi大版内专家分月排行榜第三
2013年5月 Delphi大版内专家分月排行榜第三
2013年1月 Delphi大版内专家分月排行榜第三
2010年11月 Delphi大版内专家分月排行榜第三
2009年12月 Delphi大版内专家分月排行榜第三
2009年11月 Delphi大版内专家分月排行榜第三
-
-
放一个Tshape控件
-
等级
本版专家分：0勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
放一个Tshap控件和直接用Ellipse画是一样啊，没法实现半透明效果，我通过改变Canvas.pen.Mode的属性能够有点半透明效果，但是不是真正的半透明。
-
等级
本版专家分：46751勋章
-
- 黄花 2013年12月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2014年4月 Delphi大版内专家分月排行榜第三
2014年3月 Delphi大版内专家分月排行榜第三
2013年5月 Delphi大版内专家分月排行榜第三
2013年1月 Delphi大版内专家分月排行榜第三
2010年11月 Delphi大版内专家分月排行榜第三
2009年12月 Delphi大版内专家分月排行榜第三
2009年11月 Delphi大版内专家分月排行榜第三
-
-
哦，它只能透明，不能半透明
那就建一个小form，它可以半透明的，使用程序代码把它放到Image上。。。。
-
等级
本版专家分：4689勋章
-
- 蓝花 2011年10月 Delphi大版内专家分月排行榜第三
-
-
换 Firemonkey 直接透明叠加
-
等级
本版专家分：185 -
可以用控件栏，system下的paintbox控制进行绘绘制就可以了，此控件比IMAGE控件好多了
-
等级
本版专家分：25739勋章
-
-
红花
2014年3月 Delphi大版内专家分月排行榜第一
2014年2月 Delphi大版内专家分月排行榜第一
2014年1月 Delphi大版内专家分月排行榜第一
2013年12月 Delphi大版内专家分月排行榜第一
2013年11月 Delphi大版内专家分月排行榜第一
2013年10月 Delphi大版内专家分月排行榜第一
2013年9月 Delphi大版内专家分月排行榜第一
2013年8月 Delphi大版内专家分月排行榜第一
2013年7月 Delphi大版内专家分月排行榜第一
2013年6月 Delphi大版内专家分月排行榜第一
2013年5月 Delphi大版内专家分月排行榜第一
-
-
黄花
2014年3月 C++ Builder大版内专家分月排行榜第二
2014年1月 C++ Builder大版内专家分月排行榜第二
2013年12月 C++ Builder大版内专家分月排行榜第二
2013年8月 C++ Builder大版内专家分月排行榜第二
2013年7月 C++ Builder大版内专家分月排行榜第二
2013年4月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年11月 C++ Builder大版内专家分月排行榜第三
2013年9月 C++ Builder大版内专家分月排行榜第三
2013年6月 C++ Builder大版内专家分月排行榜第三
2013年3月 Delphi大版内专家分月排行榜第三
-
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
img1: TImage; //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 放 一个 image 控件
btn1: TButton; //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 放 一个 button
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
procedure MyDraw;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
img1.AutoSize := True;
img1.Picture.Bitmap.LoadFromFile('1.bmp');
end;
procedure TForm1.MyDraw;
var
bf: BLENDFUNCTION;
desBmp, srcBmp: TBitmap;
rgn: HRGN;
begin
with bf do
begin
BlendOp := AC_SRC_OVER;
BlendFlags := 0;
AlphaFormat := 0;
SourceConstantAlpha := 180; // 透明度，0~255
end;
desBmp := TBitmap.Create;
srcBmp := TBitmap.Create;
try
srcBmp.Assign(img1.Picture.Bitmap);
desBmp.Width := srcBmp.Width;
desBmp.Height := srcBmp.Height;
Windows.AlphaBlend(desBmp.Canvas.Handle, 0, 0,
desBmp.Width, desBmp.Height, srcBmp.Canvas.Handle,
0, 0, srcBmp.Width, srcBmp.Height, bf);
rgn := CreateEllipticRgn(20,20, 200, 200); // 创建一个圆形区域
SelectClipRgn(srcBmp.Canvas.Handle, rgn);
srcBmp.Canvas.Draw(0, 0, desBmp);
img1.Picture.Bitmap.Assign(nil);
img1.Picture.Bitmap.Assign(srcBmp);
finally
desBmp.Free;
srcBmp.Free;
end
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
MyDraw;
end;
end.
-
等级
本版专家分：25739勋章
-
-
红花
2014年3月 Delphi大版内专家分月排行榜第一
2014年2月 Delphi大版内专家分月排行榜第一
2014年1月 Delphi大版内专家分月排行榜第一
2013年12月 Delphi大版内专家分月排行榜第一
2013年11月 Delphi大版内专家分月排行榜第一
2013年10月 Delphi大版内专家分月排行榜第一
2013年9月 Delphi大版内专家分月排行榜第一
2013年8月 Delphi大版内专家分月排行榜第一
2013年7月 Delphi大版内专家分月排行榜第一
2013年6月 Delphi大版内专家分月排行榜第一
2013年5月 Delphi大版内专家分月排行榜第一
-
-
黄花
2014年3月 C++ Builder大版内专家分月排行榜第二
2014年1月 C++ Builder大版内专家分月排行榜第二
2013年12月 C++ Builder大版内专家分月排行榜第二
2013年8月 C++ Builder大版内专家分月排行榜第二
2013年7月 C++ Builder大版内专家分月排行榜第二
2013年4月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年11月 C++ Builder大版内专家分月排行榜第三
2013年9月 C++ Builder大版内专家分月排行榜第三
2013年6月 C++ Builder大版内专家分月排行榜第三
2013年3月 Delphi大版内专家分月排行榜第三
-
-
上面用了涛哥的图片做示例，结果被CSDN和谐了
补个图
-
等级
本版专家分：2423
-
sololie哥厉害，mark一下
-
等级
本版专家分：421 -
@sololie
如果中间 desBmp.canvas.Textout(1,1,'我能半透吗');//输出文字的话;
文字部分还是不透明的.
-
等级
本版专家分：50583勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
红花
2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一
-
-
黄花
2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二
-
-
desBmp.canvas.Textout(1,1,'我能半透吗');
文字肯定不是透明的。
如果要透明，自己画，通过计算取值，复合像素点即可。
- Delphi 中如何调试 DLL
网上看到很多人问delphi中如何调试 DLL 的，众大侠回答也基本一致，但是，我使用时却时灵时不灵，今天发现了原因。完整的调试 DLL方法如下：1）新建一个 DLL 工程，名字就叫 MyDll 吧，编译后生成 MyDll.dll，我们要...
- Delphi XE8,C++ Builder XE8,RAD Studio XE8 精简版 EMBARCADERO DELPHI XE8 LITE V11.X
DELPHI XE8 精简版 EMBARCADERO DELPHI XE8 LITE V11.X 版本说明： 由于 XE5 时代 Delphi 安装体积急剧膨胀（完整安装接近 10G，程序文件、安装缓存超过 20G+），按照过去的方式打包，XE5 的 lite 体积 1.xG，接近 ...
- delphi绘图canvas及应用(转）
delphi绘图canvas及应用2010年03月25日 星期四 14:59DELPHI为编程者提供了一个灵活的绘图场所,CANVAS类,在DELPHI中的很多控件都具有此属性,使编程者可以 在这些控件的表面随心所欲的绘图,这对完善用户...
- Delphi 10.2.3 精简版自动激活Embarcadero Delphi 10.2.3 v25.0.29899.2631 Lite v14.4
——————————————————————————–基本信息：作者：lsuper联系方式：…——————————————————————————–版本说明：由于 XE5 时代 Delphi 安装...
- delphi10.3与C++Builder10.3社区版（Community Edition）的下载与安装
今天在群里看到delphi10.3发布了，而且社区版也有了，问他们怎样弄的，他们都不理我，没办法，小白就是这命。好吧自己研究一下。 首先社区版是与企业版一样功能的，只是不能用于商业上，好像还有一个月收入的限制，...
- pictureEdit详细设置笔记 devexpress教程
在学习了devexpress控件已经 由于要时常使用pictureEdit图片显示控件 今天把学习的笔记发布上来 希望可以帮助大家起个抛砖引玉的作用 我是菜鸟，老鸟们如果觉得我写得不好 或者有什么出错的地方 请大家一定要砸砖扔...
- Embarcadero Delphi 10 Seattle Update1 v23.0.21418.4207 Lite v12.1 精简版
根据 23.0.21418.4207 ...还有，原版 Bds.exe 和 LicenseManager.exe 会访问网络，为避免不必要的流量，强烈建议直接 windows 防火墙屏蔽 由于个人精力有限，仅在 XPsp3、2003x64、Win7en、Win10x64 四个平台上测试通
- “戏”说设计模式——中介者模式
首先请出今天的主人公——“丐帮帮主”乔峰 萧峰一生有情有义，对爱情坚贞，对国家和民族忠诚，人生经历坎坷...在我们生活中比比皆是，如婚介所、房产中介、交换机组网、现代电子商务、C2C购物平台、手机、即时...
- SWT标签Label垂直居中的方法
当然，大侠们可能早就知道了。 package com.laozizhu.search.client.test;import org.eclipse.swt.SWT;import org.eclipse.swt.custom.CLabel;import org.eclipse.swt.graphics.Image;import org.ecl
- ERP开源框架 + 二次开发平台 介绍
经历了多年软件开发，深受网络大侠们的资源共享才得以有所成绩， 本人主要是做企业ERP软件，一直有个感受，开发具体某个功能不难，但随着需求的增加，管理庞大的代码却成了最大的问题 而为企业管理所做的开发，如何...
- delphi鼠标滚动条的问题
问题描述 1.我在mainform的FormMouseWheel的事件里边写了相应鼠标滚轮的事件。然后刚进系统，鼠标滚动，滚动条也能正常...4.问下各位大侠，有什么办法，在编译stringgrid之后，重新让scrollbox相应鼠标滚动呢？？
- 疯了，是常态。
程序在我的本本上（WINXP）测试时，跑的很欢畅。 昨天晚上，把这个WebService客户端以NT服务的形式注册部署到服务器上（Win2003 Server）。这样开机后便可以服务方式自动运行，不用人工监管。待部署完毕后，启动...
- Delphi file not found system.pas
大侠 file not found system.pas 指什么意思 对于如何使用网上下载的控件,我总是不会使用,请教一下,如何使用. 我是菜鸟请写详细点 我将送上150分 你把system.pas拷到你安装控件的目录即可 是问题太菜...
- 真机调试错误 Reason: image not found想到的
想起之前再给一个旧版本手机build测试版本的时候，发生了一个错误： 第一次遇到这个问题的时候，我看到是最后一行：Reason: image not found ，说出来不怕笑话，我第一反应是觉得有某些图片丢失了，然后开始了漫漫...
- 如何修改“开机启动系统引导选项”？
在装完双系统之后，有的小伙伴觉得开机的时候要手动选择比较麻烦，而默认启动还得登上几秒，因此决定删除其中一个系统。而我则是因为之前制作了启动盘，电脑启动时，启动选项中多了个“U大侠一键急救系统”这个选项...
- 并查集详解（超级简单有趣~~就学会了）
江湖上散落着各式各样的大侠，有上千个之多。他们没有什么正当职业，整天背着剑在外面走来走去，碰到和自己不是一路人的，就免不了要打一架。但大侠们有一个优点就是讲义气，绝对不打自己的朋友。而且他们信奉“朋友...
- 单田芳白眉大侠全320回下载
1、搜索“十方评书网”。 2、要下载那个评书家的选择那个评书家。 3、然后选择自己要下载的下载可以了。 转载于:https://blog.51cto.com/14204019/2392323
- 晴窗中文大侠字典包的创建与安装
<br />晴窗中文大侠字典包的创建与安装 1、 打开晴窗字典编辑器 2、 在“信息”里面选择“目标软件执行文件名” 3、 在词汇列表中添加词汇 4、 保存，并在“文件”中选择...
- Delphi与Word之间的融合技术
问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...