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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
bsSkinData.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：113k
源码类别：

Delphi控件源码

开发平台：

Delphi

bsSkinData.pas：源码内容
  1. {*******************************************************************}
  2. {                                                                   }
  3. {       Almediadev Visual Component Library                         }
  4. {       BusinessSkinForm                                            }
  5. {       Version 1.98                                                }
  6. {                                                                   }
  7. {       Copyright (c) 2000-2003 Almediadev                          }
  8. {       ALL RIGHTS RESERVED                                         }
  9. {                                                                   }
  10. {       Home:  http://www.almdev.com                                }
  11. {       Support: support@almdev.com                                 }
  12. {                                                                   }
  13. {*******************************************************************}
  15. unit bsSkinData;
  17. {$P+,S-,W-,R-}
  18. {$WARNINGS OFF}
  19. {$HINTS OFF}
  22. interface
  24. uses Windows, Messages, SysUtils, Classes, Graphics, bsUtils, Forms,
  25.      IniFiles, bsZLib;
  27. type
  29.   TbsStdCommand = (cmClose, cmMaximize, cmMinimize, cmSysMenu, cmDefault, cmRollUp);
  30.   TbsMorphKind = (mkDefault, mkGradient, mkLeftGradient, mkRightGradient,
  31.                   mkLeftSlide, mkRightSlide, mkPush);
  32.   TbsInActiveEffect = (ieBrightness, ieDarkness, ieGrayScale,
  33.                        ieNoise, ieSplitBlur, ieInvert);
  35.   TbsDataSkinControl = class(TObject)
  36.   public
  37.     IDName: String;
  38.     PictureIndex: Integer;
  39.     MaskPictureIndex: Integer;
  40.     SkinRect: TRect;
  41.     constructor Create(AIDName: String);
  42.     procedure LoadFromFile(IniFile: TCustomIniFile); virtual;
  43.     procedure SaveToFile(IniFile: TCustomIniFile); virtual;
  44.   end;
  46.   TbsDataSkinBevel = class(TbsDataSkinControl)
  47.   public
  48.     LightColor: TColor;
  49.     DarkColor: TColor;
  50.     constructor Create(AIDName: String);
  51.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  52.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  53.   end;
  55.   TbsDataSkinTreeView = class(TbsDataSkinControl)
  56.   public
  57.     FontName: String;
  58.     FontStyle: TFontStyles;
  59.     FontHeight: Integer;
  60.     FontColor: TColor;
  61.     BGColor: TColor;
  62.     constructor Create(AIDName: String);
  63.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  64.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  65.   end;
  67.   TbsDataSkinSlider = class(TbsDataSkinControl)
  68.   public
  69.     HRulerRect: TRect;
  70.     HThumbRect: TRect;
  71.     VRulerRect: TRect;
  72.     VThumbRect: TRect;
  73.     EdgeSize: Integer;
  74.     BGColor: TColor;
  75.     PointsColor: TColor;
  76.     constructor Create(AIDName: String);
  77.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  78.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  79.   end;
  81.   TbsDataSkinListView = class(TbsDataSkinControl)
  82.   public
  83.     FontName: String;
  84.     FontStyle: TFontStyles;
  85.     FontHeight: Integer;
  86.     FontColor: TColor;
  87.     BGColor: TColor;
  88.     constructor Create(AIDName: String);
  89.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  90.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  91.   end;
  93.   TbsDataSkinRichEdit = class(TbsDataSkinControl)
  94.   public
  95.     FontName: String;
  96.     FontStyle: TFontStyles;
  97.     FontHeight: Integer;
  98.     FontColor: TColor;
  99.     BGColor: TColor;
  100.     constructor Create(AIDName: String);
  101.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  102.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  103.   end;
  105.   TbsDataSkinMainMenuBar = class(TbsDataSkinControl)
  106.   public
  107.     ItemsRect: TRect;
  108.     MenuBarItem: String;
  109.     CloseButton: String;
  110.     MaxButton: String;
  111.     MinButton: String;
  112.     SysMenuButton: String;
  113.     TrackMarkColor, TrackMarkActiveColor: Integer;
  114.     constructor Create(AIDName: String);
  115.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  116.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  117.   end;
  119.   TbsDataSkinTabControl = class(TbsDataSkinControl)
  120.   public
  121.     TabRect, ActiveTabRect, FocusTabRect, MouseInTabRect: TRect;
  122.     ClRect: TRect;
  123.     TabsBGRect: TRect;
  124.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  125.     TabLeftOffset, TabRightOffset: Integer;
  126.     FontName: String;
  127.     FontStyle: TFontStyles;
  128.     FontHeight: Integer;
  129.     FontColor, ActiveFontColor, FocusFontColor, MouseInFontColor: TColor;
  130.     UpDown: String;
  131.     BGPictureIndex: Integer;
  132.     constructor Create(AIDName: String);
  133.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  134.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  135.   end;
  137.   TbsDataSkinGridControl = class(TbsDataSkinControl)
  138.   public
  139.     FixedCellRect, SelectCellRect, FocusCellRect: TRect;
  140.     //
  141.     FixedCellLeftOffset, FixedCellRightOffset: Integer;
  142.     FixedCellTextRect: TRect;
  143.     //
  144.     CellLeftOffset, CellRightOffset: Integer;
  145.     CellTextRect: TRect;
  146.     //
  147.     LinesColor, BGColor: TColor;
  148.     FontName: String;
  149.     FontStyle: TFontStyles;
  150.     FontHeight: Integer;
  151.     FontColor, SelectFontColor, FocusFontColor: TColor;
  152.     FixedFontName: String;
  153.     FixedFontStyle: TFontStyles;
  154.     FixedFontHeight: Integer;
  155.     FixedFontColor: TColor;
  156.     constructor Create(AIDName: String);
  157.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  158.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  159.   end;
  161.   TbsDataSkinCustomControl = class(TbsDataSkinControl)
  162.   public
  163.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  164.     ClRect: TRect;
  165.     constructor Create(AIDName: String);
  166.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  167.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  168.   end;
  170.   TbsDataSkinControlBar = class(TbsDataSkinCustomControl)
  171.   public
  172.     ItemRect: TRect;
  173.     BGPictureIndex: Integer;
  174.     constructor Create(AIDName: String);
  175.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  176.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  177.   end;
  179.   TbsDataSkinUpDownControl = class(TbsDataSkinCustomControl)
  180.   public
  181.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  182.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  183.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  184.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  185.   end;
  186.   
  187.   TbsDataSkinComboBox = class(TbsDataSkinCustomControl)
  188.   public
  189.     //
  190.     SItemRect, FocusItemRect: TRect;
  191.     ItemLeftOffset, ItemRightOffset: Integer;
  192.     ItemTextRect: TRect;
  193.     FontName: String;
  194.     FontStyle: TFontStyles;
  195.     FontHeight: Integer;
  196.     FontColor, FocusFontColor: TColor;
  197.     ButtonRect,
  198.     ActiveButtonRect,
  199.     DownButtonRect,
  200.     UnEnabledButtonRect: TRect;
  201.     //
  202.     ListBoxName: String;
  203.     constructor Create(AIDName: String);
  204.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  205.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  206.   end;
  208.   TbsDataSkinListBox = class(TbsDataSkinCustomControl)
  209.   public
  210.     //
  211.     SItemRect, ActiveItemRect, FocusItemRect: TRect;
  212.     ItemLeftOffset, ItemRightOffset: Integer;
  213.     ItemTextRect: TRect;
  214.     FontName: String;
  215.     FontStyle: TFontStyles;
  216.     FontHeight: Integer;
  217.     FontColor, ActiveFontColor, FocusFontColor: TColor;
  218.     //
  219.     CaptionRect: TRect;
  220.     CaptionFontName: String;
  221.     CaptionFontStyle: TFontStyles;
  222.     CaptionFontHeight: Integer;
  223.     CaptionFontColor: TColor;
  224.     //
  225.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  226.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  227.     CheckButtonRect, ActiveCheckButtonRect, DownCheckButtonRect: TRect;
  228.     //
  229.     HScrollBarName: String;
  230.     VScrollBarName: String;
  231.     BothScrollBarName: String;
  232.     constructor Create(AIDName: String);
  233.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  234.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  235.   end;
  237.   TbsDataSkinCheckListBox = class(TbsDataSkinListBox)
  238.   public
  239.     UnCheckImageRect, CheckImageRect: TRect;
  240.     ItemCheckRect: TRect;
  241.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  242.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  243.   end;
  245.   TbsDataSkinScrollBarControl = class(TbsDataSkinCustomControl)
  246.   public
  247.     TrackArea: TRect;
  248.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  249.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  250.     ThumbRect, ActiveThumbRect, DownThumbRect: TRect;
  251.     ThumbOffset1, ThumbOffset2: Integer;
  252.     GlyphRect, ActiveGlyphRect, DownGlyphRect: TRect;
  253.     constructor Create(AIDName: String);
  254.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  255.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  256.  end;
  258.  TbsDataSkinSpinEditControl = class(TbsDataSkinCustomControl)
  259.  public
  260.    FontName: String;
  261.    FontStyle: TFontStyles;
  262.    FontHeight: Integer;
  263.    FontColor: TColor;
  264.    UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  265.    DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  266.    constructor Create(AIDName: String);
  267.    procedure LoadFromFile(IniFile: TCustomIniFile); override;
  268.    procedure SaveToFile(IniFile: TCustomIniFile); override;
  269.  end;
  271.   TbsDataSkinEditControl = class(TbsDataSkinCustomControl)
  272.   public
  273.     ActiveSkinRect: TRect;
  274.     FontName: String;
  275.     FontStyle: TFontStyles;
  276.     FontHeight: Integer;
  277.     FontColor, DisabledFontColor: TColor;
  278.     ActiveFontColor: TColor;
  279.     ButtonRect: TRect;
  280.     ActiveButtonRect: TRect;
  281.     DownButtonRect: TRect;
  282.     constructor Create(AIDName: String);
  283.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  284.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  285.   end;
  287.   TbsDataSkinMemoControl = class(TbsDataSkinEditControl)
  288.   public
  289.     BGColor: TColor;
  290.     ActiveBGColor: TColor;
  291.     constructor Create(AIDName: String);
  292.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  293.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  294.   end;
  296.   TbsDataSkinStdLabelControl = class(TbsDataSkinControl)
  297.   public
  298.     FontName: String;
  299.     FontStyle: TFontStyles;
  300.     FontHeight: Integer;
  301.     FontColor: TColor;
  302.     ActiveFontColor: TColor;
  303.     constructor Create(AIDName: String);
  304.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  305.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  306.   end;
  308.   TbsDataSkinLabelControl = class(TbsDataSkinCustomControl)
  309.   public
  310.     FontName: String;
  311.     FontStyle: TFontStyles;
  312.     FontHeight: Integer;
  313.     FontColor: TColor;
  314.     constructor Create(AIDName: String);
  315.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  316.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  317.   end;
  319.   TbsDataSkinSplitterControl = class(TbsDataSkinCustomControl);
  320.   
  321.   TbsDataSkinGaugeControl = class(TbsDataSkinCustomControl)
  322.   public
  323.     ProgressArea, ProgressRect: TRect;
  324.     Vertical: Boolean;
  325.     BeginOffset, EndOffset: Integer;
  326.     FontName: String;
  327.     FontStyle: TFontStyles;
  328.     FontHeight: Integer;
  329.     FontColor: TColor;
  330.     constructor Create(AIDName: String);
  331.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  332.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  333.   end;
  335.   TbsDataSkinTrackBarControl = class(TbsDataSkinCustomControl)
  336.   public
  337.     TrackArea, ButtonRect, ActiveButtonRect: TRect;
  338.     Vertical: Boolean;
  339.     constructor Create(AIDName: String);
  340.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  341.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  342.   end;
  344.   TbsDataSkinButtonControl = class(TbsDataSkinCustomControl)
  345.   public
  346.     FontName: String;
  347.     FontStyle: TFontStyles;
  348.     FontHeight: Integer;
  349.     FontColor, ActiveFontColor, DownFontColor, DisabledFontColor: TColor;
  350.     ActiveSkinRect, DownSkinRect, DisabledSkinRect: TRect;
  351.     Morphing: Boolean;
  352.     MorphKind: TbsMorphKind;
  353.     constructor Create(AIDName: String);
  354.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  355.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  356.   end;
  358.   TbsDataSkinMenuButtonControl = class(TbsDataSkinButtonControl)
  359.   public
  360.     TrackButtonRect: TRect;
  361.     constructor Create(AIDName: String);
  362.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  363.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  364.   end;
  366.   TbsDataSkinCheckRadioControl = class(TbsDataSkinCustomControl)
  367.   public
  368.     FontName: String;
  369.     FontStyle: TFontStyles;
  370.     FontHeight: Integer;
  371.     FontColor, ActiveFontColor, UnEnabledFontColor: TColor;
  372.     ActiveSkinRect: TRect;
  373.     CheckImageArea, TextArea,
  374.     CheckImageRect, UnCheckImageRect: TRect;
  375.     ActiveCheckImageRect, ActiveUnCheckImageRect: TRect;
  376.     UnEnabledCheckImageRect, UnEnabledUnCheckImageRect: TRect;
  377.     Morphing: Boolean;
  378.     MorphKind: TbsMorphKind;
  379.     FrameFontColor: TColor;
  380.     constructor Create(AIDName: String);
  381.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  382.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  383.   end;
  385.   TbsDataSkinScrollBoxControl = class(TbsDataSkinCustomControl)
  386.   public
  387.     BGPictureIndex: Integer;
  388.     constructor Create(AIDName: String);
  389.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  390.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  391.   end;
  393.   TbsDataSkinPanelControl = class(TbsDataSkinCustomControl)
  394.   public
  395.     CaptionRect: TRect;
  396.     RollUpMarkerRect: TRect;
  397.     RestoreMarkerRect: TRect;
  398.     Alignment: TAlignment;
  399.     FontName: String;
  400.     FontStyle: TFontStyles;
  401.     FontHeight: Integer;
  402.     FontColor: TColor;
  403.     BGPictureIndex: Integer;
  404.     CheckImageRect, UnCheckImageRect: TRect; 
  405.     constructor Create(AIDName: String);
  406.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  407.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  408.   end;
  410.   TbsDataSkinExPanelControl = class(TbsDataSkinCustomControl)
  411.   public
  412.     //
  413.     RollHSkinRect, RollVSkinRect: TRect;
  414.     RollLeftOffset, RollRightOffset,
  415.     RollTopOffset, RollBottomOffset: Integer;
  416.     RollVCaptionRect, RollHCaptionRect: TRect;
  417.     //
  418.     CloseButtonRect, CloseButtonActiveRect, CloseButtonDownRect: TRect;
  419.     HRollButtonRect, HRollButtonActiveRect, HRollButtonDownRect: TRect;
  420.     HRestoreButtonRect, HRestoreButtonActiveRect, HRestoreButtonDownRect: TRect;
  421.     VRollButtonRect, VRollButtonActiveRect, VRollButtonDownRect: TRect;
  422.     VRestoreButtonRect, VRestoreButtonActiveRect, VRestoreButtonDownRect: TRect;
  423.     //
  424.     CaptionRect: TRect;
  425.     FontName: String;
  426.     FontStyle: TFontStyles;
  427.     FontHeight: Integer;
  428.     FontColor: TColor;
  429.     constructor Create(AIDName: String);
  430.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  431.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  432.   end;
  434.   TbsDataSkinObject = class(TObject)
  435.   public
  436.     IDName: String;
  437.     Hint: String;
  438.     SkinRectInAPicture: Boolean;
  439.     SkinRect: TRect;
  440.     ActiveSkinRect: TRect;
  441.     ActivePictureIndex: Integer;
  442.     Morphing: Boolean;
  443.     MorphKind: TbsMorphKind;
  444.     constructor Create(AIDName: String);
  445.     procedure LoadFromFile(IniFile: TCustomIniFile); virtual;
  446.     procedure SaveToFile(IniFile: TCustomIniFile); virtual;
  447.   end;
  449.   TbsDataUserObject = class(TbsDataSkinObject)
  450.   public
  451.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  452.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  453.   end;
  455.   TbsDataSkinButton = class(TbsDataSkinObject)
  456.   public
  457.     DownRect: TRect;
  458.     DisableSkinRect: TRect;
  459.     constructor Create(AIDName: String);
  460.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  461.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  462.   end;
  464.   TbsDataSkinStdButton = class(TbsDataSkinButton)
  465.   public
  466.     Command: TbsStdCommand;
  467.     RestoreRect: TRect;
  468.     RestoreActiveRect: TRect;
  469.     RestoreDownRect: TRect;
  470.     RestoreInActiveRect: TRect;
  471.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  472.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  473.   end;
  475.   TbsDataSkinMainMenuBarButton = class(TbsDataSkinStdButton);
  477.   TbsDataSkinPopupWindow = class(TObject)
  478.   public
  479.     WindowPictureIndex: Integer;
  480.     MaskPictureIndex: Integer;
  481.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  482.     ItemsRect: TRect;
  483.     ScrollMarkerColor, ScrollMarkerActiveColor: Integer;
  484.     constructor Create;
  485.     procedure LoadFromFile(IniFile: TCustomIniFile);
  486.     procedure SaveToFile(IniFile: TCustomIniFile);
  487.   end;
  489.   TbsDataSkinHintWindow = class(TObject)
  490.   public
  491.     WindowPictureIndex: Integer;
  492.     MaskPictureIndex: Integer;
  493.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  494.     ClRect: TRect;
  495.     FontName: String;
  496.     FontStyle: TFontStyles;
  497.     FontHeight: Integer;
  498.     FontColor: TColor;
  499.     constructor Create;
  500.     procedure LoadFromFile(IniFile: TCustomIniFile);
  501.     procedure SaveToFile(IniFile: TCustomIniFile);
  502.   end;
  504.   TbsDataSkinMenuItem = class(TbsDataSkinObject)
  505.   public
  506.     DividerRect: TRect;
  507.     DividerLO, DividerRO: Integer;
  508.     ItemLO, ItemRO: Integer;
  509.     FontName: String;
  510.     FontHeight: Integer;
  511.     FontStyle: TFontStyles;
  512.     UnEnabledFontColor, FontColor, ActiveFontColor: TColor;
  513.     TextRct: TRect;
  514.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  515.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  516.   end;
  518.   TbsDataSkinMainMenuItem = class(TbsDataSkinObject)
  519.   public
  520.     DownRect: TRect;
  521.     FontName: String;
  522.     FontHeight: Integer;
  523.     FontStyle: TFontStyles;
  524.     FontColor, ActiveFontColor, DownFontColor, UnEnabledFontColor: TColor;
  525.     TextRct: TRect;
  526.     ItemLO, ItemRO: Integer;
  527.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  528.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  529.   end;
  531.   TbsDataSkinMainMenuBarItem = class(TbsDataSkinMainMenuItem);
  533.   TbsDataSkinCaption = class(TbsDataSkinObject)
  534.   public
  535.     FontName: String;
  536.     FontHeight: Integer;
  537.     FontStyle: TFontStyles;
  538.     FontColor, ActiveFontColor: TColor;
  539.     ShadowColor, ActiveShadowColor: TColor;
  540.     Shadow: Boolean;
  541.     Alignment: TAlignment;
  542.     TextRct: TRect;
  543.     FrameRect, ActiveFrameRect: TRect;
  544.     FrameLeftOffset, FrameRightOffset: Integer;
  545.     FrameTextRect: TRect;
  546.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  547.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  548.   end;
  550.   TbsStoredSkin = class(TComponent)
  551.   protected
  552.     FFileName: String;
  553.     FIniStrings: TStrings;
  554.     procedure ClearBitMaps;
  555.   public
  556.     FPicture, FInActivePicture, FMask: TBitMap;
  557.     FActivePictures: TList;
  558.     procedure SetFileName(Value: String);
  559.     procedure SetIniStrings(Value: TStrings);
  560.     constructor Create(AOwner: TComponent); override;
  561.     destructor Destroy; override;
  562.     procedure LoadFromFile(AFileName: String);
  563.     procedure ReadData(Reader: TStream);
  564.     procedure WriteData(Writer: TStream);
  565.     procedure DefineProperties(Filer: TFiler); override;
  566.   published
  567.     property FileName: String read FFileName write SetFileName;
  568.     property IniStrings: TStrings read FIniStrings write SetIniStrings;
  569.   end;
  571.   TbsCompressedStoredSkin = class(TComponent)
  572.   private
  573.     FFileName: String;
  574.     FCompressedStream: TMemoryStream;
  575.     procedure SetFileName(Value: String);
  576.     function GetEmpty: Boolean;
  577.   protected
  578.     procedure ReadData(Reader: TStream);
  579.     procedure WriteData(Writer: TStream);
  580.     procedure DefineProperties(Filer: TFiler); override;
  581.   public
  582.     constructor Create(AOwner: TComponent); override;
  583.     destructor Destroy; override;
  584.     procedure LoadFromIniFile(AFileName: String);
  585.     procedure LoadFromCompressFile(AFileName: String);
  586.     procedure SaveToCompressFile(AFileName: String);
  587.     procedure DeCompressToStream(var S: TMemoryStream);
  588.     property Empty: Boolean read GetEmpty;
  589.   published
  590.     property FileName: String read FFileName write SetFileName;
  591.   end;
  593.   TbsSkinData = class(TComponent)
  594.   protected
  595.     FStoredSkin: TbsStoredSkin;
  596.     FCompressedStoredSkin: TbsCompressedStoredSkin;
  597.     Names: TStrings;
  598.     procedure Notification(AComponent: TComponent;
  599.                            Operation: TOperation); override;
  600.     procedure SetStoredSkin(Value: TbsStoredSkin);
  601.     procedure SetCompressedStoredSkin(Value: TbsCompressedStoredSkin);
  602.     procedure LoadNames;
  603.     procedure EraseSections(F: TCustomIniFile);
  604.     procedure WriteFormInfo(F: TCustomIniFile);
  605.     procedure ReadFormInfo(F: TCustomIniFile);
  606.     procedure WriteObjects(F: TCustomIniFile);
  607.     procedure ReadObjects(F: TCustomIniFile);
  608.     procedure WriteCtrls(F: TCustomIniFile);
  609.     procedure ReadCtrls(F: TCustomIniFile);
  610.     procedure WriteActivePictures(F: TCustomIniFile);
  611.     procedure ReadActivePictures(F: TCustomIniFile; Path: String);
  612.     procedure GetObjectTypeName(S: String; var AName, AType: String);
  613.   public
  614.     //
  615.     ButtonsRect, CaptionRect: TRect;
  616.     ButtonsOffset: Integer;
  617.     CapButtonsInLeft: Boolean; 
  618.     //
  619.     AutoRenderingInActiveImage: Boolean;
  620.     InActiveEffect: TbsInActiveEffect;
  621.     BuildMode: Boolean;
  622.     PopupWindow: TbsDataSkinPopupWindow;
  623.     HintWindow: TbsDataSkinHintWindow;
  624.     Empty: Boolean;
  625.     FPicture, FInActivePicture, FMask: TBitMap;
  626.     FActivePictures: TList;
  627.     FPictureName, FInActivePictureName, FMaskName: String;
  628.     FActivePicturesNames: TStrings;
  629.     ObjectList: TList;
  630.     CtrlList: TList;
  631.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  632.     BGPictureIndex: Integer;
  633.     MainMenuPopupUp: Boolean;
  634.     MaskRectArea: TRect;
  635.     HitTestLTPoint,
  636.     HitTestRTPoint,
  637.     HitTestLBPoint,
  638.     HitTestRBPoint: TPoint;
  639.     ClRect: TRect;
  640.     BorderW: Integer;
  642.     SkinName: String;
  643.     SkinAuthor: String;
  644.     AuthorURL: String;
  645.     AuthorEmail: String;
  646.     SkinComments: String;
  648.     procedure AddBitMap(FileName: String);
  649.     procedure DeleteBitMap(Index: Integer);
  651.     procedure SendSkinDataMessage(M: LongInt);
  653.     function GetIndex(AIDName: String): Integer;
  654.     function GetControlIndex(AIDName: String): Integer;
  655.     procedure ClearObjects;
  656.     procedure ClearAll;
  657.     constructor Create(AOwner: TComponent); override;
  658.     destructor Destroy; override;
  659.     procedure LoadFromFile(FileName: String);
  660.     procedure SaveToFile(FileName: String);
  661.     procedure LoadStoredSkin(AStoredSkin: TbsStoredSkin);
  662.     procedure LoadCompressedStoredSkin(AStoredSkin: TbsCompressedStoredSkin);
  663.     procedure ClearSkin;
  665.   published
  666.     property StoredSkin: TbsStoredSkin read FStoredSkin write SetStoredSkin;
  667.     property CompressedStoredSkin: TbsCompressedStoredSkin
  668.       read FCompressedStoredSkin write SetCompressedStoredSkin;
  669.   end;
  671.   function ReadInActiveEffect(IniFile: TCustomIniFile;
  672.                               Section: String; Ident: String): TbsInActiveEffect;
  674.   procedure WriteInActiveEffect(IniFile: TCustomIniFile;
  675.                                 Section: String; Ident: String;
  676.                                 IE: TbsInActiveEffect);
  678.   procedure WriteMorphKind(IniFile: TCustomIniFile;
  679.                            Section: String; Ident: String; MK: TbsMorphKind);
  681.   function ReadMorphKind(IniFile: TCustomIniFile;
  682.                          Section: String; Ident: String): TbsMorphKind;
  686. // Internal messages
  687. const
  688.   WM_BEFORECHANGESKINDATA = WM_USER + 201;
  689.   WM_CHANGESKINDATA = WM_USER + 202;
  690.   WM_AFTERCHANGESKINDATA = WM_USER + 203;
  692. implementation
  694. function CheckSkinFile(F: TCustomIniFile): Boolean;
  695. begin
  696.   Result := F.SectionExists('VERSION') and F.SectionExists('PICTURES') and
  697.             F.SectionExists('FORMINFO') and F.SectionExists('SKINOBJECTS') and
  698.             F.SectionExists('SKINCONTROLS');
  699. end;
  701. procedure WriteInActiveEffect;
  702. var
  703.   S: String;
  704. begin
  705.   case IE of
  706.     ieBrightness: S := 'iebrightness';
  707.     ieDarkness: S := 'iedarkness';
  708.     ieGrayScale: S := 'iegrayscale';
  709.     ieNoise: S := 'ienoise';
  710.     ieSplitBlur: S := 'iesplitblur';
  711.     ieInvert: S := 'ieinvert';
  712.   end;
  713.   IniFile.WriteString(Section, Ident, S);
  714. end;
  716. function ReadInActiveEffect;
  717. var
  718.   S: String;
  719. begin
  720.   S := IniFile.ReadString(Section, Ident, 'iebrightness');
  721.   if S = 'iebrightness'
  722.   then Result := ieBrightness
  723.   else
  724.   if S = 'iedarkness'
  725.   then Result := ieDarkness
  726.   else
  727.   if S = 'iegrayscale'
  728.   then Result := ieGrayScale
  729.   else
  730.   if S = 'ienoise'
  731.   then Result := ieNoise
  732.   else
  733.   if S = 'iesplitblur'
  734.   then Result := ieSplitBlur
  735.   else
  736.   if S = 'ieinvert'
  737.   then Result := ieInvert;
  738. end;
  740. function ReadMorphKind;
  741. var
  742.   S: String;
  743. begin
  744.   S := IniFile.ReadString(Section, Ident, 'mkdefault');
  745.   if S = 'mkdefault'
  746.   then Result := mkDefault
  747.   else
  748.   if S = 'mkgradient'
  749.   then Result := mkGradient
  750.   else
  751.   if S = 'mkleftgradient'
  752.   then Result := mkLeftGradient
  753.   else
  754.   if S = 'mkrightgradient'
  755.   then Result := mkRightGradient
  756.   else
  757.   if S = 'mkleftslide'
  758.   then Result := mkLeftSlide
  759.   else
  760.   if S = 'mkrightslide'
  761.   then Result := mkRightSlide
  762.   else
  763.   if S = 'mkpush'
  764.   then Result := mkPush;
  765. end;
  767. procedure WriteMorphKind;
  768. var
  769.   S: String;
  770. begin
  771.   case MK of
  772.     mkDefault: S := 'mkdefault';
  773.     mkGradient: S := 'mkgradient';
  774.     mkLeftGradient: S := 'mkleftgradient';
  775.     mkRightGradient: S := 'mkrightgradient';
  776.     mkLeftSlide: S := 'mkleftslide';
  777.     mkRightSlide: S := 'mkrightslide';
  778.     mkPush: S := 'mkpush';
  779.   end;
  780.   IniFile.WriteString(Section, Ident, S);
  781. end;
  783. constructor TbsDataSkinControl.Create;
  784. begin
  785.   IDName := AIDName;
  786.   PictureIndex := -1;
  787.   MaskPictureIndex := -1;
  788.   SkinRect := Rect(0, 0, 0, 0);
  789. end;
  791. procedure TbsDataSkinControl.LoadFromFile;
  792. begin
  793.   PictureIndex := IniFile.ReadInteger(IDName, 'pictureindex', -1);
  794.   MaskPictureIndex := IniFile.ReadInteger(IDName, 'maskpictureindex', -1);
  795.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  796. end;
  798. procedure TbsDataSkinControl.SaveToFile;
  799. begin
  800.   IniFile.EraseSection(IDName);
  801.   IniFile.WriteInteger(IDName, 'pictureindex', PictureIndex);
  802.   IniFile.WriteInteger(IDName, 'maskpictureindex', MaskPictureIndex);
  803.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  804. end;
  806. constructor TbsDataSkinMainMenuBar.Create;
  807. begin
  808.   inherited;
  809.   TrackMarkColor := 0;
  810.   TrackMarkActiveColor := 0;
  811. end;
  813. procedure TbsDataSkinMainMenuBar.LoadFromFile;
  814. begin
  815.   inherited;
  816.   ItemsRect := ReadRect(IniFile, IDName, 'itemsrect');
  817.   MenuBarItem := IniFile.ReadString(IDName, 'menubaritem', '');
  818.   CloseButton := IniFile.ReadString(IDName, 'closebutton', '');
  819.   MinButton := IniFile.ReadString(IDName, 'minbutton', '');
  820.   MaxButton := IniFile.ReadString(IDName, 'maxbutton', '');
  821.   SysMenuButton := IniFile.ReadString(IDName, 'sysmenubutton', '');
  822.   TrackMarkColor := IniFile.ReadInteger(IDName, 'trackmarkcolor', 0);
  823.   TrackMarkActiveColor := IniFile.ReadInteger(IDName, 'trackmarkactivecolor', 0);
  824. end;
  826. procedure TbsDataSkinMainMenuBar.SaveToFile;
  827. begin
  828.   inherited;
  829.   WriteRect(IniFile, IDName, 'itemsrect', ItemsRect);
  830.   IniFile.WriteString(IDName, 'menubaritem', MenuBarItem);
  831.   IniFile.WriteString(IDName, 'closebutton', CloseButton);
  832.   IniFile.WriteString(IDName, 'minbutton', MinButton);
  833.   IniFile.WriteString(IDName, 'maxbutton', MaxButton);
  834.   IniFile.WriteString(IDName, 'sysmenubutton', SysMenuButton);
  835.   IniFile.WriteInteger(IDName, 'trackmarkcolor', TrackMarkColor);
  836.   IniFile.WriteInteger(IDName, 'trackmarkactivecolor', TrackMarkActiveColor);
  837. end;
  839. procedure TbsDataSkinUpDownControl.LoadFromFile(IniFile: TCustomIniFile);
  840. begin
  841.   inherited;
  842.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  843.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  844.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  845.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  846.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  847.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  848.   LTPoint := Point(0, 0);
  849.   RTPoint := Point(0, 0);
  850.   LBPoint := Point(0, 0);
  851.   RBPoint := Point(0, 0);
  852.   ClRect := NullRect;
  853. end;
  855. procedure TbsDataSkinUpDownControl.SaveToFile(IniFile: TCustomIniFile);
  856. begin
  857.   LTPoint := Point(0, 0);
  858.   RTPoint := Point(0, 0);
  859.   LBPoint := Point(0, 0);
  860.   RBPoint := Point(0, 0);
  861.   ClRect := NullRect;
  862.   inherited;
  863.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  864.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  865.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  866.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  867.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  868.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  869. end;
  871. constructor TbsDataSkinListBox.Create(AIDName: String);
  872. begin
  873.   inherited;
  874.   FontName := 'Arial';
  875.   FontStyle := [];
  876.   FontHeight := 14;
  877.   FontColor := 0;
  878.   HScrollBarName := '';
  879.   VScrollBarName := '';
  880.   BothScrollBarName := '';
  881.   CaptionFontName := 'Arial';
  882.   CaptionFontStyle := [];
  883.   CaptionFontHeight := 14;
  884.   CaptionFontColor := 0;
  885. end;
  887. procedure TbsDataSkinListBox.LoadFromFile;
  888. begin
  889.   inherited;
  890.   //
  891.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  892.   ActiveItemRect := ReadRect(IniFile, IDName, 'activeitemrect');
  893.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  894.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  895.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  896.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  897.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  898.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  899.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  900.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  901.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  902.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  903.   //
  904.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  905.   CaptionFontName := IniFile.ReadString(IDName, 'captionfontname', 'Arial');
  906.   CaptionFontHeight := IniFile.ReadInteger(IDName, 'captionfontheight', 14);
  907.   CaptionFontStyle := ReadFontStyles(IniFile, IDName, 'captionfontstyle');
  908.   CaptionFontColor := IniFile.ReadInteger(IDName, 'captionfontcolor', 0);
  909.   //
  910.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  911.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  912.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  913.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  914.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  915.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  916.   CheckButtonRect := ReadRect(IniFile, IDName, 'checkbuttonrect');
  917.   ActiveCheckButtonRect := ReadRect(IniFile, IDName, 'activecheckbuttonrect');
  918.   DownCheckButtonRect := ReadRect(IniFile, IDName, 'downcheckbuttonrect');
  919.   //
  920.   VScrollBarName := IniFile.ReadString(IDName, 'vscrollbarname', 'vscrollbar');
  921.   HScrollBarName := IniFile.ReadString(IDName, 'hscrollbarname', 'hscrollbar');
  922.   BothScrollBarName := IniFile.ReadString(IDName, 'bothhscrollbarname', 'bothhscrollbar');
  923. end;
  925. procedure TbsDataSkinListBox.SaveToFile;
  926. begin
  927.   inherited;
  928.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  929.   WriteRect(IniFile, IDName, 'activeitemrect', ActiveItemRect);
  930.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  931.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  932.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  933.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  934.   IniFile.WriteString(IDName, 'fontname', FontName);
  935.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  936.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  937.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  938.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  939.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  940.   //
  941.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  942.   IniFile.WriteString(IDName, 'captionfontname', CaptionFontName);
  943.   IniFile.WriteInteger(IDName, 'captionfontheight', CaptionFontHeight);
  944.   WriteFontStyles(IniFile, IDName, 'captionfontstyle', CaptionFontStyle);
  945.   IniFile.WriteInteger(IDName, 'captionfontcolor', CaptionFontColor);
  946.   //
  947.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  948.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  949.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  950.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  951.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  952.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  953.   WriteRect(IniFile, IDName, 'checkbuttonrect', CheckButtonRect);
  954.   WriteRect(IniFile, IDName, 'activecheckbuttonrect', ActiveCheckButtonRect);
  955.   WriteRect(IniFile, IDName, 'downcheckbuttonrect', DownCheckButtonRect);
  956.   //
  957.   IniFile.WriteString(IDName, 'vscrollbarname', VScrollBarName);
  958.   IniFile.WriteString(IDName, 'hscrollbarname', HScrollBarName);
  959.   IniFile.WriteString(IDName, 'bothhscrollbarname', BothScrollBarName);
  960. end;
  962. procedure TbsDataSkinCheckListBox.LoadFromFile;
  963. begin
  964.   inherited;
  965.   ItemCheckRect := ReadRect(IniFile, IDName, 'itemcheckrect');
  966.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  967.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  968. end;
  970. procedure TbsDataSkinCheckListBox.SaveToFile;
  971. begin
  972.   inherited;
  973.   WriteRect(IniFile, IDName, 'itemcheckrect', ItemCheckRect);
  974.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  975.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  976. end;
  978. constructor TbsDataSkinComboBox.Create(AIDName: String);
  979. begin
  980.   inherited;
  981.   FontName := 'Arial';
  982.   FontStyle := [];
  983.   FontHeight := 14;
  984.   FontColor := 0;
  985.   FocusFontColor := 0;
  986.   ListBoxName := '';
  987. end;
  989. procedure TbsDataSkinComboBox.LoadFromFile;
  990. begin
  991.   inherited;
  992.   //
  993.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  994.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  995.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  996.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  997.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  998.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  999.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1000.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1001.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1002.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1003.   //
  1004.   ListBoxName := IniFile.ReadString(IDName, 'listboxname', '');
  1005.   //
  1006.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1007.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1008.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1009.   UnEnabledButtonRect := ReadRect(IniFile, IDName, 'unenabledbuttonrect');
  1010.   //
  1011. end;
  1013. procedure TbsDataSkinComboBox.SaveToFile;
  1014. begin
  1015.   inherited;
  1016.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  1017.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  1018.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  1019.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  1020.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  1021.   IniFile.WriteString(IDName, 'fontname', FontName);
  1022.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1023.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1024.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1025.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1026.   //
  1027.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1028.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1029.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1030.   WriteRect(IniFile, IDName, 'unenabledbuttonrect', UnEnabledButtonRect);
  1031.   //
  1032.   IniFile.WriteString(IDName, 'listboxname', ListBoxName);
  1033. end;
  1035. constructor TbsDataSkinControlBar.Create(AIDName: String);
  1036. begin
  1037.   inherited;
  1038.   BGPictureIndex := -1;
  1039. end;
  1041. procedure TbsDataSkinControlBar.LoadFromFile;
  1042. begin
  1043.   inherited;
  1044.   ItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1045.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1046. end;
  1048. procedure TbsDataSkinControlBar.SaveToFile;
  1049. begin
  1050.   inherited;
  1051.   WriteRect(IniFile, IDName, 'itemrect', ItemRect);
  1052.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1053. end;
  1055. constructor TbsDataSkinSlider.Create;
  1056. begin
  1057.   inherited;
  1058.   BGColor := 0;
  1059. end;
  1061. procedure TbsDataSkinSlider.LoadFromFile;
  1062. begin
  1063.   inherited;
  1064.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1065.   HRulerRect := ReadRect(IniFile, IDName, 'hrulerrect');
  1066.   HThumbRect := ReadRect(IniFile, IDName, 'hthumbrect');
  1067.   VRulerRect := ReadRect(IniFile, IDName, 'vrulerrect');
  1068.   VThumbRect := ReadRect(IniFile, IDName, 'vthumbrect');
  1069.   EdgeSize := IniFile.ReadInteger(IDName, 'edgesize', 0);
  1070.   PointsColor := IniFile.ReadInteger(IDName, 'pointscolor', 0);
  1071. end;
  1073. procedure TbsDataSkinSlider.SaveToFile;
  1074. begin
  1075.   inherited;
  1076.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1077.   WriteRect(IniFile, IDName, 'hrulerrect', HRulerRect);
  1078.   WriteRect(IniFile, IDName, 'hthumbrect', HThumbRect);
  1079.   WriteRect(IniFile, IDName, 'vrulerrect', VRulerRect);
  1080.   WriteRect(IniFile, IDName, 'vthumbrect', VThumbRect);
  1081.   IniFile.WriteInteger(IDName, 'edgesize', EdgeSize);
  1082.   IniFile.WriteInteger(IDName, 'pointscolor', PointsColor);
  1083. end;
  1086. constructor TbsDataSkinBevel.Create;
  1087. begin
  1088.   inherited;
  1089.   LightColor := 0;
  1090.   DarkColor := 0;
  1091. end;
  1093. procedure TbsDataSkinBevel.LoadFromFile;
  1094. begin
  1095.   inherited;
  1096.   LightColor := IniFile.ReadInteger(IDName, 'lightcolor', 0);
  1097.   DarkColor := IniFile.ReadInteger(IDName, 'darkcolor', 0);
  1098. end;
  1100. procedure TbsDataSkinBevel.SaveToFile;
  1101. begin
  1102.   inherited;
  1103.   IniFile.WriteInteger(IDName, 'lightcolor', LightColor);
  1104.   IniFile.WriteInteger(IDName, 'darkcolor', DarkColor);
  1105. end;
  1107. constructor TbsDataSkinTreeView.Create;
  1108. begin
  1109.   inherited;
  1110.   FontName := 'Arial';
  1111.   FontStyle := [];
  1112.   FontHeight := 14;
  1113.   FontColor := 0;
  1114.   BGColor := clWhite;
  1115. end;
  1117. procedure TbsDataSkinTreeView.LoadFromFile;
  1118. begin
  1119.   inherited;
  1120.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1121.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1122.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1123.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1124.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1125. end;
  1127. procedure TbsDataSkinTreeView.SaveToFile;
  1128. begin
  1129.   inherited;
  1130.   IniFile.WriteString(IDName, 'fontname', FontName);
  1131.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1132.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1133.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1134.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1135. end;
  1137. constructor TbsDataSkinListView.Create;
  1138. begin
  1139.   inherited;
  1140.   FontName := 'Arial';
  1141.   FontStyle := [];
  1142.   FontHeight := 14;
  1143.   FontColor := 0;
  1144.   BGColor := clWhite;
  1145. end;
  1147. procedure TbsDataSkinListView.LoadFromFile;
  1148. begin
  1149.   inherited;
  1150.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1151.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1152.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1153.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1154.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1155. end;
  1157. procedure TbsDataSkinListView.SaveToFile;
  1158. begin
  1159.   inherited;
  1160.   IniFile.WriteString(IDName, 'fontname', FontName);
  1161.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1162.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1163.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1164.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1165. end;
  1167. constructor TbsDataSkinRichEdit.Create;
  1168. begin
  1169.   inherited;
  1170.   FontName := 'Arial';
  1171.   FontStyle := [];
  1172.   FontHeight := 14;
  1173.   FontColor := 0;
  1174.   BGColor := clWhite;
  1175. end;
  1177. procedure TbsDataSkinRichEdit.LoadFromFile;
  1178. begin
  1179.   inherited;
  1180.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1181.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1182.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1183.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1184.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1185. end;
  1187. procedure TbsDataSkinRichEdit.SaveToFile;
  1188. begin
  1189.   inherited;
  1190.   IniFile.WriteString(IDName, 'fontname', FontName);
  1191.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1192.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1193.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1194.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1195. end;
  1197. constructor TbsDataSkinTabControl.Create(AIDName: String);
  1198. begin
  1199.   inherited;
  1200.   FontName := 'Arial';
  1201.   FontStyle := [];
  1202.   FontHeight := 14;
  1203.   FontColor := 0;
  1204.   ActiveFontColor := 0;
  1205.   FocusFontColor := 0;
  1206.   UpDown := '';
  1207.   BGPictureIndex := -1;
  1208. end;
  1210. procedure TbsDataSkinTabControl.LoadFromFile;
  1211. begin
  1212.   inherited;
  1213.   TabRect := ReadRect(IniFile, IDName, 'tabrect');
  1214.   ActiveTabRect := ReadRect(IniFile, IDName, 'activetabrect');
  1215.   FocusTabRect := ReadRect(IniFile, IDName, 'focustabrect');
  1216.   MouseInTabRect := ReadRect(IniFile, IDName, 'mouseintabrect');
  1218.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1219.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1220.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1221.   RTPoint := Readpoint(IniFile, IDName, 'righttoppoint');
  1222.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1223.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1225.   TabLeftOffset := IniFile.ReadInteger(IDName, 'tableftoffset', 0);
  1226.   TabRightOffset := IniFile.ReadInteger(IDName, 'tabrightoffset', 0);
  1227.   TabsBGRect := ReadRect(IniFile, IDName, 'tabsbgrect');
  1229.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1230.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1231.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1232.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1233.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1234.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1235.   MouseInFontColor := IniFile.ReadInteger(IDName, 'mouseinfontcolor', 0);
  1237.   UpDown := IniFile.ReadString(IDName, 'updown', '');
  1238. end;
  1240. procedure TbsDataSkinTabControl.SaveToFile;
  1241. begin
  1242.   inherited;
  1243.   WriteRect(IniFile, IDName, 'tabrect', TabRect);
  1244.   WriteRect(IniFile, IDName, 'activetabrect', ActiveTabRect);
  1245.   WriteRect(IniFile, IDName, 'focustabrect', FocusTabRect);
  1246.   WriteRect(IniFile, IDName, 'mouseintabrect',  MouseInTabRect);
  1248.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1249.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1251.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1252.   writePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1253.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1254.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1256.   IniFile.WriteInteger(IDName, 'tableftoffset', TabLeftOffset);
  1257.   IniFile.WriteInteger(IDName, 'tabrightoffset', TabRightOffset);
  1258.   WriteRect(IniFile, IDName, 'tabsbgrect', TabsBGRect);
  1260.   IniFile.WriteString(IDName, 'fontname', FontName);
  1261.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1262.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1263.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1264.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1265.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1266.   IniFile.WriteInteger(IDName, 'mouseinfontcolor', MouseInFontColor);
  1268.   IniFile.WriteString(IDName, 'updown', UpDown);
  1269. end;
  1271. constructor TbsDataSkinGridControl.Create;
  1272. begin
  1273.   inherited;
  1274.   FontName := 'Arial';
  1275.   FontStyle := [];
  1276.   FontHeight := 14;
  1277.   FontColor := 0;
  1278.   FixedFontName := 'Arial';
  1279.   FixedFontStyle := [];
  1280.   FixedFontHeight := 14;
  1281.   FixedFontColor := 0;
  1282. end;
  1284. procedure TbsDataSkinGridControl.LoadFromFile(IniFile: TCustomIniFile);
  1285. begin
  1286.   inherited;
  1287.   FixedCellRect := ReadRect(IniFile, IDName, 'fixedcellrect');
  1288.   SelectCellRect := ReadRect(IniFile, IDName, 'selectcellrect');
  1289.   FocusCellRect := ReadRect(IniFile, IDName, 'focuscellrect');
  1290.   //
  1291.   FixedCellLeftOffset := IniFile.ReadInteger(IDName, 'fixedcellleftoffset', 0);
  1292.   FixedCellRightOffset := IniFile.ReadInteger(IDName, 'fixedcellrightoffset', 0);
  1293.   FixedCellTextRect := ReadRect(IniFile, IDName, 'fixedcelltextrect');
  1294.   //
  1295.   CellLeftOffset := IniFile.ReadInteger(IDName, 'cellleftoffset', 0);
  1296.   CellRightOffset := IniFile.ReadInteger(IDName, 'cellrightoffset', 0);
  1297.   CellTextRect := ReadRect(IniFile, IDName, 'celltextrect');
  1298.   //
  1299.   LinesColor := IniFile.ReadInteger(IDName, 'linescolor', 0);
  1300.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1301.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1302.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1303.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1304.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1305.   SelectFontColor := IniFile.ReadInteger(IDName, 'selectfontcolor', 0);
  1306.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1307.   //
  1308.   FixedFontName := IniFile.ReadString(IDName, 'fixedfontname', 'Arial');
  1309.   FixedFontHeight := IniFile.ReadInteger(IDName, 'fixedfontheight', 14);
  1310.   FixedFontStyle := ReadFontStyles(IniFile, IDName, 'fixedfontstyle');
  1311.   FixedFontColor := IniFile.ReadInteger(IDName, 'fixedfontcolor', 0);
  1312. end;
  1314. procedure TbsDataSkinGridControl.SaveToFile(IniFile: TCustomIniFile);
  1315. begin
  1316.   inherited;
  1317.   WriteRect(IniFile, IDName, 'fixedcellrect', FixedCellRect);
  1318.   WriteRect(IniFile, IDName, 'selectcellrect', SelectCellRect);
  1319.   WriteRect(IniFile, IDName, 'focuscellrect', FocusCellRect);
  1320.   //
  1321.   IniFile.WriteInteger(IDName, 'fixedcellleftoffset', FixedCellLeftOffset);
  1322.   IniFile.WriteInteger(IDName, 'fixedcellrightoffset', FixedCellRightOffset);
  1323.   WriteRect(IniFile, IDName, 'fixedcelltextrect', FixedCellTextRect);
  1324.   //
  1325.   IniFile.WriteInteger(IDName, 'cellleftoffset', CellLeftOffset);
  1326.   IniFile.WriteInteger(IDName, 'cellrightoffset', CellRightOffset);
  1327.   WriteRect(IniFile, IDName, 'celltextrect', CellTextRect);
  1328.   //
  1329.   IniFile.WriteInteger(IDName, 'linescolor', LinesColor);
  1330.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1332.   IniFile.WriteString(IDName, 'fontname', FontName);
  1333.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1334.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1335.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1336.   IniFile.WriteInteger(IDName, 'selectfontcolor', SelectFontColor);
  1337.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1338.   //
  1339.   IniFile.WriteString(IDName, 'fixedfontname', FixedFontName);
  1340.   IniFile.WriteInteger(IDName, 'fixedfontheight', FixedFontHeight);
  1341.   WriteFontStyles(IniFile, IDName, 'fixedfontstyle', FixedFontStyle);
  1342.   IniFile.WriteInteger(IDName, 'fixedfontcolor', FixedFontColor);
  1343. end;
  1345. constructor TbsDataSkinCustomControl.Create;
  1346. begin
  1347.   inherited;
  1348.   LTPoint := Point(0, 0);
  1349.   RBPoint := Point(0, 0);
  1350.   LBPoint := Point(0, 0);
  1351.   RTPoint := Point(0, 0);
  1352.   ClRect := Rect(0, 0, 0, 0);
  1353.   MaskPictureIndex := -1;
  1354. end;
  1356. procedure TbsDataSkinCustomControl.LoadFromFile;
  1357. begin
  1358.   inherited;
  1359.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1360.   RTPoint := ReadPoint(IniFile, IDName, 'righttoppoint');
  1361.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1362.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1363.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1364. end;
  1366. procedure TbsDataSkinCustomControl.SaveToFile;
  1367. begin
  1368.   inherited;
  1369.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1370.   WritePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1371.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1372.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1373.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1374. end;
  1377. constructor TbsDataSkinSpinEditControl.Create;
  1378. begin
  1379.   inherited;
  1380.   FontName := 'Arial';
  1381.   FontStyle := [];
  1382.   FontHeight := 12;
  1383.   FontColor := 0;
  1384. end;
  1386. procedure TbsDataSkinSpinEditControl.LoadFromFile;
  1387. begin
  1388.   inherited;
  1389.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1390.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1391.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1392.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1394.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1395.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1396.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1398.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1399.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1400.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1401. end;
  1403. procedure TbsDataSkinSpinEditControl.SaveToFile;
  1404. begin
  1405.   inherited;
  1406.   IniFile.WriteString(IDName, 'fontname', FontName);
  1407.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1408.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1409.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1411.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1412.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1413.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1415.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1416.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1417.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1418. end;
  1421. constructor TbsDataSkinEditControl.Create;
  1422. begin
  1423.   inherited;
  1424.   FontName := 'Arial';
  1425.   FontStyle := [];
  1426.   FontHeight := 12;
  1427.   FontColor := 0;
  1428.   ActiveFontColor := 0;
  1429. end;
  1431. procedure TbsDataSkinEditControl.LoadFromFile;
  1432. begin
  1433.   inherited;
  1434.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1435.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1436.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1437.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1438.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1439.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1440.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1441.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1442.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1443.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1444. end;
  1446. procedure TbsDataSkinEditControl.SaveToFile;
  1447. begin
  1448.   inherited;
  1449.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1450.   IniFile.WriteString(IDName, 'fontname', FontName);
  1451.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1452.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1453.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1454.   IniFile.WriteInteger(IDName, 'disabledfontcolor', DisabledFontColor);
  1455.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1456.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1457.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1458.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1459. end;
  1461. constructor TbsDataSkinMemoControl.Create(AIDName: String);
  1462. begin
  1463.   inherited;
  1464. end;
  1466. procedure TbsDataSkinMemoControl.LoadFromFile;
  1467. begin
  1468.   inherited;
  1469.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1470.   ActiveBGColor := IniFile.ReadInteger(IDName, 'activebgcolor', 0);
  1471. end;
  1473. procedure TbsDataSkinMemoControl.SaveToFile;
  1474. begin
  1475.   inherited;
  1476.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1477.   IniFile.WriteInteger(IDName, 'activebgcolor', ActiveBGColor);
  1478. end;
  1480. constructor TbsDataSkinStdLabelControl.Create;
  1481. begin
  1482.   inherited;
  1483.   FontName := 'Arial';
  1484.   FontStyle := [];
  1485.   FontHeight := 12;
  1486.   FontColor := 0;
  1487.   ActiveFontColor := clBlue;
  1488. end;
  1490. procedure TbsDataSkinStdLabelControl.LoadFromFile;
  1491. begin
  1492.   inherited;
  1493.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1494.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1495.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1496.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1497.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', clBlue);
  1498. end;
  1500. procedure TbsDataSkinStdLabelControl.SaveToFile;
  1501. begin
  1502.   inherited;
  1503.   IniFile.WriteString(IDName, 'fontname', FontName);
  1504.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1505.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1506.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1507.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1508. end;
  1510. constructor TbsDataSkinLabelControl.Create;
  1511. begin
  1512.   inherited;
  1513.   FontName := 'Arial';
  1514.   FontStyle := [];
  1515.   FontHeight := 12;
  1516.   FontColor := 0;
  1517. end;
  1519. procedure TbsDataSkinLabelControl.LoadFromFile;
  1520. begin
  1521.   inherited;
  1522.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1523.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1524.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1525.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1526. end;
  1528. procedure TbsDataSkinLabelControl.SaveToFile;
  1529. begin
  1530.   inherited;
  1531.   IniFile.WriteString(IDName, 'fontname', FontName);
  1532.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1533.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1534.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1535. end;
  1539. constructor TbsDataSkinScrollBarControl.Create;
  1540. begin
  1541.   inherited;
  1542.   ThumbOffset1 := 0;
  1543.   ThumbOffset2 := 0;
  1544. end;
  1546. procedure TbsDataSkinScrollBarControl.LoadFromFile;
  1547. begin
  1548.   inherited;
  1549.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1551.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1552.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1553.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1555.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1556.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1557.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1559.   ThumbRect := ReadRect(IniFile, IDName, 'thumbrect');
  1560.   ActiveThumbRect := ReadRect(IniFile, IDName, 'activethumbrect');
  1561.   DownThumbRect := ReadRect(IniFile, IDName, 'downthumbrect');
  1562.   ThumbOffset1 := IniFile.ReadInteger(IDName, 'thumboffset1', 0);
  1563.   ThumbOffset2 := IniFile.ReadInteger(IDName, 'thumboffset2', 0);
  1565.   GlyphRect := ReadRect(IniFile, IDName, 'glyphrect');
  1566.   ActiveGlyphRect := ReadRect(IniFile, IDName, 'activeglyphrect');
  1567.   DownGlyphRect := ReadRect(IniFile, IDName, 'downglyphrect');
  1568. end;
  1570. procedure TbsDataSkinScrollBarControl.SaveToFile;
  1571. begin
  1572.   inherited;
  1573.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1575.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1576.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1577.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1579.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1580.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1581.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1583.   WriteRect(IniFile, IDName, 'thumbrect', ThumbRect);
  1584.   WriteRect(IniFile, IDName, 'activethumbrect', ActiveThumbRect);
  1585.   WriteRect(IniFile, IDName, 'downthumbrect', DownThumbRect);
  1587.   IniFile.WriteInteger(IDName, 'thumboffset1', ThumbOffset1);
  1588.   IniFile.WriteInteger(IDName, 'thumboffset2', ThumbOffset2);
  1590.   WriteRect(IniFile, IDName, 'glyphrect', GlyphRect);
  1591.   WriteRect(IniFile, IDName, 'activeglyphrect', ActiveGlyphRect);
  1592.   WriteRect(IniFile, IDName, 'downglyphrect', DownGlyphRect);
  1593. end;
  1595. constructor TbsDataSkinTrackBarControl.Create;
  1596. begin
  1597.   inherited;
  1598.   TrackArea := NullRect;
  1599.   ButtonRect := NullRect;
  1600.   ActiveButtonRect := NullRect;
  1601.   Vertical := False;
  1602. end;
  1604. procedure TbsDataSkinTrackBarControl.LoadFromFile;
  1605. begin
  1606.   inherited;
  1607.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1608.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1609.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1610.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1611. end;
  1613. procedure TbsDataSkinTrackBarControl.SaveToFile;
  1614. begin
  1615.   inherited;
  1616.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1617.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1618.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1619.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1620. end;
  1622. constructor TbsDataSkinGaugeControl.Create;
  1623. begin
  1624.   inherited;
  1625.   ProgressArea := NullRect;
  1626.   ProgressRect := NullRect;
  1627.   Vertical := False;
  1628.   BeginOffset := 0;
  1629.   EndOffset := 0;
  1630.   FontName := 'Arial';
  1631.   FontStyle := [];
  1632.   FontHeight := 14;
  1633.   FontColor := 0;
  1634. end;
  1636. procedure TbsDataSkinGaugeControl.LoadFromFile;
  1637. begin
  1638.   inherited;
  1639.   ProgressArea := ReadRect(IniFile, IDName, 'progressarea');
  1640.   ProgressRect := ReadRect(IniFile, IDName, 'progressrect');
  1641.   BeginOffset := IniFile.ReadInteger(IDName, 'beginoffset', 0);
  1642.   EndOffset := IniFile.ReadInteger(IDName, 'endoffset', 0);
  1643.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1644.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1645.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1646.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1647.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1648. end;
  1650. procedure TbsDataSkinGaugeControl.SaveToFile;
  1651. begin
  1652.   inherited;
  1653.   WriteRect(IniFile, IDName, 'progressarea', ProgressArea);
  1654.   WriteRect(IniFile, IDName, 'progressrect', ProgressRect);
  1655.   IniFile.WriteInteger(IDName, 'beginoffset', BeginOffset);
  1656.   IniFile.WriteInteger(IDName, 'endoffset', EndOffset);
  1657.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1658.   IniFile.WriteString(IDName, 'fontname', FontName);
  1659.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1660.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1661.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1662. end;
  1665. constructor TbsDataSkinScrollBoxControl.Create(AIDName: String);
  1666. begin
  1667.   inherited;
  1668.   BGPictureIndex := -1;
  1669. end;
  1671. procedure TbsDataSkinScrollBoxControl.LoadFromFile(IniFile: TCustomIniFile);
  1672. begin
  1673.   inherited;
  1674.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1675. end;
  1677. procedure TbsDataSkinScrollBoxControl.SaveToFile(IniFile: TCustomIniFile);
  1678. begin
  1679.   inherited;
  1680.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1681. end;
  1683. constructor TbsDataSkinExPanelControl.Create(AIDName: String);
  1684. begin
  1685.   inherited;
  1686.   FontName := 'Arial';
  1687.   FontStyle := [];
  1688.   FontHeight := 12;
  1689.   FontColor := 0;
  1690. end;
  1692. procedure TbsDataSkinExPanelControl.LoadFromFile(IniFile: TCustomIniFile);
  1693. begin
  1694.   inherited;
  1695.   RollHSkinRect := ReadRect(IniFile, IDName, 'rollhskinrect');
  1696.   RollVSkinRect := ReadRect(IniFile, IDName, 'rollvskinrect');
  1697.   RollLeftOffset := IniFile.ReadInteger(IDName, 'rollleftoffset', 0);
  1698.   RollRightOffset := IniFile.ReadInteger(IDName, 'rollrightoffset', 0);
  1699.   RollTopOffset := IniFile.ReadInteger(IDName, 'rolltopoffset', 0);
  1700.   RollBottomOffset := IniFile.ReadInteger(IDName, 'rollbottomoffset', 0);
  1701.   RollVCaptionRect := ReadRect(IniFile, IDName, 'rollvcaptionrect');
  1702.   RollHCaptionRect := ReadRect(IniFile, IDName, 'rollhcaptionrect');
  1703.   //
  1704.   CloseButtonRect := ReadRect(IniFile, IDName, 'closebuttonrect');
  1705.   CloseButtonActiveRect := ReadRect(IniFile, IDName, 'closebuttonactiverect');
  1706.   CloseButtonDownRect := ReadRect(IniFile, IDName, 'closebuttondownrect');
  1707.   HRollButtonRect := ReadRect(IniFile, IDName, 'hrollbuttonrect');
  1708.   HRollButtonActiveRect := ReadRect(IniFile, IDName, 'hrollbuttonactiverect');
  1709.   HRollButtonDownRect := ReadRect(IniFile, IDName, 'hrollbuttondownrect');
  1710.   HRestoreButtonRect := ReadRect(IniFile, IDName, 'hrestorebuttonrect');
  1711.   HRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'hrestorebuttonactiverect');
  1712.   HRestoreButtonDownRect := ReadRect(IniFile, IDName, 'hrestorebuttondownrect');
  1714.   VRollButtonRect := ReadRect(IniFile, IDName, 'vrollbuttonrect');
  1715.   VRollButtonActiveRect := ReadRect(IniFile, IDName, 'vrollbuttonactiverect');
  1716.   VRollButtonDownRect := ReadRect(IniFile, IDName, 'vrollbuttondownrect');
  1718.   VRestoreButtonRect := ReadRect(IniFile, IDName, 'vrestorebuttonrect');
  1719.   VRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'vrestorebuttonactiverect');
  1720.   VRestoreButtonDownRect := ReadRect(IniFile, IDName, 'vrestorebuttondownrect');
  1721.   //
  1722.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1723.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1724.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1725.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1726.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1727. end;
  1729. procedure TbsDataSkinExPanelControl.SaveToFile(IniFile: TCustomIniFile);
  1730. begin
  1731.   inherited;
  1732.   WriteRect(IniFile, IDName, 'rollhskinrect', RollHSkinRect);
  1733.   WriteRect(IniFile, IDName, 'rollvskinrect', RollVSkinRect);
  1734.   IniFile.WriteInteger(IDName, 'rollleftoffset', RollLeftOffset);
  1735.   IniFile.WriteInteger(IDName, 'rollrightoffset', RollRightOffset);
  1736.   IniFile.WriteInteger(IDName, 'rolltopoffset', RollTopOffset);
  1737.   IniFile.WriteInteger(IDName, 'rollbottomoffset', RollBottomOffset);
  1738.   WriteRect(IniFile, IDName, 'rollvcaptionrect', RollVCaptionRect);
  1739.   WriteRect(IniFile, IDName, 'rollhcaptionrect', RollHCaptionRect);
  1740.   //
  1741.   WriteRect(IniFile, IDName, 'closebuttonrect', CloseButtonRect);
  1742.   WriteRect(IniFile, IDName, 'closebuttonactiverect', CloseButtonActiveRect);
  1743.   WriteRect(IniFile, IDName, 'closebuttondownrect', CloseButtonDownRect);
  1744.   WriteRect(IniFile, IDName, 'hrollbuttonrect', HRollButtonRect);
  1745.   WriteRect(IniFile, IDName, 'hrollbuttonactiverect', HRollButtonActiveRect);
  1746.   WriteRect(IniFile, IDName, 'hrollbuttondownrect', HRollButtonDownRect);
  1747.   WriteRect(IniFile, IDName, 'hrestorebuttonrect', HRestoreButtonRect);
  1748.   WriteRect(IniFile, IDName, 'hrestorebuttonactiverect', HRestoreButtonActiveRect);
  1749.   WriteRect(IniFile, IDName, 'hrestorebuttondownrect', HRestoreButtonDownRect);
  1750.   WriteRect(IniFile, IDName, 'vrollbuttonrect', VRollButtonRect);
  1751.   WriteRect(IniFile, IDName, 'vrollbuttonactiverect', VRollButtonActiveRect);
  1752.   WriteRect(IniFile, IDName, 'vrollbuttondownrect', VRollButtonDownRect);
  1753.   WriteRect(IniFile, IDName, 'vrestorebuttonrect', VRestoreButtonRect);
  1754.   WriteRect(IniFile, IDName, 'vrestorebuttonactiverect', VRestoreButtonActiveRect);
  1755.   WriteRect(IniFile, IDName, 'vrestorebuttondownrect', VRestoreButtonDownRect);
  1756.   //
  1757.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1758.   IniFile.WriteString(IDName, 'fontname', FontName);
  1759.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1760.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1761.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1762. end;
  1764. constructor TbsDataSkinPanelControl.Create;
  1765. begin
  1766.   inherited;
  1767.   CaptionRect := NullRect;
  1768.   RollUpMarkerRect := NullRect;
  1769.   RestoreMarkerRect := NullRect;
  1770.   FontName := 'Arial';
  1771.   FontStyle := [];
  1772.   FontHeight := 12;
  1773.   FontColor := 0;
  1774.   Alignment := taCenter;
  1775.   BGPictureIndex := -1;
  1776. end;
  1778. procedure TbsDataSkinPanelControl.LoadFromFile;
  1779. begin
  1780.   inherited;
  1781.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1782.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1783.   RollUpMarkerRect := ReadRect(IniFile, IDName, 'rollupmarkerrect');
  1784.   RestoreMarkerRect := ReadRect(IniFile, IDName, 'restoremarkerrect');
  1785.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  1786.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1787.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1788.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1789.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1790.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1791.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1792. end;
  1794. procedure TbsDataSkinPanelControl.SaveToFile;
  1795. begin
  1796.   inherited;
  1797.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1798.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1799.   WriteRect(IniFile, IDName, 'rollupmarkerrect', RollUpMarkerRect);
  1800.   WriteRect(IniFile, IDName, 'restoremarkerrect', RestoreMarkerRect);
  1801.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  1802.   IniFile.WriteString(IDName, 'fontname', FontName);
  1803.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1804.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1805.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1806.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1807.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1808. end;
  1810. constructor TbsDataSkinCheckRadioControl.Create;
  1811. begin
  1812.   inherited;
  1813.   Morphing := False;
  1814.   FontName := 'Arial';
  1815.   FontStyle := [];
  1816.   FontHeight := 12;
  1817.   FontColor := 0;
  1818.   ActiveFontColor := 0;
  1819.   UnEnabledFontColor := 0;
  1820.   FontColor := 0;
  1821.   CheckImageArea := NullRect;
  1822.   TextArea := NullRect;
  1823.   ActiveSkinRect := NullRect;
  1824.   CheckImageRect := NullRect;
  1825.   UnCheckImageRect := NullRect;
  1826. end;
  1828. procedure TbsDataSkinCheckRadioControl.LoadFromFile;
  1829. begin
  1830.   inherited;
  1831.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1832.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1833.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1834.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1835.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1836.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  1837.   FrameFontColor := IniFile.ReadInteger(IDName, 'framefontcolor', 0);
  1838.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1839.   CheckImageArea := ReadRect(IniFile, IDName, 'checkimagearea');
  1840.   TextArea := ReadRect(IniFile, IDName, 'textarea');
  1841.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1842.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1843.   ActiveCheckImageRect := ReadRect(IniFile, IDName, 'activecheckimagerect');
  1844.   ActiveUnCheckImageRect := ReadRect(IniFile, IDName, 'activeuncheckimagerect');
  1845.   UnEnabledCheckImageRect := ReadRect(IniFile, IDName, 'unenabledcheckimagerect');
  1846.   UnEnabledUnCheckImageRect := ReadRect(IniFile, IDName, 'unenableduncheckimagerect');
  1847.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1848.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1849. end;
  1851. procedure TbsDataSkinCheckRadioControl.SaveToFile;
  1852. begin
  1853.   inherited;
  1854.   IniFile.WriteString(IDName, 'fontname', FontName);
  1855.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1856.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1857.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1858.   IniFile.WriteInteger(IDName, 'framefontcolor', FrameFontColor);
  1859.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1860.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  1861.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1862.   WriteRect(IniFile, IDName, 'checkimagearea', CheckImageArea);
  1863.   WriteRect(IniFile, IDName, 'textarea', TextArea);
  1864.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1865.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1866.   WriteRect(IniFile, IDName, 'activecheckimagerect', ActiveCheckImageRect);
  1867.   WriteRect(IniFile, IDName, 'activeuncheckimagerect', ActiveUnCheckImageRect);
  1868.   WriteRect(IniFile, IDName, 'unenabledcheckimagerect', UnEnabledCheckImageRect);
  1869.   WriteRect(IniFile, IDName, 'unenableduncheckimagerect', UnEnabledUnCheckImageRect);
  1870.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  1871.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  1872. end;
  1874. constructor TbsDataSkinMenuButtonControl.Create;
  1875. begin
  1876.   inherited;
  1877. end;
  1879. procedure TbsDataSkinMenuButtonControl.LoadFromFile;
  1880. begin
  1881.   inherited;
  1882.   TrackButtonRect := ReadRect(IniFile, IDName, 'trackbuttonrect');
  1883. end;
  1885. procedure TbsDataSkinMenuButtonControl.SaveToFile;
  1886. begin
  1887.   inherited;
  1888.   WriteRect(IniFile, IDName, 'trackbuttonrect', TrackButtonRect);
  1889. end;
  1891. constructor TbsDataSkinButtonControl.Create;
  1892. begin
  1893.   inherited;
  1894.   Morphing := False;
  1895.   FontName := 'Arial';
  1896.   FontStyle := [];
  1897.   FontHeight := 12;
  1898.   FontColor := 0;
  1899.   ActiveFontColor := 0;
  1900.   DownFontColor := 0;
  1901.   FontColor := 0;
  1902.   ActiveSkinRect := NullRect;
  1903.   DownSkinRect := NullRect;
  1904.   DisabledSkinRect := NullRect;
  1905. end;
  1907. procedure TbsDataSkinButtonControl.LoadFromFile;
  1908. begin
  1909.   inherited;
  1910.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1911.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1912.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1913.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1914.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1915.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  1916.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1917.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1918.   DownSkinRect := ReadRect(IniFile, IDName, 'downskinrect');
  1919.   DisabledSkinRect := ReadRect(IniFile, IDName, 'disabledskinrect');
  1920.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1921.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1922. end;
  1924. procedure TbsDataSkinButtonControl.SaveToFile;
  1925. begin
  1926.   inherited;
  1927.   IniFile.WriteString(IDName, 'fontname', FontName);
  1928.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1929.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1930.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1931.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1932.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  1933.   IniFile.WriteInteger(IDName, 'disabledfontcolor',   DisabledFontColor);
  1934.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1935.   WriteRect(IniFile, IDName, 'downskinrect', DownSkinRect);
  1936.   WriteRect(IniFile, IDName, 'disabledskinrect', DisabledSkinRect);
  1937.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  1938.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  1939. end;
  1941. constructor TbsDataSkinObject.Create;
  1942. begin
  1943.   IDName := AIDName;
  1944.   ActivePictureIndex := -1;
  1945.   SkinRect := NullRect;
  1946.   ActiveSkinRect := SkinRect;
  1947.   Morphing := False;
  1948.   Hint := '';
  1949. end;
  1951. procedure TbsDataSkinObject.LoadFromFile;
  1952. begin
  1953.   Hint := IniFile.ReadString(IDName, 'hint', '');
  1954.   ActivePictureIndex := IniFile.ReadInteger(IDName, 'activepictureindex', -1);
  1955.   SkinRectInAPicture := ReadBoolean(IniFile, IDName, 'skinrectinapicture');
  1956.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  1957.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1958.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1959.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1960. end;
  1962. procedure TbsDataSkinObject.SaveToFile;
  1963. begin
  1964.   IniFile.EraseSection(IDName);
  1965.   IniFile.WriteString(IDName, 'hint', Hint);
  1966.   IniFile.WriteInteger(IDName, 'activepictureindex', ActivePictureIndex);
  1967.   WriteBoolean(IniFile, IDName, 'skinrectinapicture', SkinRectInAPicture);
  1968.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  1969.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1970.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  1971.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  1972. end;
  1974. procedure TbsDataUserObject.LoadFromFile;
  1975. begin
  1976.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  1977. end;
  1979. procedure TbsDataUserObject.SaveToFile;
  1980. begin
  1981.   IniFile.EraseSection(IDName);
  1982.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  1983. end;
  1985. constructor TbsDataSkinPopupWindow.Create;
  1986. begin
  1987.   inherited;
  1988.   WindowPictureIndex := -1;
  1989.   MaskPictureIndex := -1;
  1990.   LTPoint := Point(0, 0);
  1991.   LBPoint := Point(0, 0);
  1992.   RTPoint := Point(0, 0);
  1993.   RBPoint := Point(0, 0);
  1994.   ScrollMarkerColor := 0;
  1995.   ScrollMarkerActiveColor := 0;
  1996. end;
  1998. procedure TbsDataSkinPopupWindow.LoadFromFile;
  1999. begin
  2000.   WindowPictureIndex := IniFile.ReadInteger(
  2001.     'POPUPWINDOW', 'windowpictureindex', -1);
  2002.   MaskPictureIndex := IniFile.ReadInteger(
  2003.     'POPUPWINDOW', 'maskpictureindex', -1);
  2004.   LTPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'lefttoppoint');
  2005.   RTPoint := Readpoint(IniFile, 'POPUPWINDOW', 'righttoppoint');
  2006.   LBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'leftbottompoint');
  2007.   RBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'rightbottompoint');
  2008.   ItemsRect := ReadRect(IniFile, 'POPUPWINDOW', 'itemsrect');
  2009.   ScrollMarkerColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkercolor', 0);
  2010.   ScrollMarkerActiveColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkeractivecolor', 0);
  2011. end;
  2013. procedure TbsDataSkinPopupWindow.SaveToFile;
  2014. begin
  2015.   IniFile.EraseSection('POPUPWINDOW');
  2016.   IniFile.WriteInteger('POPUPWINDOW', 'windowpictureindex',
  2017.     WindowPictureIndex);
  2018.   IniFile.WriteInteger( 'POPUPWINDOW', 'maskpictureindex',
  2019.     MaskPictureIndex);
  2020.   WritePoint(IniFile, 'POPUPWINDOW', 'lefttoppoint', LTPoint);
  2021.   WritePoint(IniFile, 'POPUPWINDOW', 'righttoppoint', RTPoint);
  2022.   WritePoint(IniFile, 'POPUPWINDOW', 'leftbottompoint', LBPoint);
  2023.   WritePoint(IniFile, 'POPUPWINDOW', 'rightbottompoint', RBPoint);
  2024.   WriteRect(IniFile, 'POPUPWINDOW', 'itemsrect', ItemsRect);
  2025.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkercolor', ScrollMarkerColor);
  2026.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkeractivecolor', ScrollMarkerActiveColor);
  2027. end;
  2029. constructor TbsDataSkinHintWindow.Create;
  2030. begin
  2031.   inherited;
  2032.   WindowPictureIndex := -1;
  2033.   MaskPictureIndex := -1;
  2034.   LTPoint := Point(0, 0);
  2035.   LBPoint := Point(0, 0);
  2036.   RTPoint := Point(0, 0);
  2037.   RBPoint := Point(0, 0);
  2038.   ClRect := NullRect;
  2039.   FontName := 'Arial';
  2040.   FontStyle := [];
  2041.   FontHeight := 12;
  2042.   FontColor := 0;
  2043. end;
  2045. procedure TbsDataSkinHintWindow.LoadFromFile;
  2046. begin
  2047.   WindowPictureIndex := IniFile.ReadInteger(
  2048.     'HINTWINDOW', 'windowpictureindex', -1);
  2049.   MaskPictureIndex := IniFile.ReadInteger(
  2050.     'HINTWINDOW', 'maskpictureindex', -1);
  2051.   LTPoint := ReadPoint(IniFile, 'HINTWINDOW', 'lefttoppoint');
  2052.   RTPoint := Readpoint(IniFile, 'HINTWINDOW', 'righttoppoint');
  2053.   LBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'leftbottompoint');
  2054.   RBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'rightbottompoint');
  2055.   ClRect := ReadRect(IniFile, 'HINTWINDOW', 'clientrect');
  2056.   FontName := IniFile.ReadString('HINTWINDOW', 'fontname', 'Arial');
  2057.   FontHeight := IniFile.ReadInteger('HINTWINDOW', 'fontheight', 14);
  2058.   FontStyle := ReadFontStyles(IniFile, 'HINTWINDOW', 'fontstyle');
  2059.   FontColor := IniFile.ReadInteger('HINTWINDOW', 'fontcolor', 0);
  2060. end;
  2062. procedure TbsDataSkinHintWindow.SaveToFile;
  2063. begin
  2064.   IniFile.EraseSection('HINTWINDOW');
  2065.   IniFile.WriteInteger('HINTWINDOW', 'windowpictureindex',
  2066.     WindowPictureIndex);
  2067.   IniFile.WriteInteger( 'HINTWINDOW', 'maskpictureindex',
  2068.     MaskPictureIndex);
  2069.   WritePoint(IniFile, 'HINTWINDOW', 'lefttoppoint', LTPoint);
  2070.   WritePoint(IniFile, 'HINTWINDOW', 'righttoppoint', RTPoint);
  2071.   WritePoint(IniFile, 'HINTWINDOW', 'leftbottompoint', LBPoint);
  2072.   WritePoint(IniFile, 'HINTWINDOW', 'rightbottompoint', RBPoint);
  2073.   WriteRect(IniFile, 'HINTWINDOW', 'clientrect', ClRect);
  2074.   IniFile.WriteString('HINTWINDOW', 'fontname', FontName);
  2075.   IniFile.WriteInteger('HINTWINDOW', 'fontheight', FontHeight);
  2076.   WriteFontStyles(IniFile, 'HINTWINDOW', 'fontstyle', FontStyle);
  2077.   IniFile.WriteInteger('HINTWINDOW', 'fontcolor', FontColor);
  2078. end;
  2080. procedure TbsDataSkinMenuItem.LoadFromFile;
  2081. begin
  2082.   inherited;
  2083.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  2084.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  2085.   DividerRect := ReadRect(IniFile, IDName, 'dividerrect');
  2086.   DividerLO := IniFile.ReadInteger(IDName, 'dividerleftoffset', 0);
  2087.   DividerRO := IniFile.ReadInteger(IDName, 'dividerrightoffset', 0);
  2088.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2089.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2090.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2091.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2092.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2093.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2094.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  2095. end;
  2097. procedure TbsDataSkinMenuItem.SaveToFile;
  2098. begin
  2099.   inherited;
  2100.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  2101.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  2102.   WriteRect(IniFile, IDName, 'dividerrect', DividerRect);
  2103.   IniFile.WriteInteger(IDName, 'dividerleftoffset', DividerLO);
  2104.   IniFile.WriteInteger(IDName, 'dividerrightoffset', DividerRO);
  2105.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2106.   IniFile.WriteString(IDName, 'fontname', FontName);
  2107.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2108.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2109.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2110.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2111.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  2112. end;
  2114. procedure TbsDataSkinMainMenuItem.LoadFromFile;
  2115. begin
  2116.   inherited;
  2117.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  2118.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  2119.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  2120.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2121.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2122.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2123.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2124.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2125.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2126.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  2127.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontColor', 0);
  2128. end;
  2130. procedure TbsDataSkinMainMenuItem.SaveToFile;
  2131. begin
  2132.   inherited;
  2133.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  2134.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  2135.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  2136.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2137.   IniFile.WriteString(IDName, 'fontname', FontName);
  2138.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2139.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2140.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2141.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2142.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  2143.   IniFile.WriteInteger(IDName, 'unenabledfontColor', UnEnabledFontColor);
  2144. end;
  2146. constructor TbsDataSkinButton.Create(AIDName: String);
  2147. begin
  2148.   inherited;
  2149.   DownRect := NullRect;
  2150. end;
  2152. procedure TbsDataSkinButton.SaveToFile;
  2153. begin
  2154.   inherited;
  2155.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  2156.   WriteRect(IniFile, IDName, 'disableskinrsect', DisableSkinRect);
  2157. end;
  2159. procedure TbsDataSkinButton.LoadFromFile;
  2160. begin
  2161.   inherited;
  2162.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  2163.   DisableSkinRect := ReadRect(IniFile, IDName, 'disableskinrsect');
  2164. end;
  2166. procedure TbsDataSkinStdButton.LoadFromFile;
  2167. var
  2168.   S: String;
  2169. begin
  2170.   inherited;
  2171.   S := IniFile.ReadString(IDName, 'command', 'cmdefault');
  2172.   if S = 'cmclose' then Command := cmClose else
  2173.   if S = 'cmmaximize' then Command := cmMaximize else
  2174.   if S = 'cmminimize' then Command := cmMinimize else
  2175.   if S = 'cmsysmenu' then Command := cmSysMenu else
  2176.   if S = 'cmdefault' then Command := cmDefault else
  2177.   Command := cmRollUp;
  2178.   RestoreRect := ReadRect(IniFile, IDName, 'restorerect');
  2179.   RestoreActiveRect := ReadRect(IniFile, IDName, 'restoreactiverect');
  2180.   RestoreDownRect := ReadRect(IniFile, IDName, 'restoredownrect');
  2181.   RestoreInActiveRect := ReadRect(IniFile, IDName, 'restoreinactiverect');
  2182. end;
  2184. procedure TbsDataSkinStdButton.SaveToFile;
  2185. var
  2186.   S: String;
  2187. begin
  2188.   inherited;
  2189.   if Command = cmClose then S := 'cmclose' else
  2190.   if Command = cmMaximize then S := 'cmmaximize' else
  2191.   if Command = cmMinimize then S := 'cmminimize' else
  2192.   if Command = cmSysMenu then S := 'cmsysmenu' else
  2193.   if Command = cmDefault then S := 'cmdefault' else
  2194.   S := 'cmrollup';
  2195.   IniFile.WriteString(IDName, 'command', S);
  2196.   WriteRect(IniFile, IDName, 'restorerect', RestoreRect);
  2197.   WriteRect(IniFile, IDName, 'restoreactiverect', RestoreActiveRect);
  2198.   WriteRect(IniFile, IDName, 'restoredownrect', RestoreDownRect);
  2199.   WriteRect(IniFile, IDName, 'restoreinactiverect', RestoreInActiveRect);
  2200. end;
  2202. procedure TbsDataSkinCaption.SaveToFile;
  2203. begin
  2204.   inherited;
  2205.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2206.   IniFile.WriteString(IDName, 'fontname', FontName);
  2207.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2208.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2209.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2210.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2211.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  2212.   WriteBoolean(IniFile, IDName, 'shadow', Shadow);
  2213.   IniFile.WriteInteger(IDName, 'shadowcolor', ShadowColor);
  2214.   IniFile.WriteInteger(IDName, 'activeshadowcolor', ActiveShadowColor);
  2215.   WriteRect(IniFile, IDName, 'framerect', FrameRect);
  2216.   WriteRect(IniFile, IDName, 'activeframerect', ActiveFrameRect);
  2217.   WriteRect(IniFile, IDName, 'frametextrect', FrameTextRect);
  2218.   IniFile.WriteInteger(IDName, 'frameleftoffset', FrameLeftOffset);
  2219.   IniFile.WriteInteger(IDName, 'framerightoffset', FrameRightOffset);
  2220. end;
  2222. procedure TbsDataSkinCaption.LoadFromFile;
  2223. begin
  2224.   inherited;
  2225.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2226.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2227.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2228.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2229.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2230.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2231.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  2232.   Shadow := ReadBoolean(IniFile, IDName, 'shadow');
  2233.   ShadowColor := IniFile.ReadInteger(IDName, 'shadowcolor', 0);
  2234.   ActiveShadowColor := IniFile.ReadInteger(IDName, 'activeshadowcolor', 0);
  2235.   FrameRect := ReadRect(IniFile, IDName, 'framerect');
  2236.   ActiveFrameRect := ReadRect(IniFile, IDName, 'activeframerect');
  2237.   FrameTextRect := ReadRect(IniFile, IDName, 'frametextrect');
  2238.   FrameLeftOffset := IniFile.ReadInteger(IDName, 'frameleftoffset', 0);
  2239.   FrameRightOffset := IniFile.ReadInteger(IDName, 'framerightoffset', 0);
  2240. end;
  2243. constructor TbsStoredSkin.Create;
  2244. begin
  2245.   inherited Create(AOwner);
  2246.   FPicture := TBitMap.Create;
  2247.   FMask := TBitMap.Create;
  2248.   FInActivePicture := TBitMap.Create;
  2249.   FActivePictures := TList.Create;
  2250.   FIniStrings := TStringList.Create;
  2251.   FFileName := '';
  2252. end;
  2254. destructor TbsStoredSkin.Destroy;
  2255. begin
  2256.   FPicture.Free;
  2257.   FMask.Free;
  2258.   FInActivePicture.Free;
  2259.   FIniStrings.Free;
  2260.   ClearBitMaps;
  2261.   FActivePictures.Free;
  2262.   inherited;
  2263. end;
  2265. procedure TbsStoredSkin.SetFileName;
  2266. begin
  2267.   if (csDesigning in ComponentState) and not
  2268.      (csLoading in ComponentState)
  2269.   then
  2270.     begin
  2271.       FFileName := ExtractFileName(Value);
  2272.       LoadFromFile(Value);
  2273.     end
  2274.   else
  2275.     FFileName := Value;
  2276. end;
  2278. procedure TbsStoredSkin.SetIniStrings;
  2279. begin
  2280.   FIniStrings.Assign(Value);
  2281. end;
  2283. procedure TbsStoredSkin.ClearBitMaps;
  2284. var
  2285.   i, Count: Integer;
  2286. begin
  2287.   Count := FActivePictures.Count;
  2288.   if Count > 0
  2289.   then
  2290.     for i := 0 to Count - 1 do
  2291.     begin
  2292.       TBitMap(FActivePictures.Items[i]).Free;
  2293.     end;
  2294.   FActivePictures.Clear;
  2295. end;
  2297. procedure TbsStoredSkin.DefineProperties(Filer: TFiler);
  2298. begin
  2299.   inherited;
  2300.   Filer.DefineBinaryProperty('Pictures', ReadData, WriteData, True);
  2301. end;
  2303. procedure TbsStoredSkin.ReadData;
  2304. var
  2305.   IsEmpty: Boolean;
  2306.   i, Count: Integer;
  2307. begin
  2308.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  2309.   if IsEmpty
  2310.   then FPicture.Assign(nil)
  2311.   else FPicture.LoadFromStream(Reader);
  2313.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  2314.   if IsEmpty
  2315.   then FInActivePicture.Assign(nil)
  2316.   else FInActivePicture.LoadFromStream(Reader);
  2318.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  2319.   if IsEmpty
  2320.   then FMask.Assign(nil)
  2321.   else FMask.LoadFromStream(Reader);
  2323.   ClearBitMaps;
  2325.   Reader.Read(Count, SizeOf(Count));
  2326.   if Count > 0
  2327.   then
  2328.     for i := 0 to Count - 1 do
  2329.     begin
  2330.       FActivePictures.Add(TBitMap.Create);
  2331.       TBitMap(FActivePictures.Items[i]).LoadFromStream(Reader);
  2332.     end;
  2333. end;
  2335. procedure TbsStoredSkin.WriteData;
  2336. var
  2337.   IsEmpty: Boolean;
  2338.   i, Count: Integer;
  2339. begin
  2340.   IsEmpty := FPicture.Empty;
  2341.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  2342.   if not IsEmpty then FPicture.SaveToStream(Writer);
  2344.   IsEmpty := FInActivePicture.Empty;
  2345.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  2346.   if not IsEmpty then FInActivePicture.SaveToStream(Writer);
  2348.   IsEmpty := FMask.Empty;
  2349.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  2350.   if not IsEmpty then FMask.SaveToStream(Writer);
  2352.   Count := FActivePictures.Count;
  2353.   Writer.Write(Count, SizeOf(Count));
  2355.   if Count > 0
  2356.   then
  2357.     for i := 0 to Count - 1 do
  2358.     begin
  2359.       TBitMap(FActivePictures.Items[i]).SaveToStream(Writer);
  2360.     end;
  2361. end;
  2363. procedure TbsStoredSkin.LoadFromFile;
  2364. var
  2365.   F: TMemIniFile;
  2366.   PNames: TStrings;
  2367.   PName, Path: String;
  2368.   i: Integer;
  2369. begin
  2370.   FIniStrings.LoadFromFile(AFileName);
  2371.   Path := ExtractFilePath(AFileName);
  2372.   F := TMemIniFile.Create(AFileName);
  2373.   // load base pictures
  2375.   PName := F.ReadString('PICTURES', 'picture', '');
  2376.   if PName <> ''
  2377.   then
  2378.     FPicture.LoadFromFile(Path + PName)
  2379.   else
  2380.     FPicture.Assign(nil);
  2382.   PName := F.ReadString('PICTURES', 'inactivepicture', '');
  2383.   if PName <> ''
  2384.   then
  2385.     FInActivePicture.LoadFromFile(Path + PName)
  2386.   else
  2387.     FInActivePicture.Assign(nil);
  2390.   PName := F.ReadString('PICTURES', 'mask', '');
  2391.   if PName <> ''
  2392.   then
  2393.     FMask.LoadFromFile(Path + PName)
  2394.   else
  2395.     FMask.Assign(nil);
  2397.   // load activepictures
  2398.   PNames := TStringList.Create;
  2399.   ReadStrings1(F, 'PICTURES', 'activepictures', PNames);
  2400.   ClearBitMaps;
  2401.   for i := 0 to PNames.Count - 1 do
  2402.   begin
  2403.     FActivePictures.Add(TBitMap.Create);
  2404.     TBitMap(FActivePictures.Items[i]).LoadFromFile(Path + PNames[i]);
  2405.   end;
  2406.   PNames.Free;
  2407.   //
  2408.   F.Free;
  2409. end;
  2411. constructor TbsSkinData.Create(AOwner: TComponent);
  2412. begin
  2413.   inherited Create(AOwner);
  2414.   FStoredSkin := nil;
  2415.   ObjectList := TList.Create;
  2416.   CtrlList := TList.Create;
  2417.   FActivePictures := TList.Create;
  2418.   FPicture := TBitMap.Create;
  2419.   FInActivePicture := TBitMap.Create;
  2420.   FMask := TBitMap.Create;
  2421.   FPictureName := '';
  2422.   FInActivePictureName := '';
  2423.   FMaskName := '';
  2424.   FActivePicturesNames := TStringList.Create;
  2425.   Names := TStringList.Create;
  2426.   SkinName := '';
  2427.   Empty := True;
  2428.   PopupWindow := TbsDataSkinPopupWindow.Create;
  2429.   HintWindow := TbsDataSkinHintWindow.Create;
  2430.   MainMenuPopupUp := False;
  2431.   BuildMode := False;
  2432.   BGPictureIndex := -1;
  2433. end;
  2435. destructor TbsSkinData.Destroy;
  2436. begin
  2437.   Empty := True;
  2438.   ClearObjects;
  2439.   ObjectList.Free;
  2440.   CtrlList.Free;
  2441.   FActivePictures.Free;
  2442.   FPicture.Free;
  2443.   FMask.Free;
  2444.   FInActivePicture.Free;
  2445.   FActivePicturesNames.Free;
  2446.   Names.Free;
  2447.   PopupWindow.Free;
  2448.   HintWindow.Free;
  2449.   inherited Destroy;
  2450. end;
  2452. procedure TbsSkinData.Notification;
  2453. begin
  2454.   inherited Notification(AComponent, Operation);
  2455.   if (Operation = opRemove) and (AComponent = FStoredSkin)
  2456.   then FStoredSkin := nil;
  2457.   if (Operation = opRemove) and (AComponent = FCompressedStoredSkin)
  2458.   then FCompressedStoredSkin := nil;
  2459. end;
  2462. procedure TbsSkinData.SetStoredSkin;
  2463. begin
  2464.   FStoredSkin := Value;
  2465.   if not (csDesigning in ComponentState) and (FStoredSkin <> nil)
  2466.   then
  2467.     LoadStoredSkin(FStoredSkin);
  2468. end;
  2470. procedure TbsSkinData.SetCompressedStoredSkin;
  2471. begin
  2472.   FCompressedStoredSkin := Value;
  2473.   if not (csDesigning in ComponentState) and (FCompressedStoredSkin <> nil)
  2474.   then
  2475.     LoadCompressedStoredSkin(FCompressedStoredSkin);
  2476. end;
  2478. procedure TbsSkinData.LoadNames;
  2479. var
  2480.   i: Integer;
  2481. begin
  2482.   Names.Clear;
  2483.   for i := 0 to ObjectList.Count - 1 do
  2484.     Names.Add(TbsDataSkinObject(ObjectList.Items[i]).IDName);
  2485.   for i := 0 to CtrlList.Count - 1 do
  2486.     Names.Add(TbsDataSkinControl(CtrlList.Items[i]).IDName);
  2487. end;
  2489. procedure TbsSkinData.EraseSections;
  2490. var
  2491.   i: Integer;
  2492. begin
  2493.   if Names.Count = 0 then Exit;
  2494.   for i := 0 to Names.Count - 1 do
  2495.     F.EraseSection(Names[i]);
  2496. end;
  2498. procedure TbsSkinData.SendSkinDataMessage;
  2499. var
  2500.   i: Integer;
  2501.   F: TForm;
  2502. begin
  2503.   F := TForm(Owner);
  2504.   SendMessage(F.Handle, M, Integer(Self), 1000);
  2505.   with Screen do
  2506.    for i := 0 to FormCount - 1 do
  2507.      if Forms[i] <> F
  2508.      then
  2509.        SendMessage(Forms[i].Handle, M, Integer(Self), 1000);
  2510. end;
  2512. function TbsSkinData.GetIndex;
  2513. var
  2514.   i: Integer;
  2515. begin
  2516.   Result := -1;
  2517.   for i := 0 to ObjectList.Count - 1 do
  2518.   begin
  2519.     if AIDName = TbsDataSkinObject(ObjectList.Items[i]).IDName
  2520.     then
  2521.       begin
  2522.         Result := i;
  2523.         Break;
  2524.       end;
  2525.   end;
  2526. end;
  2528. function TbsSkinData.GetControlIndex;
  2529. var
  2530.   i: Integer;
  2531. begin
  2532.   Result := -1;
  2533.   for i := 0 to CtrlList.Count - 1 do
  2534.   begin
  2535.     if AIDName = TbsDataSkinControl(CtrlList.Items[i]).IDName
  2536.     then
  2537.       begin
  2538.         Result := i;
  2539.         Break;
  2540.       end;
  2541.   end;
  2542. end;
  2544. procedure TbsSkinData.ClearObjects;
  2545. var
  2546.   i: Integer;
  2547. begin
  2548.   for i := 0 to ObjectList.Count - 1 do
  2549.     TbsDataSkinObject(ObjectList.Items[i]).Free;
  2550.   ObjectList.Clear;
  2551.   for i := 0 to CtrlList.Count - 1 do
  2552.     TbsDataSkinControl(CtrlList.Items[i]).Free;
  2553.   CtrlList.Clear;
  2554.   for i := 0 to FActivePictures.Count - 1 do
  2555.     TBitMap(FActivePictures.Items[i]).Free;
  2556.   PopupWindow.WindowPictureIndex := -1;
  2557.   HintWindow.WindowPictureIndex := -1;
  2558.   FActivePictures.Clear;
  2559.   FActivePicturesNames.Clear;
  2560. end;
  2562. procedure TbsSkinData.ClearAll;
  2563. begin
  2564.   ClearObjects;
  2565.   FPicture.Assign(nil);
  2566.   FMask.Assign(nil);
  2567.   FInActivePicture.Assign(nil);
  2568.   FPictureName := '';
  2569.   FMaskName := '';
  2570.   Empty := True;
  2571. end;
  2573. const
  2574.   symbols = ',: ';
  2576. procedure TbsSkinData.GetObjectTypeName(S: String; var AName, AType: String);
  2577. var
  2578.   i, j: Integer;
  2579. begin
  2580.   AName := '';
  2581.   AType := '';
  2582.   j := 0;
  2583.   for i := 1 to Length(S) do
  2584.     if S[i] = ':'
  2585.     then
  2586.       begin
  2587.         j := i;
  2588.         Break;
  2589.       end;
  2590.   if j <> 0
  2591.   then
  2592.     begin
  2593.       AName := Copy(S, 1, j - 1);
  2594.       AType := Copy(S, j + 1, Length(S) - j);
  2595.     end;
  2596. end;
  2598. procedure TbsSkinData.WriteObjects;
  2599. var
  2600.   i: Integer;
  2601.   S: String;
  2602. begin
  2603.   F.EraseSection('SKINOBJECTS');
  2604.   F.WriteInteger('SKINOBJECTS', 'count', ObjectList.Count);
  2605.   for i := 0 to ObjectList.Count - 1 do
  2606.   begin
  2607.     S := TbsDataSkinObject(ObjectList.Items[i]).IDName + ':';
  2608.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMenuItem
  2609.     then S := S + 'menuitem' else
  2610.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMainMenuBarItem
  2611.     then S := S + 'mainmenubaritem' else
  2612.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMainMenuBarButton
  2613.     then S := S + 'mainmenubarbutton' else
  2614.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinStdButton
  2615.     then S := S + 'stdbutton' else
  2616.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinButton
  2617.     then S := S + 'button' else
  2618.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinCaption
  2619.     then S := S + 'caption' else
  2620.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataUserObject
  2621.     then S := S + 'userobject';
  2622.     F.WriteString('SKINOBJECTS', IntToStr(i), S);
  2623.     TbsDataSkinObject(ObjectList.Items[i]).SaveToFile(F);
  2624.   end;
  2625. end;
  2627. procedure TbsSkinData.WriteCtrls(F: TCustomIniFile);
  2628. var
  2629.   i: Integer;
  2630.   S: String;
  2631. begin
  2632.   F.EraseSection('SKINCONTROLS');
  2633.   F.WriteInteger('SKINCONTROLS', 'count', CtrlList.Count);
  2634.   for i := 0 to CtrlList.Count - 1 do
  2635.   begin
  2636.     S := TbsDataSkinControl(CtrlList.Items[i]).IDName + ':';
  2637.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinPanelControl
  2638.     then S := S + 'panel'
  2639.     else
  2640.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinExPanelControl
  2641.     then S := S + 'expanel'
  2642.     else
  2643.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMenuButtonControl
  2644.     then S := S + 'menubutton'
  2645.     else
  2646.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinButtonControl
  2647.     then S := S + 'button'
  2648.     else
  2649.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinCheckRadioControl
  2650.     then S := S + 'checkradio'
  2651.     else
  2652.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinGaugeControl
  2653.     then S := S + 'gauge'
  2654.     else
  2655.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSplitterControl
  2656.     then S := S + 'splitter'
  2657.     else
  2658.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTrackBarControl
  2659.     then S := S + 'trackbar'
  2660.     else
  2661.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinLabelControl
  2662.     then S := S + 'label'
  2663.     else
  2664.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinStdLabelControl
  2665.     then S := S + 'stdlabel'
  2666.     else
  2667.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinUpDownControl
  2668.     then S := S + 'updown'
  2669.     else
  2670.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinGridControl
  2671.     then S := S + 'grid'
  2672.     else
  2673.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTabControl
  2674.     then S := S + 'tab'
  2675.     else
  2676.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMainMenuBar
  2677.     then S := S + 'mainmenubar'
  2678.     else
  2679.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinControlBar
  2680.     then S := S + 'controlbar'
  2681.     else
  2682.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMemoControl
  2683.     then S := S + 'memo'
  2684.     else
  2685.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinEditControl
  2686.     then S := S + 'edit'
  2687.     else
  2688.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinCheckListBox
  2689.     then S := S + 'checklistbox'
  2690.     else
  2691.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinListBox
  2692.     then S := S + 'listbox'
  2693.     else
  2694.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinComboBox
  2695.     then S := S + 'combobox'
  2696.     else
  2697.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinScrollBarControl
  2698.     then S := S + 'scrollbar'
  2699.     else
  2700.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSpinEditControl
  2701.     then S := S + 'spinedit'
  2702.     else
  2703.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinScrollBoxControl
  2704.     then S := S + 'scrollbox'
  2705.     else
  2706.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTreeView
  2707.     then S := S + 'treeview'
  2708.     else
  2709.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinBevel
  2710.     then S := S + 'bevel'
  2711.     else
  2712.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSlider
  2713.     then S := S + 'slider'
  2714.     else
  2715.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinListView
  2716.     then S := S + 'listview'
  2717.     else
  2718.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinRichEdit
  2719.     then S := S + 'richedit';
  2720.     F.WriteString('SKINCONTROLS', IntToStr(i), S);
  2721.     TbsDataSkinControl(CtrlList.Items[i]).SaveToFile(F);
  2722.   end;
  2723. end;
  2725. procedure TbsSkinData.ReadCtrls(F: TCustomIniFile);
  2726. var
  2727.   i, Count: Integer;
  2728.   S, FName, FType: String;
  2729. begin
  2730.   Count := F.ReadInteger('SKINCONTROLS', 'count', 0);
  2731.   for i := 0 to Count - 1 do
  2732.   begin
  2733.     S := F.ReadString('SKINCONTROLS', IntToStr(i), '');
  2734.     GetObjectTypeName(S, FName, FType);
  2735.     if FType = 'panel'
  2736.     then CtrlList.Add(TbsDataSkinPanelControl.Create(FName))
  2737.     else
  2738.     if FType = 'expanel'
  2739.     then CtrlList.Add(TbsDataSkinExPanelControl.Create(FName))
  2740.     else
  2741.     if FType = 'menubutton'
  2742.     then CtrlList.Add(TbsDataSkinMenuButtonControl.Create(FName))
  2743.     else
  2744.     if FType = 'button'
  2745.     then CtrlList.Add(TbsDataSkinButtonControl.Create(FName))
  2746.     else
  2747.     if FType = 'checkradio'
  2748.     then CtrlList.Add(TbsDataSkinCheckRadioControl.Create(FName))
  2749.     else
  2750.     if FType = 'gauge'
  2751.     then CtrlList.Add(TbsDataSkinGaugeControl.Create(FName))
  2752.     else
  2753.     if FType = 'splitter'
  2754.     then CtrlList.Add(TbsDataSkinSplitterControl.Create(FName))
  2755.     else
  2756.     if FType = 'trackbar'
  2757.     then CtrlList.Add(TbsDataSkinTrackBarControl.Create(FName))
  2758.     else
  2759.     if FType = 'label'
  2760.     then CtrlList.Add(TbsDataSkinLabelControl.Create(FName))
  2761.     else
  2762.     if FType = 'stdlabel'
  2763.     then CtrlList.Add(TbsDataSkinStdLabelControl.Create(FName))
  2764.     else
  2765.     if FType = 'updown'
  2766.     then CtrlList.Add(TbsDataSkinUpDownControl.Create(FName))
  2767.     else
  2768.     if FType = 'grid'
  2769.     then CtrlList.Add(TbsDataSkinGridControl.Create(FName))
  2770.     else
  2771.     if FType = 'tab'
  2772.     then CtrlList.Add(TbsDataSkinTabControl.Create(FName))
  2773.     else
  2774.     if FType = 'mainmenubar'
  2775.     then CtrlList.Add(TbsDataSkinMainMenuBar.Create(FName))
  2776.     else
  2777.     if FType = 'controlbar'
  2778.     then CtrlList.Add(TbsDataSkinControlBar.Create(FName))
  2779.     else
  2780.     if FType = 'memo'
  2781.     then CtrlList.Add(TbsDataSkinMemoControl.Create(FName))
  2782.     else
  2783.     if FType = 'edit'
  2784.     then CtrlList.Add(TbsDataSkinEditControl.Create(FName))
  2785.     else
  2786.     if FType = 'checklistbox'
  2787.     then CtrlList.Add(TbsDataSkinCheckListBox.Create(FName))
  2788.     else
  2789.     if FType = 'listbox'
  2790.     then CtrlList.Add(TbsDataSkinListBox.Create(FName))
  2791.     else
  2792.     if FType = 'combobox'
  2793.     then CtrlList.Add(TbsDataSkinComboBox.Create(FName))
  2794.     else
  2795.     if FType = 'scrollbar'
  2796.     then CtrlList.Add(TbsDataSkinScrollBarControl.Create(FName))
  2797.     else
  2798.     if FType = 'spinedit'
  2799.     then CtrlList.Add(TbsDataSkinSpinEditControl.Create(FName))
  2800.     else
  2801.     if FType = 'scrollbox'
  2802.     then CtrlList.Add(TbsDataSkinScrollBoxControl.Create(FName))
  2803.     else
  2804.     if FType = 'treeview'
  2805.     then CtrlList.Add(TbsDataSkinTreeView.Create(FName))
  2806.     else
  2807.     if FType = 'bevel'
  2808.     then CtrlList.Add(TbsDataSkinBevel.Create(FName))
  2809.     else
  2810.     if FType = 'slider'
  2811.     then CtrlList.Add(TbsDataSkinSlider.Create(FName))
  2812.     else
  2813.     if FType = 'listview'
  2814.     then CtrlList.Add(TbsDataSkinListView.Create(FName))
  2815.     else
  2816.     if FType = 'richedit'
  2817.     then CtrlList.Add(TbsDataSkinRichEdit.Create(FName));
  2818.     TbsDataSkinControl(CtrlList[CtrlList.Count - 1]).LoadFromFile(F);
  2819.   end;
  2820. end;
  2822. procedure TbsSkinData.WriteActivePictures;
  2823. begin
  2824.   WriteStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  2825. end;
  2827. procedure TbsSkinData.ReadActivePictures;
  2828. var
  2829.   i: Integer;
  2830. begin
  2831.   ReadStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  2832.   for i := 0 to FActivePicturesNames.Count - 1 do
  2833.   begin
  2834.     FActivePictures.Add(TBitMap.Create);
  2835.     TBitMap(FActivePictures.Items[i]).LoadFromFile(Path + FActivePicturesNames[i]);
  2836.   end;
  2837. end;
  2838. procedure TbsSkinData.ReadObjects;
  2839. var
  2840.   i, Count: Integer;
  2841.   S, FName, FType: String;
  2842. begin
  2843.   Count := F.ReadInteger('SKINOBJECTS', 'count', 0);
  2844.   for i := 0 to Count - 1 do
  2845.   begin
  2846.     S := F.ReadString('SKINOBJECTS', IntToStr(i), '');
  2847.     GetObjectTypeName(S, FName, FType);
  2848.     if FType = 'menuitem'
  2849.     then ObjectList.Add(TbsDataSkinMenuItem.Create(FName)) else
  2850.     if FType = 'mainmenubaritem'
  2851.     then ObjectList.Add(TbsDataSkinMainMenuBarItem.Create(FName)) else
  2852.     if FType = 'stdbutton'
  2853.     then ObjectList.Add(TbsDataSkinStdButton.Create(FName)) else
  2854.     if FType = 'mainmenubarbutton'
  2855.     then ObjectList.Add(TbsDataSkinMainMenuBarButton.Create(FName)) else
  2856.     if FType = 'button'
  2857.     then ObjectList.Add(TbsDataSkinButton.Create(FName)) else
  2858.     if FType = 'caption'
  2859.     then ObjectList.Add(TbsDataSkinCaption.Create(FName)) else
  2860.     if FType = 'userobject'
  2861.     then ObjectList.Add(TbsDataUserObject.Create(FName));
  2862.     TbsDataSkinObject(ObjectList[ObjectList.Count - 1]).LoadFromFile(F);
  2863.   end;
  2864. end;
  2866. procedure TbsSkinData.AddBitMap(FileName: String);
  2867. begin
  2868.   FActivePicturesNames.Add(ExtractFileName(FileName));
  2869.   FActivePictures.Add(TBitMap.Create);
  2870.   TBitMap(FActivePictures.Items[FActivePictures.Count - 1]).LoadFromFile(FileName);
  2871. end;
  2873. procedure TbsSkinData.DeleteBitMap(Index: Integer);
  2874. begin
  2875.   FActivePicturesNames.Delete(Index);
  2876.   TBitMap(FActivePictures.Items[Index]).Free;
  2877.   FActivePictures.Delete(Index);
  2878. end;
  2880. procedure TbsSkinData.WriteFormInfo;
  2881. begin
  2882.   WritePoint(F, 'FORMINFO', 'lefttoppoint', LTPoint);
  2883.   Writepoint(F, 'FORMINFO', 'righttoppoint', RTPoint);
  2884.   WritePoint(F, 'FORMINFO', 'leftbottompoint', LBPoint);
  2885.   WritePoint(F, 'FORMINFO', 'rightbottompoint', RBPoint);
  2886.   WriteRect(F, 'FORMINFO', 'clientrect', ClRect);
  2887.   F.WriteInteger('FORMINFO', 'bgpictureindex', BGPictureIndex);
  2888.   WriteRect(F, 'FORMINFO', 'maskrectarea', MaskRectArea);
  2889.   //
  2890.   WritePoint(F, 'FORMINFO', 'hittestlefttoppoint', HitTestLTPoint);
  2891.   WritePoint(F, 'FORMINFO', 'hittestrighttoppoint', HitTestRTPoint);
  2892.   WritePoint(F, 'FORMINFO', 'hittestleftbottompoint', HitTestLBPoint);
  2893.   WritePoint(F, 'FORMINFO', 'hittestrightbottompoint', HitTestRBPoint);
  2894.   //
  2895.   WriteRect(F, 'FORMINFO', 'buttonsrect', ButtonsRect);
  2896.   WriteRect(F, 'FORMINFO', 'captionrect', CaptionRect);
  2897.   F.WriteInteger('FORMINFO', 'buttonsoffset', ButtonsOffset);
  2898.   WriteBoolean(F, 'FORMINFO', 'buttonsinleft', CapButtonsInLeft);
  2899.   WriteBoolean(F, 'FORMINFO', 'mainmenupopupup', MainMenuPopupUp);
  2900.   F.WriteInteger('FORMINFO', 'borderwidth', BorderW);
  2901.   WriteBoolean(F, 'FORMINFO', 'autorenderinginactiveimage', AutoRenderingInActiveImage);
  2902.   WriteInActiveEffect(F, 'FORMINFO', 'inactiveeffect', InActiveEffect);
  2903. end;
  2905. procedure TbsSkinData.ReadFormInfo;
  2906. begin
  2907.   LTPoint := ReadPoint(F, 'FORMINFO', 'lefttoppoint');
  2908.   RTPoint := Readpoint(F, 'FORMINFO', 'righttoppoint');
  2909.   LBPoint := ReadPoint(F, 'FORMINFO', 'leftbottompoint');
  2910.   RBPoint := ReadPoint(F, 'FORMINFO', 'rightbottompoint');
  2911.   ClRect := ReadRect(F, 'FORMINFO', 'clientrect');
  2912.   BGPictureIndex := F.ReadInteger('FORMINFO', 'bgpictureindex', -1);
  2913.   //
  2914.   MaskRectArea := ReadRect(F, 'FORMINFO', 'maskrectarea');
  2915.   HitTestLTPoint := ReadPoint(F, 'FORMINFO', 'hittestlefttoppoint');
  2916.   HitTestRTPoint := ReadPoint(F, 'FORMINFO', 'hittestrighttoppoint');
  2917.   HitTestLBPoint := ReadPoint(F, 'FORMINFO', 'hittestleftbottompoint');
  2918.   HitTestRBPoint := ReadPoint(F, 'FORMINFO', 'hittestrightbottompoint');
  2919.   //
  2920.   if FMaskName <> ''
  2921.   then
  2922.     begin
  2923.       if isNullRect(MaskRectArea)
  2924.       then
  2925.         MaskRectArea := ClRect
  2926.       else
  2927.         begin
  2928.           if MaskRectArea.Left > ClRect.Left
  2929.           then MaskRectArea.Left := ClRect.Left;
  2930.           if MaskRectArea.Top > ClRect.Top
  2931.           then MaskRectArea.Top := ClRect.Top;
  2932.           if MaskRectArea.Right < ClRect.Right
  2933.           then MaskRectArea.Right := ClRect.Right;
  2934.           if MaskRectArea.Bottom < ClRect.Bottom
  2935.           then MaskRectArea.Bottom := ClRect.Bottom;
  2936.         end;
  2937.       if isNullPoint(HitTestLTPoint) then  HitTestLTPoint := LTPoint;
  2938.       if isNullPoint(HitTestRTPoint) then  HitTestRTPoint := RTPoint;
  2939.       if isNullPoint(HitTestLBPoint) then  HitTestLBPoint := LBPoint;
  2940.       if isNullPoint(HitTestRBPoint) then  HitTestRBPoint := RBPoint;
  2941.     end;
  2942.   //
  2943.   ButtonsRect := ReadRect(F, 'FORMINFO', 'buttonsrect');
  2944.   CaptionRect := ReadRect(F, 'FORMINFO', 'captionrect');
  2945.   ButtonsOffset := F.ReadInteger('FORMINFO', 'buttonsoffset', 0);
  2946.   CapButtonsInLeft := ReadBoolean(F, 'FORMINFO', 'buttonsinleft');
  2947.   //
  2948.   MainMenuPopupUp := ReadBoolean(F, 'FORMINFO', 'mainmenupopupup');
  2949.   BorderW := F.ReadInteger('FORMINFO', 'borderwidth', 0);
  2950.   AutoRenderingInActiveImage := ReadBoolean(F, 'FORMINFO', 'autorenderinginactiveimage');
  2951.   InActiveEffect := ReadInActiveEffect(F, 'FORMINFO', 'inactiveeffect');
  2952.   //
  2953.   if (RBPoint.X - LTPoint.X  <> 0) and
  2954.      (RBPoint.Y - LTPoint.Y <> 0)
  2955.   then
  2956.     begin
  2957.       if LTPoint.X < CLRect.Left then LTPoint.X := CLRect.Left;
  2958.       if LTPoint.Y < CLRect.Top then LTPoint.Y := CLRect.Top;
  2959.       if RTPoint.X > CLRect.Right then RTPoint.X := CLRect.Right;
  2960.       if RTPoint.Y < CLRect.Top then RTPoint.Y := CLRect.Top;
  2961.       if LBPoint.X < CLRect.Left then LBPoint.X := CLRect.Left;
  2962.       if LBPoint.Y > CLRect.Bottom then LBPoint.Y := CLRect.Bottom;
  2963.       if RBPoint.X > CLRect.Right then RBPoint.X := CLRect.Right;
  2964.       if RBPoint.Y > CLRect.Bottom then RBPoint.Y := CLRect.Bottom;
  2965.     end;
  2966. end;
  2968. const
  2969.   SkinDataFileFormat = 1;
  2971. procedure TbsSkinData.SaveToFile;
  2972. var
  2973.   F: TIniFile;
  2974.   Version: Integer;
  2975. begin
  2976.   //
  2977.   F := TIniFile.Create(FileName);
  2978.   if BuildMode
  2979.   then
  2980.     begin
  2981.       EraseSections(F);
  2982.       LoadNames;
  2983.     end;  
  2984.   //
  2985.   F.EraseSection('VERSION');
  2986.   Version := SkinDataFileFormat;
  2987.   F.WriteInteger('VERSION', 'ver', Version);
  2988.   F.WriteString('VERSION', 'skinname', SkinName);
  2989.   F.WriteString('VERSION', 'skinauthor', SkinAuthor);
  2990.   F.WriteString('VERSION', 'authoremail', AuthorEmail);
  2991.   F.WriteString('VERSION', 'authorurl', AuthorURL);
  2992.   F.WriteString('VERSION', 'skincomments', SkinComments);
  2993.   //
  2994.   F.EraseSection('PICTURES');
  2995.   F.WriteString('PICTURES', 'picture', FPictureName);
  2996.   F.WriteString('PICTURES', 'inactivepicture', FInActivePictureName);
  2997.   F.WriteString('PICTURES', 'mask', FMaskName);
  2998.   WriteActivePictures(F);
  2999.   //
  3000.   F.EraseSection('FORMINFO');
  3001.   WriteFormInfo(F);
  3002.   //
  3003.   F.EraseSection('POPUPWINDOW');
  3004.   PopupWindow.SaveToFile(F);
  3005.   //
  3006.   F.EraseSection('HINTWINDOW');
  3007.   HintWindow.SaveToFile(F);
  3008.   //
  3009.   WriteObjects(F);
  3010.   //
  3011.   WriteCtrls(F);
  3012.   //
  3013.   F.Free;
  3014. end;
  3016. procedure TbsSkinData.LoadFromFile;
  3017. var
  3018.   F: TIniFile;
  3019.   FilePath: String;
  3020. begin
  3021.   Empty := True;
  3023.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3025.   ClearAll;
  3026.   F := TIniFile.Create(FileName);
  3028.   if not CheckSkinFile(F)
  3029.   then
  3030.     begin
  3031.       SendSkinDataMessage(WM_CHANGESKINDATA);
  3032.       SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3033.       F.Free;
  3034.       Exit;
  3035.     end;
  3037.   FilePath := ExtractFilePath(FileName);
  3038.   //
  3039.   SkinName := F.ReadString('VERSION', 'skinname', '');
  3040.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  3041.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  3042.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  3043.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  3044.   //
  3045.   FPictureName := F.ReadString('PICTURES', 'picture', '');
  3046.   FInActivePictureName := F.ReadString('PICTURES', 'inactivepicture', '');
  3047.   FMaskName := F.ReadString('PICTURES', 'mask', '');
  3049.   if FPictureName <> ''
  3050.   then
  3051.     FPicture.LoadFromFile(FilePath + FPictureName)
  3052.   else
  3053.     FPicture.Assign(nil);
  3055.   if FInActivePictureName <> ''
  3056.   then
  3057.     FInActivePicture.LoadFromFile(FilePath + FInActivePictureName)
  3058.   else
  3059.     FInActivePicture.Assign(nil);
  3062.   if FMaskName <> ''
  3063.   then
  3064.     FMask.LoadFromFile(FilePath + FMaskName)
  3065.   else
  3066.     FMask.Assign(nil);
  3068.   ReadActivePictures(F, FilePath);
  3069.   //
  3070.   ReadFormInfo(F);
  3071.   //
  3072.   PopupWindow.LoadFromFile(F);
  3073.   //
  3074.   HintWindow.LoadFromFile(F);
  3075.   //
  3076.   ReadObjects(F);
  3077.   //
  3078.   ReadCtrls(F);
  3079.   //
  3080.   if BuildMode then LoadNames;
  3082.   F.UpdateFile;
  3084.   F.Free;
  3086.   Empty := False;
  3088.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3089.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3090. end;
  3092. procedure TbsSkinData.LoadCompressedStoredSkin(AStoredSkin: TbsCompressedStoredSkin);
  3093. var
  3094.   TmpStream: TMemoryStream;
  3095.   CV: Integer;
  3096.   FIniStrings: TStrings;
  3097.   F: TMemIniFile;
  3098.   IsEmpty: Boolean;
  3099.   i, Count: Integer;
  3100. begin
  3101.   if AStoredSkin.Empty then Exit;
  3102.   Empty := True;
  3103.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3104.   ClearAll;
  3105.   TmpStream := TMemoryStream.Create;
  3106.   AStoredSkin.DeCompressToStream(TmpStream);
  3107.   TmpStream.Seek(0, 0);
  3108.   TmpStream.Read(CV, SizeOf(CV));
  3109.   if CV <> 1
  3110.   then
  3111.     begin
  3112.       TmpStream.Free;
  3113.       Exit;
  3114.     end;
  3115.   //
  3116.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3117.   if IsEmpty
  3118.   then FPicture.Assign(nil)
  3119.   else FPicture.LoadFromStream(TmpStream);
  3121.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3122.   if IsEmpty
  3123.   then FInActivePicture.Assign(nil)
  3124.   else FInActivePicture.LoadFromStream(TmpStream);
  3126.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3127.   if IsEmpty
  3128.   then FMask.Assign(nil)
  3129.   else FMask.LoadFromStream(TmpStream);
  3131.   TmpStream.Read(Count, SizeOf(Count));
  3132.   if Count > 0
  3133.   then
  3134.     for i := 0 to Count - 1 do
  3135.     begin
  3136.       FActivePictures.Add(TBitMap.Create);
  3137.       TBitMap(FActivePictures.Items[i]).LoadFromStream(TmpStream);
  3138.     end;
  3139.   //
  3140.   FIniStrings := TStringList.Create;
  3141.   FIniStrings.LoadFromStream(TmpStream);
  3142.   F := TMemIniFile.Create('');
  3143.   F.SetStrings(FIniStrings);
  3144.   //
  3145.   SkinName := F.ReadString('VERSION', 'skinname', '');
  3146.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  3147.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  3148.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  3149.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  3150.   ReadFormInfo(F);
  3151.   PopupWindow.LoadFromFile(F);
  3152.   HintWindow.LoadFromFile(F);
  3153.   ReadObjects(F);
  3154.   ReadCtrls(F);
  3155.   //
  3156.   FIniStrings.Free;
  3157.   F.Free;
  3158.   TmpStream.Free;
  3159.   //
  3160.   Empty := False;
  3161.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3162.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3163. end;
  3165. procedure TbsSkinData.LoadStoredSkin;
  3166. var
  3167.   F: TMemIniFile;
  3168.   i: Integer;
  3169. begin
  3170.   Empty := True;
  3172.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3174.   ClearAll;
  3176.   F := TMemIniFile.Create('');
  3177.   F.SetStrings(AStoredSkin.FIniStrings);
  3178.   //
  3179.   if not CheckSkinFile(F)
  3180.   then
  3181.     begin
  3182.       SendSkinDataMessage(WM_CHANGESKINDATA);
  3183.       SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3184.       F.Free;
  3185.       Exit;
  3186.     end;
  3187.   //
  3188.   SkinName := F.ReadString('VERSION', 'skinname', '');
  3189.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  3190.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  3191.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  3192.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  3193.   // load base pictures
  3194.   FPicture.Assign(AStoredSkin.FPicture);
  3195.   FInActivePicture.Assign(AStoredSkin.FInActivePicture);
  3196.   FMask.Assign(AStoredSkin.FMask);
  3198.   // load activepictures
  3199.   if AStoredSkin.FActivePictures.Count > 0
  3200.   then
  3201.     for i := 0 to AStoredSkin.FActivePictures.Count - 1 do
  3202.     begin
  3203.       FActivePictures.Add(TBitMap.Create);
  3204.       TBitMap(FActivePictures.Items[i]).Assign(TBitMap(AStoredSkin.FActivePictures.Items[i]));
  3205.     end;
  3206.   ReadFormInfo(F);
  3207.   //
  3208.   PopupWindow.LoadFromFile(F);
  3209.   //
  3210.   HintWindow.LoadFromFile(F);
  3211.   //
  3212.   ReadObjects(F);
  3213.   //
  3214.   ReadCtrls(F);
  3215.   //
  3216.   F.Free;
  3217.   Empty := False;
  3218.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3219.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3220. end;
  3222. procedure TbsSkinData.ClearSkin;
  3223. begin
  3224.   ClearAll;
  3225.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3226.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3227.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3228. end;
  3230. constructor TbsCompressedStoredSkin.Create(AOwner: TComponent);
  3231. begin
  3232.   inherited;
  3233.   FCompressedStream := TMemoryStream.Create;
  3234. end;
  3236. destructor TbsCompressedStoredSkin.Destroy;
  3237. begin
  3238.   FCompressedStream.Free;
  3239.   inherited;
  3240. end;
  3242. function TbsCompressedStoredSkin.GetEmpty: Boolean;
  3243. begin
  3244.   Result := FCompressedStream.Size = 0;
  3245. end;
  3247. procedure TbsCompressedStoredSkin.SetFileName;
  3248. begin
  3249.   if (csDesigning in ComponentState) and not
  3250.      (csLoading in ComponentState)
  3251.   then
  3252.     begin
  3253.       FFileName := ExtractFileName(Value);
  3254.       LoadFromIniFile(Value);
  3255.     end
  3256.   else
  3257.     FFileName := Value;
  3258. end;
  3260. procedure TbsCompressedStoredSkin.DefineProperties(Filer: TFiler);
  3261. begin
  3262.   inherited;
  3263.   Filer.DefineBinaryProperty('CompressedData', ReadData, WriteData, True);
  3264. end;
  3266. const
  3267.   CompressVersion = 1;
  3269. procedure TbsCompressedStoredSkin.ReadData;
  3270. begin
  3271.   FCompressedStream.LoadFromStream(Reader);
  3272. end;
  3274. procedure TbsCompressedStoredSkin.WriteData;
  3275. begin
  3276.   FCompressedStream.SaveToStream(Writer);
  3277. end;
  3279. procedure TbsCompressedStoredSkin.DeCompressToStream;
  3280. begin
  3281.   DecompressStream(S, FCompressedStream);
  3282. end;
  3284. procedure TbsCompressedStoredSkin.LoadFromIniFile(AFileName: String);
  3285. var
  3286.   TmpStream: TMemoryStream;
  3287.   F: TMemIniFile;
  3288.   Path: String;
  3289.   FIniStrings: TStrings;
  3290.   BitMapName: String;
  3291.   BitMap: TBitMap;
  3292.   IsEmpty: Boolean;
  3293.   i, Count, CV: Integer;
  3294.   PNames: TStrings;
  3295. begin
  3296.   FIniStrings := TStringList.Create;
  3297.   FIniStrings.LoadFromFile(AFileName);
  3299.   F := TMemIniFile.Create(AFileName);
  3301.   if not CheckSkinFile(F)
  3302.   then
  3303.     begin
  3304.       F.Free;
  3305.       FIniStrings.Free;
  3306.       Exit;
  3307.     end;
  3309.   Path := ExtractFilePath(AFileName);
  3311.   FCompressedStream.Clear;
  3313.   TmpStream := TMemoryStream.Create;
  3314.   //
  3315.   CV := CompressVersion;
  3316.   TmpStream.Write(CV, SizeOf(CV));
  3317.   // load bitmaps to stream
  3318.   BitMap := TBitMap.Create;
  3319.   //
  3320.   BitMapName := F.ReadString('PICTURES', 'picture', '');
  3321.   if BitMapName <> ''
  3322.   then BitMap.LoadFromFile(Path + BitMapName)
  3323.   else BitMap.Assign(nil);
  3324.   IsEmpty := BitMap.Empty;
  3325.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3326.   if not IsEmpty
  3327.   then BitMap.SaveToStream(TmpStream);
  3328.   //
  3329.   BitMapName := F.ReadString('PICTURES', 'inactivepicture', '');
  3330.   if BitMapName <> ''
  3331.   then BitMap.LoadFromFile(Path + BitMapName)
  3332.   else BitMap.Assign(nil);
  3333.   IsEmpty := BitMap.Empty;
  3334.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3335.   if not IsEmpty then BitMap.SaveToStream(TmpStream);
  3336.   //
  3337.   BitMapName := F.ReadString('PICTURES', 'mask', '');
  3338.   if BitMapName <> ''
  3339.   then BitMap.LoadFromFile(Path + BitMapName)
  3340.   else BitMap.Assign(nil);
  3341.   IsEmpty := BitMap.Empty;
  3342.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3343.   if not IsEmpty then BitMap.SaveToStream(TmpStream);
  3344.   //
  3345.   PNames := TStringList.Create;
  3346.   ReadStrings1(F, 'PICTURES', 'activepictures', PNames);
  3347.   Count := PNames.Count;
  3348.   TmpStream.Write(Count, SizeOf(Count));
  3349.   if Count > 0
  3350.   then
  3351.     for i := 0 to Count - 1 do
  3352.     begin
  3353.       BitMapName := Path + PNames[i];
  3354.       BitMap.LoadFromFile(BitMapName);
  3355.       BitMap.SaveToStream(TmpStream);
  3356.     end;
  3357.   PNames.Free;
  3358.   //
  3359.   FIniStrings.SaveToStream(TmpStream);
  3360.   //
  3361.   CompressStream(TmpStream, FCompressedStream);
  3362.   BitMap.Free;
  3363.   FIniStrings.Free;
  3364.   TmpStream.Free;
  3365.   F.Free;
  3366. end;
  3368. procedure TbsCompressedStoredSkin.LoadFromCompressFile(AFileName: String);
  3369. var
  3370.   F: TFileStream;
  3371.   CV, Size: LongInt;
  3372. begin
  3373.   FCompressedStream.Clear;
  3374.   F := TFileStream.Create(AFileName, fmOpenRead);
  3375.   F.Read(CV, SizeOf(CV));
  3376.   if CV = 1
  3377.   then
  3378.     begin
  3379.       F.Read(Size, SizeOf(Size));
  3380.       FCompressedStream.CopyFrom(F, Size);
  3381.     end;
  3382.   F.Free;
  3383. end;
  3385. procedure TbsCompressedStoredSkin.SaveToCompressFile(AFileName: String);
  3386. var
  3387.   F: TFileStream;
  3388.   CV, Size: LongInt;
  3389. begin
  3390.   if Empty then Exit;
  3391.   F := TFileStream.Create(AFileName, fmCreate);
  3392.   CV := CompressVersion;
  3393.   F.Write(CV, SizeOf(CV));
  3394.   Size := FCompressedStream.Size;
  3395.   F.Write(Size, SizeOf(Size));
  3396.   FCompressedStream.SaveToStream(F);
  3397.   F.Free;
  3398. end;
  3400. end.