让一个控件透明，可以看到背面下的图？

2006-06-14 08:29:30 444 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

SFF-8654接口引脚定义全解析：从SAS到U.2的高速硬件连接核心在高速数据存储与传输领域，接口标准是连接主机与存储设备、确保信号完整性与协议互通性的物理基础。其核心原理在于通过精确定义的物理引脚和电气特性，承载不同的高速串行通信协议，如SAS和PCIe。这类高密度连接器的技术价值在于以紧凑的形态支持多协议兼容与高速率传输，满足了企业级存储、高性能计算对带宽和可靠性的苛刻要求。典型的应用场景包括服务器硬盘背板连接、NVMe U.2固态硬盘直连以及外部存储扩展。本文聚焦于SFF-8654（亦称Mini SAS HD）这一关键接口，深入剖析其引脚定义、信号分区（如高速数据通道阅读详情

现有一个矢量控件，再放有一个IMAGE 控件，想让矢量控件透明，看到IMAGE的图片，请问怎么才能让前面的控件（矢量控件）透明，或者用别的办法实现两样的办法即可。

...全文

U.2与U.3接口选择误区：PCIe 5.0时代信号完整性才是性能关键在高速存储领域，NVMe SSD的性能发挥不仅取决于接口协议，更依赖于整个传输通道的信号完整性。信号完整性是确保高速数字信号在传输过程中不失真、不产生误码的关键技术原理，它直接影响着PCIe总线的稳定性和有效带宽。随着PCIe标准演进至5.0乃至6.0，信号速率飙升至32GT/s以上，高频信号在PCB走线、连接器和线缆中的衰减与反射问题变得尤为突出，成为制约性能的瓶颈。其技术价值在于保障数据中心、AI训练和高性能计算等场景下存储系统能稳定达到理论带宽，避免因链路降速导致的性能损失。本文聚焦于U.2和U.3接阅读详情

panjinfu80

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

panjinfu80 2006-06-17

打赏
举报

绘制透明位图的代码
procedure DrawTrans(DestCanvas: TCanvas; X,Y: smallint; SrcBitmap:TBitmap; AColor: TColor);
var
ANDBitmap, ORBitmap: TBitmap;
CM: TCopyMode;
Src: TRect;
begin
ANDBitmap:= NIL;
ORBitmap:= NIL;
try
ANDBitmap:= TBitmap.Create;
ORBitmap:= TBitmap.Create;
Src := Bounds(0,0, SrcBitmap.Width, SrcBitmap.Height);
with ORBitmap do
begin
Width:= SrcBitmap.Width;
Height:= SrcBitmap.Height;
Canvas.Brush.Color := clBlack;
Canvas.CopyMode := cmSrcCopy;
Canvas.BrushCopy(Src, SrcBitmap, Src, AColor);
end;
with ANDBitmap do
begin
Width:= SrcBitmap.Width;
Height:= SrcBitmap.Height;
Canvas.Brush.Color := clWhite;
Canvas.CopyMode := cmSrcInvert;
Canvas.BrushCopy(Src, SrcBitmap, Src, AColor);
end;
with DestCanvas do
begin
CM := CopyMode;
CopyMode := cmSrcAnd;
Draw(X,Y, ANDBitmap);
CopyMode := cmSrcPaint;
Draw(X,Y, ORBitmap);
CopyMode := CM;
end;
finally
ANDBitmap.Free;
ORBitmap.Free;
end;
end;

panjinfu80 2006-06-16

打赏
举报

想了很久了
没有什么好的办法

飞天揽月 2006-06-15

打赏
举报

panel 本身是可以透明的设置一下

liangyong007a 2006-06-15

打赏
举报

一堆代码啊，随便把原理说说看代码就容易了。现在的程序员越来越懒了……

budded 2006-06-15

打赏
举报

看看我的Panel如何透明吧~
{******************************************************************************}
{ @UnitName : uTransPanel,pas }
{ @Project : Budded Software Studio }
{ @Copyright : Budded Software Studio }
{ @Author : Budded }
{ @Description : 透明 Panel }
{ @FileVersion : 1.0.0.0 }
{ @CreateDate : 2005-08-24 }
{ @Comment : 单元评论（代码审查结论） }
{ @LastUpdate : Budded, 2005-08-24 }
{ @History : Created By Budded, 2005-08-24 10:20 }
{******************************************************************************}

unit uTransPanel;

interface

