界面

首页界面
14
Jan
0

半透明窗体控件

Gdiplus增加修改版ImageData.rar

{*
半透明窗体控件
版本:1.0
功能说明 :
1.支持颜色和图片半透明
2.暂时只能手动指定背景图片
3.可调透明度(0..255)
4.可控制是否可移动窗体
*}
unit uTranslucentForm;

interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActiveX, Gdiplus,GdipUtil,StdCtrls, XPMan, ExtCtrls;

type
TTranslucentForm = class(TComponent)
private

FAlpha : Byte;
FOverlayerForm : TForm;
FBackground : TFileName;
FOwner : TForm;
FFirstTime : Boolean;
FMouseEvent : TMouseEvent;
FOldOnActive : TNotifyEvent;
FOldOverlayWndProc : TWndMethod;
FMove : Boolean;
procedure SetAlpha(const  value : Byte) ;
procedure SetBackground(const value : TFileName);
procedure RenderForm(TransparentValue: Byte);
procedure OverlayWndMethod(var Msg : TMessage);
procedure InitOverForm;
procedure OnOwnerMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
procedure OnOwnerActive(Sender : TObject);
procedure SetMove(const value : Boolean);

public

constructor Create(AOwner: TComponent); override;
destructor  Destroy; override;

published

property AlphaValue : Byte read FAlpha write SetAlpha;
property Background : TFileName read FBackground write SetBackground;
property Move : Boolean read FMove write SetMove;

end;
procedure Register;
implementation

procedure Register;
begin
RegisterComponents('MyControl', [TTranslucentForm]);
end;
{ TTranslucentForm }

