开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
winskindata.hpp
资源名称：VCLSkinv5.30FS.rar　[点击查看]
上传用户：xjwsee
上传日期：2008-08-02
资源大小：796k
文件大小：17k
源码类别：

Delphi控件源码

开发平台：

Delphi

winskindata.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 2005 by Borland Software Corporation
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'Winskindata.pas' rev: 10.00
  7. #ifndef WinskindataHPP
  8. #define WinskindataHPP
  10. #pragma delphiheader begin
  11. #pragma option push
  12. #pragma option -w-      // All warnings off
  13. #pragma option -Vx      // Zero-length empty class member functions
  14. #pragma pack(push,8)
  15. #include <System.hpp> // Pascal unit
  16. #include <Sysinit.hpp> // Pascal unit
  17. #include <Windows.hpp> // Pascal unit
  18. #include <Messages.hpp> // Pascal unit
  19. #include <Sysutils.hpp> // Pascal unit
  20. #include <Classes.hpp> // Pascal unit
  21. #include <Graphics.hpp> // Pascal unit
  22. #include <Controls.hpp> // Pascal unit
  23. #include <Forms.hpp> // Pascal unit
  24. #include <Inifiles.hpp> // Pascal unit
  25. #include <Dialogs.hpp> // Pascal unit
  26. #include <Filectrl.hpp> // Pascal unit
  27. #include <Skinread.hpp> // Pascal unit
  28. #include <Winskinstore.hpp> // Pascal unit
  29. #include <Imgutil.hpp> // Pascal unit
  30. #include <Winskinini.hpp> // Pascal unit
  31. #include <Imglist.hpp> // Pascal unit
  32. #include <Typinfo.hpp> // Pascal unit
  34. //-- user supplied -----------------------------------------------------------
  36. namespace Winskindata
  37. {
  38. //-- type declarations -------------------------------------------------------
  39. #pragma option push -b-
  40. enum TWinContainer { xccForm, xccFrame, xccToolbar, xccCoolbar, xccControlbar, xccPanel, xccScrollBox, xccGroupBox, xccTabSheet, xccPageScroller };
  41. #pragma option pop
  43. typedef Set<TWinContainer, xccForm, xccPageScroller>  TWinContainers;
  45. #pragma option push -b-
  46. enum TSkinOption { xoMDIScrollbar, xoMenuMerge, xoTransparent, xoPreview, xoParentBackGround, xoNoFocusRect, xoToolbarBK, xoToolbarButton, xoMDIChildBorder, xoMenuBG, xoFormScrollbar };
  47. #pragma option pop
  49. typedef Set<TSkinOption, xoMDIScrollbar, xoFormScrollbar>  TSkinOptions;
  51. #pragma option push -b-
  52. enum TSkinControlType { xcMainMenu, xcPopupMenu, xcMenuItem, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcSpin, xcPanel, xcGroupBox, xcStatusBar, xcTab, xcTrackBar, xcSystemMenu, xcFastReport };
  53. #pragma option pop
  55. typedef Set<TSkinControlType, xcMainMenu, xcFastReport>  TSkinControlTypes;
  57. #pragma option push -b-
  58. enum TShemeColor { csText, csTitleTextActive, csTitleTextNoActive, csButtonFace, csButtonText, csButtonHilight, csButtonlight, csButtonShadow, csButtonDkshadow, csSelectText, csSelectBg, csHilightText, csHilight, csMenuBar, csMenuBarText, csMenuText, csMenubg, csCaption, csScrollbar, csTextDisable };
  59. #pragma option pop
  61. typedef Graphics::TColor TShemeColors[20];
  63. #pragma option push -b-
  64. enum TSkinFormType { sfMainform, sfOnlyThisForm, sfDialog, sfDLL };
  65. #pragma option pop
  67. typedef void __fastcall (__closure *TOnFormSkin)(System::TObject* Sender, AnsiString aName, bool &DoSkin);
  69. typedef void __fastcall (__closure *TOnSkinForm)(System::TObject* Sender, HWND ahwnd, AnsiString aName);
  71. class DELPHICLASS TSkinData;
  72. typedef void __fastcall (__closure *TOnSkinControl)(Classes::TComponent* Sender, TSkinData* SkinData, Controls::TControl* Form, Controls::TControl* Control, AnsiString ControlClass, Classes::TComponent* &SkinnedControl);
  74. typedef BOOL __stdcall (*TGetScrollBarInfo)(HWND hwnd, int idObject, tagSCROLLBARINFO &psbi);
  76. typedef BOOL __stdcall (*FTrackMouseEvent)(tagTRACKMOUSEEVENT &EventTrack);
  78. typedef BOOL __stdcall (*TGetComboBoxInfo)(HWND hwndCombo, tagCOMBOBOXINFO &pcbi);
  80. typedef void __stdcall (*TDisableProcessWindowsGhosting)(void);
  82. class DELPHICLASS TDataSkinObject;
  83. class PASCALIMPLEMENTATION TDataSkinObject : public System::TObject 
  84. {
  85. typedef System::TObject inherited;
  87. public:
  88. #pragma pack(push,1)
  89. Types::TRect r;
  90. #pragma pack(pop)
  91. Graphics::TBitmap* Map;
  92. int trans;
  93. int Tile;
  94. AnsiString IDName;
  95. int frame;
  96. int style;
  97. int Normalcolor;
  98. int Overcolor;
  99. int Downcolor;
  100. Graphics::TColor Normalcolor2;
  101. Graphics::TColor Overcolor2;
  102. Graphics::TColor Downcolor2;
  103. __fastcall TDataSkinObject(AnsiString AIDName);
  104. __fastcall virtual ~TDataSkinObject(void);
  105. };
  108. class DELPHICLASS TDataSkinBorder;
  109. class PASCALIMPLEMENTATION TDataSkinBorder : public TDataSkinObject 
  110. {
  111. typedef TDataSkinObject inherited;
  113. public:
  114. Graphics::TBitmap* MaskMap;
  115. __fastcall TDataSkinBorder(AnsiString AIDName);
  116. __fastcall virtual ~TDataSkinBorder(void);
  117. };
  120. class DELPHICLASS TDataSkinTitle;
  121. class PASCALIMPLEMENTATION TDataSkinTitle : public TDataSkinObject 
  122. {
  123. typedef TDataSkinObject inherited;
  125. public:
  126. int Aligment;
  127. int BackGround;
  128. int FontHeight;
  129. int backleft;
  130. int backright;
  131. Graphics::TColor activetext;
  132. Graphics::TColor inactivetext;
  133. public:
  134. #pragma option push -w-inl
  135. /* TDataSkinObject.Create */ inline __fastcall TDataSkinTitle(AnsiString AIDName) : TDataSkinObject(AIDName) { }
  136. #pragma option pop
  137. #pragma option push -w-inl
  138. /* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinTitle(void) { }
  139. #pragma option pop
  141. };
  144. class DELPHICLASS TDataSkinButton;
  145. class PASCALIMPLEMENTATION TDataSkinButton : public TDataSkinObject 
  146. {
  147. typedef TDataSkinObject inherited;
  149. public:
  150. Graphics::TBitmap* CheckMap;
  151. Graphics::TBitmap* RadioMap;
  152. int radioframe;
  153. int checkframe;
  154. bool newnormal;
  155. bool newover;
  156. bool newdown;
  157. __fastcall TDataSkinButton(AnsiString AIDName);
  158. __fastcall virtual ~TDataSkinButton(void);
  159. };
  162. class DELPHICLASS TDataSkinSysButton;
  163. class PASCALIMPLEMENTATION TDataSkinSysButton : public TDataSkinObject 
  164. {
  165. typedef TDataSkinObject inherited;
  167. public:
  168. int Action;
  169. int Align;
  170. int XCoord;
  171. int YCoord;
  172. int CombineOp;
  173. int Visibility;
  174. int Visibility1;
  175. public:
  176. #pragma option push -w-inl
  177. /* TDataSkinObject.Create */ inline __fastcall TDataSkinSysButton(AnsiString AIDName) : TDataSkinObject(AIDName) { }
  178. #pragma option pop
  179. #pragma option push -w-inl
  180. /* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinSysButton(void) { }
  181. #pragma option pop
  183. };
  186. class DELPHICLASS TDataSkinBoxLabel;
  187. class PASCALIMPLEMENTATION TDataSkinBoxLabel : public TDataSkinObject 
  188. {
  189. typedef TDataSkinObject inherited;
  191. public:
  192. int LeftShift;
  193. int RightShift;
  194. int Alignment;
  195. public:
  196. #pragma option push -w-inl
  197. /* TDataSkinObject.Create */ inline __fastcall TDataSkinBoxLabel(AnsiString AIDName) : TDataSkinObject(AIDName) { }
  198. #pragma option pop
  199. #pragma option push -w-inl
  200. /* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinBoxLabel(void) { }
  201. #pragma option pop
  203. };
  206. class DELPHICLASS TSkinControlList;
  207. class PASCALIMPLEMENTATION TSkinControlList : public Classes::TPersistent 
  208. {
  209. typedef Classes::TPersistent inherited;
  211. private:
  212. Classes::TStrings* Fedit;
  213. Classes::TStrings* fCheckbox;
  214. Classes::TStrings* fRadiobutton;
  215. Classes::TStrings* fcombobox;
  216. void __fastcall SetEdit(Classes::TStrings* Value);
  217. void __fastcall SetCheckbox(Classes::TStrings* Value);
  218. void __fastcall SetRadiobutton(Classes::TStrings* Value);
  219. void __fastcall Setcombobox(Classes::TStrings* Value);
  221. public:
  222. __fastcall TSkinControlList(void);
  223. __fastcall virtual ~TSkinControlList(void);
  225. __published:
  226. __property Classes::TStrings* Edit = {read=Fedit, write=SetEdit};
  227. __property Classes::TStrings* Checkbox = {read=fCheckbox, write=SetCheckbox};
  228. __property Classes::TStrings* Combobox = {read=fcombobox, write=Setcombobox};
  229. __property Classes::TStrings* Radiobutton = {read=fRadiobutton, write=SetRadiobutton};
  230. };
  233. typedef DynamicArray<Graphics::TColor >  WinSkinData__9;
  235. typedef DynamicArray<TDataSkinSysButton* >  WinSkinData__01;
  237. class PASCALIMPLEMENTATION TSkinData : public Classes::TComponent 
  238. {
  239. typedef Classes::TComponent inherited;
  241. private:
  242. AnsiString fskinfile;
  243. Winskinini::TQuickIni* ini;
  244. Graphics::TColor fMenuSideBar;
  245. Classes::TMemoryStream* ms;
  246. bool factive;
  247. int fdisableTag;
  248. TWinContainers FContainers;
  249. TSkinControlTypes FSkinControls;
  250. TSkinOptions fSkinOptions;
  251. TSkinFormType ftype;
  252. TOnFormSkin fOnFormSkin;
  253. TOnSkinForm fOnBeforeSkinForm;
  254. TOnSkinForm fOnAfterSkinForm;
  255. Classes::TNotifyEvent fOnSkinChanged;
  256. TOnSkinControl FOnSkinControl;
  257. bool FInDLL;
  258. Classes::TStrings* f3rdControls;
  259. bool fmenuauto;
  260. AnsiString fversion;
  261. bool fmenumerge;
  262. Controls::THintWindow* fhintwindow;
  263. bool hashint;
  264. void __fastcall ReadMenuBar(TDataSkinObject* &aobject, AnsiString aname);
  265. void __fastcall ReadProgress(TDataSkinObject* &aobject, AnsiString aname);
  266. void __fastcall ReadRGB(AnsiString Section, AnsiString aname, Graphics::TColor &value);
  267. Graphics::TColor __fastcall GetColor(const AnsiString s1, Graphics::TColor acolor);
  268. void __fastcall SetFrame(void);
  269. int __fastcall GetSectionNum(AnsiString asection, AnsiString aname);
  270. void __fastcall WriteData(Classes::TStream* Stream);
  271. void __fastcall ReadData(Classes::TStream* Stream);
  272. AnsiString __fastcall GetSkinStore();
  273. void __fastcall SetSkinStore(const AnsiString Value);
  274. void __fastcall CreateMdibtn(int n);
  275. void __fastcall SetActive(bool Value);
  276. void __fastcall SetVersion(AnsiString Value);
  277. void __fastcall InitControlList(void);
  278. void __fastcall SetControlList(Classes::TStrings* Value);
  279. void __fastcall ReadTrack(TDataSkinObject* &aobject, AnsiString aname);
  280. void __fastcall CreateLogo(void);
  281. void __fastcall CreateCaptionFont(void);
  282. void __fastcall CreateMinCaption(void);
  284. protected:
  285. void __fastcall ReadObject(TDataSkinObject* &aobject, AnsiString aname);
  286. void __fastcall ReadObject2(TDataSkinBorder* &aobject, AnsiString aname, AnsiString image2);
  287. void __fastcall ReadButton(void);
  288. void __fastcall ReadSysButton(void);
  289. void __fastcall LoadFromIni(AnsiString filename);
  290. void __fastcall ReadBord(void);
  291. void __fastcall ReadColor(void);
  292. void __fastcall ReadColor2(TShemeColor item, AnsiString key, Graphics::TColor cdefault);
  293. void __fastcall ReadTitle(TDataSkinObject* aobject, AnsiString aname);
  294. void __fastcall ReadBoxLabel(TDataSkinBoxLabel* &aobject, AnsiString aname);
  295. virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  296. void __fastcall RebuildToolbar(void);
  297. void __fastcall ReBuildCombobox(void);
  298. void __fastcall ReBuildComboxArrow(void);
  299. virtual void __fastcall Loaded(void);
  300. bool __fastcall LoadSkin(void);
  301. void __fastcall UpdateSkin(void);
  303. public:
  304. Skinread::TSkinReader* reader;
  305. Classes::TMemoryStream* data;
  306. bool Empty;
  307. Graphics::TColor Colors[20];
  308. bool hasColors[20];
  309. DynamicArray<Graphics::TColor >  ColorPreset;
  310. Graphics::TBitmap* SysIcon;
  311. TDataSkinTitle* Title;
  312. DynamicArray<TDataSkinSysButton* >  SysBtn;
  313. TDataSkinButton* Button;
  314. TDataSkinBorder* tab;
  315. TDataSkinBorder* HSpin;
  316. TDataSkinBorder* VSpin;
  317. TDataSkinObject* Comboxborder;
  318. TDataSkinObject* ExtraImages;
  319. TDataSkinBorder* combox;
  320. TDataSkinObject* comboxarrow;
  321. TDataSkinObject* Box;
  322. TDataSkinObject* Toolbar;
  323. TDataSkinObject* Toolbarbtn;
  324. TDataSkinObject* progress;
  325. TDataSkinObject* progresschunk;
  326. TDataSkinBoxLabel* boxlabel;
  327. TDataSkinObject* StatusBar;
  328. TDataSkinObject* TabSheet;
  329. TDataSkinObject* Header;
  330. TDataSkinObject* Menubar;
  331. TDataSkinObject* MenuItem;
  332. TDataSkinObject* MenuitemBG;
  333. TDataSkinObject* SArrow;
  334. TDataSkinObject* HBar;
  335. TDataSkinObject* VBar;
  336. TDataSkinObject* HSlider;
  337. TDataSkinObject* VSlider;
  338. TDataSkinObject* TrackHorz;
  339. TDataSkinObject* TrackVert;
  340. TDataSkinObject* TrackBar;
  341. TDataSkinObject* TrackBarVert;
  342. TDataSkinObject* TrackLeft;
  343. TDataSkinObject* Trackright;
  344. TDataSkinObject* Tracktop;
  345. TDataSkinObject* Trackbottom;
  346. TDataSkinObject* MinCaption;
  347. TDataSkinBorder* border[4];
  348. Classes::TStringList* sectionlist;
  349. int PresetColors[10];
  350. HBRUSH BGBrush;
  351. bool MenuMsg;
  352. Controls::TImageList* bmpmenu;
  353. AnsiString SkinName;
  354. Classes::TStrings* DebugList;
  355. int cxMax;
  356. int cyMax;
  357. Graphics::TBitmap* logo;
  358. Graphics::TFont* CaptionFont;
  359. unsigned formhwnd;
  360. int hintcount;
  361. __fastcall virtual TSkinData(Classes::TComponent* AOwner);
  362. __fastcall virtual ~TSkinData(void);
  363. void __fastcall LoadFromFile(AnsiString value);
  364. void __fastcall LoadFromStream(Classes::TStream* Stream);
  365. void __fastcall LoadFromCollection(Winskinstore::TSkinStore* astore, int aindex);
  366. void __fastcall Readbmp(Graphics::TBitmap* bmp, AnsiString fname);
  367. bool __fastcall GetPrecolor(Graphics::TColor &acolor, int n);
  368. AnsiString __fastcall GetFileName(AnsiString s);
  369. void __fastcall Uninstall(void);
  370. void __fastcall Install(void);
  371. void __fastcall DoFormSkin(unsigned ahwnd, AnsiString aname, bool &Doskin);
  372. void __fastcall DoSkinChanged(void);
  373. void __fastcall AddNestForm(Controls::TWinControl* fParent, Controls::TWinControl* fNested);
  374. void __fastcall UpdateSkinControl(Forms::TForm* fParent, Controls::TWinControl* acontrol = (Controls::TWinControl*)(0x0));
  375. void __fastcall DeleteGraphicControl(Forms::TForm* fParent, Controls::TGraphicControl* acontrol);
  376. void __fastcall UpdateMenu(Forms::TForm* fParent);
  377. void __fastcall UpdateMainMenu(bool done);
  378. void __fastcall SkinForm(unsigned ahwnd);
  379. void __fastcall InstallThread(int aThreadID);
  380. void __fastcall UnInstallThread(int aThreadID);
  381. void __fastcall ChangeProperty(System::TObject* control, AnsiString aprop, AnsiString value);
  382. void __fastcall EnableSkin(bool b);
  383. Graphics::TColor __fastcall GetCaptionColor(void);
  384. bool __fastcall GetScrollBarInfo(HWND hwnd, int idObject, tagSCROLLBARINFO &psbi);
  385. void __fastcall DoDebug(AnsiString s);
  386. void __fastcall ChangeForm(Forms::TForm* aform);
  387. void __fastcall GetAppIcon(void);
  388. void __fastcall ActivateHint(const Types::TRect &aRect, const AnsiString AHint);
  389. void __fastcall HideHint(void);
  390. bool __fastcall IsHint(void);
  392. __published:
  393. __property bool Active = {read=factive, write=SetActive, nodefault};
  394. __property int DisableTag = {read=fdisableTag, write=fdisableTag, nodefault};
  395. __property TSkinControlTypes SkinControls = {read=FSkinControls, write=FSkinControls, nodefault};
  396. __property TSkinOptions Options = {read=fSkinOptions, write=fSkinOptions, nodefault};
  397. __property Classes::TStrings* Skin3rd = {read=f3rdControls, write=SetControlList};
  398. __property AnsiString SkinFile = {read=fskinfile, write=LoadFromFile};
  399. __property AnsiString SkinStore = {read=GetSkinStore, write=SetSkinStore};
  400. __property TSkinFormType SkinFormtype = {read=ftype, write=ftype, nodefault};
  401. __property AnsiString Version = {read=fversion, write=SetVersion};
  402. __property bool MenuUpdate = {read=fmenuauto, write=fmenuauto, nodefault};
  403. __property bool MenuMerge = {read=fmenumerge, write=fmenumerge, nodefault};
  404. __property TOnFormSkin OnFormSkin = {read=fOnFormSkin, write=fOnFormSkin};
  405. __property Classes::TNotifyEvent OnSkinChanged = {read=fOnSkinChanged, write=fOnSkinChanged};
  406. __property TOnSkinControl OnSkinControl = {read=FOnSkinControl, write=FOnSkinControl};
  407. __property TOnSkinForm OnBeforeSkinForm = {read=fOnBeforeSkinForm, write=fOnBeforeSkinForm};
  408. __property TOnSkinForm OnAfterSkinForm = {read=fOnAfterSkinForm, write=fOnAfterSkinForm};
  409. };
  412. //-- var, const, procedure ---------------------------------------------------
  413. static const Word CN_SkinChanged = 0x3401;
  414. static const Word CN_CaptionBtnClick = 0x3514;
  415. static const Word CN_CaptionBtnVisible = 0x3515;
  416. static const Word CN_UPdateMainMenu = 0x3505;
  417. static const Word CN_SkinEnabled = 0x3506;
  418. static const Word CN_TabSheetClose = 0x3507;
  419. static const Word CN_SkinNotify = 0x3508;
  420. static const short NM_COOLSB_CUSTOMDRAW = -2815;
  421. #define c_version "5.14.12.20"
  422. static const Word c_skintag = 0x8235;
  423. static const Word BE_ID = 0x41a2;
  424. static const Word BE_BECLOSE = 0x3046;
  425. static const Word BE_BASE = 0xbc4a;
  426. static const Word CM_BEPAINT = 0xbc4a;
  427. static const Word CM_BENCPAINT = 0xbc4b;
  428. static const Word CM_BEFULLRENDER = 0xbc4c;
  429. static const Word CM_BEWAIT = 0xbc4d;
  430. static const Word CM_BERUN = 0xbc4e;
  431. extern PACKAGE TSkinData* GSkinData;
  432. extern PACKAGE bool Win32PlatformIsUnicode;
  433. extern PACKAGE bool IsVista;
  434. extern PACKAGE unsigned DefaultUserCodePage;
  435. extern PACKAGE TGetScrollBarInfo pGetScrollBarInfo;
  436. extern PACKAGE FTrackMouseEvent pTrackMouseEvent;
  437. extern PACKAGE TGetComboBoxInfo pGetComboBoxInfo;
  438. extern PACKAGE TDisableProcessWindowsGhosting pDisableProcessWindowsGhosting;
  439. extern PACKAGE WideString __fastcall StrToWideStr(const AnsiString S);
  440. extern PACKAGE AnsiString __fastcall WideStringToStringEx(const WideString WS);
  441. extern PACKAGE WideString __fastcall _WStr(WideChar * lpString, int cchCount);
  442. extern PACKAGE int __fastcall Tnt_DrawTextW(HDC hDC, WideString wString, Types::TRect &lpRect, unsigned uFormat);
  443. extern PACKAGE Graphics::TColor __fastcall RGBToColor(Byte R, Byte G, Byte B);
  444. extern PACKAGE Graphics::TColor __fastcall strcolor(AnsiString s);
  445. extern PACKAGE Controls::TWinControl* __fastcall FindControlx(HWND Handle);
  446. extern PACKAGE void __fastcall SkinDll(void * adata);
  447. extern PACKAGE void __fastcall DoTrackMouse(unsigned ahwnd);
  449. } /* namespace Winskindata */
  450. using namespace Winskindata;
  451. #pragma pack(pop)
  452. #pragma option pop
  454. #pragma delphiheader end.
  455. //-- end unit ----------------------------------------------------------------
  456. #endif // Winskindata