Delphi7简单DirectUI界面源码

我平常用VC++多,不熟悉Delphi,应朋友请求,写了这么个简单的界面源码,发上来大家分享.
第一次用Delphi写这样的东西,源码比较烂,抱歉.
喜欢交流软件界面的朋友,欢迎加入QQ群:软件UI技术研究群号2423632
想了解VC++版DirectUI界面实现的朋友可参考:
VC++仿QQ浏览器源码(雏形)
界面效果
源码下载:
Delphi7	http://download.csdn.net/detail/cometnet/5687875
Delphi2009	http://download.csdn.net/detail/wy371tt1/5913937
unit CometSkin;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellApi, AxCtrls, ActiveX, GDIPUTIL, GDIPAPI, GDIPOBJ;constSCM_NULL = 0;SCM_MINIMIZE = -1; {标题栏_最小化按钮}SCM_MAXIMIZE = -2; {标题栏_最大化按钮}SCM_RESTORE = -3; {标题栏_还原按钮}SCM_CLOSE = -4; {标题栏_关闭按钮}SCM_MAINMENU = -5; {标题栏_主菜单按钮}//未公开消息WM_NCUAHDRAWCAPTION = $00AE;WM_NCUAHDRAWFRAME = $00AF;//自定义消息WM_SkinControl_Click = WM_APP + 100; {控件被点击}WM_SkinControl_SYSClick = WM_APP + 101; {控件被点击}
typeSkinControlType = (SCT_NULL, SCT_SYSBUTTON, SCT_MODULEBUTTON);PSkinControl = ^TSkinControl;TSkinControl = packed recordSCType: SkinControlType;CtlID: Integer;x, y, Width, Height: Integer;Rect: TRect;Caption: string;WCaption: WideString;wstrLength: Integer;Image: TGPImage;bImage: Boolean;bHover, bPressed, bDisable, bCheck: Boolean;end;SkinControlArray = array of TSkinControl;TSkinForm = class(TForm)public//设置窗口背景颜色procedure SetBkColor(bkColor: Tcolor; bReDraw: Boolean = True);overload;procedure SetBkColor(r, g, b: Byte; bReDraw: Boolean = True); overload;//设置窗口背景图片procedure SetBkImage(ResName, ResType: string; NineX, NineY, NineWidth,NineHeight: Integer);//重绘整个窗口procedure ReDrawWindow();//添加模块按钮 (控件ID,按钮标题,资源图片名称,资源类型)procedure AddModuleButton(CtlID: Integer; Caption, ResName, ResType:string);//选中某个模块procedure SetModuleCheck(CtlID: Integer);private{ Private declarations }procedure WMCreate(var Message: TWMCreate); message WM_CREATE;procedure WMNCCalcSize(var Message: TWMNCCalcSize); messageWM_NCCALCSIZE;procedure WMMouseMove(var Message: TWMMouse); message WM_MOUSEMOVE;procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;procedure WMLButtonDown(var Message: TWMMouse); message WM_LBUTTONDOWN;procedure WMLButtonUp(var Message: TWMMouse); message WM_LBUTTONUP;procedure WMControlClick(var msg: TMessage); messageWM_SkinControl_SYSClick;procedure WMPaint(var Message: TWMPaint); message WM_PAINT;procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT;procedure WMNCActivate(var Message: TWMNCActivate); messageWM_NCACTIVATE;procedure WMNCUAHDrawCaption(var msg: TMessage); messageWM_NCUAHDRAWCAPTION;procedure WMNCUAHDrawFrame(var msg: TMessage); messageWM_NCUAHDRAWFRAME;procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); messageWM_ERASEBKGND;{procedure WMCtlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;procedure WMCtlColorBtn(var Message: TWMCtlColorBtn); messageWM_CTLCOLORBTN;procedure WMCtlColorDlg(var Message: TWMCtlColorDlg); messageWM_CTLCOLORDLG;procedure WMCtlColorEdit(var Message: TWMCtlColorEdit); messageWM_CTLCOLOREDIT;procedure WMCtlColorListbox(var Message: TWMCtlColorListbox); messageWM_CTLCOLORLISTBOX;procedure WMCtlColorMsgbox(var Message: TWMCtlColorMsgbox); messageWM_CTLCOLORMSGBOX;procedure WMCtlColorScrollbar(var Message: TWMCtlColorScrollbar); messageWM_CTLCOLORSCROLLBAR;procedure WMCtlColorStatic(var Message: TWMCtlColorStatic); messageWM_CTLCOLORSTATIC;  }procedure WMSize(var Message: TWMSize); message WM_SIZE;procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo); messageWM_GETMINMAXINFO;procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;function CopySkin(hWndDC: HDC): Boolean;function DrawWindow(): Boolean;function DrawBackground(): Boolean;function DrawControls(): Boolean;function DrawControl(const graphics: TGPGraphics; nIndex: Integer):Boolean;procedure DrawControlEx(nIndex: Integer);function DrawControl_SysBtn(const graphics: TGPGraphics; const Control:TSkinControl): Boolean;function DrawControl_Module(const graphics: TGPGraphics; const Control:TSkinControl): Boolean;function CreateControl(SCType: SkinControlType; x, y, Width, Height:Integer; CtlID: Integer = 0): Integer;procedure MoveControl(nIndex, x, y: Integer; Width: Integer = -1;Height: Integer = -1);procedure SetControlImage(nIndex: Integer; ResName, ResType: string);procedure SetControlText(nIndex: Integer; strText: string);function GetSysButton(CtlID: Integer): Integer;procedure SetHoverControl(nIndex: Integer = -1);procedure SetPressedControl(nIndex: Integer = -1);function GetHoverIndex(pt: TPoint): Integer;procedure DisableSysTheme();procedure DrawNineRect(const graphics: TGPGraphics); overload;procedure DrawNineRect(const graphics: TGPGraphics; const image:TGPImage; DestRect, SrcRect, NineRect: TRect); overload;procedure DrawNineRect(const graphics: TGPGraphics; const image:TGPImage; x, y, w, h, srcx, srcy, srcw, srch: Integer); overload;function CreateRoundPath(x, y, w, h, cornerRadius: Single):TGPGraphicsPath;protected{私有成员变量}m_hWnd: HWND;m_hCacheDC, m_hBackDC: HDC;m_hCacheBitmap, m_hOldCacheBitmap: HBITMAP;m_hBackBitmap, m_hOldBackBitmap: HBITMAP;m_nWidth, m_nHeight: integer;m_bkColor, m_BorderColor1, m_BorderColor2: TGPColor;m_bkImage: TGPImage;m_bkNineRect: TGPRect;m_bkIsImage: Boolean;m_hIcon: HICON;m_hFont, m_hBoldFont: HFONT;m_bIsZoomed: Boolean;m_ControlArray: SkinControlArray;m_ControlCount: Integer;m_ControlSysCount: Integer;m_HoverIndex, m_PressedIndex: Integer;m_bTracking: Boolean;m_ModuleLeft: Integer;m_ModuleFont: TGPFont;m_ModuleFormat: TGPStringFormat;m_ModuleBrush: TGPSolidBrush;procedure CreateParams(var Params: TCreateParams); override;public{ Public declarations }end;implementationprocedure TSkinForm.CreateParams(var Params: TCreateParams);
begininherited;Params.Style := Params.Style or WS_CLIPCHILDREN or WS_CLIPSIBLINGS;//params.Style := params.Style and (not WS_CAPTION);params.ExStyle := params.ExStyle and (not WS_EX_DLGMODALFRAME);params.ExStyle := params.ExStyle and (not WS_EX_WINDOWEDGE);params.ExStyle := params.ExStyle and (not WS_EX_CLIENTEDGE);Params.WindowClass.Style := CS_VREDRAW or CS_HREDRAW or CS_OWNDC;//Params.WinClassName := 'CometSkinForm';end;procedure TSkinForm.WMCreate(var Message: TWMCreate);
varbuf: array[0..MAX_PATH] of Char;FileInfo: SHFILEINFO;lf: TLogFontA;plf: PLogFontA;dc: HDC;
beginm_hWnd := Handle;m_bkColor := MakeColor(50, 150, 190);m_bkIsImage := False;m_BorderColor1 := MakeColor(150, 0, 0, 0);m_BorderColor2 := MakeColor(150, 255, 255, 255);m_hFont := GetStockObject(DEFAULT_GUI_FONT);GetObject(m_hFont, SizeOf(lf), @lf);lf.lfWeight := FW_BOLD;m_hBoldFont := CreateFontIndirect(lf);m_hIcon := SendMessage(m_hWnd, WM_GETICON, ICON_SMALL, 0);if m_hIcon = 0 thenbeginGetModuleFileName(0, buf, Length(buf));SHGetFileInfo(buf, 0, FileInfo, SizeOf(FileInfo), SHGFI_SMALLICON orSHGFI_ICON);m_hIcon := FileInfo.hIcon;end;//-----------------------dc := GetDC(0);plf := @lf;m_ModuleFont := TGPFont.Create(dc, plf);ReleaseDC(0, dc);m_ModuleFormat := TGPStringFormat.Create();m_ModuleFormat.SetAlignment(StringAlignmentCenter);m_ModuleFormat.SetLineAlignment(StringAlignmentCenter);m_ModuleBrush := TGPSolidBrush.Create(MakeColor(255, 255, 255));//-----------------------m_bTracking := False;m_HoverIndex := -1;m_PressedIndex := -1;m_ControlCount := 0;m_ModuleLeft := 7;CreateControl(SCT_SYSBUTTON, 300, 5, 30, 19, SCM_MAINMENU);CreateControl(SCT_SYSBUTTON, 300, 5, 30, 19, SCM_MINIMIZE);CreateControl(SCT_SYSBUTTON, 350, 5, 30, 19, SCM_MAXIMIZE);CreateControl(SCT_SYSBUTTON, 400, 5, 39, 19, SCM_CLOSE);m_ControlSysCount := m_ControlCount;//-----------------------inherited;DisableSysTheme();SetWindowPos(m_hWnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED or SWP_NOOWNERZORDER orSWP_NOMOVE or SWP_NOSIZE);
end;procedure TSkinForm.WMNCCalcSize(var Message: TWMNCCalcSize);
begin//inherited;//修改非客户区(标题栏、窗口边框)尺寸if Message.CalcValidRects thenbeginMessage.CalcSize_Params^.rgrc[2] := Message.CalcSize_Params^.rgrc[1];Message.CalcSize_Params^.rgrc[1] := Message.CalcSize_Params^.rgrc[0];endelsebeginend;Message.Result := 1;
end;procedure TSkinForm.WMSize(var Message: TWMSize);
beginif m_hCacheDC <> 0 thenbeginSelectObject(m_hCacheDC, m_hOldCacheBitmap);SelectObject(m_hBackDC, m_hOldBackBitmap);DeleteDC(m_hCacheDC);DeleteDC(m_hBackDC);DeleteObject(m_hCacheBitmap);DeleteObject(m_hBackBitmap);m_hCacheDC := 0;m_hBackDC := 0;m_hCacheBitmap := 0;m_hBackBitmap := 0;end;inherited;
end;procedure TSkinForm.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
varMyScreen: TScreen;Monitor: TMonitor;rc: TRect;
beginif IsZoomed(m_hWnd) thenbeginMyScreen := TScreen.Create(nil);Monitor := MyScreen.MonitorFromWindow(m_hWnd);rc := Monitor.WorkareaRect;msg.MinMaxInfo.ptMaxPosition.X := rc.Left;msg.MinMaxInfo.ptMaxPosition.Y := rc.Top;msg.MinMaxInfo.ptMaxSize.X := rc.right - rc.left;msg.MinMaxInfo.ptMaxSize.Y := rc.bottom - rc.top;//SetWindowPos(m_hWnd,0,rc.Left,rc.Top,rc.right-rc.left,rc.bottom-rc.top,SWP_NOZORDER);msg.Result := 0;inherited;endelsebegininherited;end;
end;procedure TSkinForm.WMActivate(var Message: TWMActivate);
varrc: TRect;w, h: integer;
beginWindows.GetClientRect(m_hWnd, rc);inherited;w := rc.Right - rc.Left;h := rc.Bottom - rc.Top;//SetWindowPos(m_hWnd,0,0,0,w+1,h+1,SWP_FRAMECHANGED or SWP_NOREDRAW Or SWP_NOOWNERZORDER Or SWP_NOMOVE);//SetWindowPos(m_hWnd,0,0,0,w,h,SWP_FRAMECHANGED or SWP_DRAWFRAME Or SWP_NOOWNERZORDER Or SWP_NOMOVE);//InvalidateRect(m_hWnd, nil, False);
end;procedure TSkinForm.WMMouseMove(var Message: TWMMouse);
vare: TTrackMouseEvent;nIndex: Integer;pt: TPoint;
begininherited;if m_bTracking = False thenbeginm_bTracking := True;E.cbSize := SIZEof(TTrackMouseEvent);E.dwFlags := TME_LEAVE;E.dwHoverTime := 10;E.hwndTrack := m_hWnd;trackmouseevent(e);end;pt.x := Message.XPos;pt.y := Message.YPos;nIndex := GetHoverIndex(pt);SetHoverControl(nIndex);
end;procedure TSkinForm.CMMouseLeave(var Message: TMessage);
begininherited;m_bTracking := False;SetPressedControl(-1);SetHoverControl(-1);
end;procedure TSkinForm.WMLButtonDown(var Message: TWMMouse);
varnIndex: Integer;pt: TPoint;
begininherited;pt.x := Message.XPos;pt.y := Message.YPos;nIndex := GetHoverIndex(pt);SetPressedControl(nIndex);if nIndex = -1 thenbeginReleaseCapture();PostMessage(m_hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0);end;end;procedure TSkinForm.WMLButtonUp(var Message: TWMMouse);
varnIndex, nOldIndex: Integer;pt: TPoint;Control: TSkinControl;
begininherited;pt.x := Message.XPos;pt.y := Message.YPos;nIndex := GetHoverIndex(pt);nOldIndex := m_PressedIndex;SetPressedControl(-1);if (nIndex >= 0) and (nIndex < m_ControlCount) thenbeginReleaseCapture();Application.ProcessMessages;Control := m_ControlArray[nIndex];Windows.PostMessage(m_hWnd, WM_SkinControl_SYSClick, Control.CtlID,nIndex);end;
end;procedure TSkinForm.WMControlClick(var msg: TMessage);
varnIndex: Integer;CtlID: Integer;Control: TSkinControl;bMsg: Boolean;
beginnIndex := msg.LParam;CtlID := msg.WParam;bMsg := False;if (nIndex >= 0) and (nIndex < m_ControlCount) thenbeginControl := m_ControlArray[nIndex];if Control.SCType = SCT_SYSBUTTON thenbeginif (CtlID = SCM_MAXIMIZE) and IsZoomed(m_hWnd) thenbeginCtlID := SCM_RESTORE;end;case CtlID ofSCM_MINIMIZE:PostMessage(m_hWnd, WM_SYSCOMMAND, SC_MINIMIZE, 0);SCM_MAXIMIZE:PostMessage(m_hWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0);SCM_RESTORE:PostMessage(m_hWnd, WM_SYSCOMMAND, SC_RESTORE, 0);SCM_CLOSE:PostMessage(m_hWnd, WM_SYSCOMMAND, SC_CLOSE, 0);SCM_MAINMENU:bMsg := True;end;endelsebeginbMsg := True;end;if bMsg thenbeginWindows.PostMessage(m_hWnd, WM_SkinControl_Click, CtlID, nIndex);end;end;
end;procedure TSkinForm.WMPaint(var Message: TWMPaint);
varps: PAINTSTRUCT;dc: HDC;
begindc := BeginPaint(handle, ps);CopySkin(dc);EndPaint(handle, ps);Message.Result := 0;
end;procedure TSkinForm.WMEraseBkgnd(var Message: TWMEraseBkgnd);
beginCopySkin(Message.DC);Message.Result := 1;
end;procedure TSkinForm.WMNCPaint(var Message: TWMNCPaint);
vardc: HDC;
begindc := GetWindowDC(m_hWnd);//CopySkin(dc);ReleaseDC(m_hWnd, dc);Message.Result := 0;
end;procedure TSkinForm.WMNCActivate(var Message: TWMNCActivate);
begin//在这里不能调用默认的处理因为当窗口是非激活状态时会画出默认的Title//inherited;Message.Result := 1;
end;procedure TSkinForm.WMNCUAHDrawCaption(var msg: TMessage);
begin//这两条消息是在xp sp2后加的.xp在以前有个bug在某些时候Titlebar会画错.//在这里不能调用默认处理，直接自绘nc区.;
end;procedure TSkinForm.WMNCUAHDrawFrame(var msg: TMessage);
begin//这两条消息是在xp sp2后加的.xp在以前有个bug在某些时候Titlebar会画错.//在这里不能调用默认处理，直接自绘nc区.;
end;
{
procedure TSkinForm.WMCtlColor(var Message: TWMCtlColor);
begininherited;
end;procedure TSkinForm.WMCtlColorBtn(var Message: TWMCtlColorBtn);
begininherited;
end;procedure TSkinForm.WMCtlColorDlg(var Message: TWMCtlColorDlg);
begininherited;
end;procedure TSkinForm.WMCtlColorEdit(var Message: TWMCtlColorEdit);
begininherited;
end;procedure TSkinForm.WMCtlColorListbox(var Message: TWMCtlColorListbox);
begininherited;
end;procedure TSkinForm.WMCtlColorMsgbox(var Message: TWMCtlColorMsgbox);
begininherited;
end;procedure TSkinForm.WMCtlColorScrollbar(var Message: TWMCtlColorScrollbar);
begininherited;
end;procedure TSkinForm.WMCtlColorStatic(var Message: TWMCtlColorStatic);
varpt: TPoint;rtControl: TRect;
beginif m_hBackDC <> 0 thenbegininherited;//pt.X:=0;//pt.Y:=0;//MapWindowPoints(Message.ChildWnd,m_hWnd,pt,1);//Windows.GetClientRect(Message.ChildWnd,rtControl);//BitBlt(Message.ChildDC, 0, 0,rtControl.Right-rtControl.Left, rtControl.Bottom-rtControl.Top, m_hCacheDC,pt.X, pt.Y, SRCCOPY);//SetTextColor(Message.ChildDC,$FFFFFF) ;//Message.Result:=GetStockObject(NULL_BRUSH);endelsebegininherited;end;end;}function TSkinForm.CopySkin(hWndDC: HDC): Boolean;
beginif m_hCacheDC = 0 thenbeginDrawWindow();end;BitBlt(hWndDC, 0, 0, m_nWidth, m_nHeight, m_hCacheDC, 0, 0, SRCCOPY);
end;function TSkinForm.DrawWindow(): Boolean;
varhSrcDC: HDC;rc: TRect;nWidth, nHeight: integer;Rgn: HRGN;
beginm_bIsZoomed := Windows.IsZoomed(m_hWnd);Windows.GetClientRect(m_hWnd, rc);nWidth := rc.Right - rc.Left;nHeight := rc.Bottom - rc.Top;m_nWidth := nWidth;m_nHeight := nHeight;hSrcDC := GetDC(m_hWnd);m_hCacheDC := CreateCompatibleDC(hSrcDC);m_hBackDC := CreateCompatibleDC(hSrcDC);m_hCacheBitmap := CreateCompatibleBitmap(hSrcDC, nWidth, nHeight);m_hBackBitmap := CreateCompatibleBitmap(hSrcDC, nWidth, nHeight);m_hOldCacheBitmap := SelectObject(m_hCacheDC, m_hCacheBitmap);m_hOldBackBitmap := SelectObject(m_hBackDC, m_hBackBitmap);//--------------------------------------------SetBkMode(m_hCacheDC, TRANSPARENT);SetBkMode(m_hBackDC, TRANSPARENT);//--------------------------------------------ReleaseDC(m_hWnd, hSrcDC);DrawBackground();DrawControls();//--------------------------------------------if m_bIsZoomed thenbeginRgn := CreateRectRgn(0, 0, m_nWidth, m_nHeight);endelsebeginRgn := CreateRoundRectRgn(0, 0, m_nWidth + 1, m_nHeight + 1, 4, 4);end;SetWindowRgn(m_hWnd, Rgn, False);DeleteObject(Rgn);result := True;
end;function TSkinForm.DrawBackground(): Boolean;
varg: TGPGraphics;b: TGPSolidBrush;Pen1, Pen2: TGPPen;path1, path2: TGPGraphicsPath;x, y, w, h, cornerRadius, len: Integer;buf: array[0..MAX_PATH] of Char;hOldFont: HFONT;rc: TRect;rcF, SrcF: TGPRectF;w1, w2, w3: Single;
begin//----------------g := TGPGraphics.Create(m_hBackDC);b := TGPSolidBrush.Create(m_bkColor);g.FillRectangle(b, 0, 0, m_nWidth, m_nHeight);b.Free;//----------------if m_bkIsImage thenbeginw := m_bkImage.GetWidth();h := m_bkImage.GetHeight();endelsebeginw := 0;h := 0;end;if (w > 0) and (h > 0) thenbeginif (m_nWidth <= w) and (m_nHeight <= h) thenbeginrcF := MakeRect(0.0, 0.0, m_nWidth, m_nHeight);SrcF := MakeRect(w - m_nWidth, 0.0, m_nWidth, m_nHeight);g.DrawImage(m_bkImage, rcF, SrcF.X, SrcF.Y, SrcF.Width, SrcF.Height,UnitPixel);endelse if (m_bkNineRect.Width > 0) and (m_bkNineRect.Height > 0) thenbegin//按九宫图绘制DrawNineRect(g);end;end;//----------------Pen1 := TGPPen.Create(m_BorderColor1);Pen2 := TGPPen.Create(m_BorderColor2);if m_bIsZoomed thenbeging.DrawRectangle(Pen1, 0, 0, m_nWidth - 1, m_nHeight - 1);g.DrawRectangle(Pen2, 1, 1, m_nWidth - 3, m_nHeight - 3);endelsebeginx := 0;Y := 0;w := m_nWidth - 1;h := m_nHeight - 1;cornerRadius := 3;path1 := TGPGraphicsPath.Create();path1.AddArc(x, y, cornerRadius * 2, cornerRadius * 2, 180, 90); //左上path1.AddArc(x + w - cornerRadius * 2, y, cornerRadius * 2, cornerRadius* 2, 270, 90); //右上path1.AddArc(x + w - cornerRadius * 2, y + h - cornerRadius * 2,cornerRadius * 2, cornerRadius * 2, 0, 90); //右下path1.AddArc(x, y + h - cornerRadius * 2, cornerRadius * 2, cornerRadius* 2, 90, 90); //左下path1.CloseFigure();g.DrawPath(Pen1, path1);path1.Free;x := 1;Y := 1;w := m_nWidth - 3;h := m_nHeight - 3;cornerRadius := 3;path2 := TGPGraphicsPath.Create();path2.AddArc(x, y, cornerRadius * 2, cornerRadius * 2, 180, 90); //左上path2.AddArc(x + w - cornerRadius * 2, y, cornerRadius * 2, cornerRadius* 2, 270, 90); //右上path2.AddArc(x + w - cornerRadius * 2, y + h - cornerRadius * 2,cornerRadius * 2, cornerRadius * 2, 0, 90); //右下path2.AddArc(x, y + h - cornerRadius * 2, cornerRadius * 2, cornerRadius* 2, 90, 90); //左下path2.CloseFigure();g.DrawPath(Pen2, path2);path2.Free;end;Pen1.Free;Pen2.Free;//----------------//绘制图标x := 5;y := 5;w := 16;h := 16;if m_hIcon <> 0 thenbeginDrawIconEx(m_hBackDC, x, y, m_hIcon, w, h, 0, 0, DI_NORMAL);x := x + 20;end;//----------------//绘制标题rc.Left := x;rc.Top := y;rc.Right := m_nWidth - 100;rc.Bottom := y + h;GetWindowText(m_hWnd, buf, MAX_PATH);hOldFont := SelectObject(m_hBackDC, m_hBoldFont);SetTextColor(m_hBackDC, $333333);DrawText(m_hBackDC, buf, -1, rc, DT_SINGLELINE or DT_VCENTER);OffsetRect(rc, -1, -1);SetTextColor(m_hBackDC, $FFFFFF);DrawText(m_hBackDC, buf, -1, rc, DT_SINGLELINE or DT_VCENTER);SelectObject(m_hBackDC, hOldFont);//----------------g.Free;result := True;
end;function TSkinForm.DrawControls(): Boolean;
vari, x, y, nIndex: Integer;g: TGPGraphics;
beginBitBlt(m_hCacheDC, 0, 0, m_nWidth, m_nHeight, m_hBackDC, 0, 0, SRCCOPY);g := TGPGraphics.Create(m_hCacheDC);//g.SetSmoothingMode(SmoothingModeAntiAlias);g.SetInterpolationMode(InterpolationModeHighQualityBicubic);//----------------x := m_nWidth - 2;y := 2;nIndex := GetSysButton(SCM_CLOSE);if nIndex > -1 thenbeginx := x - m_ControlArray[nIndex].Width;MoveControl(nIndex, x, y);end;nIndex := GetSysButton(SCM_MAXIMIZE);if nIndex > -1 thenbeginx := x - m_ControlArray[nIndex].Width;MoveControl(nIndex, x, y);end;nIndex := GetSysButton(SCM_MINIMIZE);if nIndex > -1 thenbeginx := x - m_ControlArray[nIndex].Width;MoveControl(nIndex, x, y);end;nIndex := GetSysButton(SCM_MAINMENU);if nIndex > -1 thenbeginx := x - m_ControlArray[nIndex].Width;MoveControl(nIndex, x, y);end;//----------------for i := 0 to m_ControlCount - 1 dobeginDrawControl(g, i);end;//----------------g.Free;result := True;
end;function TSkinForm.DrawControl(const graphics: TGPGraphics; nIndex: Integer):Boolean;
varControl: TSkinControl;
beginControl := m_ControlArray[nIndex];case Control.SCType ofSCT_SYSBUTTON:DrawControl_SysBtn(graphics, Control);SCT_MODULEBUTTON:DrawControl_Module(graphics, Control);end;result := True;
end;
//画出顶部模块按钮function TSkinForm.DrawControl_Module(const graphics: TGPGraphics; constControl: TSkinControl): Boolean;
varx, y, w, h: Single;cornerRadius: Integer;rc: TGPRectF;c1, c2, c3, c4: TGPColor;Pen1, Pen2, Pen3: TGPPen;Brush: TGPSolidBrush;path1, path2, path3: TGPGraphicsPath;SmoothingMode: TSmoothingMode;
begin//画出背景 ========================if Control.bCheck or Control.bPressed or Control.bHover thenbeginif Control.bCheck or Control.bPressed = True thenbeginc1 := MakeColor(20, 0, 0, 0);c2 := MakeColor(60, 0, 0, 0);c3 := MakeColor(120, 255, 255, 255);c4 := MakeColor(70, 255, 255, 255);endelsebeginc1 := MakeColor(15, 0, 0, 0);c2 := MakeColor(40, 0, 0, 0);c3 := MakeColor(90, 255, 255, 255);c4 := MakeColor(50, 255, 255, 255);end;Pen1 := TGPPen.Create(c1);Pen2 := TGPPen.Create(c2);Pen3 := TGPPen.Create(c3);Brush := TGPSolidBrush.Create(c4);x := Control.x;y := Control.y;w := Control.Width - 2;h := Control.Height - 2;path1 := CreateRoundPath(x, y, w, h, 5);path2 := CreateRoundPath(x + 1, y + 1, w - 2, h - 2, 5);path3 := CreateRoundPath(x + 2, y + 2, w - 4, h - 4, 5);SmoothingMode := graphics.GetSmoothingMode();graphics.SetSmoothingMode(SmoothingModeAntiAlias);graphics.DrawPath(Pen1, path1);graphics.DrawPath(Pen2, path2);graphics.FillPath(Brush, path3);graphics.DrawPath(Pen3, path3);graphics.SetSmoothingMode(SmoothingMode);Pen1.Free;Pen2.Free;Pen3.Free;Brush.Free;path1.Free;path2.Free;path3.Free;end;//画出图标 ========================if Control.bImage thenbeginw := Control.Image.GetWidth();h := Control.Image.GetHeight();rc.Width := w;rc.Height := h;if rc.Width > 48 thenrc.Width := 48;if rc.Height > 48 thenrc.Height := 48;rc.X := Control.x + (Control.Width - rc.Width) / 2;rc.y := Control.y + (Control.Height - rc.Height - 20) / 2;graphics.DrawImage(Control.Image, rc, 0, 0, w, h, UnitPixel);end;//画出文字 ========================if Control.wstrLength > 0 thenbeginBrush := TGPSolidBrush.Create(MakeColor(60, 0, 0, 0));rc := MakeRect(Control.x + 1, Control.y + 1 + Control.Height - 20,Control.Width - 1, 18.0);graphics.DrawString(Control.WCaption, -1, m_ModuleFont, rc,m_ModuleFormat, Brush);rc.x := rc.x - 1;rc.y := rc.y - 1;graphics.DrawString(Control.WCaption, -1, m_ModuleFont, rc,m_ModuleFormat, m_ModuleBrush);Brush.Free;end;//--------------------------result := True;
end;
//画出系统按钮(最小化、最大化...)function TSkinForm.DrawControl_SysBtn(const graphics: TGPGraphics; constControl: TSkinControl): Boolean;
varpath1, IconPath, IconPath2: TGPGraphicsPath;IconBrush: TGPSolidBrush;IconPen: TGPPen;LineBrush1, LineBrush2: TGPLinearGradientBrush;x, y, w, h: Single;i, CtlID: Integer;rc: TGPRectF;c1, c2: TGPColor;
beginCtlID := Control.CtlID;if (CtlID = SCM_MAXIMIZE) and m_bIsZoomed thenbeginCtlID := SCM_RESTORE;end;//画出背景 ========================if Control.bPressed or Control.bHover thenbeginx := Control.x + 1;y := Control.y;w := Control.Width - 1;h := Control.Height;if Control.CtlID = SCM_CLOSE thenbeginif Control.bPressed = True thenbeginc1 := MakeColor(180, 128, 0, 0);c2 := MakeColor(0, 0, 0, 0);endelsebeginc1 := MakeColor(180, 255, 0, 0);c2 := MakeColor(0, 0, 0, 0);end;endelsebeginw := w - 2;if Control.bPressed = True thenbeginc1 := MakeColor(90, 0, 0, 0);c2 := MakeColor(0, 0, 0, 0);endelsebeginc1 := MakeColor(60, 255, 255, 255);c2 := MakeColor(0, 255, 255, 255);end;end;rc := MakeRect(x, y, 1, h);LineBrush1 := TGPLinearGradientBrush.Create(rc, c1, c2,LinearGradientModeVertical);rc := MakeRect(x, y, w, h);graphics.FillRectangle(LineBrush1, rc);rc.X := rc.X - 1;LineBrush2 := TGPLinearGradientBrush.Create(rc, c1, c2,LinearGradientModeVertical);graphics.FillRectangle(LineBrush2, rc);LineBrush1.Free();LineBrush2.Free();end;//画出图标 ========================w := 11;h := 9;x := Control.x + ((Control.Width - w) / 2) - 1;y := Control.y + ((Control.Height - h) / 2) - 1;IconPath := TGPGraphicsPath.Create();IconPath.SetFillMode(FillModeWinding);case CtlID ofSCM_MINIMIZE:beginrc.x := integer(Trunc(x));rc.Y := integer(Trunc(y)) + integer(Trunc(h)) - 2;rc.Width := integer(Trunc(w));rc.Height := 2;IconPath.AddRectangle(rc);end;SCM_MAXIMIZE:beginh := 8;y := y + 1;rc.x := integer(Trunc(x));rc.Y := integer(Trunc(y));rc.Width := integer(Trunc(w));rc.Height := 2;IconPath.AddRectangle(rc);rc.Y := integer(Trunc(y)) + integer(Trunc(h)) - 1;rc.Height := 1;IconPath.AddRectangle(rc);rc.Y := integer(Trunc(y));rc.Width := 1;rc.Height := integer(Trunc(h));IconPath.AddRectangle(rc);rc.x := integer(Trunc(x)) + integer(Trunc(w)) - 1;IconPath.AddRectangle(rc);end;SCM_RESTORE:beginw := 12;h := 8;y := y + 1;x := x - 1;rc := MakeRect(x + 2, y + 0.0, 10, 1);IconPath.AddRectangle(rc);rc := MakeRect(x + 2, y + 0.0, 1, 2);IconPath.AddRectangle(rc);rc := MakeRect(x + 11, y + 0.0, 1, 6);IconPath.AddRectangle(rc);rc := MakeRect(x + 9, y + 6, 3, 1);IconPath.AddRectangle(rc);rc := MakeRect(x, y + 2, 10, 2);IconPath.AddRectangle(rc);rc := MakeRect(x, y + 2, 1, 6);IconPath.AddRectangle(rc);rc := MakeRect(x + 9, y + 2, 1, 6);IconPath.AddRectangle(rc);rc := MakeRect(x, y + 7, 10, 1);IconPath.AddRectangle(rc);end;SCM_CLOSE:beginfor i := 0 to 8 dobeginrc.x := integer(Trunc(x)) + i;rc.Y := integer(Trunc(y)) + i;rc.Width := 3;rc.Height := 1;IconPath.AddRectangle(rc);rc.x := integer(Trunc(x)) + integer(Trunc(w)) - i - 3;IconPath.AddRectangle(rc);end;end;SCM_MAINMENU:beginrc.x := integer(Trunc(x));rc.Y := integer(Trunc(y));rc.Width := integer(Trunc(w));rc.Height := 2;IconPath.AddRectangle(rc);rc.Y := integer(Trunc(y)) + integer(Trunc(h)) - 1;rc.Height := 1;IconPath.AddRectangle(rc);rc.Y := integer(Trunc(y));rc.Width := 1;rc.Height := integer(Trunc(h));IconPath.AddRectangle(rc);rc.x := integer(Trunc(x)) + integer(Trunc(w)) - 1;IconPath.AddRectangle(rc);rc.Width := 1;rc.Height := 1;rc.Y := integer(Trunc(y)) + integer(Trunc(h)) - 3;rc.X := integer(Trunc(x)) + ((w - rc.Width) / 2);IconPath.AddRectangle(rc);rc.Width := 3;rc.Y := rc.Y - rc.Height;rc.X := integer(Trunc(x)) + ((w - rc.Width) / 2);IconPath.AddRectangle(rc);rc.Width := 5;rc.Y := rc.Y - rc.Height;rc.X := integer(Trunc(x)) + ((w - rc.Width) / 2);IconPath.AddRectangle(rc);end;end;IconPath.CloseAllFigures();IconPath2 := TGPGraphicsPath.Create(IconPath);IconBrush := TGPSolidBrush.Create(MakeColor(255, 255, 255));IconPen := TGPPen.Create(MakeColor(50, 0, 0, 0));IconPath.Widen(IconPen);graphics.DrawPath(IconPen, IconPath);IconPath.Widen(IconPen);graphics.DrawPath(IconPen, IconPath);graphics.FillPath(IconBrush, IconPath2);IconPath.Free;IconPath2.Free;IconPen.Free;IconBrush.Free;//画出分割线 ========================if Control.CtlID <> SCM_CLOSE thenbeginx := Control.x + Control.Width - 1;y := Control.y;rc := MakeRect(x, y, 1, Control.Height);c1 := MakeColor(120, 255, 255, 255);c2 := MakeColor(0, 255, 255, 255);LineBrush1 := TGPLinearGradientBrush.Create(rc, c1, c2,LinearGradientModeVertical);graphics.FillRectangle(LineBrush1, rc);rc.X := rc.X - 1;c1 := MakeColor(90, 0, 0, 0);c2 := MakeColor(0, 0, 0, 0);LineBrush2 := TGPLinearGradientBrush.Create(rc, c1, c2,LinearGradientModeVertical);graphics.FillRectangle(LineBrush2, rc);LineBrush1.Free();LineBrush2.Free();end;//--------------------------result := True;
end;function TSkinForm.CreateControl(SCType: SkinControlType; x, y, Width, Height:Integer; CtlID: Integer = 0): Integer;
varnIndex: Integer;
beginSetLength(m_ControlArray, m_ControlCount + 1);nIndex := m_ControlCount;m_ControlCount := Length(m_ControlArray);m_ControlArray[nIndex].SCType := SCType;m_ControlArray[nIndex].CtlID := CtlID;m_ControlArray[nIndex].bHover := False;m_ControlArray[nIndex].bPressed := False;m_ControlArray[nIndex].bDisable := False;m_ControlArray[nIndex].bCheck := False;m_ControlArray[nIndex].bImage := False;MoveControl(nIndex, x, y, Width, Height);result := nIndex;
end;procedure TSkinForm.MoveControl(nIndex, x, y: Integer; Width: Integer = -1;Height: Integer = -1);
beginm_ControlArray[nIndex].x := x;m_ControlArray[nIndex].y := y;if Width > -1 thenm_ControlArray[nIndex].Width := Width;if Height > -1 thenm_ControlArray[nIndex].Height := Height;m_ControlArray[nIndex].Rect.Left := x;m_ControlArray[nIndex].Rect.Top := y;m_ControlArray[nIndex].Rect.Right := x + m_ControlArray[nIndex].Width;m_ControlArray[nIndex].Rect.Bottom := y + m_ControlArray[nIndex].Height;
end;function TSkinForm.GetSysButton(CtlID: Integer): Integer;
varnIndex, i: Integer;
beginnIndex := -1;for i := 0 to m_ControlSysCount - 1 dobeginif m_ControlArray[i].CtlID = CtlID thenbeginnIndex := i;break;end;end;result := nIndex;
end;procedure TSkinForm.SetBkColor(bkColor: Tcolor; bReDraw: Boolean = True);
beginm_bkColor := ColorRefToARGB(bkColor);if bReDraw thenReDrawWindow();
end;procedure TSkinForm.SetBkColor(r, g, b: Byte; bReDraw: Boolean = True);
beginm_bkColor := MakeColor(r, g, b);if bReDraw thenReDrawWindow();
end;
//设置窗口背景图片procedure TSkinForm.SetBkImage(ResName, ResType: string; NineX, NineY,NineWidth, NineHeight: Integer);
varhMod: HMODULE;HRes: HRSRC;sResName: string;sResType: string;Len: DWORD;lpRsrc: PByte;m_hMem: HGLOBAL;pMem: PByte;pstm: IStream;beginm_bkNineRect := MakeRect(NineX, NineY, NineWidth, NineHeight);if m_bkIsImage thenbeginm_bkImage.destroy();m_bkImage.Free();m_bkIsImage := False;end;hMod := GetModuleHandle(nil);sResName := ResName;sResType := ResType;HRes := FindResource(HInstance, PChar(sResName), PChar(sResType));if HRes <> 0 thenbeginLen := SizeofResource(HInstance, HRes);lpRsrc := PByte(LoadResource(HInstance, HRes));tryif lpRsrc <> nil thenbeginm_hMem := GlobalAlloc(GMEM_FIXED, Len);pMem := Pbyte(GlobalLock(m_hMem));CopyMemory(pMem, lpRsrc, Len);CreateStreamOnHGlobal(m_hMem, False, pstm);m_bkImage := TGPImage.Create(pstm);m_bkIsImage := True;GlobalUnlock(m_hMem);pstm := nil;FreeResource(Dword(lpRsrc));end;exceptend;end;ReDrawWindow();
end;procedure TSkinForm.ReDrawWindow();
beginif (IsWindowVisible(m_hWnd)) and (IsIconic(m_hWnd) = False) thenbeginDrawWindow();InvalidateRect(m_hWnd, nil, False);end;end;procedure TSkinForm.DrawControlEx(nIndex: Integer);
varControl: TSkinControl;g: TGPGraphics;dc: HDC;
beginif (nIndex >= 0) and (nIndex < m_ControlCount) thenbeginControl := m_ControlArray[nIndex];BitBlt(m_hCacheDC, Control.x, Control.y, Control.Width, Control.Height,m_hBackDC, Control.x, Control.y, SRCCOPY);g := TGPGraphics.Create(m_hCacheDC);g.SetInterpolationMode(InterpolationModeHighQualityBicubic);//--------------DrawControl(g, nIndex);//--------------dc := GetDC(m_hWnd);BitBlt(dc, Control.x, Control.y, Control.Width, Control.Height,m_hCacheDC, Control.x, Control.y, SRCCOPY);ReleaseDC(m_hWnd, dc);end;
end;procedure TSkinForm.SetHoverControl(nIndex: Integer = -1);
varnOldIndex: Integer;
beginif m_HoverIndex <> nIndex thenbeginnOldIndex := m_HoverIndex;m_HoverIndex := nIndex;if (nOldIndex > -1) and (nOldIndex < m_ControlCount) thenbeginm_ControlArray[nOldIndex].bHover := False;DrawControlEx(nOldIndex);end;if (nIndex >= 0) and (nIndex < m_ControlCount) thenbeginm_ControlArray[nIndex].bHover := True;DrawControlEx(nIndex);end;end;
end;procedure TSkinForm.SetPressedControl(nIndex: Integer = -1);
varnOldIndex: Integer;
beginif m_PressedIndex <> nIndex thenbeginnOldIndex := m_PressedIndex;m_PressedIndex := nIndex;if (nOldIndex >= 0) and (nOldIndex < m_ControlCount) thenbeginm_ControlArray[nOldIndex].bPressed := False;DrawControlEx(nOldIndex);end;if (nIndex >= 0) and (nIndex < m_ControlCount) thenbeginm_ControlArray[nIndex].bPressed := True;DrawControlEx(nIndex);end;end;
end;function TSkinForm.GetHoverIndex(pt: TPoint): Integer;
varnIndex, i: Integer;
beginnIndex := -1;for i := 0 to m_ControlCount - 1 dobeginif PtInRect(m_ControlArray[i].Rect, pt) thenbeginnIndex := i;break;end;end;result := nIndex;
end;procedure TSkinForm.DisableSysTheme();
varModule: HMODULE;dwAttr: DWORD;lpSetWindowTheme: function(hWnd: HWND; a, b: Integer): Integer; StdCall;lpDwmSetWindowAttribute: function(hWnd: HWND; dwAttribute: DWORD;pvAttribute: LPDWORD; cbAttribute: DWORD): Integer; StdCall;
begin//防止xp 、vista、win7 用主题绘制窗口nc区//vista、win7厚边框问题解决办法Module := GetModuleHandle('UxTheme.dll');if Module = 0 thenModule := LoadLibrary('UxTheme.dll');if Module <> 0 thenbegin@lpSetWindowTheme := GetProcAddress(Module, 'SetWindowTheme');lpSetWindowTheme(m_hWnd, 0, 0);end;Module := GetModuleHandle('dwmapi.dll');if Module = 0 thenModule := LoadLibrary('dwmapi.dll');if Module <> 0 thenbegindwAttr := 1;@lpDwmSetWindowAttribute := GetProcAddress(Module,'DwmSetWindowAttribute');lpDwmSetWindowAttribute(m_hWnd, 2, @dwAttr, 4);end;
end;procedure TSkinForm.DrawNineRect(const graphics: TGPGraphics);
varDestRect, SrcRect, NineRect: TRect;
beginDestRect.Left := 0;DestRect.Top := 0;DestRect.Right := m_nWidth;DestRect.Bottom := m_nHeight;SrcRect.Left := 0;SrcRect.Top := 0;SrcRect.Right := m_bkImage.GetWidth();SrcRect.Bottom := m_bkImage.GetHeight();NineRect.Left := m_bkNineRect.X;NineRect.Top := m_bkNineRect.Y;NineRect.Right := m_bkNineRect.X + m_bkNineRect.Width;NineRect.Bottom := m_bkNineRect.y + m_bkNineRect.Height;DrawNineRect(graphics, m_bkImage, DestRect, SrcRect, NineRect);
end;procedure TSkinForm.DrawNineRect(const graphics: TGPGraphics; const image:TGPImage; DestRect, SrcRect, NineRect: TRect);
varx, y, nWidth, nHeight: Integer;xSrc, ySrc, nSrcWidth, nSrcHeight: Integer;nDestWidth, nDestHeight: Integer;begin//g.DrawImage(m_bkImage,rcF,SrcF.X,SrcF.Y,SrcF.Width,SrcF.Height,UnitPixel);nDestWidth := DestRect.right - DestRect.left;nDestHeight := DestRect.bottom - DestRect.top;nDestWidth := DestRect.right - DestRect.left;nDestHeight := DestRect.bottom - DestRect.top;// 左上-------------------------------------;x := DestRect.left;y := DestRect.top;nWidth := NineRect.left - SrcRect.left;nHeight := NineRect.top - SrcRect.top;xSrc := SrcRect.left;ySrc := SrcRect.top;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nWidth,nHeight);// 上-------------------------------------;x := DestRect.left + NineRect.left - SrcRect.left;nWidth := nDestWidth - nWidth - (SrcRect.right - NineRect.right);xSrc := NineRect.left;nSrcWidth := NineRect.right - NineRect.left;nSrcHeight := NineRect.top - SrcRect.top;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nSrcWidth,nSrcHeight);// 右上-------------------------------------;x := DestRect.right - (SrcRect.right - NineRect.right);nWidth := SrcRect.right - NineRect.right;xSrc := NineRect.right;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nWidth,nHeight);// 左-------------------------------------;x := DestRect.left;y := DestRect.top + NineRect.top - SrcRect.top;nWidth := NineRect.left - SrcRect.left;nHeight := DestRect.top + nDestHeight - y - (SrcRect.bottom -NineRect.bottom);xSrc := SrcRect.left;ySrc := NineRect.top;nSrcWidth := NineRect.left - SrcRect.left;nSrcHeight := NineRect.bottom - NineRect.top;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nSrcWidth,nSrcHeight);// 中-------------------------------------;x := DestRect.left + NineRect.left - SrcRect.left;nWidth := nDestWidth - nWidth - (SrcRect.right - NineRect.right);xSrc := NineRect.left;nSrcWidth := NineRect.right - NineRect.left;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nSrcWidth,nSrcHeight);// 右-------------------------------------;x := DestRect.right - (SrcRect.right - NineRect.right);nWidth := SrcRect.right - NineRect.right;xSrc := NineRect.right;nSrcWidth := SrcRect.right - NineRect.right;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nSrcWidth,nSrcHeight);// 左下-------------------------------------;x := DestRect.left;y := DestRect.top + nDestHeight - (SrcRect.bottom - NineRect.bottom);nWidth := NineRect.left - SrcRect.left;nHeight := SrcRect.bottom - NineRect.bottom;xSrc := SrcRect.left;ySrc := NineRect.bottom;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nWidth,nHeight);// 下-------------------------------------;x := DestRect.left + NineRect.left - SrcRect.left;nWidth := nDestWidth - nWidth - (SrcRect.right - NineRect.right);xSrc := NineRect.left;nSrcWidth := NineRect.right - NineRect.left;nSrcHeight := SrcRect.bottom - NineRect.bottom;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nSrcWidth,nSrcHeight);// 右下-------------------------------------;x := DestRect.right - (SrcRect.right - NineRect.right);nWidth := SrcRect.right - NineRect.right;xSrc := NineRect.right;DrawNineRect(graphics, image, x, y, nWidth, nHeight, xSrc, ySrc, nWidth,nHeight);
end;procedure TSkinForm.DrawNineRect(const graphics: TGPGraphics; const image:TGPImage; x, y, w, h, srcx, srcy, srcw, srch: Integer);
varRcF, SrcF: TGPRectF;
beginRcF.X := x;RcF.Y := y;RcF.Width := w;RcF.Height := h;SrcF.X := Srcx;SrcF.Y := Srcy;SrcF.Width := Srcw;SrcF.Height := Srch;graphics.DrawImage(image, rcF, SrcF.X, SrcF.Y, SrcF.Width, SrcF.Height,UnitPixel);
end;procedure TSkinForm.AddModuleButton(CtlID: Integer; Caption, ResName, ResType:string);
varnIndex: Integer;
beginnIndex := CreateControl(SCT_MODULEBUTTON, m_ModuleLeft, 24, 72, 76, CtlID);m_ModuleLeft := m_ModuleLeft + m_ControlArray[nIndex].Width + 5;SetControlText(nIndex, Caption);SetControlImage(nIndex, ResName, ResType);
end;procedure TSkinForm.SetModuleCheck(CtlID: Integer);
vari: Integer;
beginfor i := 0 to m_ControlCount - 1 dobeginif m_ControlArray[i].SCType = SCT_MODULEBUTTON thenbeginif m_ControlArray[i].CtlID = CtlID thenbeginm_ControlArray[i].bCheck := True;DrawControlEx(i);endelse if m_ControlArray[i].bCheck thenbeginm_ControlArray[i].bCheck := False;DrawControlEx(i);end;end;end;
end;procedure TSkinForm.SetControlText(nIndex: Integer; strText: string);
varnLen: integer;
beginif (nIndex < 0) or (nIndex >= m_ControlCount) thenexit;m_ControlArray[nIndex].Caption := strText;//----------------------if strText = '' thenbeginm_ControlArray[nIndex].WCaption := '';m_ControlArray[nIndex].wstrLength := 0;endelsebeginnLen := MultiByteToWideChar(936, 1, PChar(@strText[1]), -1, nil, 0);SetLength(m_ControlArray[nIndex].WCaption, nLen - 1);if nLen > 1 thenMultiByteToWideChar(936, 1, PChar(@strText[1]), -1,PWideChar(@m_ControlArray[nIndex].WCaption[1]), nLen - 1);m_ControlArray[nIndex].wstrLength := nLen;end;end;procedure TSkinForm.SetControlImage(nIndex: Integer; ResName, ResType: string);
varhMod: HMODULE;HRes: HRSRC;sResName: string;sResType: string;Len: DWORD;lpRsrc: PByte;m_hMem: HGLOBAL;pMem: PByte;pstm: IStream;beginif (nIndex < 0) or (nIndex >= m_ControlCount) thenexit;if m_ControlArray[nIndex].bImage thenbeginm_ControlArray[nIndex].Image.destroy();m_ControlArray[nIndex].Image.Free();m_ControlArray[nIndex].bImage := False;end;hMod := GetModuleHandle(nil);sResName := ResName;sResType := ResType;HRes := FindResource(HInstance, PChar(sResName), PChar(sResType));if HRes <> 0 thenbeginLen := SizeofResource(HInstance, HRes);lpRsrc := PByte(LoadResource(HInstance, HRes));tryif lpRsrc <> nil thenbeginm_hMem := GlobalAlloc(GMEM_FIXED, Len);pMem := Pbyte(GlobalLock(m_hMem));CopyMemory(pMem, lpRsrc, Len);CreateStreamOnHGlobal(m_hMem, False, pstm);m_ControlArray[nIndex].Image := TGPImage.Create(pstm);m_ControlArray[nIndex].bImage := True;GlobalUnlock(m_hMem);pstm := nil;FreeResource(Dword(lpRsrc));end;exceptend;end;
end;function TSkinForm.CreateRoundPath(x, y, w, h, cornerRadius: Single):TGPGraphicsPath;
varpath1: TGPGraphicsPath;
beginpath1 := TGPGraphicsPath.Create();path1.AddArc(x, y, cornerRadius * 2, cornerRadius * 2, 180, 90); //左上path1.AddArc(x + w - cornerRadius * 2, y, cornerRadius * 2, cornerRadius* 2, 270, 90); //右上path1.AddArc(x + w - cornerRadius * 2, y + h - cornerRadius * 2,cornerRadius * 2, cornerRadius * 2, 0, 90); //右下path1.AddArc(x, y + h - cornerRadius * 2, cornerRadius * 2, cornerRadius* 2, 90, 90); //左下path1.CloseFigure();result := path1;
end;
end.
Delphi7简单DirectUI界面源码相关推荐

模仿酷狗7(Kugou7)界面源码
源码名称:模仿酷狗7(Kugou7)界面源码源码作者:邓学彬(泪闯天涯) 源码说明:内含VC++源码.易语言源码各一份.包含所有图片源码(使用Fireworks编辑) 开发环境:VC版--VS200 ...
一款规范大方的主界面源码，会用的狐友都说好
昨天有位加我很久的狐友,突然问我要一份主控台的源码,我寻思着说他要什么主控台,并且要求我把界面图发过他,我以为是狐友会的会友,然后就了发了两张图．他说不满意,不要传统菜单的,不要TDI的．我只能说你要 ...
网页聊天室win10界面源码
简介: 网页聊天室win10界面源码,仿win10桌面网站带后台,源码上传即可使用,无需数据库. 后台地址:http://你的域名/admin/ 后台账号:admin 后台密码:admin 网盘下载地 ...
小伙利用C++模仿酷狗7(Kugou7) UI界面源码，附带炫酷动画效果哦
VC模仿酷狗7(Kugou7) UI界面源码,有动画效果, 源码说明:内含VC++源码.易语言源码各一份.包含所有图片源码(使用Fireworks编辑) 开发环境:VC版--VS2005.Gdiplu ...
【JS协议UI源码】autoJS协议源码，JavaScript界面源码，AJ脚本利用网盘就行远程关软
autoJS协议UI源码,该源码你可以学习到JavaScript基础语法还有简单的封装md5加密菜单判断和多号运行,本机存储和调用知识,如何不利用使用服务器进行远程关软和远程更新,远程关软我当时是利 ...
（带后台）苹果安卓APP下载页 app应用下载界面源码
简介: APP下载页源码-带后台,带下载统计,带数据分析图,可一键编辑APP信息,此为1.0版本,后期会推出更多的新功能,尽请期待. 注意:这个不是PHP开发的,用ASP.NET开发的,需要部署到wi ...
java仿微信登录界面_android 界面设计潮流：仿微信5.2界面源码
package com.example.isweixin; //Download by 链接已屏蔽 import java.util.Timer; import java.util.TimerTask ...
全代码编写的iPhone界面源码1 UIView UILabel UIButton
这个界面全部都是用代码编写的,其中并没有使用到图片.也没有使用Interface Builder和Storyboard. 如果要看源码请看这里: http://blog.sina.com.cn/s/b ...
易语言单卡网络验证UI界面源码
网络验证 www.kekeyz.cn 源码下载: 单卡网络验证UI源码+模块.zip-其它文档类资源-CSDN下载描述:https://blog.csdn.net/u010815991/article ...
Delphi7简单DirectUI界面源码

Delphi7简单DirectUI界面源码相关推荐

最新文章

热门文章