uses
Windows, Messages, SysUtils, Graphics, Classes, Controls, ExtCtrls, Buttons;

type
TTransMode = (tmNone, tmSRCCOPY, tmSRCPAINT, tmSRCAND, tmSRCINVERT, tmSRCERASE,
tmNOTSRCCOPY, tmNOTSRCERASE, tmMERGECOPY, tmMERGEPAINT,
tmPATCOPY, tmPATPAINT, tmPATINVERT, tmDSTINVERT, tmBLACKNESS, tmWHITENESS);

TTransPanel = class(TPanel)
private
{ Private declarations }
FTransMode: TTransMode;

procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED;
procedure WMEraseBkgnd(var Message: TMessage); message WM_ERASEBKGND;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
function GetTransModeEx: Integer;
protected
{ Protected declarations }
Buffer: TBitmap;
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;
procedure Resize; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy(); override;
property TransModeEx: Integer read GetTransModeEx;
published
{ Published declarations }
property TransMode: TTransMode read FTransMode write FTransMode default tmSRCCOPY;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Budded', [TTransPanel]);
end;

{ TTransPanel }

procedure TTransPanel.CMCtl3DChanged(var Message: TMessage);
begin
inherited;
RecreateWnd;
end;

constructor TTransPanel.Create(AOwner: TComponent);
begin
inherited;
Buffer := TBitmap.Create;
FTransMode := tmSRCCOPY;
end;

procedure TTransPanel.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle + WS_EX_TRANSPARENT;
end;

destructor TTransPanel.Destroy;
begin
if Assigned(Buffer) then
Buffer.Free;
inherited;
end;

function TTransPanel.GetTransModeEx: Integer;
begin
Result := 0;
case TransMode of //case
tmNone: Result := 0;
tmSRCCOPY: Result := SRCCOPY;
tmSRCPAINT: Result := SRCPAINT;
tmSRCAND: Result := SRCAND;
tmSRCINVERT: Result := SRCINVERT;
tmSRCERASE: Result := SRCERASE;
tmNOTSRCCOPY: Result := NOTSRCCOPY;
tmNOTSRCERASE: Result := NOTSRCERASE;
tmMERGECOPY: Result := MERGECOPY;
tmMERGEPAINT: Result := MERGEPAINT;
tmPATCOPY: Result := PATCOPY;
tmPATPAINT: Result := PATPAINT;
tmPATINVERT: Result := PATINVERT;
tmDSTINVERT: Result := DSTINVERT;
tmBLACKNESS: Result := BLACKNESS;
tmWHITENESS: Result := WHITENESS;
end; // end case
end;

procedure TTransPanel.Paint;
var
Rect: TRect;
TopColor, BottomColor: TColor;

procedure AdjustColors(Bevel: TPanelBevel);
begin
TopColor := clBtnHighlight;
if Bevel = bvLowered then TopColor := clBtnShadow;
BottomColor := clBtnShadow;
if Bevel = bvLowered then BottomColor := clBtnHighlight;
end;

begin
// inherited;

Rect := ClientRect;//Rect(0, 0, Width, Height);
Buffer.Width := Width;
Buffer.Height := Height;
Buffer.Canvas.Brush.Style := bsSolid;
Buffer.Canvas.Brush.Color := Color;
Buffer.Canvas.FillRect(Rect);
StretchBlt(Buffer.Canvas.Handle, 0, 0, Width, Height,
Canvas.Handle, 0, 0, Width, Height, TransModeEx);

if Ctl3D then DrawEdge(Buffer.Canvas.Handle, Rect, BDR_RAISEDINNER, BF_RECT);

if BevelOuter <> bvNone then
begin
AdjustColors(BevelOuter);
Frame3D(Buffer.Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;
if BevelInner <> bvNone then
begin
AdjustColors(BevelInner);
Frame3D(Buffer.Canvas, Rect, TopColor, BottomColor, BevelWidth);
end;

Buffer.Canvas.Pen.Mode := pmCopy;
Buffer.Canvas.Pen.Style := psSolid;

Canvas.Draw(0, 0, Buffer);
end;

procedure TTransPanel.Resize;
begin
inherited;
end;

procedure TTransPanel.WMEraseBkgnd(var Message: TMessage);
begin
Message.Result := 0;
end;

procedure TTransPanel.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
Invalidate;
inherited;
end;

end.

让一个控件透明，可以看到背面下的图？

相关推荐