|
BUG提交
炫彩版本号: |
1.9.8 |
操作系统: |
win10 |
开发环境: |
Delphi |
编程语言: |
Delphi |
问题分类: |
其他 |
简短描述: |
GDI自绘,然后设置按钮为透明,按钮背景异常。 |
使用GDI自绘,然后增加按钮,设置png透明按钮图片,当鼠标移到按钮上再移开,按钮背景不透明!使用炫彩封装的函数自绘好像没此问题。
正常状态:
鼠标移上去在移开后的效果,按钮出现背景异常。。。
代码:
program WinMain;
{$APPTYPE GUI}
uses
Windows,
XCGUI in 'XCGUI.pas';
var
hWindow,hCloseBtn : Integer ;
hEle : Integer ;
function OnPaint(hDraw:Integer ; pbHandledBoolean): Integer ;stdcall ;
var
pt :TPOINT;
dc : Integer;
begin
dc := XDraw_GetHDC(hDraw);
SetTextColor(dc,255);
TextOut(dc,0,0,'dasemimi',8);
pbHandled^ := True;
Result := 0;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
XInitXCGUI(nil) ; //初始化资源
hWindow := XWnd_Create(0,0,500,300,'大色秘密',0,15); //创建窗口
hEle := XEle_Create(0,0,500,300,hWindow);
XEle_EnableBkTransparent(hEle,True );
XEle_RegEventC(hEle,XE_PAINT,Integer(@OnPaint));
//关闭按钮
hCloseBtn := XBtn_Create(10, 10, 36, 36, '', hWindow);
XBtn_SetType(hCloseBtn, button_type_close);
XBtn_AddBkImage(hCloseBtn, button_state_leave, XImage_LoadFile('.\icon_close_normal.png', False));
XBtn_AddBkImage(hCloseBtn, button_state_stay, XImage_LoadFile('.\icon_close_hover.png', False));
XBtn_AddBkImage(hCloseBtn, button_state_down, XImage_LoadFile('.\icon_close_down.png', False));
XEle_EnableBkTransparent(hCloseBtn, True);
XWnd_AdjustLayout(hWindow);
XWnd_ShowWindow(hWindow,5); //显示窗口
XRunXCGUI(); //运行程序
XExitXCGUI(); //销毁资源
end.
|
|