constructor TTranslucentForm.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FOwner := TForm(AOwner);
FAlpha := 255 ;
FMove := True;
if (csDesigning in ComponentState) then Exit;
InitOverForm;
SetWindowLong(FOverlayerForm.Handle,GWL_EXSTYLE,GetWindowLong(FOverlayerForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
RenderForm(FAlpha);
end;

destructor TTranslucentForm.Destroy;
begin
if not (csDesigning in ComponentState) then
begin

if Assigned(FOverlayerForm) then
begin
  FOverlayerForm.WindowProc := FOldOverlayWndProc;
  FreeAndNil(FOverlayerForm);
end;

end;
inherited Destroy;
end;

procedure TTranslucentForm.InitOverForm;
begin
FOverlayerForm := TForm.Create(nil);
with FOverlayerForm do
begin

Left := FOwner.Left ;
Top := FOwner.Top;
Width := FOwner.Width ;
Height := FOwner.Height ;
BorderStyle := bsNone;
color := FOwner.Color;
Show;
FOldOverlayWndProc := FOverlayerForm.WindowProc;
FOverlayerForm.WindowProc := OverlayWndMethod;

end;
with FOwner do
begin

Left := FOwner.Left ;
Top := FOwner.Top ;
Color := clOlive;
TransparentColorValue := clOlive;
TransparentColor := True;
BorderStyle := bsNone;
FMouseEvent := OnMouseDown;
FOldOnActive := OnActivate;
OnActivate := OnOwnerActive;
OnMouseDown := OnOwnerMouseDown;
Show;

end;
FFirstTime := True;
RenderForm(FAlpha);
end;

procedure TTranslucentForm.OnOwnerActive(Sender: TObject);
begin
with FOverlayerForm do
begin

Left := FOwner.Left  ;
Top := FOwner.Top ;
Width := FOwner.Width ;
Height := FOwner.Height ;

end;
RenderForm(FAlpha);
if Assigned(FOldOnActive) then FOldOnActive(FOwner);
end;

procedure TTranslucentForm.OnOwnerMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Assigned(FOverlayerForm) and FMove then
begin

ReleaseCapture;
SendMessage(FOverlayerForm.Handle,WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
FOwner.Show;
if Assigned(FMouseEvent) then FMouseEvent(Sender,Button,Shift, X, Y);

end;
end;

procedure TTranslucentForm.OverlayWndMethod(var Msg: TMessage);
begin
if (Msg.Msg = WM_MOVE) and FMove then
begin

if Assigned(FOverlayerForm) then
begin
  FOwner.Left := FOverlayerForm.Left  ;
  FOwner.Top := FOverlayerForm.Top ;
end;

end;
if Msg.Msg = CM_ACTIVATE then
begin

if FFirstTime then FOwner.Show;
FFirstTime := False;

end;
FOldOverlayWndProc(Msg);
end;

procedure TTranslucentForm.RenderForm(TransparentValue: Byte);
var
zsize: TSize;
zpoint: TPoint;
zbf: TBlendFunction;
TopLeft: TPoint;
WR: TRect;
GPGraph: TGPGraphics;
m_hdcMemory: HDC;
hdcScreen: HDC;
hBMP: HBITMAP;
FGpBitmap , FBmp: TGpBitmap;
gd : TGpGraphics;
gBrush : TGpSolidBrush;
begin
if (csDesigning in ComponentState) then Exit;
if not FileExists(FBackground) then //如果背景图不存在
begin

FGpBitmap := TGpBitmap.Create(FOwner.Width,FOwner.Height);
gd := TGpGraphics.Create(FGpBitmap);
//颜色画刷
gBrush := TGpSolidBrush.Create(ARGBFromTColor(FOverlayerForm.Color));
//填充
gd.FillRectangle(gBrush,GpRect(0,0,FGpBitmap.Width,FGpBitmap.Height));
FreeAndNil(gd);
FreeAndNil(gBrush);

end
else
begin

try
  //读取背景图
  FBmp := TGpBitmap.Create(FBackground);
  FGpBitmap := TGpBitmap.Create(FOwner.Width,FOwner.Height);
  gd := TGpGraphics.Create(FGpBitmap);
  gd.DrawImage(FBmp,GpRect(0,0,FGpBitmap.Width,FGpBitmap.Height),0,0,FBmp.Width,FBmp.Height,utPixel);
  FreeAndNil(gd);
  FreeAndNil(FBmp);
except
  Exit;
end;

end;
hdcScreen := GetDC(0);
m_hdcMemory := CreateCompatibleDC(hdcScreen);
hBMP := CreateCompatibleBitmap(hdcScreen, FGpBitmap.Width, FGpBitmap.Height);
SelectObject(m_hdcMemory, hBMP);
GPGraph := TGPGraphics.Create(m_hdcMemory);
try

GPGraph.DrawImage(FGpBitmap, 0, 0, FGpBitmap.Width, FGpBitmap.Height);
zsize.cx := FGpBitmap.Width;
zsize.cy := FGpBitmap.Height;
zpoint := Point(0, 0);
with zbf do
begin
  BlendOp := AC_SRC_OVER;
  BlendFlags := 0;
  SourceConstantAlpha := TransparentValue;
  AlphaFormat := AC_SRC_ALPHA;
end;

GetWindowRect(FOverlayerForm.Handle, WR);
TopLeft := WR.TopLeft;
UpdateLayeredWindow(FOverlayerForm.Handle, 0, @TopLeft, @zsize, GPGraph.GetHDC, @zpoint,0, @zbf, 2);

finally

GPGraph.ReleaseHDC(m_hdcMemory);
ReleaseDC(0, hdcScreen);
DeleteObject(hBMP);
DeleteDC(m_hdcMemory);
GPGraph.Free;

end;
FreeAndNil(FGpBitmap);
end;

procedure TTranslucentForm.SetAlpha(const value : Byte);
begin
FAlpha := Value;
RenderForm(FAlpha);
end;

procedure TTranslucentForm.SetBackground(const value: TFileName);
begin
FBackground := value;
RenderForm(FAlpha);
end;

procedure TTranslucentForm.SetMove(const value: Boolean);
begin
FMove := value;
end;

end.

20
Nov
0

普通窗体变半透明窗体

var
HandleStyle:LongInt;
hRegion: HRGN;
begin
HandleStyle := GetWindowLong(Handle,GWL_EXSTYLE);
HandleStyle := HandleStyle or WS_EX_LAYERED;
SetWindowLong(Handle,GWL_EXSTYLE,HandleStyle);
SetLayeredWindowAttributes(Handle,0,215,LWA_ALPHA);
// hRegion := CreateRoundRectRgn(0, 0, self.Width, self.Height, 30, 30);
// SetWindowRgn(Handle, hRegion, True);
SetWindowPos( Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW);

10
Aug
0

揭开半透明窗体的秘密

当年Vista系统刚出来的时候,最吸引人的莫过于半透明磨砂的窗体界面了,迷倒了多少人。这个界面技术随即引发了编程界的一阵骚动,很多人都在 问:如何实现这一界面效果?当然,在Vista下倒是很简单,系统本身支持,所以几乎不需要写一句代码,但是当时还是XP的天下,于是大家就可以研究在 XP下如何实现这一效果。

    最先实现的应该是桌面天气秀,还有笨笨钟,后来鱼鱼软件的鱼鱼桌面秀也成功在XP下模仿了Vista的侧边栏,的确,让人很激动,但是他们保密,问也问不到究竟是用了什么技术,记得当年大富翁论坛(http://www.delphibbs.com 比较著名的Delphi论坛)上还为此进行过讨论,最后有个ID叫小雨哥的人提供了一个方法(当然是不是他原创我不得而知,小雨哥目前在盛大网络,见过一面,无限膜拜中),下面是Delphi的实现代码:       

view plain
1 var
2 pt1, pt2 : TPoint;
3 sz : TSize;
4 bf : TBlendFunction;
5 begin
6 bitmap:=tgpbitmap.Create(PNGFile);//这个PNGFile是具体的PNG图片路径
7 pt1 := Point(left,top); //窗口做上角的坐标
8 pt2 := Point(0, 0); //这个就不用说了,一看见(0,0)就应该明白了
9 sz.cx := bitmap.GetWidth; //尺寸不要超过图像大小,不然窗口就什么都没有了,连个影子都没有
10 sz.cy := bitmap.GetHeight; //同上
11 bf.BlendOp := AC_SRC_OVER; //这些死记就行了
12 bf.BlendFlags := 0; //同上
13 if (nTran<0) or (nTran>255) then nTran:=255;
14 bf.SourceConstantAlpha := nTran; //同上
15 bf.AlphaFormat := AC_SRC_ALPHA; //同上
16 DeleteObject(bmp); //前面就是在这里犯的错误,不然占用的内存会无限增大
17 bitmap.GetHBITMAP(0,bmp); // HBITMAP是windows标准位图格式,支持透明,这里是从tgpbitmap 转化成 HBITMAP
18 DeleteDC(DC);
19 DC := CreateCompatibleDC(Canvas.Handle);
20 old_bmp := SelectObject(DC, bmp);
21 UpdateLayeredWindow(Handle, Canvas.Handle, @pt1, @sz, DC, @pt2,0, @bf,ULW_ALPHA);//调用UpdateLayeredWindow实现
22 end;

这个方法其实是生成一个PNG的窗体,我们知道,PNG图片是具有Alpha属性的,所以,如果PNG是半透明磨砂装的,那么生成的窗体也就是半透明磨砂装的,注意,上面的代码需要使用GDIPlus类uses gdipapi, gdipobj;

    我们这里不讨论这段代码,这段代码是别人写的,看似非常完美,比如日期查询器的系统初始化界面就可以由上面的代码生成:

    但是这段代码有个致命的问题,你可以试试在Form上面放一些控件,比如button,edit等,再次编译你会神奇的发现,所有的控件都不显示,这是怎么回事呢?通过查阅MSDN,我们发现问题出在UpdateLayeredWindow函数上。
    MSDN中,关于该函数的Remarks中有这样一段说明:

The UpdateLayeredWindow function maintains the window's appearance on the screen. The windows underneath a layered window do not need to be repainted when they are uncovered due to a call to UpdateLayeredWindow, because the system will automatically repaint them. This permits seamless animation of the layered window.

    大意是说,使用这个函数以后,下一层窗体不会再重新绘制,也就是说,窗体不会响应Onpaint事件来重绘所有控件,导致控件无法 看见,但是实际上控件是存在的,你可以在响应位置上点击一下button,你会发现button依然会响应点击事件,但就是看不见。
    这就头疼了,如果不能使用控件,或者说控件看不见,光一个窗体再好看有什么用呢?其实微软貌似是用这个函数做无缝连接动画用 的,MSDN说的很清楚嘛:This permits seamless animation of the layered window.
    嗯,好吧,既然这个方法不行,那就换一个吧,于是有人想到了使用2个窗体来解决。
    2个窗体怎么解决呢?其实也很简单,一个窗体作为半透明的PNG放在后面,一个窗体作为放置控件的窗体放在前面,然后只要2个窗体同步移动就可以了,就拿日期查询器来说吧,登陆窗体:

这个窗体上下都有半透明的边框,上面也有控件显示,也许你不好理解,如果我分解一下:

   
    怎么样?这样你就发现了,其实是2个窗体,后面一个背景窗体,前面一个Border:=none的控件窗体,然后两个窗体同步移动即可,这样我们就伪造了一个半透明的窗体。事实上,很多软件也是这么做的,包括有些带阴影的窗体也是同样原理。
    至于同步移动,也很简单,处理下OnMove消息就可以了:

view plain
23 function WndNewProc(Wnd: HWND; uMsg: UINT; wPar: WPARAM; lPar: LPARAM): LRESULT; stdcall;
24 var Rect: TRect;
25 begin
26 Result := 0;
27 case uMsg of
28 WM_LBUTTONDOWN: SendMessage(Wnd, WM_SYSCOMMAND, SC_MOVE+2, 0);
29 else
30 begin
31 if ((uMsg = WM_MOVING) or (uMsg = WM_MOVE)) and GetWindowRect(Wnd, Rect) then
32 SetWindowPos(ComponentForm.Handle, 0, Rect.Left, Rect.Top, 0, 0, SWP_NOSIZE);
33 Result := DefWindowProc(Wnd, uMsg, wPar, lPar);
34 end;
35 end;
36 end;

我们假设放置控件的窗体名字叫ComponentForm,当我们鼠标左键按下并移动背景窗体的时候,控件窗体跟着同步移动即可。

    当然,有时候我们可以直接用代码生成背景窗体,这样的话可以减少一些程序体积,生成背景窗体我们可以用一个函数叫 CreateWindowEx,注意这里要用带Ex的,表示会有附加参数,我们只要把这个函数的第一个参数设置为WS_EX_LAYERED就可以了,他 表示一个额外的层属性。
    两个方法都可以,我们既可以直接用2个窗体,也可以用CreateWindowEx函数来生成背景窗体,效果是一样的,看个人喜好。
10
Aug
0

阻止Spy++之类的工具捕捉软件窗口

我以前用Spy++能轻易捕捉360软件界面,除了一些应用DHTML制作的窗体.昨天我再用Spy++捕捉的时候捕捉不到了,甚至连最外围的对话框都捕捉不到,显然是做了类似拦截API的处理.下面我也模拟一下这种效果,让自己的程序窗口不能被捕捉.
Spy++之类的程序一般通过API函数WindowFromPoint和ChildWindowFromPoint来获取指定位置的窗口句柄。拦截一下WindowFromPoint函数,如果捕捉到的是自己程序的窗口,而且实施捕捉的进程不是自己程序的进程,那就直接返回NULL(这样自己的程序捕捉自己的窗口就不会受影响).拦截API我直接用微软的Detour库,使用起来方便.
由于是拦截所有进程地址空间的WindowFromPoint函数,我借助于全局WH_SHELL钩子,因此拦截操作放在一单独的DLL项目中.先封装一下Detour操作CInterceptSpyFun类:
////////////////////h文件///////////////////////////

class CInterceptSpyFun
{
private:

//是否已经拦截
BOOL  m_bIntercepted;

public:

//保存要屏蔽WindowFromPoint函数的进程ID
static  DWORD  m_dwValidProcessID;  

public:

CInterceptSpyFun( );
~CInterceptSpyFun( );

BOOL  IsIntercepted() 
{
    return this->m_bIntercepted;
}

/*
* 拦截操作
* dwValidProcessID: 待屏蔽WindowFromPoint函数的进程ID
* 返回拦截成功与否
*/
BOOL  Intercept( DWORD dwValidProcessID  );

/*
* 取消拦截,还原成原先的操作
*/
void    UnIntercept();

};

///////////////////////////cpp////////////////////////////

DWORD CInterceptSpyFun::m_dwValidProcessID = 0;

//让Real_WindowFromPoint指针指向实际上的WindowFromPoint函数地址
DETOUR_TRAMPOLINE( HWND WINAPI Real_WindowFromPoint( POINT pt ), WindowFromPoint );

/*

  • 自定义WindowFromPoint函数的处理
    */

HWND WINAPI Mine_WindowFromPoint( POINT pt )
{

//调用实际上的WindowFromPoint函数,取得窗口句柄
HWND  hWnd =  Real_WindowFromPoint( pt );

//获取窗口所属的进程ID
DWORD  dwProcessID(0);
::GetWindowThreadProcessId( hWnd, &dwProcessID );

if( ( CInterceptSpyFun::m_dwValidProcessID == dwProcessID ) && ( ::GetCurrentProcessId() != CInterceptSpyFun::m_dwValidProcessID ) )
{    //如果窗口属于指定的进程并且是被不是指定进程的其他进程调用WindowFromPoint访问时,返回NULL
    return NULL;
}

return hWnd;

}

CInterceptSpyFun::CInterceptSpyFun( )
{

m_bIntercepted  =  FALSE;

}

CInterceptSpyFun::~CInterceptSpyFun( )
{
}

BOOL CInterceptSpyFun::Intercept( DWORD dwValidProcessID )
{

CInterceptSpyFun::m_dwValidProcessID   =  dwValidProcessID;
//Detour库拦截处理
m_bIntercepted  =  DetourFunctionWithTrampoline( (PBYTE)Real_WindowFromPoint,  (PBYTE)Mine_WindowFromPoint );
return m_bIntercepted;

}

void CInterceptSpyFun::UnIntercept()
{

if( m_bIntercepted )
{
    //取消拦截
    DetourRemove( (PBYTE)Real_WindowFromPoint,(PBYTE)Mine_WindowFromPoint );
    m_bIntercepted  =  FALSE;
}

}

dwValidProcessID(要拦截WindowFromPoint函数的进程ID)需要在LoadLibrary之后,安装钩子之前传递,并且需要保存到共享节中以达到在所有的进程中数据共享的目的.

pragma data_seg(".unspy")

HHOOK hHook = NULL;
DWORD dwValidProcessID = 0;

pragma data_seg()

pragma comment(linker,"/section:.unspy,rws")

HOOK句柄和dwValidProcessID 都保存到共享节”.unspy”中。

设置dwValidProcessID 的导出函数:
extern"C" __declspec( dllexport ) void SetValidProcessID( DWORD dwProcessID )
{
dwValidProcessID = dwProcessID;
}

声明拦截类的全局变量:
CInterceptSpyFun interceptSpy;
HMODULE hDllModule = NULL; //保存DLL模块句柄

SHELL钩子处理:

LRESULT CALLBACK CustomShellProc (int nCode, WPARAM wParam, LPARAM lParam)
{

if( !interceptSpy.IsIntercepted() )
{  //拦截API
    interceptSpy.Intercept( dwValidProcessID );
}

return ::CallNextHookEx( hHook, nCode, wParam, lParam );

}

extern"C" __declspec( dllexport ) void InstallHook( )
{

hHook = ::SetWindowsHookEx( WH_SHELL , CustomShellProc ,(HINSTANCE)hDllModule, 0 );

}

extern"C" __declspec( dllexport ) void UninstallHook()
{

if( hHook != NULL )
{
    ::UnhookWindowsHookEx( hHook );
}
hHook = NULL;

}
取消拦截操作应在卸载DLL的时候:
BOOL APIENTRY DllMain( HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved )
{
hDllModule = hModule;
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
break;
case DLL_THREAD_ATTACH:
break;
case DLL_THREAD_DETACH:
break;
case DLL_PROCESS_DETACH:
{

  interceptSpy.UnIntercept();

}
break;
}

return TRUE;

}

至此,DLL部分已经完成.在需要屏蔽WindowFromPoint函数的程序中需加载该DLL,调用DLL的SetValidProcessID,将当前的进程ID传入,随后安装钩子:
m_hInstance = ::LoadLibrary(_T("AvoidSpyLib.dll"));
if ( m_hInstance == NULL )
{
::MessageBox(NULL,_T("LoadLibrary Failed"),_T(""),MB_OK);
}

if( m_hInstance == NULL )
return 0;

typedef void (*PSetValidProcessID)( DWORD dwProcessID );
PSetValidProcessID pSetFunc;
pSetFunc = (PSetValidProcessID)::GetProcAddress( m_hInstance , "SetValidProcessID");
if ( pSetFunc != NULL )
{
(*pSetFunc)( ::GetCurrentProcessId() );
}

typedef void (*PInstallHook)( );
PInstallHook pInstallFunc;
pInstallFunc = (PInstallHook)::GetProcAddress( m_hInstance , "InstallHook");
if ( pInstallFunc != NULL )
{

(*pInstallFunc)();

}
//卸载钩子
if( m_hInstance != NULL )
{
typedef void (*PUninstallHook)( );
PUninstallHook pFunc;
pFunc = (PUninstallHook)::GetProcAddress( m_hInstance , "UninstallHook");
if ( pFunc != NULL )
{

(*pFunc)();

}

::FreeLibrary( m_hInstance );
}

全部完工,运行了一下,呵呵,和360软件的效果一样,Spy++再也捕捉不到界面的任何东西了.

10
Aug
0

文本框内容空白时加上提示文字,输入内容时提示文字不显示

需求:
当文本框没有输入内容且输入焦点不在文本框时,显示提示文字:“请输入帐号”

当文本框得到输入焦点时提示文字不显示

实现的思路有两种,

一种是在外部控制,在文本框的OnEnter事件中,将提示文字清除,在OnExit事件中如果文本框的Text为空时给文本框加上提示文字,

而且提示文字的颜色和正常文字的颜色有区别,一般大家使用灰色

另一种是重新制作一个控件,当文本框获取焦点且Text为空时,使用WM_PAINT消息,在其中绘制提示文字

ifNot Focused and (Text='') and (HelpText<>'') then

begin

     //绘制提示文字

end;

加入提示文字和提示文字的字体设置这两个属性

//提示性文字字体颜色

property HelpTextFont:TFont read FHelpTextFont write SetHelpTextFont;

//提示性文字

propertyHelpText:WideString read FHelpText write SetHelpText;

我使用自定义控件的方式来实现,重用性比较高

下面贴出这个控件的全部代码:

unit SkinHintEdit;

interface

uses
Windows,Classes,Controls,SysUtils,Messages,StdCtrls,Forms,
Graphics;

const
//提示文字颜色
CONST_DEF_HELPTEXT_FONTCOLOR=clGray;
CONST_DEF_HELPTEXT_FONTNAME='Tahoma';
CONST_DEF_HELPTEXT_FONTSIZE=9;
CONST_DEF_HELPTEXT_FONTSTYLE=[];

type
TSkinHintEdit=class(TCustomEdit)
private

FHelpText: WideString;
FHelpTextFont: TFont;
procedure SetHelpText(const Value: WideString);
procedure SetHelpTextFont(const Value: TFont);

protected

procedure WMPaint(var Message:TMessage);message WM_PAINT;

public

constructor Create(AOwner:TComponent);override;
destructor Destroy;override;

published

///////////////自定义扩展属性/////////////////
//指导性文字字体颜色
property HelpTextFont:TFont read FHelpTextFont write SetHelpTextFont;
//指导性文字
property HelpText:WideString read FHelpText write SetHelpText;
///////////////默认文本框自带属性////////////
property Align;
property Alignment;
property Anchors;
property AutoSelect;
property AutoSize;
property BevelEdges;
property BevelInner;
property BevelKind default bkNone;
property BevelOuter;
property BevelWidth;
property BiDiMode;
property BorderStyle;
property CharCase;
property Color;
property Constraints;
property Ctl3D;
property DoubleBuffered;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property ImeMode;
property ImeName;
property MaxLength;
property NumbersOnly;
property OEMConvert;
property ParentBiDiMode;
property ParentColor;
property ParentCtl3D;
property ParentDoubleBuffered;
property ParentFont;
property ParentShowHint;
property PasswordChar;
property PopupMenu;
property ReadOnly;
property ShowHint;
property TabOrder;
property TabStop;
property Text;
property TextHint;
property Touch;
property Visible;
property OnChange;
property OnClick;
property OnContextPopup;
property OnDblClick;
property OnDragDrop;
property OnDragOver;
property OnEndDock;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGesture;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnMouseActivate;
property OnMouseDown;
property OnMouseEnter;
property OnMouseLeave;
property OnMouseMove;
property OnMouseUp;
property OnStartDock;
property OnStartDrag;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('SkinEngine',[TSkinHintEdit]);
end;

{ TSkinHintEdit }

constructor TSkinHintEdit.Create(AOwner: TComponent);
begin
FHelpText:='';
//提示文字颜色
FHelpTextFont:=TFont.Create;
FHelpTextFont.Color:=CONST_DEF_HELPTEXT_FONTCOLOR;
FHelpTextFont.Name:=CONST_DEF_HELPTEXT_FONTNAME;
FHelpTextFont.Size:=CONST_DEF_HELPTEXT_FONTSIZE;
FHelpTextFont.Style:=CONST_DEF_HELPTEXT_FONTSTYLE;
inherited Create(AOwner);
end;

destructor TSkinHintEdit.Destroy;
begin
FreeAndNil(FHelpTextFont);
inherited;
end;

procedure TSkinHintEdit.SetHelpText(const Value: WideString);
begin
FHelpText := Value;
end;

procedure TSkinHintEdit.SetHelpTextFont(const Value: TFont);
begin
FHelpTextFont.Assign(Value);
Invalidate;
end;

procedure TSkinHintEdit.WMPaint(var Message: TMessage);
var
ClientDC:HDC;
ClientCanvas:TCanvas;
HelpTextDrawLeft,
HelpTextDrawTop:Integer;
begin
Inherited;
if Not Focused and (Text='') and (HelpText<>'') then
begin

ClientDC:=GetDC(Handle);
Try
  ClientCanvas:=TCanvas.Create;
  ClientCanvas.Handle:=ClientDC;
  ClientCanvas.Font.Assign(FHelpTextFont);
  HelpTextDrawLeft:=0;
  HelpTextDrawTop:=(Height-ClientCanvas.TextHeight(FHelpText) ) div 2-2;
  ClientCanvas.TextOut(HelpTextDrawLeft,HelpTextDrawTop,FHelpText);
Finally
  ReleaseDC(Handle,ClientDC);
  ClientCanvas.Free;
End;

end;
end;

end.