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

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

Delphi控件源码

开发平台：

Delphi

bsSkinData.pas：源码内容
  1. {*******************************************************************}
  2. {                                                                   }
  3. {       Almediadev Visual Component Library                         }
  4. {       BusinessSkinForm                                            }
  5. {       Version 2.90                                                }
  6. {                                                                   }
  7. {       Copyright (c) 2000-2004 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;
  27. type
  29.   TbsStdCommand = (cmClose, cmMaximize, cmMinimize, cmSysMenu, cmDefault, cmRollUp, cmMinimizeToTray);
  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.    ActiveSkinRect: TRect;
  261.    FontName: String;
  262.    FontStyle: TFontStyles;
  263.    FontHeight: Integer;
  264.    FontColor, ActiveFontColor, DisabledFontColor: TColor;
  265.    UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  266.    DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  267.    constructor Create(AIDName: String);
  268.    procedure LoadFromFile(IniFile: TCustomIniFile); override;
  269.    procedure SaveToFile(IniFile: TCustomIniFile); override;
  270.  end;
  272.   TbsDataSkinEditControl = class(TbsDataSkinCustomControl)
  273.   public
  274.     ActiveSkinRect: TRect;
  275.     FontName: String;
  276.     FontStyle: TFontStyles;
  277.     FontHeight: Integer;
  278.     FontColor, DisabledFontColor: TColor;
  279.     ActiveFontColor: TColor;
  280.     ButtonRect: TRect;
  281.     ActiveButtonRect: TRect;
  282.     DownButtonRect: TRect;
  283.     UnEnabledButtonRect: TRect;
  284.     constructor Create(AIDName: String);
  285.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  286.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  287.   end;
  289.   TbsDataSkinMemoControl = class(TbsDataSkinEditControl)
  290.   public
  291.     BGColor: TColor;
  292.     ActiveBGColor: TColor;
  293.     constructor Create(AIDName: String);
  294.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  295.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  296.   end;
  298.   TbsDataSkinStdLabelControl = class(TbsDataSkinControl)
  299.   public
  300.     FontName: String;
  301.     FontStyle: TFontStyles;
  302.     FontHeight: Integer;
  303.     FontColor: TColor;
  304.     ActiveFontColor: TColor;
  305.     constructor Create(AIDName: String);
  306.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  307.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  308.   end;
  310.   TbsDataSkinLabelControl = class(TbsDataSkinCustomControl)
  311.   public
  312.     FontName: String;
  313.     FontStyle: TFontStyles;
  314.     FontHeight: Integer;
  315.     FontColor: TColor;
  316.     constructor Create(AIDName: String);
  317.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  318.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  319.   end;
  321.   TbsDataSkinSplitterControl = class(TbsDataSkinCustomControl);
  322.   
  323.   TbsDataSkinGaugeControl = class(TbsDataSkinCustomControl)
  324.   public
  325.     ProgressArea, ProgressRect: TRect;
  326.     Vertical: Boolean;
  327.     BeginOffset, EndOffset: Integer;
  328.     FontName: String;
  329.     FontStyle: TFontStyles;
  330.     FontHeight: Integer;
  331.     FontColor: TColor;
  332.     constructor Create(AIDName: String);
  333.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  334.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  335.   end;
  337.   TbsDataSkinTrackBarControl = class(TbsDataSkinCustomControl)
  338.   public
  339.     TrackArea, ButtonRect, ActiveButtonRect: TRect;
  340.     Vertical: Boolean;
  341.     constructor Create(AIDName: String);
  342.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  343.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  344.   end;
  346.   TbsDataSkinButtonControl = class(TbsDataSkinCustomControl)
  347.   public
  348.     FontName: String;
  349.     FontStyle: TFontStyles;
  350.     FontHeight: Integer;
  351.     FontColor, ActiveFontColor, DownFontColor, DisabledFontColor: TColor;
  352.     ActiveSkinRect, DownSkinRect, DisabledSkinRect: TRect;
  353.     Morphing: Boolean;
  354.     MorphKind: TbsMorphKind;
  355.     constructor Create(AIDName: String);
  356.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  357.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  358.   end;
  360.   TbsDataSkinMenuButtonControl = class(TbsDataSkinButtonControl)
  361.   public
  362.     TrackButtonRect: TRect;
  363.     constructor Create(AIDName: String);
  364.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  365.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  366.   end;
  368.   TbsDataSkinCheckRadioControl = class(TbsDataSkinCustomControl)
  369.   public
  370.     FontName: String;
  371.     FontStyle: TFontStyles;
  372.     FontHeight: Integer;
  373.     FontColor, ActiveFontColor, UnEnabledFontColor: TColor;
  374.     ActiveSkinRect: TRect;
  375.     CheckImageArea, TextArea,
  376.     CheckImageRect, UnCheckImageRect: TRect;
  377.     ActiveCheckImageRect, ActiveUnCheckImageRect: TRect;
  378.     UnEnabledCheckImageRect, UnEnabledUnCheckImageRect: TRect;
  379.     Morphing: Boolean;
  380.     MorphKind: TbsMorphKind;
  381.     FrameFontColor: TColor;
  382.     constructor Create(AIDName: String);
  383.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  384.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  385.   end;
  387.   TbsDataSkinScrollBoxControl = class(TbsDataSkinCustomControl)
  388.   public
  389.     BGPictureIndex: Integer;
  390.     constructor Create(AIDName: String);
  391.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  392.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  393.   end;
  395.   TbsDataSkinPanelControl = class(TbsDataSkinCustomControl)
  396.   public
  397.     CaptionRect: 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.     InActiveSkinRect: TRect;
  443.     Morphing: Boolean;
  444.     MorphKind: TbsMorphKind;
  445.     constructor Create(AIDName: String);
  446.     procedure LoadFromFile(IniFile: TCustomIniFile); virtual;
  447.     procedure SaveToFile(IniFile: TCustomIniFile); virtual;
  448.   end;
  450.   TbsDataUserObject = class(TbsDataSkinObject)
  451.   public
  452.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  453.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  454.   end;
  456.   TbsDataSkinButton = class(TbsDataSkinObject)
  457.   public
  458.     DownRect: TRect;
  459.     DisableSkinRect: TRect;
  460.     constructor Create(AIDName: String);
  461.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  462.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  463.   end;
  465.   TbsDataSkinStdButton = class(TbsDataSkinButton)
  466.   public
  467.     Command: TbsStdCommand;
  468.     RestoreRect: TRect;
  469.     RestoreActiveRect: TRect;
  470.     RestoreDownRect: TRect;
  471.     RestoreInActiveRect: TRect;
  472.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  473.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  474.   end;
  476.   TbsDataSkinAnimate = class(TbsDataSkinObject)
  477.   public
  478.     CountFrames: Integer;
  479.     Cycle: Boolean;
  480.     ButtonStyle: Boolean;
  481.     TimerInterval: Integer;
  482.     Command: TbsStdCommand;
  483.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  484.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  485.   end;
  487.   TbsDataSkinMainMenuBarButton = class(TbsDataSkinStdButton);
  489.   TbsDataSkinPopupWindow = class(TObject)
  490.   public
  491.     WindowPictureIndex: Integer;
  492.     MaskPictureIndex: Integer;
  493.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  494.     ItemsRect: TRect;
  495.     ScrollMarkerColor, ScrollMarkerActiveColor: Integer;
  496.     TopStretch, LeftStretch,
  497.     RightStretch, BottomStretch: Boolean;
  498.     constructor Create;
  499.     procedure LoadFromFile(IniFile: TCustomIniFile);
  500.     procedure SaveToFile(IniFile: TCustomIniFile);
  501.   end;
  503.   TbsDataSkinHintWindow = class(TObject)
  504.   public
  505.     WindowPictureIndex: Integer;
  506.     MaskPictureIndex: Integer;
  507.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  508.     ClRect: TRect;
  509.     FontName: String;
  510.     FontStyle: TFontStyles;
  511.     FontHeight: Integer;
  512.     FontColor: TColor;
  513.     TopStretch, LeftStretch,
  514.     RightStretch, BottomStretch: Boolean;
  515.     constructor Create;
  516.     procedure LoadFromFile(IniFile: TCustomIniFile);
  517.     procedure SaveToFile(IniFile: TCustomIniFile);
  518.   end;
  520.   TbsDataSkinMenuItem = class(TbsDataSkinObject)
  521.   public
  522.     DividerRect: TRect;
  523.     DividerLO, DividerRO: Integer;
  524.     ItemLO, ItemRO: Integer;
  525.     FontName: String;
  526.     FontHeight: Integer;
  527.     FontStyle: TFontStyles;
  528.     UnEnabledFontColor, FontColor, ActiveFontColor: TColor;
  529.     TextRct: TRect;
  530.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  531.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  532.   end;
  534.   TbsDataSkinMainMenuItem = class(TbsDataSkinObject)
  535.   public
  536.     DownRect: TRect;
  537.     FontName: String;
  538.     FontHeight: Integer;
  539.     FontStyle: TFontStyles;
  540.     FontColor, ActiveFontColor, DownFontColor, UnEnabledFontColor: TColor;
  541.     TextRct: TRect;
  542.     ItemLO, ItemRO: Integer;
  543.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  544.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  545.   end;
  547.   TbsDataSkinMainMenuBarItem = class(TbsDataSkinMainMenuItem);
  549.   TbsDataSkinCaption = class(TbsDataSkinObject)
  550.   public
  551.     FontName: String;
  552.     FontHeight: Integer;
  553.     FontStyle: TFontStyles;
  554.     FontColor, ActiveFontColor: TColor;
  555.     ShadowColor, ActiveShadowColor: TColor;
  556.     Shadow: Boolean;
  557.     Alignment: TAlignment;
  558.     TextRct: TRect;
  559.     FrameRect, ActiveFrameRect: TRect;
  560.     FrameLeftOffset, FrameRightOffset: Integer;
  561.     FrameTextRect: TRect;
  562.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  563.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  564.   end;
  566.   TbsSkinData = class;
  568.   TbsCompressedStoredSkin = class(TComponent)
  569.   private
  570.     FFileName: String;
  571.     FCompressedFileName: String;
  572.     FCompressedStream: TMemoryStream;
  573.     FDescription: String;
  574.     procedure SetFileName(Value: String);
  575.     procedure SetCompressedFileName(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 LoadFromSkinData(ASkinData: TbsSkinData);
  586.     procedure LoadFromCompressFile(AFileName: String);
  587.     procedure SaveToCompressFile(AFileName: String);
  588.     procedure DeCompressToStream(var S: TMemoryStream);
  589.     property Empty: Boolean read GetEmpty;
  590.   published
  591.     property Description: String read FDescription write FDescription;
  592.     property FileName: String read FFileName write SetFileName;
  593.     property CompressedFileName: String read FCompressedFileName write SetCompressedFileName;
  594.   end;
  596.   TbsResourceStrData = class(TComponent)
  597.   private
  598.     FResStrs: TStrings;
  599.     FCharSet: TFontCharSet;
  600.     procedure SetResStrs(Value: TStrings);
  601.     procedure Init;
  602.   public
  603.     constructor Create(AOwner: TComponent); override;
  604.     destructor Destroy; override;
  605.     function GetResStr(const ResName: String): String;
  606.   published
  607.     property ResStrings: TStrings read FResStrs write SetResStrs;
  608.     property CharSet: TFontCharSet read FCharSet write FCharSet;
  609.   end;
  611.   TbsSkinData = class(TComponent)
  612.   protected
  613.     FCompressedStoredSkin: TbsCompressedStoredSkin;
  614.     FResourceStrData: TbsResourceStrData;
  615.     
  616.     procedure Notification(AComponent: TComponent;
  617.                            Operation: TOperation); override;
  618.     procedure SetCompressedStoredSkin(Value: TbsCompressedStoredSkin);
  619.     procedure SetResourceStrData(Value: TbsResourceStrData);
  620.     procedure WriteFormInfo(F: TCustomIniFile);
  621.     procedure ReadFormInfo(F: TCustomIniFile);
  622.     procedure WriteObjects(F: TCustomIniFile);
  623.     procedure ReadObjects(F: TCustomIniFile);
  624.     procedure WriteCtrls(F: TCustomIniFile);
  625.     procedure ReadCtrls(F: TCustomIniFile);
  626.     procedure WriteActivePictures(F: TCustomIniFile);
  627.     procedure ReadActivePictures(F: TCustomIniFile; Path: String);
  628.     procedure GetObjectTypeName(S: String; var AName, AType: String);
  629.     procedure SaveToCustomIniFile(F: TCustomIniFile);
  630.   public
  631.     //
  632.     ButtonsRect, CaptionRect: TRect;
  633.     ButtonsOffset: Integer;
  634.     CapButtonsInLeft: Boolean;
  635.     //
  636.     AutoRenderingInActiveImage: Boolean;
  637.     InActiveEffect: TbsInActiveEffect;
  638.     PopupWindow: TbsDataSkinPopupWindow;
  639.     HintWindow: TbsDataSkinHintWindow;
  640.     Empty: Boolean;
  641.     FPicture, FInActivePicture, FMask: TBitMap;
  642.     FActivePictures: TList;
  643.     FPictureName, FInActivePictureName, FMaskName: String;
  644.     FActivePicturesNames: TStrings;
  645.     ObjectList: TList;
  646.     CtrlList: TList;
  647.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  648.     BGPictureIndex: Integer;
  649.     MDIBGPictureIndex: Integer;
  650.     MainMenuPopupUp: Boolean;
  651.     MaskRectArea: TRect;
  652.     HitTestLTPoint,
  653.     HitTestRTPoint,
  654.     HitTestLBPoint,
  655.     HitTestRBPoint: TPoint;
  656.     ClRect: TRect;
  657.     BorderW: Integer;
  659.     TopStretch, LeftStretch,
  660.     RightStretch, BottomStretch: Boolean;
  662.     SkinName: String;
  663.     SkinAuthor: String;
  664.     AuthorURL: String;
  665.     AuthorEmail: String;
  666.     SkinComments: String;
  668.     procedure AddBitMap(FileName: String);
  669.     procedure DeleteBitMap(Index: Integer);
  671.     procedure SendSkinDataMessage(M: LongInt);
  673.     function GetIndex(AIDName: String): Integer;
  674.     function GetControlIndex(AIDName: String): Integer;
  675.     procedure ClearObjects;
  676.     procedure ClearAll;
  677.     constructor Create(AOwner: TComponent); override;
  678.     destructor Destroy; override;
  680.     procedure LoadFromFile(FileName: String);
  681.     procedure SaveToFile(FileName: String);
  682.     procedure LoadFromCompressedFile(FileName: String);
  683.     procedure SaveToCompressedFile(FileName: String);
  684.     procedure StoreToDisk(AFileName: String);
  686.     procedure LoadCompressedStoredSkin(AStoredSkin: TbsCompressedStoredSkin);
  688.     procedure ClearSkin;
  690.   published
  691.     property CompressedStoredSkin: TbsCompressedStoredSkin
  692.       read FCompressedStoredSkin write SetCompressedStoredSkin;
  693.     property ResourceStrData: TbsResourceStrData
  694.       read FResourceStrData write SetResourceStrData;
  695.   end;
  697.   function ReadInActiveEffect(IniFile: TCustomIniFile;
  698.                               Section: String; Ident: String): TbsInActiveEffect;
  700.   procedure WriteInActiveEffect(IniFile: TCustomIniFile;
  701.                                 Section: String; Ident: String;
  702.                                 IE: TbsInActiveEffect);
  704.   procedure WriteMorphKind(IniFile: TCustomIniFile;
  705.                            Section: String; Ident: String; MK: TbsMorphKind);
  707.   function ReadMorphKind(IniFile: TCustomIniFile;
  708.                          Section: String; Ident: String): TbsMorphKind;
  712. // Internal messages
  713. const
  714.   WM_BEFORECHANGESKINDATA = WM_USER + 201;
  715.   WM_CHANGESKINDATA = WM_USER + 202;
  716.   WM_AFTERCHANGESKINDATA = WM_USER + 203;
  717.   WM_CHANGERESSTRDATA = WM_USER + 250;
  719. implementation
  721.    Uses bsZLibCompress;
  722.    
  723. function CheckSkinFile(F: TCustomIniFile): Boolean;
  724. begin
  725.   Result := F.SectionExists('VERSION') and F.SectionExists('PICTURES') and
  726.             F.SectionExists('FORMINFO') and F.SectionExists('SKINOBJECTS') and
  727.             F.SectionExists('SKINCONTROLS');
  728. end;
  730. procedure WriteInActiveEffect;
  731. var
  732.   S: String;
  733. begin
  734.   case IE of
  735.     ieBrightness: S := 'iebrightness';
  736.     ieDarkness: S := 'iedarkness';
  737.     ieGrayScale: S := 'iegrayscale';
  738.     ieNoise: S := 'ienoise';
  739.     ieSplitBlur: S := 'iesplitblur';
  740.     ieInvert: S := 'ieinvert';
  741.   end;
  742.   IniFile.WriteString(Section, Ident, S);
  743. end;
  745. function ReadInActiveEffect;
  746. var
  747.   S: String;
  748. begin
  749.   S := IniFile.ReadString(Section, Ident, 'iebrightness');
  750.   if S = 'iebrightness'
  751.   then Result := ieBrightness
  752.   else
  753.   if S = 'iedarkness'
  754.   then Result := ieDarkness
  755.   else
  756.   if S = 'iegrayscale'
  757.   then Result := ieGrayScale
  758.   else
  759.   if S = 'ienoise'
  760.   then Result := ieNoise
  761.   else
  762.   if S = 'iesplitblur'
  763.   then Result := ieSplitBlur
  764.   else
  765.   if S = 'ieinvert'
  766.   then Result := ieInvert
  767.   else
  768.     Result := ieGrayScale;
  769. end;
  771. function ReadMorphKind;
  772. var
  773.   S: String;
  774. begin
  775.   S := IniFile.ReadString(Section, Ident, 'mkdefault');
  776.   if S = 'mkdefault'
  777.   then Result := mkDefault
  778.   else
  779.   if S = 'mkgradient'
  780.   then Result := mkGradient
  781.   else
  782.   if S = 'mkleftgradient'
  783.   then Result := mkLeftGradient
  784.   else
  785.   if S = 'mkrightgradient'
  786.   then Result := mkRightGradient
  787.   else
  788.   if S = 'mkleftslide'
  789.   then Result := mkLeftSlide
  790.   else
  791.   if S = 'mkrightslide'
  792.   then Result := mkRightSlide
  793.   else
  794.   if S = 'mkpush'
  795.   then Result := mkPush
  796.   else Result := mkDefault;
  797. end;
  799. procedure WriteMorphKind;
  800. var
  801.   S: String;
  802. begin
  803.   case MK of
  804.     mkDefault: S := 'mkdefault';
  805.     mkGradient: S := 'mkgradient';
  806.     mkLeftGradient: S := 'mkleftgradient';
  807.     mkRightGradient: S := 'mkrightgradient';
  808.     mkLeftSlide: S := 'mkleftslide';
  809.     mkRightSlide: S := 'mkrightslide';
  810.     mkPush: S := 'mkpush';
  811.   end;
  812.   IniFile.WriteString(Section, Ident, S);
  813. end;
  815. constructor TbsDataSkinControl.Create;
  816. begin
  817.   IDName := AIDName;
  818.   PictureIndex := -1;
  819.   MaskPictureIndex := -1;
  820.   SkinRect := Rect(0, 0, 0, 0);
  821. end;
  823. procedure TbsDataSkinControl.LoadFromFile;
  824. begin
  825.   PictureIndex := IniFile.ReadInteger(IDName, 'pictureindex', -1);
  826.   MaskPictureIndex := IniFile.ReadInteger(IDName, 'maskpictureindex', -1);
  827.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  828. end;
  830. procedure TbsDataSkinControl.SaveToFile;
  831. begin
  832.   IniFile.EraseSection(IDName);
  833.   IniFile.WriteInteger(IDName, 'pictureindex', PictureIndex);
  834.   IniFile.WriteInteger(IDName, 'maskpictureindex', MaskPictureIndex);
  835.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  836. end;
  838. constructor TbsDataSkinMainMenuBar.Create;
  839. begin
  840.   inherited;
  841.   TrackMarkColor := 0;
  842.   TrackMarkActiveColor := 0;
  843. end;
  845. procedure TbsDataSkinMainMenuBar.LoadFromFile;
  846. begin
  847.   inherited;
  848.   ItemsRect := ReadRect(IniFile, IDName, 'itemsrect');
  849.   MenuBarItem := IniFile.ReadString(IDName, 'menubaritem', '');
  850.   CloseButton := IniFile.ReadString(IDName, 'closebutton', '');
  851.   MinButton := IniFile.ReadString(IDName, 'minbutton', '');
  852.   MaxButton := IniFile.ReadString(IDName, 'maxbutton', '');
  853.   SysMenuButton := IniFile.ReadString(IDName, 'sysmenubutton', '');
  854.   TrackMarkColor := IniFile.ReadInteger(IDName, 'trackmarkcolor', 0);
  855.   TrackMarkActiveColor := IniFile.ReadInteger(IDName, 'trackmarkactivecolor', 0);
  856. end;
  858. procedure TbsDataSkinMainMenuBar.SaveToFile;
  859. begin
  860.   inherited;
  861.   WriteRect(IniFile, IDName, 'itemsrect', ItemsRect);
  862.   IniFile.WriteString(IDName, 'menubaritem', MenuBarItem);
  863.   IniFile.WriteString(IDName, 'closebutton', CloseButton);
  864.   IniFile.WriteString(IDName, 'minbutton', MinButton);
  865.   IniFile.WriteString(IDName, 'maxbutton', MaxButton);
  866.   IniFile.WriteString(IDName, 'sysmenubutton', SysMenuButton);
  867.   IniFile.WriteInteger(IDName, 'trackmarkcolor', TrackMarkColor);
  868.   IniFile.WriteInteger(IDName, 'trackmarkactivecolor', TrackMarkActiveColor);
  869. end;
  871. procedure TbsDataSkinUpDownControl.LoadFromFile(IniFile: TCustomIniFile);
  872. begin
  873.   inherited;
  874.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  875.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  876.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  877.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  878.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  879.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  880.   LTPoint := Point(0, 0);
  881.   RTPoint := Point(0, 0);
  882.   LBPoint := Point(0, 0);
  883.   RBPoint := Point(0, 0);
  884.   ClRect := NullRect;
  885. end;
  887. procedure TbsDataSkinUpDownControl.SaveToFile(IniFile: TCustomIniFile);
  888. begin
  889.   LTPoint := Point(0, 0);
  890.   RTPoint := Point(0, 0);
  891.   LBPoint := Point(0, 0);
  892.   RBPoint := Point(0, 0);
  893.   ClRect := NullRect;
  894.   inherited;
  895.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  896.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  897.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  898.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  899.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  900.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  901. end;
  903. constructor TbsDataSkinListBox.Create(AIDName: String);
  904. begin
  905.   inherited;
  906.   FontName := 'Arial';
  907.   FontStyle := [];
  908.   FontHeight := 14;
  909.   FontColor := 0;
  910.   HScrollBarName := '';
  911.   VScrollBarName := '';
  912.   BothScrollBarName := '';
  913.   CaptionFontName := 'Arial';
  914.   CaptionFontStyle := [];
  915.   CaptionFontHeight := 14;
  916.   CaptionFontColor := 0;
  917. end;
  919. procedure TbsDataSkinListBox.LoadFromFile;
  920. begin
  921.   inherited;
  922.   //
  923.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  924.   ActiveItemRect := ReadRect(IniFile, IDName, 'activeitemrect');
  925.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  926.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  927.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  928.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  929.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  930.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  931.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  932.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  933.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  934.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  935.   //
  936.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  937.   CaptionFontName := IniFile.ReadString(IDName, 'captionfontname', 'Arial');
  938.   CaptionFontHeight := IniFile.ReadInteger(IDName, 'captionfontheight', 14);
  939.   CaptionFontStyle := ReadFontStyles(IniFile, IDName, 'captionfontstyle');
  940.   CaptionFontColor := IniFile.ReadInteger(IDName, 'captionfontcolor', 0);
  941.   //
  942.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  943.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  944.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  945.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  946.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  947.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  948.   CheckButtonRect := ReadRect(IniFile, IDName, 'checkbuttonrect');
  949.   ActiveCheckButtonRect := ReadRect(IniFile, IDName, 'activecheckbuttonrect');
  950.   DownCheckButtonRect := ReadRect(IniFile, IDName, 'downcheckbuttonrect');
  951.   //
  952.   VScrollBarName := IniFile.ReadString(IDName, 'vscrollbarname', 'vscrollbar');
  953.   HScrollBarName := IniFile.ReadString(IDName, 'hscrollbarname', 'hscrollbar');
  954.   BothScrollBarName := IniFile.ReadString(IDName, 'bothhscrollbarname', 'bothhscrollbar');
  955. end;
  957. procedure TbsDataSkinListBox.SaveToFile;
  958. begin
  959.   inherited;
  960.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  961.   WriteRect(IniFile, IDName, 'activeitemrect', ActiveItemRect);
  962.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  963.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  964.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  965.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  966.   IniFile.WriteString(IDName, 'fontname', FontName);
  967.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  968.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  969.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  970.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  971.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  972.   //
  973.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  974.   IniFile.WriteString(IDName, 'captionfontname', CaptionFontName);
  975.   IniFile.WriteInteger(IDName, 'captionfontheight', CaptionFontHeight);
  976.   WriteFontStyles(IniFile, IDName, 'captionfontstyle', CaptionFontStyle);
  977.   IniFile.WriteInteger(IDName, 'captionfontcolor', CaptionFontColor);
  978.   //
  979.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  980.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  981.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  982.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  983.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  984.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  985.   WriteRect(IniFile, IDName, 'checkbuttonrect', CheckButtonRect);
  986.   WriteRect(IniFile, IDName, 'activecheckbuttonrect', ActiveCheckButtonRect);
  987.   WriteRect(IniFile, IDName, 'downcheckbuttonrect', DownCheckButtonRect);
  988.   //
  989.   IniFile.WriteString(IDName, 'vscrollbarname', VScrollBarName);
  990.   IniFile.WriteString(IDName, 'hscrollbarname', HScrollBarName);
  991.   IniFile.WriteString(IDName, 'bothhscrollbarname', BothScrollBarName);
  992. end;
  994. procedure TbsDataSkinCheckListBox.LoadFromFile;
  995. begin
  996.   inherited;
  997.   ItemCheckRect := ReadRect(IniFile, IDName, 'itemcheckrect');
  998.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  999.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1000. end;
  1002. procedure TbsDataSkinCheckListBox.SaveToFile;
  1003. begin
  1004.   inherited;
  1005.   WriteRect(IniFile, IDName, 'itemcheckrect', ItemCheckRect);
  1006.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1007.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1008. end;
  1010. constructor TbsDataSkinComboBox.Create(AIDName: String);
  1011. begin
  1012.   inherited;
  1013.   FontName := 'Arial';
  1014.   FontStyle := [];
  1015.   FontHeight := 14;
  1016.   FontColor := 0;
  1017.   FocusFontColor := 0;
  1018.   ListBoxName := '';
  1019. end;
  1021. procedure TbsDataSkinComboBox.LoadFromFile;
  1022. begin
  1023.   inherited;
  1024.   //
  1025.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1026.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  1027.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  1028.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  1029.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  1030.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1031.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1032.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1033.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1034.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1035.   //
  1036.   ListBoxName := IniFile.ReadString(IDName, 'listboxname', '');
  1037.   //
  1038.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1039.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1040.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1041.   UnEnabledButtonRect := ReadRect(IniFile, IDName, 'unenabledbuttonrect');
  1042.   //
  1043. end;
  1045. procedure TbsDataSkinComboBox.SaveToFile;
  1046. begin
  1047.   inherited;
  1048.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  1049.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  1050.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  1051.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  1052.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  1053.   IniFile.WriteString(IDName, 'fontname', FontName);
  1054.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1055.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1056.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1057.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1058.   //
  1059.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1060.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1061.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1062.   WriteRect(IniFile, IDName, 'unenabledbuttonrect', UnEnabledButtonRect);
  1063.   //
  1064.   IniFile.WriteString(IDName, 'listboxname', ListBoxName);
  1065. end;
  1067. constructor TbsDataSkinControlBar.Create(AIDName: String);
  1068. begin
  1069.   inherited;
  1070.   BGPictureIndex := -1;
  1071. end;
  1073. procedure TbsDataSkinControlBar.LoadFromFile;
  1074. begin
  1075.   inherited;
  1076.   ItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1077.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1078. end;
  1080. procedure TbsDataSkinControlBar.SaveToFile;
  1081. begin
  1082.   inherited;
  1083.   WriteRect(IniFile, IDName, 'itemrect', ItemRect);
  1084.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1085. end;
  1087. constructor TbsDataSkinSlider.Create;
  1088. begin
  1089.   inherited;
  1090.   BGColor := 0;
  1091. end;
  1093. procedure TbsDataSkinSlider.LoadFromFile;
  1094. begin
  1095.   inherited;
  1096.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1097.   HRulerRect := ReadRect(IniFile, IDName, 'hrulerrect');
  1098.   HThumbRect := ReadRect(IniFile, IDName, 'hthumbrect');
  1099.   VRulerRect := ReadRect(IniFile, IDName, 'vrulerrect');
  1100.   VThumbRect := ReadRect(IniFile, IDName, 'vthumbrect');
  1101.   EdgeSize := IniFile.ReadInteger(IDName, 'edgesize', 0);
  1102.   PointsColor := IniFile.ReadInteger(IDName, 'pointscolor', 0);
  1103. end;
  1105. procedure TbsDataSkinSlider.SaveToFile;
  1106. begin
  1107.   inherited;
  1108.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1109.   WriteRect(IniFile, IDName, 'hrulerrect', HRulerRect);
  1110.   WriteRect(IniFile, IDName, 'hthumbrect', HThumbRect);
  1111.   WriteRect(IniFile, IDName, 'vrulerrect', VRulerRect);
  1112.   WriteRect(IniFile, IDName, 'vthumbrect', VThumbRect);
  1113.   IniFile.WriteInteger(IDName, 'edgesize', EdgeSize);
  1114.   IniFile.WriteInteger(IDName, 'pointscolor', PointsColor);
  1115. end;
  1118. constructor TbsDataSkinBevel.Create;
  1119. begin
  1120.   inherited;
  1121.   LightColor := 0;
  1122.   DarkColor := 0;
  1123. end;
  1125. procedure TbsDataSkinBevel.LoadFromFile;
  1126. begin
  1127.   inherited;
  1128.   LightColor := IniFile.ReadInteger(IDName, 'lightcolor', 0);
  1129.   DarkColor := IniFile.ReadInteger(IDName, 'darkcolor', 0);
  1130. end;
  1132. procedure TbsDataSkinBevel.SaveToFile;
  1133. begin
  1134.   inherited;
  1135.   IniFile.WriteInteger(IDName, 'lightcolor', LightColor);
  1136.   IniFile.WriteInteger(IDName, 'darkcolor', DarkColor);
  1137. end;
  1139. constructor TbsDataSkinTreeView.Create;
  1140. begin
  1141.   inherited;
  1142.   FontName := 'Arial';
  1143.   FontStyle := [];
  1144.   FontHeight := 14;
  1145.   FontColor := 0;
  1146.   BGColor := clWhite;
  1147. end;
  1149. procedure TbsDataSkinTreeView.LoadFromFile;
  1150. begin
  1151.   inherited;
  1152.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1153.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1154.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1155.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1156.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1157. end;
  1159. procedure TbsDataSkinTreeView.SaveToFile;
  1160. begin
  1161.   inherited;
  1162.   IniFile.WriteString(IDName, 'fontname', FontName);
  1163.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1164.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1165.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1166.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1167. end;
  1169. constructor TbsDataSkinListView.Create;
  1170. begin
  1171.   inherited;
  1172.   FontName := 'Arial';
  1173.   FontStyle := [];
  1174.   FontHeight := 14;
  1175.   FontColor := 0;
  1176.   BGColor := clWhite;
  1177. end;
  1179. procedure TbsDataSkinListView.LoadFromFile;
  1180. begin
  1181.   inherited;
  1182.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1183.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1184.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1185.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1186.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1187. end;
  1189. procedure TbsDataSkinListView.SaveToFile;
  1190. begin
  1191.   inherited;
  1192.   IniFile.WriteString(IDName, 'fontname', FontName);
  1193.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1194.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1195.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1196.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1197. end;
  1199. constructor TbsDataSkinRichEdit.Create;
  1200. begin
  1201.   inherited;
  1202.   FontName := 'Arial';
  1203.   FontStyle := [];
  1204.   FontHeight := 14;
  1205.   FontColor := 0;
  1206.   BGColor := clWhite;
  1207. end;
  1209. procedure TbsDataSkinRichEdit.LoadFromFile;
  1210. begin
  1211.   inherited;
  1212.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1213.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1214.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1215.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1216.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1217. end;
  1219. procedure TbsDataSkinRichEdit.SaveToFile;
  1220. begin
  1221.   inherited;
  1222.   IniFile.WriteString(IDName, 'fontname', FontName);
  1223.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1224.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1225.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1226.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1227. end;
  1229. constructor TbsDataSkinTabControl.Create(AIDName: String);
  1230. begin
  1231.   inherited;
  1232.   FontName := 'Arial';
  1233.   FontStyle := [];
  1234.   FontHeight := 14;
  1235.   FontColor := 0;
  1236.   ActiveFontColor := 0;
  1237.   FocusFontColor := 0;
  1238.   UpDown := '';
  1239.   BGPictureIndex := -1;
  1240. end;
  1242. procedure TbsDataSkinTabControl.LoadFromFile;
  1243. begin
  1244.   inherited;
  1245.   TabRect := ReadRect(IniFile, IDName, 'tabrect');
  1246.   ActiveTabRect := ReadRect(IniFile, IDName, 'activetabrect');
  1247.   FocusTabRect := ReadRect(IniFile, IDName, 'focustabrect');
  1248.   MouseInTabRect := ReadRect(IniFile, IDName, 'mouseintabrect');
  1250.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1251.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1252.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1253.   RTPoint := Readpoint(IniFile, IDName, 'righttoppoint');
  1254.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1255.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1257.   TabLeftOffset := IniFile.ReadInteger(IDName, 'tableftoffset', 0);
  1258.   TabRightOffset := IniFile.ReadInteger(IDName, 'tabrightoffset', 0);
  1259.   TabsBGRect := ReadRect(IniFile, IDName, 'tabsbgrect');
  1261.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1262.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1263.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1264.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1265.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1266.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1267.   MouseInFontColor := IniFile.ReadInteger(IDName, 'mouseinfontcolor', 0);
  1269.   UpDown := IniFile.ReadString(IDName, 'updown', '');
  1270. end;
  1272. procedure TbsDataSkinTabControl.SaveToFile;
  1273. begin
  1274.   inherited;
  1275.   WriteRect(IniFile, IDName, 'tabrect', TabRect);
  1276.   WriteRect(IniFile, IDName, 'activetabrect', ActiveTabRect);
  1277.   WriteRect(IniFile, IDName, 'focustabrect', FocusTabRect);
  1278.   WriteRect(IniFile, IDName, 'mouseintabrect',  MouseInTabRect);
  1280.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1281.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1283.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1284.   writePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1285.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1286.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1288.   IniFile.WriteInteger(IDName, 'tableftoffset', TabLeftOffset);
  1289.   IniFile.WriteInteger(IDName, 'tabrightoffset', TabRightOffset);
  1290.   WriteRect(IniFile, IDName, 'tabsbgrect', TabsBGRect);
  1292.   IniFile.WriteString(IDName, 'fontname', FontName);
  1293.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1294.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1295.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1296.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1297.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1298.   IniFile.WriteInteger(IDName, 'mouseinfontcolor', MouseInFontColor);
  1300.   IniFile.WriteString(IDName, 'updown', UpDown);
  1301. end;
  1303. constructor TbsDataSkinGridControl.Create;
  1304. begin
  1305.   inherited;
  1306.   FontName := 'Arial';
  1307.   FontStyle := [];
  1308.   FontHeight := 14;
  1309.   FontColor := 0;
  1310.   FixedFontName := 'Arial';
  1311.   FixedFontStyle := [];
  1312.   FixedFontHeight := 14;
  1313.   FixedFontColor := 0;
  1314. end;
  1316. procedure TbsDataSkinGridControl.LoadFromFile(IniFile: TCustomIniFile);
  1317. begin
  1318.   inherited;
  1319.   FixedCellRect := ReadRect(IniFile, IDName, 'fixedcellrect');
  1320.   SelectCellRect := ReadRect(IniFile, IDName, 'selectcellrect');
  1321.   FocusCellRect := ReadRect(IniFile, IDName, 'focuscellrect');
  1322.   //
  1323.   FixedCellLeftOffset := IniFile.ReadInteger(IDName, 'fixedcellleftoffset', 0);
  1324.   FixedCellRightOffset := IniFile.ReadInteger(IDName, 'fixedcellrightoffset', 0);
  1325.   FixedCellTextRect := ReadRect(IniFile, IDName, 'fixedcelltextrect');
  1326.   //
  1327.   CellLeftOffset := IniFile.ReadInteger(IDName, 'cellleftoffset', 0);
  1328.   CellRightOffset := IniFile.ReadInteger(IDName, 'cellrightoffset', 0);
  1329.   CellTextRect := ReadRect(IniFile, IDName, 'celltextrect');
  1330.   //
  1331.   LinesColor := IniFile.ReadInteger(IDName, 'linescolor', 0);
  1332.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1333.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1334.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1335.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1336.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1337.   SelectFontColor := IniFile.ReadInteger(IDName, 'selectfontcolor', 0);
  1338.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1339.   //
  1340.   FixedFontName := IniFile.ReadString(IDName, 'fixedfontname', 'Arial');
  1341.   FixedFontHeight := IniFile.ReadInteger(IDName, 'fixedfontheight', 14);
  1342.   FixedFontStyle := ReadFontStyles(IniFile, IDName, 'fixedfontstyle');
  1343.   FixedFontColor := IniFile.ReadInteger(IDName, 'fixedfontcolor', 0);
  1344. end;
  1346. procedure TbsDataSkinGridControl.SaveToFile(IniFile: TCustomIniFile);
  1347. begin
  1348.   inherited;
  1349.   WriteRect(IniFile, IDName, 'fixedcellrect', FixedCellRect);
  1350.   WriteRect(IniFile, IDName, 'selectcellrect', SelectCellRect);
  1351.   WriteRect(IniFile, IDName, 'focuscellrect', FocusCellRect);
  1352.   //
  1353.   IniFile.WriteInteger(IDName, 'fixedcellleftoffset', FixedCellLeftOffset);
  1354.   IniFile.WriteInteger(IDName, 'fixedcellrightoffset', FixedCellRightOffset);
  1355.   WriteRect(IniFile, IDName, 'fixedcelltextrect', FixedCellTextRect);
  1356.   //
  1357.   IniFile.WriteInteger(IDName, 'cellleftoffset', CellLeftOffset);
  1358.   IniFile.WriteInteger(IDName, 'cellrightoffset', CellRightOffset);
  1359.   WriteRect(IniFile, IDName, 'celltextrect', CellTextRect);
  1360.   //
  1361.   IniFile.WriteInteger(IDName, 'linescolor', LinesColor);
  1362.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1364.   IniFile.WriteString(IDName, 'fontname', FontName);
  1365.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1366.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1367.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1368.   IniFile.WriteInteger(IDName, 'selectfontcolor', SelectFontColor);
  1369.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1370.   //
  1371.   IniFile.WriteString(IDName, 'fixedfontname', FixedFontName);
  1372.   IniFile.WriteInteger(IDName, 'fixedfontheight', FixedFontHeight);
  1373.   WriteFontStyles(IniFile, IDName, 'fixedfontstyle', FixedFontStyle);
  1374.   IniFile.WriteInteger(IDName, 'fixedfontcolor', FixedFontColor);
  1375. end;
  1377. constructor TbsDataSkinCustomControl.Create;
  1378. begin
  1379.   inherited;
  1380.   LTPoint := Point(0, 0);
  1381.   RBPoint := Point(0, 0);
  1382.   LBPoint := Point(0, 0);
  1383.   RTPoint := Point(0, 0);
  1384.   ClRect := Rect(0, 0, 0, 0);
  1385.   MaskPictureIndex := -1;
  1386. end;
  1388. procedure TbsDataSkinCustomControl.LoadFromFile;
  1389. begin
  1390.   inherited;
  1391.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1392.   RTPoint := ReadPoint(IniFile, IDName, 'righttoppoint');
  1393.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1394.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1395.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1396. end;
  1398. procedure TbsDataSkinCustomControl.SaveToFile;
  1399. begin
  1400.   inherited;
  1401.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1402.   WritePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1403.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1404.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1405.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1406. end;
  1409. constructor TbsDataSkinSpinEditControl.Create;
  1410. begin
  1411.   inherited;
  1412.   FontName := 'Arial';
  1413.   FontStyle := [];
  1414.   FontHeight := 12;
  1415.   FontColor := 0;
  1416.   DisabledFontColor := 0;
  1417.   ActiveFontColor := 0;
  1418. end;
  1420. procedure TbsDataSkinSpinEditControl.LoadFromFile;
  1421. begin
  1422.   inherited;
  1423.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1424.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1425.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1426.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1427.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1428.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1429.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1430.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1431.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1432.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1433.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1434.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1435.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1436. end;
  1438. procedure TbsDataSkinSpinEditControl.SaveToFile;
  1439. begin
  1440.   inherited;
  1441.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1442.   IniFile.WriteString(IDName, 'fontname', FontName);
  1443.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1444.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1445.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1446.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1447.   IniFile.WriteInteger(IDName, 'disabledfontcolor', DisabledFontColor);
  1448.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1449.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1450.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1451.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1452.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1453.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1454. end;
  1457. constructor TbsDataSkinEditControl.Create;
  1458. begin
  1459.   inherited;
  1460.   FontName := 'Arial';
  1461.   FontStyle := [];
  1462.   FontHeight := 12;
  1463.   FontColor := 0;
  1464.   ActiveFontColor := 0;
  1465. end;
  1467. procedure TbsDataSkinEditControl.LoadFromFile;
  1468. begin
  1469.   inherited;
  1470.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1471.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1472.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1473.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1474.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1475.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1476.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1477.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1478.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1479.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1480.   UnEnabledButtonRect := ReadRect(IniFile, IDName, 'unenabledbuttonrect');
  1481. end;
  1483. procedure TbsDataSkinEditControl.SaveToFile;
  1484. begin
  1485.   inherited;
  1486.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1487.   IniFile.WriteString(IDName, 'fontname', FontName);
  1488.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1489.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1490.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1491.   IniFile.WriteInteger(IDName, 'disabledfontcolor', DisabledFontColor);
  1492.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1493.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1494.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1495.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1496.   WriteRect(IniFile, IDName, 'unenabledbuttonrect', UnEnabledButtonRect);
  1497. end;
  1499. constructor TbsDataSkinMemoControl.Create(AIDName: String);
  1500. begin
  1501.   inherited;
  1502. end;
  1504. procedure TbsDataSkinMemoControl.LoadFromFile;
  1505. begin
  1506.   inherited;
  1507.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1508.   ActiveBGColor := IniFile.ReadInteger(IDName, 'activebgcolor', 0);
  1509. end;
  1511. procedure TbsDataSkinMemoControl.SaveToFile;
  1512. begin
  1513.   inherited;
  1514.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1515.   IniFile.WriteInteger(IDName, 'activebgcolor', ActiveBGColor);
  1516. end;
  1518. constructor TbsDataSkinStdLabelControl.Create;
  1519. begin
  1520.   inherited;
  1521.   FontName := 'Arial';
  1522.   FontStyle := [];
  1523.   FontHeight := 12;
  1524.   FontColor := 0;
  1525.   ActiveFontColor := clBlue;
  1526. end;
  1528. procedure TbsDataSkinStdLabelControl.LoadFromFile;
  1529. begin
  1530.   inherited;
  1531.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1532.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1533.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1534.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1535.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', clBlue);
  1536. end;
  1538. procedure TbsDataSkinStdLabelControl.SaveToFile;
  1539. begin
  1540.   inherited;
  1541.   IniFile.WriteString(IDName, 'fontname', FontName);
  1542.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1543.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1544.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1545.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1546. end;
  1548. constructor TbsDataSkinLabelControl.Create;
  1549. begin
  1550.   inherited;
  1551.   FontName := 'Arial';
  1552.   FontStyle := [];
  1553.   FontHeight := 12;
  1554.   FontColor := 0;
  1555. end;
  1557. procedure TbsDataSkinLabelControl.LoadFromFile;
  1558. begin
  1559.   inherited;
  1560.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1561.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1562.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1563.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1564. end;
  1566. procedure TbsDataSkinLabelControl.SaveToFile;
  1567. begin
  1568.   inherited;
  1569.   IniFile.WriteString(IDName, 'fontname', FontName);
  1570.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1571.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1572.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1573. end;
  1577. constructor TbsDataSkinScrollBarControl.Create;
  1578. begin
  1579.   inherited;
  1580.   ThumbOffset1 := 0;
  1581.   ThumbOffset2 := 0;
  1582. end;
  1584. procedure TbsDataSkinScrollBarControl.LoadFromFile;
  1585. begin
  1586.   inherited;
  1587.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1589.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1590.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1591.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1593.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1594.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1595.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1597.   ThumbRect := ReadRect(IniFile, IDName, 'thumbrect');
  1598.   ActiveThumbRect := ReadRect(IniFile, IDName, 'activethumbrect');
  1599.   DownThumbRect := ReadRect(IniFile, IDName, 'downthumbrect');
  1600.   ThumbOffset1 := IniFile.ReadInteger(IDName, 'thumboffset1', 0);
  1601.   ThumbOffset2 := IniFile.ReadInteger(IDName, 'thumboffset2', 0);
  1603.   GlyphRect := ReadRect(IniFile, IDName, 'glyphrect');
  1604.   ActiveGlyphRect := ReadRect(IniFile, IDName, 'activeglyphrect');
  1605.   DownGlyphRect := ReadRect(IniFile, IDName, 'downglyphrect');
  1606. end;
  1608. procedure TbsDataSkinScrollBarControl.SaveToFile;
  1609. begin
  1610.   inherited;
  1611.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1613.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1614.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1615.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1617.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1618.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1619.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1621.   WriteRect(IniFile, IDName, 'thumbrect', ThumbRect);
  1622.   WriteRect(IniFile, IDName, 'activethumbrect', ActiveThumbRect);
  1623.   WriteRect(IniFile, IDName, 'downthumbrect', DownThumbRect);
  1625.   IniFile.WriteInteger(IDName, 'thumboffset1', ThumbOffset1);
  1626.   IniFile.WriteInteger(IDName, 'thumboffset2', ThumbOffset2);
  1628.   WriteRect(IniFile, IDName, 'glyphrect', GlyphRect);
  1629.   WriteRect(IniFile, IDName, 'activeglyphrect', ActiveGlyphRect);
  1630.   WriteRect(IniFile, IDName, 'downglyphrect', DownGlyphRect);
  1631. end;
  1633. constructor TbsDataSkinTrackBarControl.Create;
  1634. begin
  1635.   inherited;
  1636.   TrackArea := NullRect;
  1637.   ButtonRect := NullRect;
  1638.   ActiveButtonRect := NullRect;
  1639.   Vertical := False;
  1640. end;
  1642. procedure TbsDataSkinTrackBarControl.LoadFromFile;
  1643. begin
  1644.   inherited;
  1645.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1646.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1647.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1648.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1649. end;
  1651. procedure TbsDataSkinTrackBarControl.SaveToFile;
  1652. begin
  1653.   inherited;
  1654.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1655.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1656.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1657.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1658. end;
  1660. constructor TbsDataSkinGaugeControl.Create;
  1661. begin
  1662.   inherited;
  1663.   ProgressArea := NullRect;
  1664.   ProgressRect := NullRect;
  1665.   Vertical := False;
  1666.   BeginOffset := 0;
  1667.   EndOffset := 0;
  1668.   FontName := 'Arial';
  1669.   FontStyle := [];
  1670.   FontHeight := 14;
  1671.   FontColor := 0;
  1672. end;
  1674. procedure TbsDataSkinGaugeControl.LoadFromFile;
  1675. begin
  1676.   inherited;
  1677.   ProgressArea := ReadRect(IniFile, IDName, 'progressarea');
  1678.   ProgressRect := ReadRect(IniFile, IDName, 'progressrect');
  1679.   BeginOffset := IniFile.ReadInteger(IDName, 'beginoffset', 0);
  1680.   EndOffset := IniFile.ReadInteger(IDName, 'endoffset', 0);
  1681.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1682.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1683.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1684.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1685.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1686. end;
  1688. procedure TbsDataSkinGaugeControl.SaveToFile;
  1689. begin
  1690.   inherited;
  1691.   WriteRect(IniFile, IDName, 'progressarea', ProgressArea);
  1692.   WriteRect(IniFile, IDName, 'progressrect', ProgressRect);
  1693.   IniFile.WriteInteger(IDName, 'beginoffset', BeginOffset);
  1694.   IniFile.WriteInteger(IDName, 'endoffset', EndOffset);
  1695.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1696.   IniFile.WriteString(IDName, 'fontname', FontName);
  1697.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1698.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1699.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1700. end;
  1703. constructor TbsDataSkinScrollBoxControl.Create(AIDName: String);
  1704. begin
  1705.   inherited;
  1706.   BGPictureIndex := -1;
  1707. end;
  1709. procedure TbsDataSkinScrollBoxControl.LoadFromFile(IniFile: TCustomIniFile);
  1710. begin
  1711.   inherited;
  1712.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1713. end;
  1715. procedure TbsDataSkinScrollBoxControl.SaveToFile(IniFile: TCustomIniFile);
  1716. begin
  1717.   inherited;
  1718.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1719. end;
  1721. constructor TbsDataSkinExPanelControl.Create(AIDName: String);
  1722. begin
  1723.   inherited;
  1724.   FontName := 'Arial';
  1725.   FontStyle := [];
  1726.   FontHeight := 12;
  1727.   FontColor := 0;
  1728. end;
  1730. procedure TbsDataSkinExPanelControl.LoadFromFile(IniFile: TCustomIniFile);
  1731. begin
  1732.   inherited;
  1733.   RollHSkinRect := ReadRect(IniFile, IDName, 'rollhskinrect');
  1734.   RollVSkinRect := ReadRect(IniFile, IDName, 'rollvskinrect');
  1735.   RollLeftOffset := IniFile.ReadInteger(IDName, 'rollleftoffset', 0);
  1736.   RollRightOffset := IniFile.ReadInteger(IDName, 'rollrightoffset', 0);
  1737.   RollTopOffset := IniFile.ReadInteger(IDName, 'rolltopoffset', 0);
  1738.   RollBottomOffset := IniFile.ReadInteger(IDName, 'rollbottomoffset', 0);
  1739.   RollVCaptionRect := ReadRect(IniFile, IDName, 'rollvcaptionrect');
  1740.   RollHCaptionRect := ReadRect(IniFile, IDName, 'rollhcaptionrect');
  1741.   //
  1742.   CloseButtonRect := ReadRect(IniFile, IDName, 'closebuttonrect');
  1743.   CloseButtonActiveRect := ReadRect(IniFile, IDName, 'closebuttonactiverect');
  1744.   CloseButtonDownRect := ReadRect(IniFile, IDName, 'closebuttondownrect');
  1745.   HRollButtonRect := ReadRect(IniFile, IDName, 'hrollbuttonrect');
  1746.   HRollButtonActiveRect := ReadRect(IniFile, IDName, 'hrollbuttonactiverect');
  1747.   HRollButtonDownRect := ReadRect(IniFile, IDName, 'hrollbuttondownrect');
  1748.   HRestoreButtonRect := ReadRect(IniFile, IDName, 'hrestorebuttonrect');
  1749.   HRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'hrestorebuttonactiverect');
  1750.   HRestoreButtonDownRect := ReadRect(IniFile, IDName, 'hrestorebuttondownrect');
  1752.   VRollButtonRect := ReadRect(IniFile, IDName, 'vrollbuttonrect');
  1753.   VRollButtonActiveRect := ReadRect(IniFile, IDName, 'vrollbuttonactiverect');
  1754.   VRollButtonDownRect := ReadRect(IniFile, IDName, 'vrollbuttondownrect');
  1756.   VRestoreButtonRect := ReadRect(IniFile, IDName, 'vrestorebuttonrect');
  1757.   VRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'vrestorebuttonactiverect');
  1758.   VRestoreButtonDownRect := ReadRect(IniFile, IDName, 'vrestorebuttondownrect');
  1759.   //
  1760.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1761.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1762.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1763.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1764.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1765. end;
  1767. procedure TbsDataSkinExPanelControl.SaveToFile(IniFile: TCustomIniFile);
  1768. begin
  1769.   inherited;
  1770.   WriteRect(IniFile, IDName, 'rollhskinrect', RollHSkinRect);
  1771.   WriteRect(IniFile, IDName, 'rollvskinrect', RollVSkinRect);
  1772.   IniFile.WriteInteger(IDName, 'rollleftoffset', RollLeftOffset);
  1773.   IniFile.WriteInteger(IDName, 'rollrightoffset', RollRightOffset);
  1774.   IniFile.WriteInteger(IDName, 'rolltopoffset', RollTopOffset);
  1775.   IniFile.WriteInteger(IDName, 'rollbottomoffset', RollBottomOffset);
  1776.   WriteRect(IniFile, IDName, 'rollvcaptionrect', RollVCaptionRect);
  1777.   WriteRect(IniFile, IDName, 'rollhcaptionrect', RollHCaptionRect);
  1778.   //
  1779.   WriteRect(IniFile, IDName, 'closebuttonrect', CloseButtonRect);
  1780.   WriteRect(IniFile, IDName, 'closebuttonactiverect', CloseButtonActiveRect);
  1781.   WriteRect(IniFile, IDName, 'closebuttondownrect', CloseButtonDownRect);
  1782.   WriteRect(IniFile, IDName, 'hrollbuttonrect', HRollButtonRect);
  1783.   WriteRect(IniFile, IDName, 'hrollbuttonactiverect', HRollButtonActiveRect);
  1784.   WriteRect(IniFile, IDName, 'hrollbuttondownrect', HRollButtonDownRect);
  1785.   WriteRect(IniFile, IDName, 'hrestorebuttonrect', HRestoreButtonRect);
  1786.   WriteRect(IniFile, IDName, 'hrestorebuttonactiverect', HRestoreButtonActiveRect);
  1787.   WriteRect(IniFile, IDName, 'hrestorebuttondownrect', HRestoreButtonDownRect);
  1788.   WriteRect(IniFile, IDName, 'vrollbuttonrect', VRollButtonRect);
  1789.   WriteRect(IniFile, IDName, 'vrollbuttonactiverect', VRollButtonActiveRect);
  1790.   WriteRect(IniFile, IDName, 'vrollbuttondownrect', VRollButtonDownRect);
  1791.   WriteRect(IniFile, IDName, 'vrestorebuttonrect', VRestoreButtonRect);
  1792.   WriteRect(IniFile, IDName, 'vrestorebuttonactiverect', VRestoreButtonActiveRect);
  1793.   WriteRect(IniFile, IDName, 'vrestorebuttondownrect', VRestoreButtonDownRect);
  1794.   //
  1795.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1796.   IniFile.WriteString(IDName, 'fontname', FontName);
  1797.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1798.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1799.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1800. end;
  1802. constructor TbsDataSkinPanelControl.Create;
  1803. begin
  1804.   inherited;
  1805.   CaptionRect := NullRect;
  1806.   FontName := 'Arial';
  1807.   FontStyle := [];
  1808.   FontHeight := 12;
  1809.   FontColor := 0;
  1810.   Alignment := taCenter;
  1811.   BGPictureIndex := -1;
  1812. end;
  1814. procedure TbsDataSkinPanelControl.LoadFromFile;
  1815. begin
  1816.   inherited;
  1817.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1818.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1819.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  1820.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1821.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1822.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1823.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1824.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1825.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1826. end;
  1828. procedure TbsDataSkinPanelControl.SaveToFile;
  1829. begin
  1830.   inherited;
  1831.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1832.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1833.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  1834.   IniFile.WriteString(IDName, 'fontname', FontName);
  1835.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1836.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1837.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1838.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1839.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1840. end;
  1842. constructor TbsDataSkinCheckRadioControl.Create;
  1843. begin
  1844.   inherited;
  1845.   Morphing := False;
  1846.   FontName := 'Arial';
  1847.   FontStyle := [];
  1848.   FontHeight := 12;
  1849.   FontColor := 0;
  1850.   ActiveFontColor := 0;
  1851.   UnEnabledFontColor := 0;
  1852.   FontColor := 0;
  1853.   CheckImageArea := NullRect;
  1854.   TextArea := NullRect;
  1855.   ActiveSkinRect := NullRect;
  1856.   CheckImageRect := NullRect;
  1857.   UnCheckImageRect := NullRect;
  1858. end;
  1860. procedure TbsDataSkinCheckRadioControl.LoadFromFile;
  1861. begin
  1862.   inherited;
  1863.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1864.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1865.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1866.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1867.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1868.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  1869.   FrameFontColor := IniFile.ReadInteger(IDName, 'framefontcolor', 0);
  1870.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1871.   CheckImageArea := ReadRect(IniFile, IDName, 'checkimagearea');
  1872.   TextArea := ReadRect(IniFile, IDName, 'textarea');
  1873.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1874.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1875.   ActiveCheckImageRect := ReadRect(IniFile, IDName, 'activecheckimagerect');
  1876.   ActiveUnCheckImageRect := ReadRect(IniFile, IDName, 'activeuncheckimagerect');
  1877.   UnEnabledCheckImageRect := ReadRect(IniFile, IDName, 'unenabledcheckimagerect');
  1878.   UnEnabledUnCheckImageRect := ReadRect(IniFile, IDName, 'unenableduncheckimagerect');
  1879.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1880.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1881. end;
  1883. procedure TbsDataSkinCheckRadioControl.SaveToFile;
  1884. begin
  1885.   inherited;
  1886.   IniFile.WriteString(IDName, 'fontname', FontName);
  1887.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1888.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1889.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1890.   IniFile.WriteInteger(IDName, 'framefontcolor', FrameFontColor);
  1891.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1892.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  1893.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1894.   WriteRect(IniFile, IDName, 'checkimagearea', CheckImageArea);
  1895.   WriteRect(IniFile, IDName, 'textarea', TextArea);
  1896.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1897.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1898.   WriteRect(IniFile, IDName, 'activecheckimagerect', ActiveCheckImageRect);
  1899.   WriteRect(IniFile, IDName, 'activeuncheckimagerect', ActiveUnCheckImageRect);
  1900.   WriteRect(IniFile, IDName, 'unenabledcheckimagerect', UnEnabledCheckImageRect);
  1901.   WriteRect(IniFile, IDName, 'unenableduncheckimagerect', UnEnabledUnCheckImageRect);
  1902.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  1903.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  1904. end;
  1906. constructor TbsDataSkinMenuButtonControl.Create;
  1907. begin
  1908.   inherited;
  1909. end;
  1911. procedure TbsDataSkinMenuButtonControl.LoadFromFile;
  1912. begin
  1913.   inherited;
  1914.   TrackButtonRect := ReadRect(IniFile, IDName, 'trackbuttonrect');
  1915. end;
  1917. procedure TbsDataSkinMenuButtonControl.SaveToFile;
  1918. begin
  1919.   inherited;
  1920.   WriteRect(IniFile, IDName, 'trackbuttonrect', TrackButtonRect);
  1921. end;
  1923. constructor TbsDataSkinButtonControl.Create;
  1924. begin
  1925.   inherited;
  1926.   Morphing := False;
  1927.   FontName := 'Arial';
  1928.   FontStyle := [];
  1929.   FontHeight := 12;
  1930.   FontColor := 0;
  1931.   ActiveFontColor := 0;
  1932.   DownFontColor := 0;
  1933.   FontColor := 0;
  1934.   ActiveSkinRect := NullRect;
  1935.   DownSkinRect := NullRect;
  1936.   DisabledSkinRect := NullRect;
  1937. end;
  1939. procedure TbsDataSkinButtonControl.LoadFromFile;
  1940. begin
  1941.   inherited;
  1942.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1943.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1944.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1945.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1946.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1947.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  1948.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1949.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1950.   DownSkinRect := ReadRect(IniFile, IDName, 'downskinrect');
  1951.   DisabledSkinRect := ReadRect(IniFile, IDName, 'disabledskinrect');
  1952.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1953.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1954. end;
  1956. procedure TbsDataSkinButtonControl.SaveToFile;
  1957. begin
  1958.   inherited;
  1959.   IniFile.WriteString(IDName, 'fontname', FontName);
  1960.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1961.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1962.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1963.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1964.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  1965.   IniFile.WriteInteger(IDName, 'disabledfontcolor',   DisabledFontColor);
  1966.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1967.   WriteRect(IniFile, IDName, 'downskinrect', DownSkinRect);
  1968.   WriteRect(IniFile, IDName, 'disabledskinrect', DisabledSkinRect);
  1969.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  1970.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  1971. end;
  1973. constructor TbsDataSkinObject.Create;
  1974. begin
  1975.   IDName := AIDName;
  1976.   ActivePictureIndex := -1;
  1977.   SkinRect := NullRect;
  1978.   ActiveSkinRect := SkinRect;
  1979.   InActiveSkinRect := SkinRect;
  1980.   Morphing := False;
  1981.   Hint := '';
  1982. end;
  1984. procedure TbsDataSkinObject.LoadFromFile;
  1985. begin
  1986.   Hint := IniFile.ReadString(IDName, 'hint', '');
  1987.   ActivePictureIndex := IniFile.ReadInteger(IDName, 'activepictureindex', -1);
  1988.   SkinRectInAPicture := ReadBoolean(IniFile, IDName, 'skinrectinapicture');
  1989.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  1990.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1991.   InActiveSkinRect := ReadRect(IniFile, IDName, 'inactiveskinrect');
  1992.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  1993.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  1994. end;
  1996. procedure TbsDataSkinObject.SaveToFile;
  1997. begin
  1998.   IniFile.EraseSection(IDName);
  1999.   IniFile.WriteString(IDName, 'hint', Hint);
  2000.   IniFile.WriteInteger(IDName, 'activepictureindex', ActivePictureIndex);
  2001.   WriteBoolean(IniFile, IDName, 'skinrectinapicture', SkinRectInAPicture);
  2002.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  2003.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  2004.   WriteRect(IniFile, IDName, 'inactiveskinrect', InActiveSkinRect);
  2005.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  2006.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  2007. end;
  2009. procedure TbsDataUserObject.LoadFromFile;
  2010. begin
  2011.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  2012. end;
  2014. procedure TbsDataUserObject.SaveToFile;
  2015. begin
  2016.   IniFile.EraseSection(IDName);
  2017.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  2018. end;
  2020. constructor TbsDataSkinPopupWindow.Create;
  2021. begin
  2022.   inherited;
  2023.   WindowPictureIndex := -1;
  2024.   MaskPictureIndex := -1;
  2025.   LTPoint := Point(0, 0);
  2026.   LBPoint := Point(0, 0);
  2027.   RTPoint := Point(0, 0);
  2028.   RBPoint := Point(0, 0);
  2029.   ScrollMarkerColor := 0;
  2030.   ScrollMarkerActiveColor := 0;
  2031.   TopStretch := False;
  2032.   LeftStretch := False;
  2033.   RightStretch := False;
  2034.   BottomStretch := False;
  2035. end;
  2037. procedure TbsDataSkinPopupWindow.LoadFromFile;
  2038. begin
  2039.   WindowPictureIndex := IniFile.ReadInteger(
  2040.     'POPUPWINDOW', 'windowpictureindex', -1);
  2041.   MaskPictureIndex := IniFile.ReadInteger(
  2042.     'POPUPWINDOW', 'maskpictureindex', -1);
  2043.   LTPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'lefttoppoint');
  2044.   RTPoint := Readpoint(IniFile, 'POPUPWINDOW', 'righttoppoint');
  2045.   LBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'leftbottompoint');
  2046.   RBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'rightbottompoint');
  2047.   ItemsRect := ReadRect(IniFile, 'POPUPWINDOW', 'itemsrect');
  2048.   ScrollMarkerColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkercolor', 0);
  2049.   ScrollMarkerActiveColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkeractivecolor', 0);
  2050.   LeftStretch := ReadBoolean(IniFile, 'POPUPWINDOW', 'leftstretch');
  2051.   RightStretch := ReadBoolean(IniFile, 'POPUPWINDOW', 'rightstretch');
  2052.   TopStretch := ReadBoolean(IniFile, 'POPUPWINDOW', 'topstretch');
  2053.   BottomStretch := ReadBoolean(IniFile, 'POPUPWINDOW', 'bottomstretch');
  2054. end;
  2056. procedure TbsDataSkinPopupWindow.SaveToFile;
  2057. begin
  2058.   IniFile.EraseSection('POPUPWINDOW');
  2059.   IniFile.WriteInteger('POPUPWINDOW', 'windowpictureindex',
  2060.     WindowPictureIndex);
  2061.   IniFile.WriteInteger( 'POPUPWINDOW', 'maskpictureindex',
  2062.     MaskPictureIndex);
  2063.   WritePoint(IniFile, 'POPUPWINDOW', 'lefttoppoint', LTPoint);
  2064.   WritePoint(IniFile, 'POPUPWINDOW', 'righttoppoint', RTPoint);
  2065.   WritePoint(IniFile, 'POPUPWINDOW', 'leftbottompoint', LBPoint);
  2066.   WritePoint(IniFile, 'POPUPWINDOW', 'rightbottompoint', RBPoint);
  2067.   WriteRect(IniFile, 'POPUPWINDOW', 'itemsrect', ItemsRect);
  2068.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkercolor', ScrollMarkerColor);
  2069.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkeractivecolor', ScrollMarkerActiveColor);
  2070.   WriteBoolean(IniFile, 'POPUPWINDOW', 'leftstretch', LeftStretch);
  2071.   WriteBoolean(IniFile, 'POPUPWINDOW', 'rightstretch', RightStretch);
  2072.   WriteBoolean(IniFile, 'POPUPWINDOW', 'topstretch', TopStretch);
  2073.   WriteBoolean(IniFile, 'POPUPWINDOW', 'bottomstretch', BottomStretch);
  2074. end;
  2076. constructor TbsDataSkinHintWindow.Create;
  2077. begin
  2078.   inherited;
  2079.   WindowPictureIndex := -1;
  2080.   MaskPictureIndex := -1;
  2081.   LTPoint := Point(0, 0);
  2082.   LBPoint := Point(0, 0);
  2083.   RTPoint := Point(0, 0);
  2084.   RBPoint := Point(0, 0);
  2085.   ClRect := NullRect;
  2086.   FontName := 'Arial';
  2087.   FontStyle := [];
  2088.   FontHeight := 12;
  2089.   FontColor := 0;
  2090.   TopStretch := False;
  2091.   LeftStretch := False;
  2092.   RightStretch := False;
  2093.   BottomStretch := False;
  2094. end;
  2096. procedure TbsDataSkinHintWindow.LoadFromFile;
  2097. begin
  2098.   WindowPictureIndex := IniFile.ReadInteger(
  2099.     'HINTWINDOW', 'windowpictureindex', -1);
  2100.   MaskPictureIndex := IniFile.ReadInteger(
  2101.     'HINTWINDOW', 'maskpictureindex', -1);
  2102.   LTPoint := ReadPoint(IniFile, 'HINTWINDOW', 'lefttoppoint');
  2103.   RTPoint := Readpoint(IniFile, 'HINTWINDOW', 'righttoppoint');
  2104.   LBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'leftbottompoint');
  2105.   RBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'rightbottompoint');
  2106.   ClRect := ReadRect(IniFile, 'HINTWINDOW', 'clientrect');
  2107.   FontName := IniFile.ReadString('HINTWINDOW', 'fontname', 'Arial');
  2108.   FontHeight := IniFile.ReadInteger('HINTWINDOW', 'fontheight', 14);
  2109.   FontStyle := ReadFontStyles(IniFile, 'HINTWINDOW', 'fontstyle');
  2110.   FontColor := IniFile.ReadInteger('HINTWINDOW', 'fontcolor', 0);
  2111.   LeftStretch := ReadBoolean(IniFile, 'HINTWINDOW', 'leftstretch');
  2112.   RightStretch := ReadBoolean(IniFile, 'HINTWINDOW', 'rightstretch');
  2113.   TopStretch := ReadBoolean(IniFile, 'HINTWINDOW', 'topstretch');
  2114.   BottomStretch := ReadBoolean(IniFile, 'HINTWINDOW', 'bottomstretch');
  2115. end;
  2117. procedure TbsDataSkinHintWindow.SaveToFile;
  2118. begin
  2119.   IniFile.EraseSection('HINTWINDOW');
  2120.   IniFile.WriteInteger('HINTWINDOW', 'windowpictureindex',
  2121.     WindowPictureIndex);
  2122.   IniFile.WriteInteger( 'HINTWINDOW', 'maskpictureindex',
  2123.     MaskPictureIndex);
  2124.   WritePoint(IniFile, 'HINTWINDOW', 'lefttoppoint', LTPoint);
  2125.   WritePoint(IniFile, 'HINTWINDOW', 'righttoppoint', RTPoint);
  2126.   WritePoint(IniFile, 'HINTWINDOW', 'leftbottompoint', LBPoint);
  2127.   WritePoint(IniFile, 'HINTWINDOW', 'rightbottompoint', RBPoint);
  2128.   WriteRect(IniFile, 'HINTWINDOW', 'clientrect', ClRect);
  2129.   IniFile.WriteString('HINTWINDOW', 'fontname', FontName);
  2130.   IniFile.WriteInteger('HINTWINDOW', 'fontheight', FontHeight);
  2131.   WriteFontStyles(IniFile, 'HINTWINDOW', 'fontstyle', FontStyle);
  2132.   IniFile.WriteInteger('HINTWINDOW', 'fontcolor', FontColor);
  2133.   WriteBoolean(IniFile, 'HINTWINDOW', 'leftstretch', LeftStretch);
  2134.   WriteBoolean(IniFile, 'HINTWINDOW', 'rightstretch', RightStretch);
  2135.   WriteBoolean(IniFile, 'HINTWINDOW', 'topstretch', TopStretch);
  2136.   WriteBoolean(IniFile, 'HINTWINDOW', 'bottomstretch', BottomStretch);
  2137. end;
  2139. procedure TbsDataSkinMenuItem.LoadFromFile;
  2140. begin
  2141.   inherited;
  2142.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  2143.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  2144.   DividerRect := ReadRect(IniFile, IDName, 'dividerrect');
  2145.   DividerLO := IniFile.ReadInteger(IDName, 'dividerleftoffset', 0);
  2146.   DividerRO := IniFile.ReadInteger(IDName, 'dividerrightoffset', 0);
  2147.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2148.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2149.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2150.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2151.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2152.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2153.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  2154. end;
  2156. procedure TbsDataSkinMenuItem.SaveToFile;
  2157. begin
  2158.   inherited;
  2159.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  2160.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  2161.   WriteRect(IniFile, IDName, 'dividerrect', DividerRect);
  2162.   IniFile.WriteInteger(IDName, 'dividerleftoffset', DividerLO);
  2163.   IniFile.WriteInteger(IDName, 'dividerrightoffset', DividerRO);
  2164.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2165.   IniFile.WriteString(IDName, 'fontname', FontName);
  2166.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2167.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2168.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2169.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2170.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  2171. end;
  2173. procedure TbsDataSkinMainMenuItem.LoadFromFile;
  2174. begin
  2175.   inherited;
  2176.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  2177.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  2178.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  2179.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2180.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2181.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2182.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2183.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2184.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2185.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  2186.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontColor', 0);
  2187. end;
  2189. procedure TbsDataSkinMainMenuItem.SaveToFile;
  2190. begin
  2191.   inherited;
  2192.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  2193.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  2194.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  2195.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2196.   IniFile.WriteString(IDName, 'fontname', FontName);
  2197.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2198.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2199.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2200.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2201.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  2202.   IniFile.WriteInteger(IDName, 'unenabledfontColor', UnEnabledFontColor);
  2203. end;
  2205. constructor TbsDataSkinButton.Create(AIDName: String);
  2206. begin
  2207.   inherited;
  2208.   DownRect := NullRect;
  2209. end;
  2211. procedure TbsDataSkinButton.SaveToFile;
  2212. begin
  2213.   inherited;
  2214.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  2215.   WriteRect(IniFile, IDName, 'disableskinrsect', DisableSkinRect);
  2216. end;
  2218. procedure TbsDataSkinButton.LoadFromFile;
  2219. begin
  2220.   inherited;
  2221.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  2222.   DisableSkinRect := ReadRect(IniFile, IDName, 'disableskinrsect');
  2223. end;
  2225. procedure TbsDataSkinStdButton.LoadFromFile;
  2226. var
  2227.   S: String;
  2228. begin
  2229.   inherited;
  2230.   S := IniFile.ReadString(IDName, 'command', 'cmdefault');
  2231.   if S = 'cmclose' then Command := cmClose else
  2232.   if S = 'cmmaximize' then Command := cmMaximize else
  2233.   if S = 'cmminimize' then Command := cmMinimize else
  2234.   if S = 'cmsysmenu' then Command := cmSysMenu else
  2235.   if S = 'cmdefault' then Command := cmDefault else
  2236.   if S = 'cmrollup' then Command := cmRollUp else
  2237.   Command := cmMinimizeToTray;
  2238.   RestoreRect := ReadRect(IniFile, IDName, 'restorerect');
  2239.   RestoreActiveRect := ReadRect(IniFile, IDName, 'restoreactiverect');
  2240.   RestoreDownRect := ReadRect(IniFile, IDName, 'restoredownrect');
  2241.   RestoreInActiveRect := ReadRect(IniFile, IDName, 'restoreinactiverect');
  2242. end;
  2244. procedure TbsDataSkinStdButton.SaveToFile;
  2245. var
  2246.   S: String;
  2247. begin
  2248.   inherited;
  2249.   if Command = cmClose then S := 'cmclose' else
  2250.   if Command = cmMaximize then S := 'cmmaximize' else
  2251.   if Command = cmMinimize then S := 'cmminimize' else
  2252.   if Command = cmSysMenu then S := 'cmsysmenu' else
  2253.   if Command = cmDefault then S := 'cmdefault' else
  2254.   if Command = cmRollUp then S := 'cmrollup' else
  2255.   S := 'cmminimizetotray';
  2256.   IniFile.WriteString(IDName, 'command', S);
  2257.   WriteRect(IniFile, IDName, 'restorerect', RestoreRect);
  2258.   WriteRect(IniFile, IDName, 'restoreactiverect', RestoreActiveRect);
  2259.   WriteRect(IniFile, IDName, 'restoredownrect', RestoreDownRect);
  2260.   WriteRect(IniFile, IDName, 'restoreinactiverect', RestoreInActiveRect);
  2261. end;
  2263. procedure TbsDataSkinAnimate.LoadFromFile;
  2264. var
  2265.   S: String;
  2266. begin
  2267.   inherited;
  2268.   Morphing := False;
  2269.   CountFrames := IniFile.ReadInteger(IDName, 'countframes', 1);
  2270.   Cycle := ReadBoolean(IniFile, IDName, 'cycle');
  2271.   ButtonStyle := ReadBoolean(IniFile, IDName, 'buttonstyle');
  2272.   TimerInterval := IniFile.ReadInteger(IDName, 'timerinterval', 50);
  2273.   S := IniFile.ReadString(IDName, 'command', 'cmdefault');
  2274.   if S = 'cmclose' then Command := cmClose else
  2275.   if S = 'cmmaximize' then Command := cmMaximize else
  2276.   if S = 'cmminimize' then Command := cmMinimize else
  2277.   if S = 'cmsysmenu' then Command := cmSysMenu else
  2278.   if S = 'cmdefault' then Command := cmDefault else
  2279.   if S = 'cmrollup' then Command := cmRollUp else
  2280.   Command := cmMinimizeToTray;
  2281. end;
  2283. procedure TbsDataSkinAnimate.SaveToFile;
  2284. var
  2285.   S: String;
  2286. begin
  2287.   inherited;
  2288.   IniFile.WriteInteger(IDName, 'countframes', CountFrames);
  2289.   WriteBoolean(IniFile, IDName, 'cycle', Cycle);
  2290.   WriteBoolean(IniFile, IDName, 'buttonstyle', ButtonStyle);
  2291.   IniFile.WriteInteger(IDName, 'timerinterval', TimerInterval);
  2292.   if Command = cmClose then S := 'cmclose' else
  2293.   if Command = cmMaximize then S := 'cmmaximize' else
  2294.   if Command = cmMinimize then S := 'cmminimize' else
  2295.   if Command = cmSysMenu then S := 'cmsysmenu' else
  2296.   if Command = cmDefault then S := 'cmdefault' else
  2297.   if Command = cmRollUp then S := 'cmrollup' else
  2298.   S := 'cmminimizetotray';
  2299.   IniFile.WriteString(IDName, 'command', S);
  2300. end;
  2302. procedure TbsDataSkinCaption.SaveToFile;
  2303. begin
  2304.   inherited;
  2305.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  2306.   IniFile.WriteString(IDName, 'fontname', FontName);
  2307.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2308.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2309.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2310.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  2311.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  2312.   WriteBoolean(IniFile, IDName, 'shadow', Shadow);
  2313.   IniFile.WriteInteger(IDName, 'shadowcolor', ShadowColor);
  2314.   IniFile.WriteInteger(IDName, 'activeshadowcolor', ActiveShadowColor);
  2315.   WriteRect(IniFile, IDName, 'framerect', FrameRect);
  2316.   WriteRect(IniFile, IDName, 'activeframerect', ActiveFrameRect);
  2317.   WriteRect(IniFile, IDName, 'frametextrect', FrameTextRect);
  2318.   IniFile.WriteInteger(IDName, 'frameleftoffset', FrameLeftOffset);
  2319.   IniFile.WriteInteger(IDName, 'framerightoffset', FrameRightOffset);
  2320. end;
  2322. procedure TbsDataSkinCaption.LoadFromFile;
  2323. begin
  2324.   inherited;
  2325.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  2326.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2327.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2328.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2329.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2330.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2331.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  2332.   Shadow := ReadBoolean(IniFile, IDName, 'shadow');
  2333.   ShadowColor := IniFile.ReadInteger(IDName, 'shadowcolor', 0);
  2334.   ActiveShadowColor := IniFile.ReadInteger(IDName, 'activeshadowcolor', 0);
  2335.   FrameRect := ReadRect(IniFile, IDName, 'framerect');
  2336.   ActiveFrameRect := ReadRect(IniFile, IDName, 'activeframerect');
  2337.   FrameTextRect := ReadRect(IniFile, IDName, 'frametextrect');
  2338.   FrameLeftOffset := IniFile.ReadInteger(IDName, 'frameleftoffset', 0);
  2339.   FrameRightOffset := IniFile.ReadInteger(IDName, 'framerightoffset', 0);
  2340. end;
  2342. constructor TbsSkinData.Create(AOwner: TComponent);
  2343. begin
  2344.   inherited Create(AOwner);
  2345.   ObjectList := TList.Create;
  2346.   CtrlList := TList.Create;
  2347.   FActivePictures := TList.Create;
  2348.   FPicture := TBitMap.Create;
  2349.   FInActivePicture := TBitMap.Create;
  2350.   FMask := TBitMap.Create;
  2351.   FPictureName := '';
  2352.   FInActivePictureName := '';
  2353.   FMaskName := '';
  2354.   FActivePicturesNames := TStringList.Create;
  2355.   SkinName := '';
  2356.   Empty := True;
  2357.   PopupWindow := TbsDataSkinPopupWindow.Create;
  2358.   HintWindow := TbsDataSkinHintWindow.Create;
  2359.   MainMenuPopupUp := False;
  2360.   BGPictureIndex := -1;
  2361.   MDIBGPictureIndex := -1;
  2362. end;
  2364. destructor TbsSkinData.Destroy;
  2365. begin
  2366.   Empty := True;
  2367.   ClearObjects;
  2368.   ObjectList.Free;
  2369.   CtrlList.Free;
  2370.   FActivePictures.Free;
  2371.   FPicture.Free;
  2372.   FMask.Free;
  2373.   FInActivePicture.Free;
  2374.   FActivePicturesNames.Free;
  2375.   PopupWindow.Free;
  2376.   HintWindow.Free;
  2377.   inherited Destroy;
  2378. end;
  2381. procedure TbsSkinData.StoreToDisk;
  2382. var
  2383.   I: Integer;
  2384.   Path: String;
  2385. begin
  2386.   Path := ExtractFilePath(AFileName);
  2387.   SaveToFile(AFileName);
  2388.   if not FPicture.Empty
  2389.   then
  2390.     FPicture.SaveToFile(Path + Self.FPictureName);
  2391.   if not FInActivePicture.Empty
  2392.   then
  2393.     FInActivePicture.SaveToFile(Path + Self.FInActivePictureName);
  2394.   if not FMask.Empty
  2395.   then
  2396.     FMask.SaveToFile(Path + Self.FMaskName);
  2397.   if FActivePicturesNames.Count > 0
  2398.   then
  2399.     for I := 0 to FActivePictures.Count - 1 do
  2400.     begin
  2401.       TBitMap(FActivePictures.Items[I]).SaveToFile(Path + FActivePicturesNames[I]);
  2402.     end;
  2403. end;
  2405. procedure TbsSkinData.SaveToCompressedFile(FileName: String);
  2406. var
  2407.   CSS: TbsCompressedStoredSkin;
  2408. begin
  2409.   CSS := TbsCompressedStoredSkin.Create(Self);
  2410.   CSS.LoadFromSkinData(Self);
  2411.   CSS.SaveToCompressFile(FileName);
  2412.   CSS.Free;
  2413. end;
  2415. procedure TbsSkinData.LoadFromCompressedFile(FileName: String);
  2416. var
  2417.   CSS: TbsCompressedStoredSkin;
  2418. begin
  2419.   CSS := TbsCompressedStoredSkin.Create(Self);
  2420.   CSS.LoadFromCompressFile(FileName);
  2421.   if not CSS.Empty
  2422.   then
  2423.     Self.LoadCompressedStoredSkin(CSS);
  2424.   CSS.Free;
  2425. end;
  2427. procedure TbsSkinData.Notification;
  2428. begin
  2429.   inherited Notification(AComponent, Operation);
  2430.   if (Operation = opRemove) and (AComponent = FCompressedStoredSkin)
  2431.   then FCompressedStoredSkin := nil;
  2432.   if (Operation = opRemove) and (AComponent = FResourceStrData)
  2433.   then FResourceStrData := nil;
  2434. end;
  2436. procedure TbsSkinData.SetCompressedStoredSkin;
  2437. begin
  2438.   FCompressedStoredSkin := Value;
  2439.   if not (csDesigning in ComponentState) and (FCompressedStoredSkin <> nil)
  2440.   then
  2441.     LoadCompressedStoredSkin(FCompressedStoredSkin);
  2442. end;
  2444. procedure TbsSkinData.SetResourceStrData;
  2445. begin
  2446.   FResourceStrData := Value;
  2447.   if not (csDesigning in ComponentState)
  2448.   then
  2449.     begin
  2450.       SendSkinDataMessage(WM_CHANGERESSTRDATA);
  2451.     end;
  2452. end;
  2454. procedure TbsSkinData.SendSkinDataMessage;
  2455. var
  2456.   i: Integer;
  2457.   F: TForm;
  2458. begin
  2459.   if (Owner is TForm)
  2460.   then
  2461.     begin
  2462.       F := TForm(Owner);
  2463.       SendMessage(F.Handle, M, Integer(Self), 1000);
  2464.     end
  2465.   else
  2466.     F := nil;  
  2468.   with Screen do
  2469.    for i := 0 to FormCount - 1 do
  2470.      if (Forms[i] <> F) or (F = nil)
  2471.      then
  2472.        SendMessage(Forms[i].Handle, M, Integer(Self), 1000);
  2473. end;
  2475. function TbsSkinData.GetIndex;
  2476. var
  2477.   i: Integer;
  2478. begin
  2479.   Result := -1;
  2480.   for i := 0 to ObjectList.Count - 1 do
  2481.   begin
  2482.     if AIDName = TbsDataSkinObject(ObjectList.Items[i]).IDName
  2483.     then
  2484.       begin
  2485.         Result := i;
  2486.         Break;
  2487.       end;
  2488.   end;
  2489. end;
  2491. function TbsSkinData.GetControlIndex;
  2492. var
  2493.   i: Integer;
  2494. begin
  2495.   Result := -1;
  2496.   for i := 0 to CtrlList.Count - 1 do
  2497.   begin
  2498.     if AIDName = TbsDataSkinControl(CtrlList.Items[i]).IDName
  2499.     then
  2500.       begin
  2501.         Result := i;
  2502.         Break;
  2503.       end;
  2504.   end;
  2505. end;
  2507. procedure TbsSkinData.ClearObjects;
  2508. var
  2509.   i: Integer;
  2510. begin
  2511.   for i := 0 to ObjectList.Count - 1 do
  2512.     TbsDataSkinObject(ObjectList.Items[i]).Free;
  2513.   ObjectList.Clear;
  2514.   for i := 0 to CtrlList.Count - 1 do
  2515.     TbsDataSkinControl(CtrlList.Items[i]).Free;
  2516.   CtrlList.Clear;
  2517.   for i := 0 to FActivePictures.Count - 1 do
  2518.     TBitMap(FActivePictures.Items[i]).Free;
  2519.   PopupWindow.WindowPictureIndex := -1;
  2520.   HintWindow.WindowPictureIndex := -1;
  2521.   FActivePictures.Clear;
  2522.   FActivePicturesNames.Clear;
  2523. end;
  2525. procedure TbsSkinData.ClearAll;
  2526. begin
  2527.   ClearObjects;
  2528.   FPicture.Assign(nil);
  2529.   FMask.Assign(nil);
  2530.   FInActivePicture.Assign(nil);
  2531.   FPictureName := '';
  2532.   FMaskName := '';
  2533.   Empty := True;
  2534. end;
  2536. const
  2537.   symbols = ',: ';
  2539. procedure TbsSkinData.GetObjectTypeName(S: String; var AName, AType: String);
  2540. var
  2541.   i, j: Integer;
  2542. begin
  2543.   AName := '';
  2544.   AType := '';
  2545.   j := 0;
  2546.   for i := 1 to Length(S) do
  2547.     if S[i] = ':'
  2548.     then
  2549.       begin
  2550.         j := i;
  2551.         Break;
  2552.       end;
  2553.   if j <> 0
  2554.   then
  2555.     begin
  2556.       AName := Copy(S, 1, j - 1);
  2557.       AType := Copy(S, j + 1, Length(S) - j);
  2558.     end;
  2559. end;
  2561. procedure TbsSkinData.WriteObjects;
  2562. var
  2563.   i: Integer;
  2564.   S: String;
  2565. begin
  2566.   F.EraseSection('SKINOBJECTS');
  2567.   F.WriteInteger('SKINOBJECTS', 'count', ObjectList.Count);
  2568.   for i := 0 to ObjectList.Count - 1 do
  2569.   begin
  2570.     S := TbsDataSkinObject(ObjectList.Items[i]).IDName + ':';
  2571.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMenuItem
  2572.     then S := S + 'menuitem' else
  2573.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMainMenuBarItem
  2574.     then S := S + 'mainmenubaritem' else
  2575.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinMainMenuBarButton
  2576.     then S := S + 'mainmenubarbutton' else
  2577.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinStdButton
  2578.     then S := S + 'stdbutton' else
  2579.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinButton
  2580.     then S := S + 'button' else
  2581.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinCaption
  2582.     then S := S + 'caption' else
  2583.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataUserObject
  2584.     then S := S + 'userobject' else
  2585.     if TbsDataSkinObject(ObjectList.Items[i]) is TbsDataSkinAnimate
  2586.     then S := S + 'animate';
  2587.     F.WriteString('SKINOBJECTS', IntToStr(i), S);
  2588.     TbsDataSkinObject(ObjectList.Items[i]).SaveToFile(F);
  2589.   end;
  2590. end;
  2592. procedure TbsSkinData.WriteCtrls(F: TCustomIniFile);
  2593. var
  2594.   i: Integer;
  2595.   S: String;
  2596. begin
  2597.   F.EraseSection('SKINCONTROLS');
  2598.   F.WriteInteger('SKINCONTROLS', 'count', CtrlList.Count);
  2599.   for i := 0 to CtrlList.Count - 1 do
  2600.   begin
  2601.     S := TbsDataSkinControl(CtrlList.Items[i]).IDName + ':';
  2602.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinPanelControl
  2603.     then S := S + 'panel'
  2604.     else
  2605.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinExPanelControl
  2606.     then S := S + 'expanel'
  2607.     else
  2608.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMenuButtonControl
  2609.     then S := S + 'menubutton'
  2610.     else
  2611.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinButtonControl
  2612.     then S := S + 'button'
  2613.     else
  2614.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinCheckRadioControl
  2615.     then S := S + 'checkradio'
  2616.     else
  2617.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinGaugeControl
  2618.     then S := S + 'gauge'
  2619.     else
  2620.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSplitterControl
  2621.     then S := S + 'splitter'
  2622.     else
  2623.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTrackBarControl
  2624.     then S := S + 'trackbar'
  2625.     else
  2626.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinLabelControl
  2627.     then S := S + 'label'
  2628.     else
  2629.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinStdLabelControl
  2630.     then S := S + 'stdlabel'
  2631.     else
  2632.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinUpDownControl
  2633.     then S := S + 'updown'
  2634.     else
  2635.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinGridControl
  2636.     then S := S + 'grid'
  2637.     else
  2638.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTabControl
  2639.     then S := S + 'tab'
  2640.     else
  2641.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMainMenuBar
  2642.     then S := S + 'mainmenubar'
  2643.     else
  2644.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinControlBar
  2645.     then S := S + 'controlbar'
  2646.     else
  2647.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinMemoControl
  2648.     then S := S + 'memo'
  2649.     else
  2650.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinEditControl
  2651.     then S := S + 'edit'
  2652.     else
  2653.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinCheckListBox
  2654.     then S := S + 'checklistbox'
  2655.     else
  2656.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinListBox
  2657.     then S := S + 'listbox'
  2658.     else
  2659.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinComboBox
  2660.     then S := S + 'combobox'
  2661.     else
  2662.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinScrollBarControl
  2663.     then S := S + 'scrollbar'
  2664.     else
  2665.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSpinEditControl
  2666.     then S := S + 'spinedit'
  2667.     else
  2668.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinScrollBoxControl
  2669.     then S := S + 'scrollbox'
  2670.     else
  2671.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinTreeView
  2672.     then S := S + 'treeview'
  2673.     else
  2674.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinBevel
  2675.     then S := S + 'bevel'
  2676.     else
  2677.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinSlider
  2678.     then S := S + 'slider'
  2679.     else
  2680.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinListView
  2681.     then S := S + 'listview'
  2682.     else
  2683.     if TbsDataSkinControl(CtrlList.Items[i]) is TbsDataSkinRichEdit
  2684.     then S := S + 'richedit';
  2685.     F.WriteString('SKINCONTROLS', IntToStr(i), S);
  2686.     TbsDataSkinControl(CtrlList.Items[i]).SaveToFile(F);
  2687.   end;
  2688. end;
  2690. procedure TbsSkinData.ReadCtrls(F: TCustomIniFile);
  2691. var
  2692.   i, Count: Integer;
  2693.   S, FName, FType: String;
  2694. begin
  2695.   Count := F.ReadInteger('SKINCONTROLS', 'count', 0);
  2696.   for i := 0 to Count - 1 do
  2697.   begin
  2698.     S := F.ReadString('SKINCONTROLS', IntToStr(i), '');
  2699.     GetObjectTypeName(S, FName, FType);
  2700.     if FType = 'panel'
  2701.     then CtrlList.Add(TbsDataSkinPanelControl.Create(FName))
  2702.     else
  2703.     if FType = 'expanel'
  2704.     then CtrlList.Add(TbsDataSkinExPanelControl.Create(FName))
  2705.     else
  2706.     if FType = 'menubutton'
  2707.     then CtrlList.Add(TbsDataSkinMenuButtonControl.Create(FName))
  2708.     else
  2709.     if FType = 'button'
  2710.     then CtrlList.Add(TbsDataSkinButtonControl.Create(FName))
  2711.     else
  2712.     if FType = 'checkradio'
  2713.     then CtrlList.Add(TbsDataSkinCheckRadioControl.Create(FName))
  2714.     else
  2715.     if FType = 'gauge'
  2716.     then CtrlList.Add(TbsDataSkinGaugeControl.Create(FName))
  2717.     else
  2718.     if FType = 'splitter'
  2719.     then CtrlList.Add(TbsDataSkinSplitterControl.Create(FName))
  2720.     else
  2721.     if FType = 'trackbar'
  2722.     then CtrlList.Add(TbsDataSkinTrackBarControl.Create(FName))
  2723.     else
  2724.     if FType = 'label'
  2725.     then CtrlList.Add(TbsDataSkinLabelControl.Create(FName))
  2726.     else
  2727.     if FType = 'stdlabel'
  2728.     then CtrlList.Add(TbsDataSkinStdLabelControl.Create(FName))
  2729.     else
  2730.     if FType = 'updown'
  2731.     then CtrlList.Add(TbsDataSkinUpDownControl.Create(FName))
  2732.     else
  2733.     if FType = 'grid'
  2734.     then CtrlList.Add(TbsDataSkinGridControl.Create(FName))
  2735.     else
  2736.     if FType = 'tab'
  2737.     then CtrlList.Add(TbsDataSkinTabControl.Create(FName))
  2738.     else
  2739.     if FType = 'mainmenubar'
  2740.     then CtrlList.Add(TbsDataSkinMainMenuBar.Create(FName))
  2741.     else
  2742.     if FType = 'controlbar'
  2743.     then CtrlList.Add(TbsDataSkinControlBar.Create(FName))
  2744.     else
  2745.     if FType = 'memo'
  2746.     then CtrlList.Add(TbsDataSkinMemoControl.Create(FName))
  2747.     else
  2748.     if FType = 'edit'
  2749.     then CtrlList.Add(TbsDataSkinEditControl.Create(FName))
  2750.     else
  2751.     if FType = 'checklistbox'
  2752.     then CtrlList.Add(TbsDataSkinCheckListBox.Create(FName))
  2753.     else
  2754.     if FType = 'listbox'
  2755.     then CtrlList.Add(TbsDataSkinListBox.Create(FName))
  2756.     else
  2757.     if FType = 'combobox'
  2758.     then CtrlList.Add(TbsDataSkinComboBox.Create(FName))
  2759.     else
  2760.     if FType = 'scrollbar'
  2761.     then CtrlList.Add(TbsDataSkinScrollBarControl.Create(FName))
  2762.     else
  2763.     if FType = 'spinedit'
  2764.     then CtrlList.Add(TbsDataSkinSpinEditControl.Create(FName))
  2765.     else
  2766.     if FType = 'scrollbox'
  2767.     then CtrlList.Add(TbsDataSkinScrollBoxControl.Create(FName))
  2768.     else
  2769.     if FType = 'treeview'
  2770.     then CtrlList.Add(TbsDataSkinTreeView.Create(FName))
  2771.     else
  2772.     if FType = 'bevel'
  2773.     then CtrlList.Add(TbsDataSkinBevel.Create(FName))
  2774.     else
  2775.     if FType = 'slider'
  2776.     then CtrlList.Add(TbsDataSkinSlider.Create(FName))
  2777.     else
  2778.     if FType = 'listview'
  2779.     then CtrlList.Add(TbsDataSkinListView.Create(FName))
  2780.     else
  2781.     if FType = 'richedit'
  2782.     then CtrlList.Add(TbsDataSkinRichEdit.Create(FName));
  2783.     TbsDataSkinControl(CtrlList[CtrlList.Count - 1]).LoadFromFile(F);
  2784.   end;
  2785. end;
  2787. procedure TbsSkinData.WriteActivePictures;
  2788. begin
  2789.   WriteStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  2790. end;
  2792. procedure TbsSkinData.ReadActivePictures;
  2793. var
  2794.   i: Integer;
  2795. begin
  2796.   ReadStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  2797.   for i := 0 to FActivePicturesNames.Count - 1 do
  2798.   begin
  2799.     FActivePictures.Add(TBitMap.Create);
  2800.     TBitMap(FActivePictures.Items[i]).LoadFromFile(Path + FActivePicturesNames[i]);
  2801.   end;
  2802. end;
  2803. procedure TbsSkinData.ReadObjects;
  2804. var
  2805.   i, Count: Integer;
  2806.   S, FName, FType: String;
  2807. begin
  2808.   Count := F.ReadInteger('SKINOBJECTS', 'count', 0);
  2809.   for i := 0 to Count - 1 do
  2810.   begin
  2811.     S := F.ReadString('SKINOBJECTS', IntToStr(i), '');
  2812.     GetObjectTypeName(S, FName, FType);
  2813.     if FType = 'menuitem'
  2814.     then ObjectList.Add(TbsDataSkinMenuItem.Create(FName)) else
  2815.     if FType = 'mainmenubaritem'
  2816.     then ObjectList.Add(TbsDataSkinMainMenuBarItem.Create(FName)) else
  2817.     if FType = 'stdbutton'
  2818.     then ObjectList.Add(TbsDataSkinStdButton.Create(FName)) else
  2819.     if FType = 'mainmenubarbutton'
  2820.     then ObjectList.Add(TbsDataSkinMainMenuBarButton.Create(FName)) else
  2821.     if FType = 'button'
  2822.     then ObjectList.Add(TbsDataSkinButton.Create(FName)) else
  2823.     if FType = 'caption'
  2824.     then ObjectList.Add(TbsDataSkinCaption.Create(FName)) else
  2825.     if FType = 'animate'
  2826.     then ObjectList.Add(TbsDataSkinAnimate.Create(FName)) else
  2827.     if FType = 'userobject'
  2828.     then ObjectList.Add(TbsDataUserObject.Create(FName));
  2829.     TbsDataSkinObject(ObjectList[ObjectList.Count - 1]).LoadFromFile(F);
  2830.   end;
  2831. end;
  2833. procedure TbsSkinData.AddBitMap(FileName: String);
  2834. begin
  2835.   FActivePicturesNames.Add(ExtractFileName(FileName));
  2836.   FActivePictures.Add(TBitMap.Create);
  2837.   TBitMap(FActivePictures.Items[FActivePictures.Count - 1]).LoadFromFile(FileName);
  2838. end;
  2840. procedure TbsSkinData.DeleteBitMap(Index: Integer);
  2841. begin
  2842.   FActivePicturesNames.Delete(Index);
  2843.   TBitMap(FActivePictures.Items[Index]).Free;
  2844.   FActivePictures.Delete(Index);
  2845. end;
  2847. procedure TbsSkinData.WriteFormInfo;
  2848. begin
  2849.   WritePoint(F, 'FORMINFO', 'lefttoppoint', LTPoint);
  2850.   Writepoint(F, 'FORMINFO', 'righttoppoint', RTPoint);
  2851.   WritePoint(F, 'FORMINFO', 'leftbottompoint', LBPoint);
  2852.   WritePoint(F, 'FORMINFO', 'rightbottompoint', RBPoint);
  2853.   WriteRect(F, 'FORMINFO', 'clientrect', ClRect);
  2854.   F.WriteInteger('FORMINFO', 'bgpictureindex', BGPictureIndex);
  2855.   F.WriteInteger('FORMINFO', 'mdibgpictureindex', MDIBGPictureIndex);
  2856.   //
  2857.   WriteBoolean(F, 'FORMINFO', 'leftstretch', LeftStretch);
  2858.   WriteBoolean(F, 'FORMINFO', 'rightstretch', RightStretch);
  2859.   WriteBoolean(F, 'FORMINFO', 'topstretch', TopStretch);
  2860.   WriteBoolean(F, 'FORMINFO', 'bottomstretch', BottomStretch);
  2861.   //
  2862.   WriteRect(F, 'FORMINFO', 'maskrectarea', MaskRectArea);
  2863.   //
  2864.   WritePoint(F, 'FORMINFO', 'hittestlefttoppoint', HitTestLTPoint);
  2865.   WritePoint(F, 'FORMINFO', 'hittestrighttoppoint', HitTestRTPoint);
  2866.   WritePoint(F, 'FORMINFO', 'hittestleftbottompoint', HitTestLBPoint);
  2867.   WritePoint(F, 'FORMINFO', 'hittestrightbottompoint', HitTestRBPoint);
  2868.   //
  2869.   WriteRect(F, 'FORMINFO', 'buttonsrect', ButtonsRect);
  2870.   WriteRect(F, 'FORMINFO', 'captionrect', CaptionRect);
  2871.   F.WriteInteger('FORMINFO', 'buttonsoffset', ButtonsOffset);
  2872.   WriteBoolean(F, 'FORMINFO', 'buttonsinleft', CapButtonsInLeft);
  2873.   WriteBoolean(F, 'FORMINFO', 'mainmenupopupup', MainMenuPopupUp);
  2874.   F.WriteInteger('FORMINFO', 'borderwidth', BorderW);
  2875.   WriteBoolean(F, 'FORMINFO', 'autorenderinginactiveimage', AutoRenderingInActiveImage);
  2876.   WriteInActiveEffect(F, 'FORMINFO', 'inactiveeffect', InActiveEffect);
  2877. end;
  2879. procedure TbsSkinData.ReadFormInfo;
  2880. begin
  2881.   LTPoint := ReadPoint(F, 'FORMINFO', 'lefttoppoint');
  2882.   RTPoint := Readpoint(F, 'FORMINFO', 'righttoppoint');
  2883.   LBPoint := ReadPoint(F, 'FORMINFO', 'leftbottompoint');
  2884.   RBPoint := ReadPoint(F, 'FORMINFO', 'rightbottompoint');
  2885.   ClRect := ReadRect(F, 'FORMINFO', 'clientrect');
  2886.   BGPictureIndex := F.ReadInteger('FORMINFO', 'bgpictureindex', -1);
  2887.   MDIBGPictureIndex := F.ReadInteger('FORMINFO', 'mdibgpictureindex', -1);
  2888.   //
  2889.   LeftStretch := ReadBoolean(F, 'FORMINFO', 'leftstretch');
  2890.   RightStretch := ReadBoolean(F, 'FORMINFO', 'rightstretch');
  2891.   TopStretch := ReadBoolean(F, 'FORMINFO', 'topstretch');
  2892.   BottomStretch := ReadBoolean(F, 'FORMINFO', 'bottomstretch');
  2893.   //
  2894.   MaskRectArea := ReadRect(F, 'FORMINFO', 'maskrectarea');
  2895.   HitTestLTPoint := ReadPoint(F, 'FORMINFO', 'hittestlefttoppoint');
  2896.   HitTestRTPoint := ReadPoint(F, 'FORMINFO', 'hittestrighttoppoint');
  2897.   HitTestLBPoint := ReadPoint(F, 'FORMINFO', 'hittestleftbottompoint');
  2898.   HitTestRBPoint := ReadPoint(F, 'FORMINFO', 'hittestrightbottompoint');
  2899.   //
  2900.   if FMaskName <> ''
  2901.   then
  2902.     begin
  2903.       if isNullRect(MaskRectArea)
  2904.       then
  2905.         MaskRectArea := ClRect
  2906.       else
  2907.         begin
  2908.           if MaskRectArea.Left > ClRect.Left
  2909.           then MaskRectArea.Left := ClRect.Left;
  2910.           if MaskRectArea.Top > ClRect.Top
  2911.           then MaskRectArea.Top := ClRect.Top;
  2912.           if MaskRectArea.Right < ClRect.Right
  2913.           then MaskRectArea.Right := ClRect.Right;
  2914.           if MaskRectArea.Bottom < ClRect.Bottom
  2915.           then MaskRectArea.Bottom := ClRect.Bottom;
  2916.         end;
  2917.       if isNullPoint(HitTestLTPoint) then  HitTestLTPoint := LTPoint;
  2918.       if isNullPoint(HitTestRTPoint) then  HitTestRTPoint := RTPoint;
  2919.       if isNullPoint(HitTestLBPoint) then  HitTestLBPoint := LBPoint;
  2920.       if isNullPoint(HitTestRBPoint) then  HitTestRBPoint := RBPoint;
  2921.     end;
  2922.   //
  2923.   ButtonsRect := ReadRect(F, 'FORMINFO', 'buttonsrect');
  2924.   CaptionRect := ReadRect(F, 'FORMINFO', 'captionrect');
  2925.   ButtonsOffset := F.ReadInteger('FORMINFO', 'buttonsoffset', 0);
  2926.   CapButtonsInLeft := ReadBoolean(F, 'FORMINFO', 'buttonsinleft');
  2927.   //
  2928.   MainMenuPopupUp := ReadBoolean(F, 'FORMINFO', 'mainmenupopupup');
  2929.   BorderW := F.ReadInteger('FORMINFO', 'borderwidth', 0);
  2930.   AutoRenderingInActiveImage := ReadBoolean(F, 'FORMINFO', 'autorenderinginactiveimage');
  2931.   InActiveEffect := ReadInActiveEffect(F, 'FORMINFO', 'inactiveeffect');
  2932.   //
  2933.   if (RBPoint.X - LTPoint.X  <> 0) and
  2934.      (RBPoint.Y - LTPoint.Y <> 0)
  2935.   then
  2936.     begin
  2937.       if LTPoint.X < CLRect.Left then LTPoint.X := CLRect.Left;
  2938.       if LTPoint.Y < CLRect.Top then LTPoint.Y := CLRect.Top;
  2939.       if RTPoint.X > CLRect.Right then RTPoint.X := CLRect.Right;
  2940.       if RTPoint.Y < CLRect.Top then RTPoint.Y := CLRect.Top;
  2941.       if LBPoint.X < CLRect.Left then LBPoint.X := CLRect.Left;
  2942.       if LBPoint.Y > CLRect.Bottom then LBPoint.Y := CLRect.Bottom;
  2943.       if RBPoint.X > CLRect.Right then RBPoint.X := CLRect.Right;
  2944.       if RBPoint.Y > CLRect.Bottom then RBPoint.Y := CLRect.Bottom;
  2945.     end;
  2946. end;
  2948. const
  2949.   SkinDataFileFormat = 1;
  2951. procedure TbsSkinData.SaveToCustomIniFile;
  2952. var
  2953.   Version: Integer;
  2954. begin
  2955.   F.EraseSection('VERSION');
  2956.   Version := SkinDataFileFormat;
  2957.   F.WriteInteger('VERSION', 'ver', Version);
  2958.   F.WriteString('VERSION', 'skinname', SkinName);
  2959.   F.WriteString('VERSION', 'skinauthor', SkinAuthor);
  2960.   F.WriteString('VERSION', 'authoremail', AuthorEmail);
  2961.   F.WriteString('VERSION', 'authorurl', AuthorURL);
  2962.   F.WriteString('VERSION', 'skincomments', SkinComments);
  2963.   //
  2964.   F.EraseSection('PICTURES');
  2965.   F.WriteString('PICTURES', 'picture', FPictureName);
  2966.   F.WriteString('PICTURES', 'inactivepicture', FInActivePictureName);
  2967.   F.WriteString('PICTURES', 'mask', FMaskName);
  2968.   WriteActivePictures(F);
  2969.   //
  2970.   F.EraseSection('FORMINFO');
  2971.   WriteFormInfo(F);
  2972.   //
  2973.   F.EraseSection('POPUPWINDOW');
  2974.   PopupWindow.SaveToFile(F);
  2975.   //
  2976.   F.EraseSection('HINTWINDOW');
  2977.   HintWindow.SaveToFile(F);
  2978.   //
  2979.   WriteObjects(F);
  2980.   //
  2981.   WriteCtrls(F);
  2982. end;
  2984. procedure TbsSkinData.SaveToFile;
  2985. var
  2986.   F: TIniFile;
  2987.   Version: Integer;
  2988.   F1: TFileStream;
  2989. begin
  2990.   F1 := TFileStream.Create(FileName, fmCreate);
  2991.   F1.Free;
  2992.   F := TIniFile.Create(FileName);
  2993.   SaveToCustomIniFile(F);
  2994.   F.Free;
  2995. end;
  2997. procedure TbsSkinData.LoadFromFile;
  2998. var
  2999.   F: TIniFile;
  3000.   FilePath: String;
  3001. begin
  3002.   Empty := True;
  3004.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3006.   ClearAll;
  3007.   F := TIniFile.Create(FileName);
  3009.   if not CheckSkinFile(F)
  3010.   then
  3011.     begin
  3012.       SendSkinDataMessage(WM_CHANGESKINDATA);
  3013.       SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3014.       F.Free;
  3015.       Exit;
  3016.     end;
  3018.   FilePath := ExtractFilePath(FileName);
  3019.   //
  3020.   SkinName := F.ReadString('VERSION', 'skinname', '');
  3021.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  3022.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  3023.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  3024.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  3025.   //
  3026.   FPictureName := F.ReadString('PICTURES', 'picture', '');
  3027.   FInActivePictureName := F.ReadString('PICTURES', 'inactivepicture', '');
  3028.   FMaskName := F.ReadString('PICTURES', 'mask', '');
  3030.   if FPictureName <> ''
  3031.   then
  3032.     FPicture.LoadFromFile(FilePath + FPictureName)
  3033.   else
  3034.     FPicture.Assign(nil);
  3036.   if FInActivePictureName <> ''
  3037.   then
  3038.     FInActivePicture.LoadFromFile(FilePath + FInActivePictureName)
  3039.   else
  3040.     FInActivePicture.Assign(nil);
  3043.   if FMaskName <> ''
  3044.   then
  3045.     FMask.LoadFromFile(FilePath + FMaskName)
  3046.   else
  3047.     FMask.Assign(nil);
  3049.   ReadActivePictures(F, FilePath);
  3050.   //
  3051.   ReadFormInfo(F);
  3052.   //
  3053.   PopupWindow.LoadFromFile(F);
  3054.   //
  3055.   HintWindow.LoadFromFile(F);
  3056.   //
  3057.   ReadObjects(F);
  3058.   //
  3059.   ReadCtrls(F);
  3060.   //
  3061.   F.UpdateFile;
  3063.   F.Free;
  3065.   Empty := False;
  3067.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3068.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3069. end;
  3071. procedure TbsSkinData.LoadCompressedStoredSkin(AStoredSkin: TbsCompressedStoredSkin);
  3072. var
  3073.   TmpStream: TMemoryStream;
  3074.   CV: Integer;
  3075.   FIniStrings: TStrings;
  3076.   F: TMemIniFile;
  3077.   IsEmpty: Boolean;
  3078.   i, Count: Integer;
  3079.   B: TBitMap;
  3080. begin
  3081.   if AStoredSkin.Empty then Exit;
  3082.   Empty := True;
  3083.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3084.   ClearAll;
  3085.   TmpStream := TMemoryStream.Create;
  3086.   AStoredSkin.DeCompressToStream(TmpStream);
  3087.   TmpStream.Seek(0, 0);
  3088.   TmpStream.Read(CV, SizeOf(CV));
  3089.   if CV > 3
  3090.   then
  3091.     begin
  3092.       TmpStream.Free;
  3093.       Exit;
  3094.     end;
  3095.   //
  3096.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3097.   if IsEmpty
  3098.   then FPicture.Assign(nil)
  3099.   else FPicture.LoadFromStream(TmpStream);
  3101.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3102.   if IsEmpty
  3103.   then FInActivePicture.Assign(nil)
  3104.   else FInActivePicture.LoadFromStream(TmpStream);
  3106.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3107.   if IsEmpty
  3108.   then FMask.Assign(nil)
  3109.   else FMask.LoadFromStream(TmpStream);
  3111.   // DSF compatibility
  3112.   if CV = 2
  3113.   then
  3114.     begin
  3115.       B := TBitMap.Create;
  3116.       TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3117.       if IsEmpty
  3118.       then B.Assign(nil)
  3119.       else B.LoadFromStream(TmpStream);
  3121.       TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  3122.       if IsEmpty
  3123.       then B.Assign(nil)
  3124.       else B.LoadFromStream(TmpStream);
  3125.       B.Free;
  3126.     end;
  3127.   //
  3128.     TmpStream.Read(Count, SizeOf(Count));
  3129.   if Count > 0
  3130.   then
  3131.     for i := 0 to Count - 1 do
  3132.     begin
  3133.       FActivePictures.Add(TBitMap.Create);
  3134.       TBitMap(FActivePictures.Items[i]).LoadFromStream(TmpStream);
  3135.     end;
  3136.   //
  3137.   FIniStrings := TStringList.Create;
  3138.   FIniStrings.LoadFromStream(TmpStream);
  3139.   F := TMemIniFile.Create('');
  3140.   F.SetStrings(FIniStrings);
  3141.   //
  3142.   SkinName := F.ReadString('VERSION', 'skinname', '');
  3143.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  3144.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  3145.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  3146.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  3148.   FPictureName := F.ReadString('PICTURES', 'picture', '');
  3149.   FInActivePictureName := F.ReadString('PICTURES', 'inactivepicture', '');
  3150.   FMaskName := F.ReadString('PICTURES', 'mask', '');
  3151.   ReadStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  3152.   
  3153.   ReadFormInfo(F);
  3154.   PopupWindow.LoadFromFile(F);
  3155.   HintWindow.LoadFromFile(F);
  3156.   ReadObjects(F);
  3157.   ReadCtrls(F);
  3158.   //
  3159.   FIniStrings.Free;
  3160.   F.Free;
  3161.   TmpStream.Free;
  3162.   //
  3163.   Empty := False;
  3164.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3165.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3166. end;
  3168. procedure TbsSkinData.ClearSkin;
  3169. begin
  3170.   ClearAll;
  3171.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  3172.   SendSkinDataMessage(WM_CHANGESKINDATA);
  3173.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  3174. end;
  3176. constructor TbsCompressedStoredSkin.Create(AOwner: TComponent);
  3177. begin
  3178.   inherited;
  3179.   FDescription := '';
  3180.   FCompressedStream := TMemoryStream.Create;
  3181.   FFileName := '';
  3182.   FCompressedFileName := '';
  3183. end;
  3185. destructor TbsCompressedStoredSkin.Destroy;
  3186. begin
  3187.   FCompressedStream.Free;
  3188.   inherited;
  3189. end;
  3191. function TbsCompressedStoredSkin.GetEmpty: Boolean;
  3192. begin
  3193.   Result := FCompressedStream.Size = 0;
  3194. end;
  3196. procedure TbsCompressedStoredSkin.SetFileName;
  3197. begin
  3198.   if (csDesigning in ComponentState) and not
  3199.      (csLoading in ComponentState)
  3200.   then
  3201.     begin
  3202.       FFileName := ExtractFileName(Value);
  3203.       LoadFromIniFile(Value);
  3204.     end
  3205.   else
  3206.     FFileName := Value;
  3207. end;
  3209. procedure TbsCompressedStoredSkin.SetCompressedFileName;
  3210. begin
  3211.   if (csDesigning in ComponentState) and not
  3212.      (csLoading in ComponentState)
  3213.   then
  3214.     begin
  3215.       FCompressedFileName := ExtractFileName(Value);
  3216.       LoadFromCompressFile(Value);
  3217.     end
  3218.   else
  3219.     FCompressedFileName := Value;
  3220. end;
  3222. procedure TbsCompressedStoredSkin.DefineProperties(Filer: TFiler);
  3223. begin
  3224.   inherited;
  3225.   Filer.DefineBinaryProperty('CompressedData', ReadData, WriteData, True);
  3226. end;
  3228. const
  3229.   CompressVersion = 3;
  3231. procedure TbsCompressedStoredSkin.ReadData;
  3232. begin
  3233.   FCompressedStream.LoadFromStream(Reader);
  3234. end;
  3236. procedure TbsCompressedStoredSkin.WriteData;
  3237. begin
  3238.   FCompressedStream.SaveToStream(Writer);
  3239. end;
  3241. procedure TbsCompressedStoredSkin.DeCompressToStream;
  3242. begin
  3243.   DecompressStream(S, FCompressedStream);
  3244. end;
  3247. procedure TbsCompressedStoredSkin.LoadFromSkinData(ASkinData: TbsSkinData);
  3248. var
  3249.   TmpStream: TMemoryStream;
  3250.   BitMap: TBitMap;
  3251.   IsEmpty: Boolean;
  3252.   i, Count, CV: Integer;
  3253.   F: TMemIniFile;
  3254.   FIniStrings: TStrings;
  3255. begin
  3256.   FCompressedStream.Clear;
  3258.   TmpStream := TMemoryStream.Create;
  3259.   //
  3260.   CV := CompressVersion;
  3261.   TmpStream.Write(CV, SizeOf(CV));
  3262.   // load bitmaps to stream
  3263.   IsEmpty := ASkinData.FPicture.Empty;
  3264.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3265.   if not IsEmpty
  3266.   then
  3267.     ASkinData.FPicture.SaveToStream(TmpStream);
  3268.   //
  3269.   IsEmpty := ASkinData.FInActivePicture.Empty;
  3270.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3271.   if not IsEmpty
  3272.   then
  3273.     ASkinData.FInActivePicture.SaveToStream(TmpStream);
  3274.   //
  3275.   IsEmpty := ASkinData.FMask.Empty;
  3276.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3277.   if not IsEmpty
  3278.   then
  3279.     ASkinData.FMask.SaveToStream(TmpStream);
  3280.   //
  3281.   Count := ASkinData.FActivePictures.Count;
  3282.   TmpStream.Write(Count, SizeOf(Count));
  3283.   if Count <> 0
  3284.   then
  3285.     for i := 0 to Count - 1 do
  3286.     begin
  3287.       BitMap := TBitMap(ASkinData.FActivePictures[I]);
  3288.       BitMap.SaveToStream(TmpStream);
  3289.     end;
  3290.   //
  3291.   F := TMemIniFile.Create('');
  3292.   ASkinData.SaveToCustomIniFile(F);
  3293.   FIniStrings := TStringList.Create;
  3294.   F.GetStrings(FIniStrings);
  3295.   FIniStrings.SaveToStream(TmpStream);
  3296.   FIniStrings.Free;
  3297.   F.Free;
  3298.   //
  3299.   CompressStream(TmpStream, FCompressedStream);
  3300.   TmpStream.Free;
  3301. end;
  3303. procedure TbsCompressedStoredSkin.LoadFromIniFile(AFileName: String);
  3304. var
  3305.   TmpStream: TMemoryStream;
  3306.   F: TMemIniFile;
  3307.   Path: String;
  3308.   FIniStrings: TStrings;
  3309.   BitMapName: String;
  3310.   BitMap: TBitMap;
  3311.   IsEmpty: Boolean;
  3312.   i, Count, CV: Integer;
  3313.   PNames: TStrings;
  3314. begin
  3315.   FIniStrings := TStringList.Create;
  3316.   FIniStrings.LoadFromFile(AFileName);
  3318.   F := TMemIniFile.Create(AFileName);
  3320.   if not CheckSkinFile(F)
  3321.   then
  3322.     begin
  3323.       F.Free;
  3324.       FIniStrings.Free;
  3325.       Exit;
  3326.     end;
  3328.   Path := ExtractFilePath(AFileName);
  3330.   FCompressedStream.Clear;
  3332.   TmpStream := TMemoryStream.Create;
  3333.   //
  3334.   CV := CompressVersion;
  3335.   TmpStream.Write(CV, SizeOf(CV));
  3336.   // load bitmaps to stream
  3337.   BitMap := TBitMap.Create;
  3338.   //
  3339.   BitMapName := F.ReadString('PICTURES', 'picture', '');
  3340.   if BitMapName <> ''
  3341.   then BitMap.LoadFromFile(Path + BitMapName)
  3342.   else BitMap.Assign(nil);
  3343.   IsEmpty := BitMap.Empty;
  3344.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3345.   if not IsEmpty
  3346.   then BitMap.SaveToStream(TmpStream);
  3347.   //
  3348.   BitMapName := F.ReadString('PICTURES', 'inactivepicture', '');
  3349.   if BitMapName <> ''
  3350.   then BitMap.LoadFromFile(Path + BitMapName)
  3351.   else BitMap.Assign(nil);
  3352.   IsEmpty := BitMap.Empty;
  3353.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3354.   if not IsEmpty then BitMap.SaveToStream(TmpStream);
  3355.   //
  3356.   BitMapName := F.ReadString('PICTURES', 'mask', '');
  3357.   if BitMapName <> ''
  3358.   then BitMap.LoadFromFile(Path + BitMapName)
  3359.   else BitMap.Assign(nil);
  3360.   IsEmpty := BitMap.Empty;
  3361.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  3362.   if not IsEmpty then BitMap.SaveToStream(TmpStream);
  3363.   //
  3364.   PNames := TStringList.Create;
  3365.   ReadStrings1(F, 'PICTURES', 'activepictures', PNames);
  3366.   Count := PNames.Count;
  3367.   TmpStream.Write(Count, SizeOf(Count));
  3368.   if Count > 0
  3369.   then
  3370.     for i := 0 to Count - 1 do
  3371.     begin
  3372.       BitMapName := Path + PNames[i];
  3373.       BitMap.LoadFromFile(BitMapName);
  3374.       BitMap.SaveToStream(TmpStream);
  3375.     end;
  3376.   PNames.Free;
  3377.   //
  3378.   FIniStrings.SaveToStream(TmpStream);
  3379.   //
  3380.   CompressStream(TmpStream, FCompressedStream);
  3381.   BitMap.Free;
  3382.   FIniStrings.Free;
  3383.   TmpStream.Free;
  3384.   F.Free;
  3385. end;
  3387. procedure TbsCompressedStoredSkin.LoadFromCompressFile(AFileName: String);
  3388. var
  3389.   F: TFileStream;
  3390.   CV, Size: LongInt;
  3391. begin
  3392.   FCompressedStream.Clear;
  3393.   F := TFileStream.Create(AFileName, fmOpenRead);
  3394.   F.Read(CV, SizeOf(CV));
  3395.   if CV <= 3
  3396.   then
  3397.     begin
  3398.       F.Read(Size, SizeOf(Size));
  3399.       FCompressedStream.CopyFrom(F, Size);
  3400.     end;
  3401.   F.Free;
  3402. end;
  3404. procedure TbsCompressedStoredSkin.SaveToCompressFile(AFileName: String);
  3405. var
  3406.   F: TFileStream;
  3407.   CV, Size: LongInt;
  3408. begin
  3409.   if Empty then Exit;
  3410.   F := TFileStream.Create(AFileName, fmCreate);
  3411.   CV := CompressVersion;
  3412.   F.Write(CV, SizeOf(CV));
  3413.   Size := FCompressedStream.Size;
  3414.   F.Write(Size, SizeOf(Size));
  3415.   FCompressedStream.SaveToStream(F);
  3416.   F.Free;
  3417. end;
  3419. constructor TbsResourceStrData.Create(AOwner: TComponent); 
  3420. begin
  3421.   inherited;
  3422.   FResStrs := TStringList.Create;
  3423.   Init;
  3424.   FCharSet := DEFAULT_CHARSET;
  3425. end;
  3427. destructor TbsResourceStrData.Destroy;
  3428. begin
  3429.   FResStrs.Free;
  3430.   inherited;
  3431. end;
  3433. procedure TbsResourceStrData.SetResStrs(Value: TStrings);
  3434. begin
  3435.   FResStrs.Assign(Value);
  3436. end;
  3438. function TbsResourceStrData.GetResStr(const ResName: String): String;
  3439. var
  3440.   I: Integer;
  3441. begin
  3442.   I := FResStrs.IndexOfName(ResName);
  3443.   if I <> -1
  3444.   then
  3445.     Result := Copy(FResStrs[I], Pos('=', FResStrs[I]) + 1,
  3446.      Length(FResStrs[I]) - Pos('=', FResStrs[I]) + 1)
  3447.   else
  3448.     Result := '';
  3449. end;
  3451. procedure TbsResourceStrData.Init;
  3452. begin
  3453.   FResStrs.Add('MI_MINCAPTION=Mi&nimize');
  3454.   FResStrs.Add('MI_MAXCAPTION=Ma&ximize');
  3455.   FResStrs.Add('MI_CLOSECAPTION=&Close');
  3456.   FResStrs.Add('MI_RESTORECAPTION=&Restore');
  3457.   FResStrs.Add('MI_MINTOTRAYCAPTION=Minimize to &Tray');
  3458.   FResStrs.Add('MI_ROLLUPCAPTION=Ro&llUp');
  3460.   FResStrs.Add('MINBUTTON_HINT=Minimize');
  3461.   FResStrs.Add('MAXBUTTON_HINT=Maximize');
  3462.   FResStrs.Add('CLOSEBUTTON_HINT=Close');
  3463.   FResStrs.Add('TRAYBUTTON_HINT=Minimize to Tray');
  3464.   FResStrs.Add('ROLLUPBUTTON_HINT=Roll Up');
  3465.   FResStrs.Add('MENUBUTTON_HINT=System menu');
  3467.   FResStrs.Add('EDIT_UNDO=Undo');
  3468.   FResStrs.Add('EDIT_COPY=Copy');
  3469.   FResStrs.Add('EDIT_CUT=Cut');
  3470.   FResStrs.Add('EDIT_PASTE=Paste');
  3471.   FResStrs.Add('EDIT_DELETE=Delete');
  3472.   FResStrs.Add('EDIT_SELECTALL=Select All');
  3474.   FResStrs.Add('MSG_BTN_YES=&Yes');
  3475.   FResStrs.Add('MSG_BTN_NO=&No');
  3476.   FResStrs.Add('MSG_BTN_OK=OK');
  3477.   FResStrs.Add('MSG_BTN_CANCEL=Cancel');
  3478.   FResStrs.Add('MSG_BTN_ABORT=&Abort');
  3479.   FResStrs.Add('MSG_BTN_RETRY=&Retry');
  3480.   FResStrs.Add('MSG_BTN_IGNORE=&Ignore');
  3481.   FResStrs.Add('MSG_BTN_ALL=&All');
  3482.   FResStrs.Add('MSG_BTN_NOTOALL=N&oToAll');
  3483.   FResStrs.Add('MSG_BTN_YESTOALL=&YesToAll');
  3484.   FResStrs.Add('MSG_BTN_HELP=&Help');
  3485.   FResStrs.Add('MSG_BTN_OPEN=&Open');
  3486.   FResStrs.Add('MSG_BTN_SAVE=&Save');
  3488.   FResStrs.Add('MSG_BTN_BACK_HINT=Go To Last Folder Visited');
  3489.   FResStrs.Add('MSG_BTN_UP_HINT=Up One Level');
  3490.   FResStrs.Add('MSG_BTN_NEWFOLDER_HINT=Create New Folder');
  3491.   FResStrs.Add('MSG_BTN_VIEWMENU_HINT=View Menu');
  3492.   FResStrs.Add('MSG_BTN_STRETCH_HINT=Stretch Picture');
  3494.   FResStrs.Add('MSG_FILENAME=File name:');
  3495.   FResStrs.Add('MSG_FILETYPE=File type:');
  3496.   FResStrs.Add('MSG_NEWFOLDER=New Folder');
  3497.   FResStrs.Add('MSG_LV_DETAILS=Details');
  3498.   FResStrs.Add('MSG_LV_ICON=Large icons');
  3499.   FResStrs.Add('MSG_LV_SMALLICON=Small icons');
  3500.   FResStrs.Add('MSG_LV_LIST=List');
  3501.   FResStrs.Add('MSG_PREVIEWSKIN=Preview');
  3502.   FResStrs.Add('MSG_PREVIEWBUTTON=Button');
  3504.   FResStrs.Add('MSG_CAP_WARNING=Warning');
  3505.   FResStrs.Add('MSG_CAP_ERROR=Error');
  3506.   FResStrs.Add('MSG_CAP_INFORMATION=Information');
  3507.   FResStrs.Add('MSG_CAP_CONFIRM=Confirm');
  3509.   FResStrs.Add('CALC_CAP=Calculator');
  3510.   FResStrs.Add('ERROR=Error');
  3511.   FResStrs.Add('COLORGRID_CAP=Basic colors');
  3512.   FResStrs.Add('CUSTOMCOLORGRID_CAP=Custom colors');
  3513.   FResStrs.Add('ADDCUSTOMCOLORBUTTON_CAP=Add to Custom Colors');
  3515.   FResStrs.Add('FONTDLG_COLOR=Color:');
  3516.   FResStrs.Add('FONTDLG_NAME=Name:');
  3517.   FResStrs.Add('FONTDLG_SIZE=Size:');
  3518.   FResStrs.Add('FONTDLG_HEIGHT=Height:');
  3519.   FResStrs.Add('FONTDLG_EXAMPLE=Example:');
  3520.   FResStrs.Add('FONTDLG_STYLE=Style:');
  3521.   FResStrs.Add('FONTDLG_SCRIPT=Script:');
  3523.   FResStrs.Add('DB_DELETE_QUESTION=Delete record?');
  3524.   FResStrs.Add('DB_MULTIPLEDELETE_QUESTION=Delete all selected records?');
  3526.   FResStrs.Add('NODISKINDRIVE=There is no disk in Drive or Drive is not ready');
  3527.   FResStrs.Add('NOVALIDDRIVEID=Not a valid Drive ID');
  3529.   FResStrs.Add('FLV_NAME=Name');
  3530.   FResStrs.Add('FLV_SIZE=Size');
  3531.   FResStrs.Add('FLV_TYPE=Type');
  3532.   FResStrs.Add('FLV_LOOKIN=Look in: ');
  3533.   FResStrs.Add('FLV_MODIFIED=Modified');
  3534.   FResStrs.Add('FLV_ATTRIBUTES=Attributes');
  3535.   FResStrs.Add('FLV_DISKSIZE=Disk Size');
  3536.   FResStrs.Add('FLV_FREESPACE=Free Space');
  3537. end;
  3539. end.