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

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

Delphi控件源码

开发平台：

Delphi

winsubclass.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) 'Winsubclass.pas' rev: 10.00
  7. #ifndef WinsubclassHPP
  8. #define WinsubclassHPP
  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 <Sysutils.hpp> // Pascal unit
  19. #include <Classes.hpp> // Pascal unit
  20. #include <Graphics.hpp> // Pascal unit
  21. #include <Controls.hpp> // Pascal unit
  22. #include <Comctrls.hpp> // Pascal unit
  23. #include <Forms.hpp> // Pascal unit
  24. #include <Menus.hpp> // Pascal unit
  25. #include <Messages.hpp> // Pascal unit
  26. #include <Extctrls.hpp> // Pascal unit
  27. #include <Stdctrls.hpp> // Pascal unit
  28. #include <Buttons.hpp> // Pascal unit
  29. #include <Commctrl.hpp> // Pascal unit
  30. #include <Imglist.hpp> // Pascal unit
  31. #include <Winskindata.hpp> // Pascal unit
  32. #include <Tabs.hpp> // Pascal unit
  33. #include <Typinfo.hpp> // Pascal unit
  34. #include <Dialogs.hpp> // Pascal unit
  35. #include <Grids.hpp> // Pascal unit
  37. //-- user supplied -----------------------------------------------------------
  39. namespace Winsubclass
  40. {
  41. //-- type declarations -------------------------------------------------------
  42. #pragma option push -b-
  43. enum TSkinControlState { scMouseIn, scDown };
  44. #pragma option pop
  46. class DELPHICLASS TAcControl;
  47. class PASCALIMPLEMENTATION TAcControl : public Controls::TControl 
  48. {
  49. typedef Controls::TControl inherited;
  51. public:
  52. #pragma option push -w-inl
  53. /* TControl.Create */ inline __fastcall virtual TAcControl(Classes::TComponent* AOwner) : Controls::TControl(AOwner) { }
  54. #pragma option pop
  55. #pragma option push -w-inl
  56. /* TControl.Destroy */ inline __fastcall virtual ~TAcControl(void) { }
  57. #pragma option pop
  59. };
  62. class DELPHICLASS TAcWinControl;
  63. class PASCALIMPLEMENTATION TAcWinControl : public Controls::TWinControl 
  64. {
  65. typedef Controls::TWinControl inherited;
  67. public:
  68. #pragma option push -w-inl
  69. /* TWinControl.Create */ inline __fastcall virtual TAcWinControl(Classes::TComponent* AOwner) : Controls::TWinControl(AOwner) { }
  70. #pragma option pop
  71. #pragma option push -w-inl
  72. /* TWinControl.CreateParented */ inline __fastcall TAcWinControl(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  73. #pragma option pop
  74. #pragma option push -w-inl
  75. /* TWinControl.Destroy */ inline __fastcall virtual ~TAcWinControl(void) { }
  76. #pragma option pop
  78. };
  81. class DELPHICLASS TAcGraphicControl;
  82. class PASCALIMPLEMENTATION TAcGraphicControl : public Controls::TGraphicControl 
  83. {
  84. typedef Controls::TGraphicControl inherited;
  86. public:
  87. #pragma option push -w-inl
  88. /* TGraphicControl.Create */ inline __fastcall virtual TAcGraphicControl(Classes::TComponent* AOwner) : Controls::TGraphicControl(AOwner) { }
  89. #pragma option pop
  90. #pragma option push -w-inl
  91. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TAcGraphicControl(void) { }
  92. #pragma option pop
  94. };
  97. class DELPHICLASS TSkinAcListView;
  98. class PASCALIMPLEMENTATION TSkinAcListView : public Comctrls::TCustomListView 
  99. {
  100. typedef Comctrls::TCustomListView inherited;
  102. public:
  103. #pragma option push -w-inl
  104. /* TCustomListView.Create */ inline __fastcall virtual TSkinAcListView(Classes::TComponent* AOwner) : Comctrls::TCustomListView(AOwner) { }
  105. #pragma option pop
  106. #pragma option push -w-inl
  107. /* TCustomListView.Destroy */ inline __fastcall virtual ~TSkinAcListView(void) { }
  108. #pragma option pop
  110. public:
  111. #pragma option push -w-inl
  112. /* TWinControl.CreateParented */ inline __fastcall TSkinAcListView(HWND ParentWindow) : Comctrls::TCustomListView(ParentWindow) { }
  113. #pragma option pop
  115. };
  118. class DELPHICLASS TSkinControl;
  119. class PASCALIMPLEMENTATION TSkinControl : public Classes::TComponent 
  120. {
  121. typedef Classes::TComponent inherited;
  123. protected:
  124. Set<TSkinControlState, scMouseIn, scDown>  state;
  125. Graphics::TCanvas* fCanvas;
  126. bool done;
  127. bool isdraw;
  128. bool enabled;
  129. bool focused;
  130. WideString caption;
  131. void *FObjectInst;
  132. void *FPrevWndProc;
  133. bool skinned;
  134. bool isunicode;
  135. void __fastcall FillBG(HDC dc, const Types::TRect &rc);
  136. void __fastcall FillParentBG(HDC dc, const Types::TRect &rc);
  137. void __fastcall doLogMsg(AnsiString aid, const Messages::TMessage &msg);
  138. void __fastcall Default(Messages::TMessage &Msg);
  139. void __fastcall Invalidate(void);
  140. void __fastcall WMPaint(const Messages::TMessage &message);
  141. void __fastcall WMERASEBKGND(Messages::TMessage &Msg);
  142. int __fastcall GetWindowLongEx(HWND ahWnd, int nIndex);
  143. void __fastcall SetParentBK(bool value);
  144. void __fastcall DrawFocus(HDC hDC, WideString wString, const Types::TRect &rc, unsigned uFormat);
  146. public:
  147. Winskindata::TSkinData* fsd;
  148. HWND hwnd;
  149. Classes::TWndMethod OldWndProc;
  150. Controls::TWinControl* control;
  151. #pragma pack(push,1)
  152. Types::TRect boundsrect;
  153. #pragma pack(pop)
  154. Controls::TGraphicControl* GControl;
  155. bool newColor;
  156. Graphics::TColor oldcolor;
  157. bool Inited;
  158. int skinstate;
  159. Classes::TComponent* skinform;
  160. int kind;
  161. bool sizing;
  162. bool parentbk;
  163. __fastcall virtual TSkinControl(Classes::TComponent* AOwner);
  164. __fastcall virtual ~TSkinControl(void);
  165. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  166. virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  167. void __fastcall MouseLeave(void);
  168. virtual void __fastcall Unsubclass(void);
  169. void __fastcall NewWndProc(Messages::TMessage &Message);
  170. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  171. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  172. virtual void __fastcall PaintControl(HDC adc = (HDC)(0x0));
  173. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  174. virtual void __fastcall SkinChange(void);
  175. virtual int __fastcall GetState(void);
  176. void __fastcall SetColor(void);
  177. void __fastcall RestoreColor(void);
  178. void __fastcall DrawBMPSkin(Graphics::TBitmap* abmp, const Types::TRect &rc, Winskindata::TDataSkinObject* aObject, int I, int N, int trans);
  179. void __fastcall DrawSkinMap(HDC dc, const Types::TRect &rc, Winskindata::TDataSkinObject* aObject, int I, int N);
  180. void __fastcall DrawSkinMap1(HDC dc, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  181. void __fastcall DrawSkinMap2(HDC dc, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  182. void __fastcall DrawSkin(const Types::TRect &rc, Winskindata::TDataSkinObject* aObject, int I, int N, int trans);
  183. void __fastcall DrawSkinMap3(Graphics::TCanvas* acanvas, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  184. void __fastcall DrawBuf(HDC dc, const Types::TRect &rc);
  185. void __fastcall DrawCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, WideString text, bool enabled, bool defaulted, Word Alignment = (Word)(0x1));
  186. void __fastcall DrawImgCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, unsigned ImgList, int imgIndex, WideString text, int talign = 0x1);
  187. int __fastcall TextHeight(HDC dc, const AnsiString s);
  188. Graphics::TColor __fastcall GetParentColor(Graphics::TColor acolor);
  189. unsigned __fastcall CheckBiDi(unsigned dw);
  190. };
  193. class DELPHICLASS TArrowButton;
  194. class PASCALIMPLEMENTATION TArrowButton : public Controls::TCustomControl 
  195. {
  196. typedef Controls::TCustomControl inherited;
  198. private:
  199. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TMessage &aMsg);
  200. HIDESBASE MESSAGE void __fastcall WMLButtonUP(Messages::TMessage &aMsg);
  201. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &aMsg);
  202. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &aMsg);
  204. protected:
  205. virtual void __fastcall Paint(void);
  207. public:
  208. int cw;
  209. Controls::TWinControl* control;
  210. TSkinControl* obj;
  211. unsigned hwnd;
  212. Set<TSkinControlState, scMouseIn, scDown>  state;
  213. __fastcall virtual TArrowButton(Classes::TComponent* AOwner);
  214. __fastcall virtual ~TArrowButton(void);
  215. void __fastcall Attach(TSkinControl* aobj, Controls::TWinControl* acontrol);
  216. void __fastcall MoveArrow(const Types::TRect &r);
  217. public:
  218. #pragma option push -w-inl
  219. /* TWinControl.CreateParented */ inline __fastcall TArrowButton(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
  220. #pragma option pop
  222. };
  225. class DELPHICLASS TSkinDateTime;
  226. class PASCALIMPLEMENTATION TSkinDateTime : public TSkinControl 
  227. {
  228. typedef TSkinControl inherited;
  230. protected:
  231. TArrowButton* arrow;
  232. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  233. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  235. public:
  236. __fastcall virtual ~TSkinDateTime(void);
  237. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  238. public:
  239. #pragma option push -w-inl
  240. /* TSkinControl.Create */ inline __fastcall virtual TSkinDateTime(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  241. #pragma option pop
  243. };
  246. class DELPHICLASS TWScrollbar;
  247. class PASCALIMPLEMENTATION TWScrollbar : public Extctrls::TCustomPanel 
  248. {
  249. typedef Extctrls::TCustomPanel inherited;
  251. private:
  252. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TMessage &aMsg);
  253. HIDESBASE MESSAGE void __fastcall WMMouseMove(Messages::TMessage &aMsg);
  254. MESSAGE void __fastcall WMMouseLeave(Messages::TMessage &aMsg);
  255. MESSAGE void __fastcall WMLButtonDBClick(Messages::TMessage &aMsg);
  256. HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TMessage &aMsg);
  257. HIDESBASE MESSAGE void __fastcall WMERASEBKGND(Messages::TMessage &Msg);
  259. protected:
  260. int Len;
  261. int thumbTop;
  262. int thumbbottom;
  263. #pragma pack(push,1)
  264. Types::TPoint OffsetSC;
  265. #pragma pack(pop)
  266. #pragma pack(push,1)
  267. Types::TPoint trackp;
  268. #pragma pack(pop)
  269. int trackthumb;
  270. bool fdown;
  271. int sbDir;
  272. bool ERASEBKGND;
  273. int scrollpos;
  274. virtual void __fastcall Paint(void);
  275. void __fastcall GetThumb(const Types::TRect &rc);
  276. int __fastcall GetScrollPos(const Types::TPoint &p);
  277. bool __fastcall GetControlInfo(tagSCROLLBARINFO &info);
  278. bool __fastcall GetControlInfo2(tagSCROLLBARINFO &info);
  279. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  281. public:
  282. int CW;
  283. unsigned hwnd;
  284. Controls::TWinControl* control;
  285. TSkinControl* obj;
  286. Byte sbType;
  287. #pragma pack(push,1)
  288. Types::TRect sbRect;
  289. #pragma pack(pop)
  290. bool sbVisible;
  291. __fastcall virtual TWScrollbar(Classes::TComponent* AOwner);
  292. __fastcall virtual ~TWScrollbar(void);
  293. void __fastcall Attach(TSkinControl* aobj, Controls::TWinControl* aControl, Byte aType);
  294. void __fastcall AttachHwnd(TSkinControl* aobj, unsigned ahwnd, Byte aType);
  295. void __fastcall SetPosition(unsigned ahwnd);
  296. void __fastcall ButtonUp(void);
  297. void __fastcall HideScrollbar(void);
  298. void __fastcall DoLog(const Messages::TMessage &Message);
  299. public:
  300. #pragma option push -w-inl
  301. /* TWinControl.CreateParented */ inline __fastcall TWScrollbar(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
  302. #pragma option pop
  304. };
  307. class DELPHICLASS TSkinButton;
  308. class PASCALIMPLEMENTATION TSkinButton : public TSkinControl 
  309. {
  310. typedef TSkinControl inherited;
  312. protected:
  313. Graphics::TBitmap* btemp;
  314. bool MultiLine;
  315. bool trans;
  316. bool redraw;
  317. bool isdefault;
  318. void __fastcall DrawBtnText(Graphics::TCanvas* acanvas, const Types::TRect &rc, AnsiString text, Word Alignment = (Word)(0x1));
  319. void __fastcall DoMouseDown(Messages::TWMMouse &Message);
  320. void __fastcall WMEnable(Messages::TMessage &Message);
  321. void __fastcall SetRedraw(bool b);
  322. bool __fastcall GetFontColor(Graphics::TColor &acolor);
  324. public:
  325. __fastcall virtual TSkinButton(Classes::TComponent* AOwner);
  326. __fastcall virtual ~TSkinButton(void);
  327. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  328. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  329. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  330. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  331. };
  334. class DELPHICLASS TSkinBitButton;
  335. class PASCALIMPLEMENTATION TSkinBitButton : public TSkinButton 
  336. {
  337. typedef TSkinButton inherited;
  339. protected:
  340. void __fastcall DrawGlyph(Graphics::TCanvas* acanvas, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  341. void __fastcall DrawPicControl(HDC dc, const Types::TRect &rc);
  343. public:
  344. bool isPicture;
  345. AnsiString PicField;
  346. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  347. public:
  348. #pragma option push -w-inl
  349. /* TSkinButton.Create */ inline __fastcall virtual TSkinBitButton(Classes::TComponent* AOwner) : TSkinButton(AOwner) { }
  350. #pragma option pop
  351. #pragma option push -w-inl
  352. /* TSkinButton.Destroy */ inline __fastcall virtual ~TSkinBitButton(void) { }
  353. #pragma option pop
  355. };
  358. #pragma option push -b-
  359. enum TMPBtnType { btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btRecord, btEject };
  360. #pragma option pop
  362. typedef Set<TMPBtnType, btPlay, btEject>  TButtonSet;
  364. #pragma option push -b-
  365. enum TMPGlyph { mgEnabled, mgDisabled, mgColored };
  366. #pragma option pop
  368. struct TMPButton
  369. {
  371. public:
  372. bool Visible;
  373. bool Enabled;
  374. bool Colored;
  375. bool Auto;
  376. Graphics::TBitmap* Bitmaps[3];
  377. } ;
  379. class DELPHICLASS TWMediaPlayer;
  380. class PASCALIMPLEMENTATION TWMediaPlayer : public Extctrls::TCustomPanel 
  381. {
  382. typedef Extctrls::TCustomPanel inherited;
  384. private:
  385. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TMessage &aMsg);
  386. HIDESBASE MESSAGE void __fastcall WMLButtonUp(Messages::TMessage &aMsg);
  387. void __fastcall LoadBitmaps(void);
  388. void __fastcall DestroyBitmaps(void);
  389. void __fastcall CheckButtons(void);
  390. void __fastcall FindButton(int XPos, int YPos);
  392. protected:
  393. TMPButton Buttons[9];
  394. int count;
  395. Winskindata::TSkinData* fsd;
  396. bool IsDown;
  397. TMPBtnType BtnClick;
  398. TMPBtnType BtnFocuse;
  399. int BtnWidth;
  400. virtual void __fastcall Paint(void);
  401. void __fastcall DrawButton(Graphics::TCanvas* acanvas, TMPBtnType Btn, const Types::TRect &R);
  403. public:
  404. Controls::TWinControl* obj;
  405. TSkinControl* skincontrol;
  406. __fastcall virtual TWMediaPlayer(Classes::TComponent* AOwner);
  407. __fastcall virtual ~TWMediaPlayer(void);
  408. void __fastcall Attach(TSkinControl* askin, Controls::TWinControl* aObj);
  409. void __fastcall SetPosition(Controls::TWinControl* aObj);
  410. public:
  411. #pragma option push -w-inl
  412. /* TWinControl.CreateParented */ inline __fastcall TWMediaPlayer(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
  413. #pragma option pop
  415. };
  418. class DELPHICLASS TSkinMP;
  419. class PASCALIMPLEMENTATION TSkinMP : public TSkinControl 
  420. {
  421. typedef TSkinControl inherited;
  423. protected:
  424. TWMediaPlayer* mp;
  425. virtual void __fastcall Unsubclass(void);
  426. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  428. public:
  429. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  430. public:
  431. #pragma option push -w-inl
  432. /* TSkinControl.Create */ inline __fastcall virtual TSkinMP(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  433. #pragma option pop
  434. #pragma option push -w-inl
  435. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinMP(void) { }
  436. #pragma option pop
  438. };
  441. class DELPHICLASS TSkinMenuButton;
  442. class PASCALIMPLEMENTATION TSkinMenuButton : public TSkinButton 
  443. {
  444. typedef TSkinButton inherited;
  446. protected:
  447. void __fastcall DrawGlyph(Graphics::TCanvas* acanvas, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  449. public:
  450. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  451. public:
  452. #pragma option push -w-inl
  453. /* TSkinButton.Create */ inline __fastcall virtual TSkinMenuButton(Classes::TComponent* AOwner) : TSkinButton(AOwner) { }
  454. #pragma option pop
  455. #pragma option push -w-inl
  456. /* TSkinButton.Destroy */ inline __fastcall virtual ~TSkinMenuButton(void) { }
  457. #pragma option pop
  459. };
  462. class DELPHICLASS TSkinSpeedButton;
  463. class PASCALIMPLEMENTATION TSkinSpeedButton : public TSkinBitButton 
  464. {
  465. typedef TSkinBitButton inherited;
  467. protected:
  468. bool FReentr;
  469. void __fastcall DrawPicbtn(Graphics::TCanvas* acanvas, const Types::TRect &rc);
  471. public:
  472. AnsiString PicField;
  473. Graphics::TCanvas* gcanvas;
  474. __fastcall virtual TSkinSpeedButton(Classes::TComponent* AOwner);
  475. __fastcall virtual ~TSkinSpeedButton(void);
  476. void __fastcall DrawSpeedbtn(Graphics::TCanvas* acanvas, const Types::TRect &rc);
  477. void __fastcall InitGraphicControl(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas);
  478. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  479. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  480. virtual void __fastcall PaintControl(HDC adc = (HDC)(0x0));
  481. void __fastcall WMPaintSpeed(Messages::TMessage &Message);
  482. };
  485. class DELPHICLASS TSkinCheckBox;
  486. class PASCALIMPLEMENTATION TSkinCheckBox : public TSkinControl 
  487. {
  488. typedef TSkinControl inherited;
  490. protected:
  491. int state;
  492. bool trans;
  494. public:
  495. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  496. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  497. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  498. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  499. public:
  500. #pragma option push -w-inl
  501. /* TSkinControl.Create */ inline __fastcall virtual TSkinCheckBox(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  502. #pragma option pop
  503. #pragma option push -w-inl
  504. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinCheckBox(void) { }
  505. #pragma option pop
  507. };
  510. class DELPHICLASS TSkinComBox;
  511. class DELPHICLASS TSkinScrollbarH;
  512. class PASCALIMPLEMENTATION TSkinScrollbarH : public TSkinControl 
  513. {
  514. typedef TSkinControl inherited;
  516. protected:
  517. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  518. void __fastcall SetScrollbarPos(const Messages::TMessage &message);
  519. virtual void __fastcall Unsubclass(void);
  521. public:
  522. TWScrollbar* hb;
  523. TWScrollbar* vb;
  524. int postype;
  525. __fastcall virtual TSkinScrollbarH(Classes::TComponent* AOwner);
  526. __fastcall virtual ~TSkinScrollbarH(void);
  527. virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  528. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  529. };
  532. class DELPHICLASS TComboxScrollBar;
  533. class PASCALIMPLEMENTATION TComboxScrollBar : public TSkinControl 
  534. {
  535. typedef TSkinControl inherited;
  537. protected:
  538. bool nobe;
  539. int cw;
  540. int len;
  541. int scrollpos;
  542. int thumbtop;
  543. int thumbBottom;
  544. #pragma pack(push,1)
  545. Types::TPoint OffsetSC;
  546. #pragma pack(pop)
  547. #pragma pack(push,1)
  548. Types::TPoint trackp;
  549. #pragma pack(pop)
  550. int trackthumb;
  551. bool fdown;
  552. int sbDir;
  553. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  554. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  555. void __fastcall PaintScrollbar(HDC dc, const Types::TRect &rc, int sbtype);
  556. virtual void __fastcall Unsubclass(void);
  557. void __fastcall GetThumb(const Types::TRect &rc);
  558. bool __fastcall WMNCPaint(Messages::TMessage &message);
  559. bool __fastcall NCLButtonDown(Messages::TMessage &Message);
  561. public:
  562. int postype;
  563. bool painted;
  564. bool border;
  565. __fastcall virtual TComboxScrollBar(Classes::TComponent* AOwner);
  566. __fastcall virtual ~TComboxScrollBar(void);
  567. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  568. };
  571. class PASCALIMPLEMENTATION TSkinComBox : public TSkinControl 
  572. {
  573. typedef TSkinControl inherited;
  575. protected:
  576. unsigned dwStyle;
  577. unsigned ExStyle;
  578. unsigned hlist;
  579. unsigned hbtn;
  580. bool isDrop;
  581. void *FBtnObjectInst;
  582. void *FBtnPrevWndProc;
  583. TSkinScrollbarH* vb;
  584. TComboxScrollBar* db;
  585. #pragma pack(push,1)
  586. tagCOMBOBOXINFO info;
  587. #pragma pack(pop)
  588. #pragma pack(push,1)
  589. Types::TRect rBtn;
  590. #pragma pack(pop)
  591. void __fastcall FindBtn(void);
  592. HIDESBASE void __fastcall DrawSkinMap3(HDC dc, const Types::TRect &rc, Graphics::TBitmap* bmp, int I, int N);
  593. void __fastcall DrawControl1(HDC dc, const Types::TRect &rc);
  594. void __fastcall ButtonProc(Messages::TMessage &Message);
  595. void __fastcall CNCommand(Messages::TWMCommand &Message);
  596. virtual void __fastcall Unsubclass(void);
  597. void __fastcall DrawEdit(HDC dc, const Types::TRect &rc);
  598. void __fastcall SkinDropList(void);
  599. void __fastcall DeleteDropList(void);
  600. void __fastcall DrawBorder(HDC dc, const Types::TRect &rc);
  601. void __fastcall DrawArrow(HDC dc, const Types::TRect &rc, int i);
  603. public:
  604. bool HasButton;
  605. __fastcall virtual TSkinComBox(Classes::TComponent* AOwner);
  606. __fastcall virtual ~TSkinComBox(void);
  607. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  608. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  609. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  610. virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  611. };
  614. class DELPHICLASS TSkinRadioButton;
  615. class PASCALIMPLEMENTATION TSkinRadioButton : public TSkinControl 
  616. {
  617. typedef TSkinControl inherited;
  619. protected:
  620. bool trans;
  622. public:
  623. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  624. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  625. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  626. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  627. public:
  628. #pragma option push -w-inl
  629. /* TSkinControl.Create */ inline __fastcall virtual TSkinRadioButton(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  630. #pragma option pop
  631. #pragma option push -w-inl
  632. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinRadioButton(void) { }
  633. #pragma option pop
  635. };
  638. class DELPHICLASS TSkinStatusBar;
  639. class PASCALIMPLEMENTATION TSkinStatusBar : public TSkinControl 
  640. {
  641. typedef TSkinControl inherited;
  643. protected:
  644. void __fastcall Defaultpaint(Graphics::TCanvas* acanvas, const Types::TRect &rc, int I, WideString text = L"", Classes::TAlignment Align = (Classes::TAlignment)(0x0));
  645. void __fastcall drawitem(HDC dc, const Types::TRect &rc, int I, WideString text = L"", Classes::TAlignment Align = (Classes::TAlignment)(0x0));
  647. public:
  648. bool SizeGrip;
  649. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  650. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  651. public:
  652. #pragma option push -w-inl
  653. /* TSkinControl.Create */ inline __fastcall virtual TSkinStatusBar(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  654. #pragma option pop
  655. #pragma option push -w-inl
  656. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinStatusBar(void) { }
  657. #pragma option pop
  659. };
  662. class DELPHICLASS TSkinBox;
  663. class PASCALIMPLEMENTATION TSkinBox : public TSkinControl 
  664. {
  665. typedef TSkinControl inherited;
  667. public:
  668. int border;
  669. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  670. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  671. virtual void __fastcall Unsubclass(void);
  672. public:
  673. #pragma option push -w-inl
  674. /* TSkinControl.Create */ inline __fastcall virtual TSkinBox(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  675. #pragma option pop
  676. #pragma option push -w-inl
  677. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinBox(void) { }
  678. #pragma option pop
  680. };
  683. class DELPHICLASS TSkinGroupBox;
  684. class PASCALIMPLEMENTATION TSkinGroupBox : public TSkinControl 
  685. {
  686. typedef TSkinControl inherited;
  688. protected:
  689. void __fastcall DefaultDraw(HDC dc, const Types::TRect &rc);
  691. public:
  692. int border;
  693. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  694. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  695. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  696. public:
  697. #pragma option push -w-inl
  698. /* TSkinControl.Create */ inline __fastcall virtual TSkinGroupBox(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  699. #pragma option pop
  700. #pragma option push -w-inl
  701. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinGroupBox(void) { }
  702. #pragma option pop
  704. };
  707. class DELPHICLASS TSkinUpDown;
  708. class PASCALIMPLEMENTATION TSkinUpDown : public TSkinControl 
  709. {
  710. typedef TSkinControl inherited;
  712. protected:
  713. void __fastcall DrawButton(Graphics::TCanvas* acanvas, const Types::TRect &rc, int n, int ar);
  714. void __fastcall DrawSkinButton(HDC dc, const Types::TRect &rc, int n, int ar);
  715. void __fastcall DrawBackGround(const Messages::TMessage &msg);
  717. public:
  718. bool inedit;
  719. int dir;
  720. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  721. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  722. public:
  723. #pragma option push -w-inl
  724. /* TSkinControl.Create */ inline __fastcall virtual TSkinUpDown(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  725. #pragma option pop
  726. #pragma option push -w-inl
  727. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinUpDown(void) { }
  728. #pragma option pop
  730. };
  733. #pragma option push -b-
  734. enum TSkinTabPosition { StTop, Stbottom, Stleft, Stright };
  735. #pragma option pop
  737. typedef DynamicArray<Types::TRect >  WinSubClass__32;
  739. class DELPHICLASS TSkinTab;
  740. class PASCALIMPLEMENTATION TSkinTab : public TSkinControl 
  741. {
  742. typedef TSkinControl inherited;
  744. protected:
  745. DynamicArray<Types::TRect >  CloseRect;
  746. TSkinTabPosition Position;
  747. bool unicode;
  748. void __fastcall Drawitem(HDC dc, const Types::TRect &rc, int I);
  749. void __fastcall ERASEBKGND(HDC dc);
  750. void __fastcall GetPosition(void);
  751. void __fastcall ClipUpdown(HDC dc, const Types::TRect &rc);
  752. bool __fastcall FindScroll(void);
  753. void __fastcall DrawTabBorder(HDC adc);
  754. void __fastcall drawCloseBtn(const Types::TRect &rc, int i);
  755. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  756. bool __fastcall ClickClose(Messages::TMessage &Message);
  758. public:
  759. Graphics::TBitmap* tabbmp;
  760. Graphics::TBitmap* borderbmp;
  761. Graphics::TBitmap* Drawtemp;
  762. TSkinUpDown* updown;
  763. bool showclose;
  764. __fastcall virtual TSkinTab(Classes::TComponent* AOwner);
  765. __fastcall virtual ~TSkinTab(void);
  766. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  767. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  768. virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  769. void __fastcall inittab(void);
  770. virtual void __fastcall SkinChange(void);
  771. };
  774. class DELPHICLASS TSkinTab31;
  775. class PASCALIMPLEMENTATION TSkinTab31 : public TSkinControl 
  776. {
  777. typedef TSkinControl inherited;
  779. protected:
  780. Graphics::TBitmap* tabbmp;
  781. TSkinUpDown* updown;
  782. Controls::TWinControl* scroller;
  784. public:
  785. __fastcall virtual TSkinTab31(Classes::TComponent* AOwner);
  786. __fastcall virtual ~TSkinTab31(void);
  787. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  788. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  789. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  790. void __fastcall inittab(void);
  791. virtual void __fastcall SkinChange(void);
  792. };
  795. class DELPHICLASS TSkinTabBtn;
  796. class PASCALIMPLEMENTATION TSkinTabBtn : public TSkinControl 
  797. {
  798. typedef TSkinControl inherited;
  800. public:
  801. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  802. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  803. public:
  804. #pragma option push -w-inl
  805. /* TSkinControl.Create */ inline __fastcall virtual TSkinTabBtn(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  806. #pragma option pop
  807. #pragma option push -w-inl
  808. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTabBtn(void) { }
  809. #pragma option pop
  811. };
  814. class DELPHICLASS TSkinTransObj;
  815. class PASCALIMPLEMENTATION TSkinTransObj : public TSkinControl 
  816. {
  817. typedef TSkinControl inherited;
  819. protected:
  820. void __fastcall ERASEBKGND(HDC dc);
  822. public:
  823. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  824. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  825. public:
  826. #pragma option push -w-inl
  827. /* TSkinControl.Create */ inline __fastcall virtual TSkinTransObj(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  828. #pragma option pop
  829. #pragma option push -w-inl
  830. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTransObj(void) { }
  831. #pragma option pop
  833. };
  836. class DELPHICLASS TSkinProgress;
  837. class PASCALIMPLEMENTATION TSkinProgress : public TSkinControl 
  838. {
  839. typedef TSkinControl inherited;
  841. public:
  842. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  843. void __fastcall DrawControl1(HDC dc, const Types::TRect &rc);
  844. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  845. public:
  846. #pragma option push -w-inl
  847. /* TSkinControl.Create */ inline __fastcall virtual TSkinProgress(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  848. #pragma option pop
  849. #pragma option push -w-inl
  850. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinProgress(void) { }
  851. #pragma option pop
  853. };
  856. class DELPHICLASS TSkinTrackBar;
  857. class PASCALIMPLEMENTATION TSkinTrackBar : public TSkinControl 
  858. {
  859. typedef TSkinControl inherited;
  861. protected:
  862. void __fastcall Drawthumb(Commctrl::PNMCustomDraw PDraw);
  863. int __fastcall CustomDraw(Commctrl::PNMCustomDraw PDraw);
  864. void __fastcall DrawTrack(Commctrl::PNMCustomDraw PDraw);
  866. public:
  867. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  868. virtual void __fastcall SkinChange(void);
  869. virtual void __fastcall Unsubclass(void);
  870. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  871. public:
  872. #pragma option push -w-inl
  873. /* TSkinControl.Create */ inline __fastcall virtual TSkinTrackBar(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  874. #pragma option pop
  875. #pragma option push -w-inl
  876. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTrackBar(void) { }
  877. #pragma option pop
  879. };
  882. class DELPHICLASS TSkinToolbar;
  883. class PASCALIMPLEMENTATION TSkinToolbar : public TSkinControl 
  884. {
  885. typedef TSkinControl inherited;
  887. protected:
  888. int gradCol1;
  889. int gradCol2;
  890. void __fastcall ERASEBKGND(const Messages::TMessage &msg);
  892. public:
  893. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  894. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  895. public:
  896. #pragma option push -w-inl
  897. /* TSkinControl.Create */ inline __fastcall virtual TSkinToolbar(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  898. #pragma option pop
  899. #pragma option push -w-inl
  900. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinToolbar(void) { }
  901. #pragma option pop
  903. };
  906. class DELPHICLASS TSkinEdit;
  907. class PASCALIMPLEMENTATION TSkinEdit : public TSkinControl 
  908. {
  909. typedef TSkinControl inherited;
  911. protected:
  912. void __fastcall FindUPDown(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas);
  913. void __fastcall DrawControl1(HDC dc, const Types::TRect &rc);
  914. void __fastcall PaintControl1(HDC adc = (HDC)(0x0));
  916. public:
  917. TSkinUpDown* updown;
  918. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  919. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  920. public:
  921. #pragma option push -w-inl
  922. /* TSkinControl.Create */ inline __fastcall virtual TSkinEdit(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  923. #pragma option pop
  924. #pragma option push -w-inl
  925. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinEdit(void) { }
  926. #pragma option pop
  928. };
  931. class DELPHICLASS TSkinSizer;
  932. class PASCALIMPLEMENTATION TSkinSizer : public TSkinControl 
  933. {
  934. typedef TSkinControl inherited;
  936. public:
  937. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  938. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  939. public:
  940. #pragma option push -w-inl
  941. /* TSkinControl.Create */ inline __fastcall virtual TSkinSizer(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  942. #pragma option pop
  943. #pragma option push -w-inl
  944. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinSizer(void) { }
  945. #pragma option pop
  947. };
  950. class DELPHICLASS TSkinBoxH;
  951. class PASCALIMPLEMENTATION TSkinBoxH : public TSkinControl 
  952. {
  953. typedef TSkinControl inherited;
  955. public:
  956. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  957. public:
  958. #pragma option push -w-inl
  959. /* TSkinControl.Create */ inline __fastcall virtual TSkinBoxH(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  960. #pragma option pop
  961. #pragma option push -w-inl
  962. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinBoxH(void) { }
  963. #pragma option pop
  965. };
  968. class DELPHICLASS TSkinTabSheet;
  969. class PASCALIMPLEMENTATION TSkinTabSheet : public TSkinControl 
  970. {
  971. typedef TSkinControl inherited;
  973. public:
  974. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  975. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  976. public:
  977. #pragma option push -w-inl
  978. /* TSkinControl.Create */ inline __fastcall virtual TSkinTabSheet(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  979. #pragma option pop
  980. #pragma option push -w-inl
  981. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTabSheet(void) { }
  982. #pragma option pop
  984. };
  987. class DELPHICLASS TSkinObjImage;
  988. class PASCALIMPLEMENTATION TSkinObjImage : public TSkinControl 
  989. {
  990. typedef TSkinControl inherited;
  992. protected:
  993. void __fastcall ChangeImage(void);
  994. void __fastcall SetRzImage(void);
  995. void __fastcall SetRzRadio(void);
  996. void __fastcall SetDevCheck(void);
  998. public:
  999. int kind;
  1000. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  1001. virtual void __fastcall SkinChange(void);
  1002. virtual void __fastcall Unsubclass(void);
  1003. public:
  1004. #pragma option push -w-inl
  1005. /* TSkinControl.Create */ inline __fastcall virtual TSkinObjImage(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  1006. #pragma option pop
  1007. #pragma option push -w-inl
  1008. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinObjImage(void) { }
  1009. #pragma option pop
  1011. };
  1014. class DELPHICLASS TSkinAdvPage;
  1015. class PASCALIMPLEMENTATION TSkinAdvPage : public TSkinControl 
  1016. {
  1017. typedef TSkinControl inherited;
  1019. protected:
  1020. TSkinUpDown* updown;
  1021. void __fastcall ChangeImage(void);
  1022. void __fastcall SetAdvPage(void);
  1023. bool __fastcall FindScroll(void);
  1025. public:
  1026. int kind;
  1027. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  1028. virtual void __fastcall SkinChange(void);
  1029. virtual void __fastcall Unsubclass(void);
  1030. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  1031. public:
  1032. #pragma option push -w-inl
  1033. /* TSkinControl.Create */ inline __fastcall virtual TSkinAdvPage(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  1034. #pragma option pop
  1035. #pragma option push -w-inl
  1036. /* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinAdvPage(void) { }
  1037. #pragma option pop
  1039. };
  1042. struct TScrollBarPos
  1043. {
  1045. public:
  1046. int Btn;
  1047. int ScrollArea;
  1048. int Thumb;
  1049. int ThumbPos;
  1050. int MsgID;
  1051. } ;
  1053. #pragma option push -b-
  1054. enum TSkinScroll { HB, VB };
  1055. #pragma option pop
  1057. class DELPHICLASS TSkinScrollbar;
  1058. class PASCALIMPLEMENTATION TSkinScrollbar : public TSkinControl 
  1059. {
  1060. typedef TSkinControl inherited;
  1062. protected:
  1063. bool nobe;
  1064. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  1065. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  1066. void __fastcall SetScrollbarPos(const Messages::TMessage &message);
  1067. virtual void __fastcall Unsubclass(void);
  1068. void __fastcall DrawBorder(HDC dc, const Types::TRect &rc);
  1069. void __fastcall BENCPAINT(HDC adc);
  1071. public:
  1072. TWScrollbar* hb;
  1073. TWScrollbar* vb;
  1074. int postype;
  1075. bool painted;
  1076. bool border;
  1077. __fastcall virtual TSkinScrollbar(Classes::TComponent* AOwner);
  1078. __fastcall virtual ~TSkinScrollbar(void);
  1079. virtual void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  1080. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  1081. virtual void __fastcall SkinChange(void);
  1082. };
  1085. class DELPHICLASS TSkinScControl;
  1086. class PASCALIMPLEMENTATION TSkinScControl : public TSkinControl 
  1087. {
  1088. typedef TSkinControl inherited;
  1090. protected:
  1091. int downBtn;
  1092. TScrollBarPos SP;
  1093. TWScrollbar* sb;
  1094. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  1096. public:
  1097. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  1098. void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  1099. virtual void __fastcall Unsubclass(void);
  1100. __fastcall virtual ~TSkinScControl(void);
  1101. public:
  1102. #pragma option push -w-inl
  1103. /* TSkinControl.Create */ inline __fastcall virtual TSkinScControl(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  1104. #pragma option pop
  1106. };
  1109. typedef DynamicArray<Types::TRect >  WinSubClass__14;
  1111. class DELPHICLASS TSkinHeader;
  1112. class PASCALIMPLEMENTATION TSkinHeader : public TSkinControl 
  1113. {
  1114. typedef TSkinControl inherited;
  1116. protected:
  1117. DynamicArray<Types::TRect >  Items;
  1118. int indexitem;
  1119. void __fastcall WMMouseMove(Messages::TMessage &Message);
  1120. void __fastcall DrawItem(unsigned ImgList, Graphics::TCanvas* acanvas, const Types::TRect &rc, int index);
  1121. void __fastcall DrawItemImgCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, unsigned ImgList, int imgIndex, WideString text, int talign = 0x1);
  1123. public:
  1124. __fastcall virtual ~TSkinHeader(void);
  1125. virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  1126. virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
  1127. virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
  1128. virtual void __fastcall AfterProc(Messages::TMessage &Message);
  1129. virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
  1130. public:
  1131. #pragma option push -w-inl
  1132. /* TSkinControl.Create */ inline __fastcall virtual TSkinHeader(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
  1133. #pragma option pop
  1135. };
  1138. class DELPHICLASS TSkinListView;
  1139. class PASCALIMPLEMENTATION TSkinListView : public TSkinScrollbar 
  1140. {
  1141. typedef TSkinScrollbar inherited;
  1143. protected:
  1144. void *FHeaderInstance;
  1145. void *FDefHeaderProc;
  1146. unsigned hHwnd;
  1147. TSkinHeader* header;
  1148. void __fastcall SetHeaderOwnerDraw(void);
  1149. void __fastcall DrawHeaderItem(const tagDRAWITEMSTRUCT &DrawItemStruct);
  1150. void __fastcall Drawheader(void);
  1151. void __fastcall drawitem(HDC dc, const Types::TRect &rc, Comctrls::TListColumn* acolumn);
  1152. void __fastcall WMNotify(Messages::TWMNotify &Message);
  1154. public:
  1155. virtual void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
  1156. void __fastcall HeaderProc(Messages::TMessage &Message);
  1157. public:
  1158. #pragma option push -w-inl
  1159. /* TSkinScrollbar.Create */ inline __fastcall virtual TSkinListView(Classes::TComponent* AOwner) : TSkinScrollbar(AOwner) { }
  1160. #pragma option pop
  1161. #pragma option push -w-inl
  1162. /* TSkinScrollbar.Destroy */ inline __fastcall virtual ~TSkinListView(void) { }
  1163. #pragma option pop
  1165. };
  1168. //-- var, const, procedure ---------------------------------------------------
  1169. static const Byte CM_Scroll1 = 0xa1;
  1170. static const Word CM_Scroll2 = 0x201;
  1171. static const Byte CM_Scroll3 = 0xa2;
  1172. static const Word CM_Scroll4 = 0x202;
  1173. static const Shortint C_Paramv = 0x7;
  1174. static const Shortint C_Paramh = 0x6;
  1175. static const Shortint c_paramB = 0x1;
  1176. static const Byte SBM_GETSCROLLBARINFO = 0xeb;
  1177. extern PACKAGE void __fastcall CopyBMP(Graphics::TBitmap* src, Graphics::TBitmap* &dst);
  1178. extern PACKAGE void __fastcall FillColor(HDC dc, const Types::TRect &rc, Graphics::TColor acolor);
  1179. extern PACKAGE AnsiString __fastcall GetProperty(System::TObject* control, AnsiString aprop);
  1180. extern PACKAGE int __fastcall GetIntProperty(System::TObject* control, AnsiString aprop);
  1181. extern PACKAGE AnsiString __fastcall GetEnumProperty(System::TObject* control, AnsiString aprop);
  1182. extern PACKAGE WideString __fastcall GetStringProp(System::TObject* control, AnsiString aprop);
  1183. extern PACKAGE System::TMethod __fastcall GetObjMethod(System::TObject* control, AnsiString aprop);
  1184. extern PACKAGE System::TObject* __fastcall GetObjProp(System::TObject* control, AnsiString aprop, TMetaClass* MinClass);
  1185. extern PACKAGE void __fastcall SetProperty(System::TObject* control, AnsiString aprop, AnsiString value);
  1186. extern PACKAGE WideString __fastcall StringReplaceW(WideString s, WideString s1, WideString s2);
  1187. extern PACKAGE void __fastcall MyDrawCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, WideString text, bool enabled, bool defaulted, Classes::TAlignment Alignment = (Classes::TAlignment)(0x2));
  1188. extern PACKAGE void __fastcall DrawArrow(Graphics::TCanvas* ACanvas, int X, int Y, int Orientation);
  1189. extern PACKAGE void __fastcall MyDrawImgCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, Imglist::TCustomImageList* ImgList, int imgIndex, AnsiString text, bool enabled, bool defaulted, Classes::TAlignment Alignment = (Classes::TAlignment)(0x2));
  1190. extern PACKAGE Graphics::TBitmap* __fastcall GetDisableImg(Graphics::TBitmap* FOriginal);
  1192. } /* namespace Winsubclass */
  1193. using namespace Winsubclass;
  1194. #pragma pack(pop)
  1195. #pragma option pop
  1197. #pragma delphiheader end.
  1198. //-- end unit ----------------------------------------------------------------
  1199. #endif // Winsubclass