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

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

Delphi控件源码

开发平台：

Delphi

SkinData.pas：源码内容
  1. {*******************************************************************}
  2. {                                                                   }
  3. {       Almediadev Visual Component Library                         }
  4. {       DynamicSkinForm                                             }
  5. {       Version 4.98                                                }
  6. {                                                                   }
  7. {       Copyright (c) 2000-2002 Almediadev                          }
  8. {       ALL RIGHTS RESERVED                                         }
  9. {                                                                   }
  10. {       Home:  http://www.almdev.com                                }
  11. {       Support: support@almdev.com                                 }
  12. {                                                                   }
  13. {*******************************************************************}
  15. unit SkinData;
  17. {$P+,S-,W-,R-}
  18. {$WARNINGS OFF}
  19. {$HINTS OFF}
  22. interface
  24. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SPUtils, Forms,
  25.      IniFiles, Dialogs, spZLib;
  27. type
  29.   TStdCommand = (cmClose, cmMaximize, cmMinimize, cmSysMenu, cmDefault, cmRollUp);
  30.   TMorphKind = (mkDefault, mkGradient, mkLeftGradient, mkRightGradient,
  31.                 mkLeftSlide, mkRightSlide, mkPush);
  32.   TFramesPlacement = (fpHorizontal, fpVertical);
  33.   TRegulatorKind = (rkRound, rkHorizontal, rkVertical);
  34.   TspInActiveEffect = (ieBrightness, ieDarkness, ieGrayScale,
  35.                        ieNoise, ieSplitBlur, ieInvert);
  37.   TspDataSkinControl = class(TObject)
  38.   public
  39.     IDName: String;
  40.     PictureIndex: Integer;
  41.     MaskPictureIndex: Integer;
  42.     SkinRect: TRect;
  43.     CursorIndex: Integer;
  44.     constructor Create(AIDName: String);
  45.     procedure LoadFromFile(IniFile: TCustomIniFile); virtual;
  46.     procedure SaveToFile(IniFile: TCustomIniFile); virtual;
  47.   end;
  49.   TspDataSkinBevel = class(TspDataSkinControl)
  50.   public
  51.     LightColor: TColor;
  52.     DarkColor: TColor;
  53.     constructor Create(AIDName: String);
  54.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  55.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  56.   end;
  58.   TspDataSkinSlider = class(TspDataSkinControl)
  59.   public
  60.     HRulerRect: TRect;
  61.     HThumbRect: TRect;
  62.     VRulerRect: TRect;
  63.     VThumbRect: TRect;
  64.     EdgeSize: Integer;
  65.     BGColor: TColor;
  66.     PointsColor: TColor;
  67.     constructor Create(AIDName: String);
  68.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  69.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  70.   end;
  72.   TspDataSkinTreeView = class(TspDataSkinControl)
  73.   public
  74.     FontName: String;
  75.     FontStyle: TFontStyles;
  76.     FontHeight: Integer;
  77.     FontColor: TColor;
  78.     BGColor: TColor;
  79.     constructor Create(AIDName: String);
  80.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  81.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  82.   end;
  84.   TspDataSkinRichEdit = class(TspDataSkinControl)
  85.   public
  86.     FontName: String;
  87.     FontStyle: TFontStyles;
  88.     FontHeight: Integer;
  89.     FontColor: TColor;
  90.     BGColor: TColor;
  91.     constructor Create(AIDName: String);
  92.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  93.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  94.   end;
  96.   TspDataSkinListView = class(TspDataSkinControl)
  97.   public
  98.     FontName: String;
  99.     FontStyle: TFontStyles;
  100.     FontHeight: Integer;
  101.     FontColor: TColor;
  102.     BGColor: TColor;
  103.     constructor Create(AIDName: String);
  104.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  105.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  106.   end;
  108.   TspDataSkinMainMenuBar = class(TspDataSkinControl)
  109.   public
  110.     ItemsRect: TRect;
  111.     MenuBarItem: String;
  112.     CloseButton: String;
  113.     MaxButton: String;
  114.     MinButton: String;
  115.     SysMenuButton: String;
  116.     TrackMarkColor, TrackMarkActiveColor: Integer;
  117.     constructor Create(AIDName: String);
  118.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  119.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  120.   end;
  121.   
  122.   TspDataSkinTabControl = class(TspDataSkinControl)
  123.   public
  124.     TabRect, ActiveTabRect, FocusTabRect, MouseInTabRect: TRect;
  125.     ClRect: TRect;
  126.     TabsBGRect: TRect;
  127.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  128.     TabLeftOffset, TabRightOffset: Integer;
  129.     FontName: String;
  130.     FontStyle: TFontStyles;
  131.     FontHeight: Integer;
  132.     FontColor, ActiveFontColor, FocusFontColor, MouseInFontColor: TColor;
  133.     UpDown: String;
  134.     BGPictureIndex: Integer; 
  135.     constructor Create(AIDName: String);
  136.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  137.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  138.   end;
  140.   TspDataSkinGridControl = class(TspDataSkinControl)
  141.   public
  142.     FixedCellRect, SelectCellRect, FocusCellRect: TRect;
  143.     //
  144.     FixedCellLeftOffset, FixedCellRightOffset: Integer;
  145.     FixedCellTextRect: TRect;
  146.     //
  147.     CellLeftOffset, CellRightOffset: Integer;
  148.     CellTextRect: TRect;
  149.     //
  150.     LinesColor, BGColor: TColor;
  151.     BGPictureIndex: Integer;
  152.     FontName: String;
  153.     FontStyle: TFontStyles;
  154.     FontHeight: Integer;
  155.     FontColor, SelectFontColor, FocusFontColor: TColor;
  156.     FixedFontName: String;
  157.     FixedFontStyle: TFontStyles;
  158.     FixedFontHeight: Integer;
  159.     FixedFontColor: TColor;
  160.     constructor Create(AIDName: String);
  161.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  162.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  163.   end;
  165.   TspDataSkinFrameControl = class(TspDataSkinControl)
  166.   public
  167.     FramesCount: Integer;
  168.     FramesPlacement: TFramesPlacement;
  169.     constructor Create(AIDName: String);
  170.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  171.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  172.   end;
  174.   TspDataSkinAnimateControl = class(TspDataSkinFrameControl);
  175.   TspDataSkinSwitchControl = class(TspDataSkinFrameControl);
  176.   TspDataSkinFrameGauge = class(TspDataSkinFrameControl);
  178.   TspDataSkinFrameRegulator = class(TspDataSkinFrameControl)
  179.   public
  180.     Kind: TRegulatorKind;
  181.     constructor Create(AIDName: String);
  182.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  183.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  184.   end;
  186.   TspDataSkinCustomControl = class(TspDataSkinControl)
  187.   public
  188.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  189.     ClRect: TRect;
  190.     constructor Create(AIDName: String);
  191.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  192.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  193.   end;
  195.   TspDataSkinControlBar = class(TspDataSkinCustomControl)
  196.   public
  197.     ItemRect: TRect;
  198.     BGPictureIndex: Integer;
  199.     constructor Create(AIDName: String);
  200.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  201.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  202.   end;
  204.   TspDataSkinUpDownControl = class(TspDataSkinCustomControl)
  205.   public
  206.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  207.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  208.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  209.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  210.   end;
  211.   
  212.   TspDataSkinComboBox = class(TspDataSkinCustomControl)
  213.   public
  214.     //
  215.     SItemRect, FocusItemRect: TRect;
  216.     ItemLeftOffset, ItemRightOffset: Integer;
  217.     ItemTextRect: TRect;
  218.     FontName: String;
  219.     FontStyle: TFontStyles;
  220.     FontHeight: Integer;
  221.     FontColor, FocusFontColor: TColor;
  222.     ButtonRect,
  223.     ActiveButtonRect,
  224.     DownButtonRect: TRect;
  225.     UnEnabledButtonRect: TRect;
  226.     //
  227.     ListBoxName: String;
  228.     constructor Create(AIDName: String);
  229.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  230.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  231.   end;
  233.   TspDataSkinListBox = class(TspDataSkinCustomControl)
  234.   public
  235.     //
  236.     SItemRect, ActiveItemRect, FocusItemRect: TRect;
  237.     ItemLeftOffset, ItemRightOffset: Integer;
  238.     ItemTextRect: TRect;
  239.     FontName: String;
  240.     FontStyle: TFontStyles;
  241.     FontHeight: Integer;
  242.     FontColor, ActiveFontColor, FocusFontColor: TColor;
  243.     //
  244.     CaptionRect: TRect;
  245.     CaptionFontName: String;
  246.     CaptionFontStyle: TFontStyles;
  247.     CaptionFontHeight: Integer;
  248.     CaptionFontColor: TColor;
  249.     //
  250.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  251.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  252.     CheckButtonRect, ActiveCheckButtonRect, DownCheckButtonRect: TRect;
  253.     //
  254.     HScrollBarName: String;
  255.     VScrollBarName: String;
  256.     BothScrollBarName: String;
  257.     constructor Create(AIDName: String);
  258.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  259.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  260.   end;
  262.   TspDataSkinCheckListBox = class(TspDataSkinListBox)
  263.   public
  264.     UnCheckImageRect, CheckImageRect: TRect;
  265.     ItemCheckRect: TRect;
  266.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  267.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  268.   end;
  270.   TspDataSkinScrollBarControl = class(TspDataSkinCustomControl)
  271.   public
  272.     TrackArea: TRect;
  273.     UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  274.     DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  275.     ThumbRect, ActiveThumbRect, DownThumbRect: TRect;
  276.     ThumbOffset1, ThumbOffset2: Integer;
  277.     GlyphRect, ActiveGlyphRect, DownGlyphRect: TRect;
  278.     constructor Create(AIDName: String);
  279.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  280.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  281.  end;
  283.  TspDataSkinSpinEditControl = class(TspDataSkinCustomControl)
  284.  public
  285.    FontName: String;
  286.    FontStyle: TFontStyles;
  287.    FontHeight: Integer;
  288.    FontColor: TColor;
  289.    UpButtonRect, ActiveUpButtonRect, DownUpButtonRect: TRect;
  290.    DownButtonRect, ActiveDownButtonRect, DownDownButtonRect: TRect;
  291.    constructor Create(AIDName: String);
  292.    procedure LoadFromFile(IniFile: TCustomIniFile); override;
  293.    procedure SaveToFile(IniFile: TCustomIniFile); override;
  294.  end;
  296.   TspDataSkinEditControl = class(TspDataSkinCustomControl)
  297.   public
  298.     ActiveSkinRect: TRect;
  299.     FontName: String;
  300.     FontStyle: TFontStyles;
  301.     FontHeight: Integer;
  302.     FontColor, DisabledFontColor: TColor;
  303.     ActiveFontColor: TColor;
  304.     ButtonRect: TRect;
  305.     ActiveButtonRect: TRect;
  306.     DownButtonRect: TRect;
  307.     constructor Create(AIDName: String);
  308.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  309.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  310.   end;
  312.   TspDataSkinMemoControl = class(TspDataSkinEditControl)
  313.   public
  314.     BGColor: TColor;
  315.     ActiveBGColor: TColor;
  316.     constructor Create(AIDName: String);
  317.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  318.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  319.   end;
  321.   TspDataSkinStdLabelControl = class(TspDataSkinControl)
  322.   public
  323.     FontName: String;
  324.     FontStyle: TFontStyles;
  325.     FontHeight: Integer;
  326.     FontColor: TColor;
  327.     ActiveFontColor: TColor;
  328.     constructor Create(AIDName: String);
  329.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  330.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  331.   end;
  333.   TspDataSkinLabelControl = class(TspDataSkinCustomControl)
  334.   public
  335.     FontName: String;
  336.     FontStyle: TFontStyles;
  337.     FontHeight: Integer;
  338.     FontColor: TColor;
  339.     constructor Create(AIDName: String);
  340.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  341.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  342.   end;
  344.   TspDataSkinBitLabelControl = class(TspDataSkinCustomControl)
  345.   public
  346.     SkinTextRect: TRect;
  347.     SymbolWidth: Integer;
  348.     SymbolHeight: Integer;
  349.     Symbols: TStrings;
  350.     constructor Create(AIDName: String);
  351.     destructor Destroy; override;
  352.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  353.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  354.   end;
  356.   TspDataSkinTrackBarControl = class(TspDataSkinCustomControl)
  357.   public
  358.     TrackArea, ButtonRect, ActiveButtonRect: TRect;
  359.     Vertical: Boolean;
  360.     constructor Create(AIDName: String);
  361.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  362.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  363.   end;
  366.   TspDataSkinSplitterControl = class(TspDataSkinCustomControl);
  367.   
  368.   TspDataSkinGaugeControl = class(TspDataSkinCustomControl)
  369.   public
  370.     ProgressArea, ProgressRect: TRect;
  371.     Vertical: Boolean;
  372.     BeginOffset, EndOffset: Integer;
  373.     FontName: String;
  374.     FontStyle: TFontStyles;
  375.     FontHeight: Integer;
  376.     FontColor: TColor;
  377.     constructor Create(AIDName: String);
  378.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  379.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  380.   end;
  382.   TspDataSkinButtonControl = class(TspDataSkinCustomControl)
  383.   public
  384.     FontName: String;
  385.     FontStyle: TFontStyles;
  386.     FontHeight: Integer;
  387.     FontColor, ActiveFontColor, DownFontColor, DisabledFontColor: TColor;
  388.     Morphing: Boolean;
  389.     MorphKind: TMorphKind;
  390.     ActiveSkinRect, DownSkinRect, DisabledSkinRect: TRect;
  391.     constructor Create(AIDName: String);
  392.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  393.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  394.   end;
  396.   TspDataSkinMenuButtonControl = class(TspDataSkinButtonControl)
  397.   public
  398.     TrackButtonRect: TRect;
  399.     constructor Create(AIDName: String);
  400.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  401.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  402.   end;
  404.   TspDataSkinCheckRadioControl = class(TspDataSkinCustomControl)
  405.   public
  406.     FontName: String;
  407.     FontStyle: TFontStyles;
  408.     FontHeight: Integer;
  409.     FontColor, ActiveFontColor, UnEnabledFontColor: TColor;
  410.     Morphing: Boolean;
  411.     MorphKind: TMorphKind;
  412.     ActiveSkinRect: TRect;
  413.     CheckImageArea, TextArea, 
  414.     CheckImageRect, UnCheckImageRect: TRect;
  415.     ActiveCheckImageRect, ActiveUnCheckImageRect: TRect;
  416.     UnEnabledCheckImageRect, UnEnabledUnCheckImageRect: TRect;
  417.     FrameFontColor: TColor;
  418.     constructor Create(AIDName: String);
  419.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  420.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  421.   end;
  423.   TspDataSkinScrollBoxControl = class(TspDataSkinCustomControl)
  424.   public
  425.     BGPictureIndex: Integer;
  426.     constructor Create(AIDName: String);
  427.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  428.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  429.   end;
  431.   TspDataSkinPanelControl = class(TspDataSkinCustomControl)
  432.   public
  433.     CaptionRect: TRect;
  434.     RollUpMarkerRect: TRect;
  435.     RestoreMarkerRect: TRect;
  436.     Alignment: TAlignment;
  437.     FontName: String;
  438.     FontStyle: TFontStyles;
  439.     FontHeight: Integer;
  440.     FontColor: TColor;
  441.     BGPictureIndex: Integer;
  442.     CheckImageRect, UnCheckImageRect: TRect; 
  443.     constructor Create(AIDName: String);
  444.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  445.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  446.   end;
  448.   TspDataSkinExPanelControl = class(TspDataSkinCustomControl)
  449.   public
  450.     //
  451.     RollHSkinRect, RollVSkinRect: TRect;
  452.     RollLeftOffset, RollRightOffset,
  453.     RollTopOffset, RollBottomOffset: Integer;
  454.     RollVCaptionRect, RollHCaptionRect: TRect;
  455.     //
  456.     CloseButtonRect, CloseButtonActiveRect, CloseButtonDownRect: TRect;
  457.     HRollButtonRect, HRollButtonActiveRect, HRollButtonDownRect: TRect;
  458.     HRestoreButtonRect, HRestoreButtonActiveRect, HRestoreButtonDownRect: TRect;
  459.     VRollButtonRect, VRollButtonActiveRect, VRollButtonDownRect: TRect;
  460.     VRestoreButtonRect, VRestoreButtonActiveRect, VRestoreButtonDownRect: TRect;
  461.     //
  462.     CaptionRect: TRect;
  463.     FontName: String;
  464.     FontStyle: TFontStyles;
  465.     FontHeight: Integer;
  466.     FontColor: TColor;
  467.     constructor Create(AIDName: String);
  468.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  469.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  470.   end;
  472.   
  473.   TspDataSkinArea = class(TObject)
  474.   public
  475.     IDName: String;
  476.     AreaRect: TRect;
  477.     constructor Create(AIDName: String; ARect: TRect);
  478.   end;
  480.   TspDataSkinObject = class(TObject)
  481.   public
  482.     IDName: String;
  483.     Hint: String;
  484.     SkinRectInAPicture: Boolean;
  485.     SkinRect: TRect;
  486.     ActiveSkinRect: TRect;
  487.     Morphing: Boolean;
  488.     MorphKind: TMorphKind;
  489.     ActivePictureIndex: Integer;
  490.     CursorIndex: Integer;
  491.     RollUp: Boolean;
  492.     constructor Create(AIDName: String);
  493.     procedure LoadFromFile(IniFile: TCustomIniFile); virtual;
  494.     procedure SaveToFile(IniFile: TCustomIniFile); virtual;
  495.   end;
  497.   TspDataUserObject = class(TspDataSkinObject)
  498.   public
  499.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  500.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  501.   end;
  503.   TspDataSkinBitLabel = class(TspDataSkinObject)
  504.   public
  505.     Symbols: TStrings;
  506.     TextValue: String;
  507.     SymbolWidth, SymbolHeight: Integer;
  508.     constructor Create(AIDName: String);
  509.     destructor Destroy; override;
  510.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  511.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  512.   end;
  514.   TspDataSkinAnimate = class(TspDataSkinObject)
  515.   public
  516.     CountFrames: Integer;
  517.     Cycle: Boolean;
  518.     ButtonStyle: Boolean;
  519.     TimerInterval: Integer;
  520.     Command: TStdCommand;
  521.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  522.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  523.   end;
  525.   TspDataSkinLabel = class(TspDataSkinObject)
  526.   public
  527.     FontName: String;
  528.     FontHeight: Integer;
  529.     FontStyle: TFontStyles;
  530.     FontColor, ActiveFontColor: TColor;
  531.     Alignment: TAlignment;
  532.     TextValue: String;
  533.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  534.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  535.   end;
  537.   TspDataSkinSwitch = class(TspDataSkinObject);
  539.   TGaugeKind = (gkHorizontal, gkVertical);
  540.   TspDataSkinGauge = class(TspDataSkinObject)
  541.   public
  542.     MinValue, MaxValue: Integer;
  543.     Kind: TGaugeKind;
  544.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  545.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  546.   end;
  548.   TspDataSkinFrameRegulatorObject = class(TspDataSkinObject)
  549.   public
  550.     MinValue, MaxValue: Integer;
  551.     CountFrames: Integer;
  552.     FramesPlacement: TFramesPlacement;
  553.     Kind: TRegulatorKind;
  554.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  555.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  556.   end;
  558.   TspDataSkinFrameGaugeObject = class(TspDataSkinObject)
  559.   public
  560.     MinValue, MaxValue: Integer;
  561.     CountFrames: Integer;
  562.     FramesPlacement: TFramesPlacement;
  563.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  564.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  565.   end;
  567.   TTrackKind = (tkHorizontal, tkVertical);
  568.   TspDataSkinTrackBar = class(TspDataSkinObject)
  569.   public
  570.     ButtonRect, ActiveButtonRect: TRect;
  571.     BeginPoint, EndPoint: TPoint;
  572.     MinValue, MaxValue: Integer;
  573.     MouseDownChangeValue: Boolean;
  574.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  575.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  576.   end;
  578.   TspDataSkinButton = class(TspDataSkinObject)
  579.   public
  580.     GroupIndex: Integer;
  581.     DownRect: TRect;
  582.     DisableSkinRect: TRect;
  583.     constructor Create(AIDName: String);
  584.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  585.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  586.   end;
  588.   TspDataSkinStdButton = class(TspDataSkinButton)
  589.   public
  590.     Command: TStdCommand;
  591.     RestoreRect: TRect;
  592.     RestoreActiveRect: TRect;
  593.     RestoreDownRect: TRect;
  594.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  595.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  596.   end;
  598.   TspDataSkinMainMenuBarButton = class(TspDataSkinStdButton);
  600.   TspDataSkinPopupWindow = class(TObject)
  601.   public
  602.     WindowPictureIndex: Integer;
  603.     MaskPictureIndex: Integer;
  604.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  605.     ItemsRect: TRect;
  606.     ScrollMarkerColor, ScrollMarkerActiveColor: Integer;
  607.     CursorIndex: Integer;
  608.     constructor Create;
  609.     procedure LoadFromFile(IniFile: TCustomIniFile);
  610.     procedure SaveToFile(IniFile: TCustomIniFile);
  611.   end;
  613.   TspDataSkinHintWindow = class(TObject)
  614.   public
  615.     WindowPictureIndex: Integer;
  616.     MaskPictureIndex: Integer;
  617.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  618.     ClRect: TRect;
  619.     FontName: String;
  620.     FontStyle: TFontStyles;
  621.     FontHeight: Integer;
  622.     FontColor: TColor;
  623.     constructor Create;
  624.     procedure LoadFromFile(IniFile: TCustomIniFile);
  625.     procedure SaveToFile(IniFile: TCustomIniFile);
  626.   end;
  628.   TspDataSkinMenuItem = class(TspDataSkinObject)
  629.   public
  630.     DividerRect: TRect;
  631.     DividerLO, DividerRO: Integer;
  632.     ItemLO, ItemRO: Integer;
  633.     FontName: String;
  634.     FontHeight: Integer;
  635.     FontStyle: TFontStyles;
  636.     UnEnabledFontColor, FontColor, ActiveFontColor: TColor;
  637.     TextRct: TRect;
  638.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  639.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  640.   end;
  642.   TspDataSkinMainMenuItem = class(TspDataSkinObject)
  643.   public
  644.     DownRect: TRect;
  645.     FontName: String;
  646.     FontHeight: Integer;
  647.     FontStyle: TFontStyles;
  648.     FontColor, ActiveFontColor, DownFontColor, UnEnabledFontColor: TColor;
  649.     TextRct: TRect;
  650.     ItemLO, ItemRO: Integer;
  651.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  652.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  653.   end;
  655.   TspDataSkinMainMenuBarItem = class(TspDataSkinMainMenuItem);
  657.   TspDataSkinCaption = class(TspDataSkinObject)
  658.   public
  659.     FontName: String;
  660.     FontHeight: Integer;
  661.     FontStyle: TFontStyles;
  662.     FontColor, ActiveFontColor: TColor;
  663.     ShadowColor, ActiveShadowColor: TColor;
  664.     Shadow: Boolean;
  665.     Alignment: TAlignment;
  666.     TextRct: TRect;
  667.     DefaultCaption: Boolean;
  668.     FrameRect, ActiveFrameRect: TRect;
  669.     FrameLeftOffset, FrameRightOffset: Integer;
  670.     FrameTextRect: TRect;
  671.     procedure LoadFromFile(IniFile: TCustomIniFile); override;
  672.     procedure SaveToFile(IniFile: TCustomIniFile); override;
  673.   end;
  675.   TspCompressedStoredSkin = class(TComponent)
  676.   private
  677.     FFileName: String;
  678.     FCompressedStream: TMemoryStream;
  679.     procedure SetFileName(Value: String);
  680.     function GetEmpty: Boolean;
  681.   protected
  682.     procedure ReadData(Reader: TStream);
  683.     procedure WriteData(Writer: TStream);
  684.     procedure DefineProperties(Filer: TFiler); override;
  685.   public
  686.     constructor Create(AOwner: TComponent); override;
  687.     destructor Destroy; override;
  688.     procedure LoadFromIniFile(AFileName: String);
  689.     procedure LoadFromCompressFile(AFileName: String);
  690.     procedure SaveToCompressFile(AFileName: String);
  691.     procedure DeCompressToStream(var S: TMemoryStream);
  692.     property Empty: Boolean read GetEmpty;
  693.   published
  694.     property FileName: String read FFileName write SetFileName;
  695.   end;
  697.   TspStoredSkin = class(TComponent)
  698.   protected
  699.     FFileName: String;
  700.     FIniStrings: TStrings;
  701.     procedure ClearBitMaps;
  702.   public
  703.     FPicture, FMask: TBitMap;
  704.     FRollUpPicture, FRollUpMask: TBitMap;
  705.     FActivePictures: TList;
  706.     procedure SetFileName(Value: String);
  707.     procedure SetIniStrings(Value: TStrings);
  708.     constructor Create(AOwner: TComponent); override;
  709.     destructor Destroy; override;
  710.     procedure LoadFromFile(AFileName: String);
  711.     procedure ReadData(Reader: TStream);
  712.     procedure WriteData(Writer: TStream);
  713.     procedure DefineProperties(Filer: TFiler); override;
  714.   published
  715.     property FileName: String read FFileName write SetFileName;
  716.     property IniStrings: TStrings read FIniStrings write SetIniStrings;
  717.   end;
  719.   TspSkinData = class(TComponent)
  720.   protected
  721.     FStoredSkin: TspStoredSkin;
  722.     FCompressedStoredSkin: TspCompressedStoredSkin;
  723.     Names: TStrings;
  724.     procedure SetCompressedStoredSkin(Value: TspCompressedStoredSkin);
  725.     procedure Notification(AComponent: TComponent;
  726.                            Operation: TOperation); override;
  727.     procedure SetStoredSkin(Value: TspStoredSkin);
  728.     procedure LoadNames;
  729.     procedure EraseSections(F: TCustomIniFile);
  730.     procedure WriteFormInfo(F: TCustomIniFile);
  731.     procedure ReadFormInfo(F: TCustomIniFile);
  732.     procedure WriteAreas(F: TCustomIniFile);
  733.     procedure ReadAreas(F: TCustomIniFile);
  734.     procedure WriteObjects(F: TCustomIniFile);
  735.     procedure ReadObjects(F: TCustomIniFile);
  736.     procedure WriteCtrls(F: TCustomIniFile);
  737.     procedure ReadCtrls(F: TCustomIniFile);
  738.     procedure WriteActivePictures(F: TCustomIniFile);
  739.     procedure WriteCursors(F: TCustomIniFile);
  740.     procedure ReadActivePictures(F: TCustomIniFile; Path: String);
  741.     procedure ReadCursors(F: TCustomIniFile; Path: String);
  742.     procedure GetObjectTypeName(S: String; var AName, AType: String);
  743.     procedure GetAreaNameRect(S: String; var AName: String; var ARect: TRect);
  744.   public
  745.     //
  746.     ButtonsRect, CaptionRect: TRect;
  747.     ButtonsOffset: Integer;
  748.     CapButtonsInLeft: Boolean;
  749.     //
  750.     AutoRenderingInActiveImage: Boolean;
  751.     InActiveEffect: TspInActiveEffect;
  752.     StartCursorIndex: Integer;
  753.     CursorIndex: Integer;
  754.     BuildMode: Boolean;
  755.     PopupWindow: TspDataSkinPopupWindow;
  756.     HintWindow: TspDataSkinHintWindow;
  757.     Empty: Boolean;
  758.     FPicture, FMask: TBitMap;
  759.     FRollUpPicture, FRollUpMask: TBitMap;
  760.     FActivePictures: TList;
  761.     FPictureName, FMaskName: String;
  762.     FRollUpPictureName, FRollUpMaskName: String;
  763.     FActivePicturesNames: TStrings;
  764.     FCursorsNames: TStrings;
  765.     ObjectList: TList;
  766.     AreaList: TList;
  767.     CtrlList: TList;
  768.     LTPoint, RTPoint, LBPoint, RBPoint: TPoint;
  769.     BGPictureIndex: Integer;
  770.     MainMenuRect: TRect;
  771.     IconRect: TRect;
  772.     MainMenuPopupUp: Boolean;
  773.     MaskRectArea: TRect;
  774.     HitTestLTPoint,
  775.     HitTestRTPoint,
  776.     HitTestLBPoint,
  777.     HitTestRBPoint: TPoint;
  778.     ClRect: TRect;
  779.     BorderW: Integer;
  780.     RollUpLeftPoint, RollUpRightPoint: TPoint;
  782.     SkinName: String;
  783.     SkinAuthor: String;
  784.     AuthorURL: String;
  785.     AuthorEmail: String;
  786.     SkinComments: String;
  788.     procedure LoadCompressedStoredSkin(AStoredSkin: TspCompressedStoredSkin);
  789.     procedure AddBitMap(FileName: String);
  790.     procedure DeleteBitMap(Index: Integer);
  792.     procedure AddSkinArea(AName: String; ARect: TRect);
  794.     procedure SendSkinDataMessage(M: LongInt);
  796.     function GetIndex(AIDName: String): Integer;
  797.     function GetControlIndex(AIDName: String): Integer;
  798.     function GetAreaIndex(AIDName: String): Integer;
  799.     procedure ClearObjects;
  800.     procedure ClearAll;
  801.     constructor Create(AOwner: TComponent); override;
  802.     destructor Destroy; override;
  803.     procedure LoadFromFile(FileName: String);
  804.     procedure SaveToFile(FileName: String);
  805.     procedure LoadStoredSkin(AStoredSkin: TspStoredSkin);
  806.     procedure ClearSkin;
  808.   published
  809.     property StoredSkin: TspStoredSkin read FStoredSkin write SetStoredSkin;
  810.     property CompressedStoredSkin: TspCompressedStoredSkin
  811.       read FCompressedStoredSkin write SetCompressedStoredSkin;
  812.   end;
  814.   function ReadInActiveEffect(IniFile: TCustomIniFile;
  815.                               Section: String; Ident: String): TspInActiveEffect;
  817.   procedure WriteInActiveEffect(IniFile: TCustomIniFile;
  818.                                 Section: String; Ident: String;
  819.                                 IE: TspInActiveEffect);
  821.   function ReadMorphKind(IniFile: TCustomIniFile;
  822.                      Section: String; Ident: String): TMorphKind;
  824.   procedure WriteMorphKind(IniFile: TCustomIniFile;
  825.                        Section: String; Ident: String; MK: TMorphKind);
  827. // Internal messages
  828. const
  829.   WM_BEFORECHANGESKINDATA = WM_USER + 201;
  830.   WM_CHANGESKINDATA = WM_USER + 202;
  831.   WM_AFTERCHANGESKINDATA = WM_USER + 203;
  832.   
  833. implementation
  835. function CheckSkinFile(F: TCustomIniFile): Boolean;
  836. begin
  837.   Result := F.SectionExists('VERSION') and F.SectionExists('PICTURES') and
  838.             F.SectionExists('FORMINFO') and F.SectionExists('SKINOBJECTS') and
  839.             F.SectionExists('SKINCONTROLS');
  840. end;
  842. function ReadMorphKind;
  843. var
  844.   S: String;
  845. begin
  846.   S := IniFile.ReadString(Section, Ident, 'mkdefault');
  847.   if S = 'mkdefault'
  848.   then Result := mkDefault
  849.   else
  850.   if S = 'mkgradient'
  851.   then Result := mkGradient
  852.   else
  853.   if S = 'mkleftgradient'
  854.   then Result := mkLeftGradient
  855.   else
  856.   if S = 'mkrightgradient'
  857.   then Result := mkRightGradient
  858.   else
  859.   if S = 'mkleftslide'
  860.   then Result := mkLeftSlide
  861.   else
  862.   if S = 'mkrightslide'
  863.   then Result := mkRightSlide
  864.   else
  865.   if S = 'mkpush'
  866.   then Result := mkPush;
  867. end;
  869. procedure WriteMorphKind;
  870. var
  871.   S: String;
  872. begin
  873.   case MK of
  874.     mkDefault: S := 'mkdefault';
  875.     mkGradient: S := 'mkgradient';
  876.     mkLeftGradient: S := 'mkleftgradient';
  877.     mkRightGradient: S := 'mkrightgradient';
  878.     mkLeftSlide: S := 'mkleftslide';
  879.     mkRightSlide: S := 'mkrightslide';
  880.     mkPush: S := 'mkpush';
  881.   end;
  882.   IniFile.WriteString(Section, Ident, S);
  883. end;
  885. procedure WriteInActiveEffect;
  886. var
  887.   S: String;
  888. begin
  889.   case IE of
  890.     ieBrightness: S := 'iebrightness';
  891.     ieDarkness: S := 'iedarkness';
  892.     ieGrayScale: S := 'iegrayscale';
  893.     ieNoise: S := 'ienoise';
  894.     ieSplitBlur: S := 'iesplitblur';
  895.     ieInvert: S := 'ieinvert';
  896.   end;
  897.   IniFile.WriteString(Section, Ident, S);
  898. end;
  900. function ReadInActiveEffect;
  901. var
  902.   S: String;
  903. begin
  904.   S := IniFile.ReadString(Section, Ident, 'iebrightness');
  905.   if S = 'iebrightness'
  906.   then Result := ieBrightness
  907.   else
  908.   if S = 'iedarkness'
  909.   then Result := ieDarkness
  910.   else
  911.   if S = 'iegrayscale'
  912.   then Result := ieGrayScale
  913.   else
  914.   if S = 'ienoise'
  915.   then Result := ieNoise
  916.   else
  917.   if S = 'iesplitblur'
  918.   then Result := ieSplitBlur
  919.   else
  920.   if S = 'ieinvert'
  921.   then Result := ieInvert;
  922. end;
  924. constructor TspDataSkinControl.Create;
  925. begin
  926.   IDName := AIDName;
  927.   PictureIndex := -1;
  928.   MaskPictureIndex := -1;
  929.   SkinRect := Rect(0, 0, 0, 0);
  930.   CursorIndex := -1;
  931. end;
  933. procedure TspDataSkinControl.LoadFromFile;
  934. begin
  935.   PictureIndex := IniFile.ReadInteger(IDName, 'pictureindex', -1);
  936.   MaskPictureIndex := IniFile.ReadInteger(IDName, 'maskpictureindex', -1);
  937.   CursorIndex := IniFile.ReadInteger(IDName, 'cursorindex', -1);
  938.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  939. end;
  941. procedure TspDataSkinControl.SaveToFile;
  942. begin
  943.   IniFile.EraseSection(IDName);
  944.   IniFile.WriteInteger(IDName, 'pictureindex', PictureIndex);
  945.   IniFile.WriteInteger(IDName, 'maskpictureindex', MaskPictureIndex);
  946.   IniFile.WriteInteger(IDName, 'cursorindex', CursorIndex);
  947.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  948. end;
  950. constructor TspDataSkinMainMenuBar.Create;
  951. begin
  952.   inherited;
  953.   TrackMarkColor := 0;
  954.   TrackMarkActiveColor := 0;
  955. end;
  957. procedure TspDataSkinMainMenuBar.LoadFromFile;
  958. begin
  959.   inherited;
  960.   ItemsRect := ReadRect(IniFile, IDName, 'itemsrect');
  961.   MenuBarItem := IniFile.ReadString(IDName, 'menubaritem', '');
  962.   CloseButton := IniFile.ReadString(IDName, 'closebutton', '');
  963.   MinButton := IniFile.ReadString(IDName, 'minbutton', '');
  964.   MaxButton := IniFile.ReadString(IDName, 'maxbutton', '');
  965.   SysMenuButton := IniFile.ReadString(IDName, 'sysmenubutton', '');
  966.   TrackMarkColor := IniFile.ReadInteger(IDName, 'trackmarkcolor', 0);
  967.   TrackMarkActiveColor := IniFile.ReadInteger(IDName, 'trackmarkactivecolor', 0);
  968. end;
  970. procedure TspDataSkinMainMenuBar.SaveToFile;
  971. begin
  972.   inherited;
  973.   WriteRect(IniFile, IDName, 'itemsrect', ItemsRect);
  974.   IniFile.WriteString(IDName, 'menubaritem', MenuBarItem);
  975.   IniFile.WriteString(IDName, 'closebutton', CloseButton);
  976.   IniFile.WriteString(IDName, 'minbutton', MinButton);
  977.   IniFile.WriteString(IDName, 'maxbutton', MaxButton);
  978.   IniFile.WriteString(IDName, 'sysmenubutton', SysMenuButton);
  979.   IniFile.WriteInteger(IDName, 'trackmarkcolor', TrackMarkColor);
  980.   IniFile.WriteInteger(IDName, 'trackmarkactivecolor', TrackMarkActiveColor);
  981. end;
  983. procedure TspDataSkinUpDownControl.LoadFromFile(IniFile: TCustomIniFile);
  984. begin
  985.   inherited;
  986.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  987.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  988.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  989.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  990.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  991.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  992.   LTPoint := Point(0, 0);
  993.   RTPoint := Point(0, 0);
  994.   LBPoint := Point(0, 0);
  995.   RBPoint := Point(0, 0);
  996.   ClRect := NullRect;
  997. end;
  999. procedure TspDataSkinUpDownControl.SaveToFile(IniFile: TCustomIniFile);
  1000. begin
  1001.   LTPoint := Point(0, 0);
  1002.   RTPoint := Point(0, 0);
  1003.   LBPoint := Point(0, 0);
  1004.   RBPoint := Point(0, 0);
  1005.   ClRect := NullRect;
  1006.   inherited;
  1007.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1008.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1009.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1010.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1011.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1012.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1013. end;
  1015. constructor TspDataSkinListBox.Create(AIDName: String);
  1016. begin
  1017.   inherited;
  1018.   FontName := 'Arial';
  1019.   FontStyle := [];
  1020.   FontHeight := 14;
  1021.   FontColor := 0;
  1022.   CaptionFontName := 'Arial';
  1023.   CaptionFontStyle := [];
  1024.   CaptionFontHeight := 14;
  1025.   CaptionFontColor := 0;
  1026.   HScrollBarName := '';
  1027.   VScrollBarName := '';
  1028.   BothScrollBarName := '';
  1029. end;
  1031. procedure TspDataSkinListBox.LoadFromFile;
  1032. begin
  1033.   inherited;
  1034.   //
  1035.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1036.   ActiveItemRect := ReadRect(IniFile, IDName, 'activeitemrect');
  1037.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  1038.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  1039.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  1040.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  1041.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1042.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1043.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1044.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1045.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1046.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1047.   //
  1048.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1049.   CaptionFontName := IniFile.ReadString(IDName, 'captionfontname', 'Arial');
  1050.   CaptionFontHeight := IniFile.ReadInteger(IDName, 'captionfontheight', 14);
  1051.   CaptionFontStyle := ReadFontStyles(IniFile, IDName, 'captionfontstyle');
  1052.   CaptionFontColor := IniFile.ReadInteger(IDName, 'captionfontcolor', 0);
  1053.   //
  1054.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1055.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1056.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1057.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1058.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1059.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1060.   CheckButtonRect := ReadRect(IniFile, IDName, 'checkbuttonrect');
  1061.   ActiveCheckButtonRect := ReadRect(IniFile, IDName, 'activecheckbuttonrect');
  1062.   DownCheckButtonRect := ReadRect(IniFile, IDName, 'downcheckbuttonrect');
  1063.   //
  1064.   VScrollBarName := IniFile.ReadString(IDName, 'vscrollbarname', 'vscrollbar');
  1065.   HScrollBarName := IniFile.ReadString(IDName, 'hscrollbarname', 'hscrollbar');
  1066.   BothScrollBarName := IniFile.ReadString(IDName, 'bothhscrollbarname', 'bothhscrollbar');
  1067. end;
  1069. procedure TspDataSkinListBox.SaveToFile;
  1070. begin
  1071.   inherited;
  1072.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  1073.   WriteRect(IniFile, IDName, 'activeitemrect', ActiveItemRect);
  1074.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  1075.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  1076.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  1077.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  1078.   IniFile.WriteString(IDName, 'fontname', FontName);
  1079.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1080.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1081.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1082.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1083.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1084.   //
  1085.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1086.   IniFile.WriteString(IDName, 'captionfontname', CaptionFontName);
  1087.   IniFile.WriteInteger(IDName, 'captionfontheight', CaptionFontHeight);
  1088.   WriteFontStyles(IniFile, IDName, 'captionfontstyle', CaptionFontStyle);
  1089.   IniFile.WriteInteger(IDName, 'captionfontcolor', CaptionFontColor);
  1090.   //
  1091.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1092.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1093.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1094.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1095.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1096.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1097.   WriteRect(IniFile, IDName, 'checkbuttonrect', CheckButtonRect);
  1098.   WriteRect(IniFile, IDName, 'activecheckbuttonrect', ActiveCheckButtonRect);
  1099.   WriteRect(IniFile, IDName, 'downcheckbuttonrect', DownCheckButtonRect);
  1100.   //
  1101.   IniFile.WriteString(IDName, 'vscrollbarname', VScrollBarName);
  1102.   IniFile.WriteString(IDName, 'hscrollbarname', HScrollBarName);
  1103.   IniFile.WriteString(IDName, 'bothhscrollbarname', BothScrollBarName);
  1104. end;
  1106. procedure TspDataSkinCheckListBox.LoadFromFile;
  1107. begin
  1108.   inherited;
  1109.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1110.   ItemCheckRect := ReadRect(IniFile, IDName, 'itemcheckrect');
  1111.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1112. end;
  1114. procedure TspDataSkinCheckListBox.SaveToFile;
  1115. begin
  1116.   inherited;
  1117.   WriteRect(IniFile, IDName, 'itemcheckrect', ItemCheckRect);
  1118.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1119.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1120. end;
  1122. constructor TspDataSkinComboBox.Create(AIDName: String);
  1123. begin
  1124.   inherited;
  1125.   FontName := 'Arial';
  1126.   FontStyle := [];
  1127.   FontHeight := 14;
  1128.   FontColor := 0;
  1129.   FocusFontColor := 0;
  1130.   ListBoxName := '';
  1131. end;
  1133. procedure TspDataSkinComboBox.LoadFromFile;
  1134. begin
  1135.   inherited;
  1136.   //
  1137.   SItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1138.   FocusItemRect := ReadRect(IniFile, IDName, 'focusitemrect');
  1139.   ItemLeftOffset := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  1140.   ItemRightOffset := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  1141.   ItemTextRect := ReadRect(IniFile, IDName, 'itemtextrect');
  1142.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1143.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1144.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1145.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1146.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1147.   //
  1148.   ListBoxName := IniFile.ReadString(IDName, 'listboxname', '');
  1149.   //
  1150.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1151.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1152.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1153.   UnEnabledButtonRect := ReadRect(IniFile, IDName, 'unenabledbuttonrect');
  1154.   //
  1155. end;
  1157. procedure TspDataSkinComboBox.SaveToFile;
  1158. begin
  1159.   inherited;
  1160.   WriteRect(IniFile, IDName, 'itemrect', SItemRect);
  1161.   WriteRect(IniFile, IDName, 'focusitemrect', FocusItemRect);
  1162.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLeftOffset);
  1163.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRightOffset);
  1164.   WriteRect(IniFile, IDName, 'itemtextrect', ItemTextRect);
  1165.   IniFile.WriteString(IDName, 'fontname', FontName);
  1166.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1167.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1168.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1169.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1170.   //
  1171.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1172.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1173.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1174.   WriteRect(IniFile, IDName, 'unenabledbuttonrect', UnEnabledButtonRect);
  1175.   //
  1176.   IniFile.WriteString(IDName, 'listboxname', ListBoxName);
  1177. end;
  1179. constructor TspDataSkinControlBar.Create(AIDName: String);
  1180. begin
  1181.   inherited;
  1182.   BGPictureIndex := -1;
  1183. end;
  1185. procedure TspDataSkinControlBar.LoadFromFile;
  1186. begin
  1187.   inherited;
  1188.   ItemRect := ReadRect(IniFile, IDName, 'itemrect');
  1189.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1190. end;
  1192. procedure TspDataSkinControlBar.SaveToFile;
  1193. begin
  1194.   inherited;
  1195.   WriteRect(IniFile, IDName, 'itemrect', ItemRect);
  1196.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1197. end;
  1199. constructor TspDataSkinTreeView.Create;
  1200. begin
  1201.   inherited;
  1202.   FontName := 'Arial';
  1203.   FontStyle := [];
  1204.   FontHeight := 14;
  1205.   FontColor := 0;
  1206.   BGColor := clWhite;
  1207. end;
  1209. procedure TspDataSkinTreeView.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 TspDataSkinTreeView.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 TspDataSkinListView.Create;
  1230. begin
  1231.   inherited;
  1232.   FontName := 'Arial';
  1233.   FontStyle := [];
  1234.   FontHeight := 14;
  1235.   FontColor := 0;
  1236.   BGColor := clWhite;
  1237. end;
  1239. procedure TspDataSkinListView.LoadFromFile;
  1240. begin
  1241.   inherited;
  1242.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1243.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1244.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1245.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1246.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1247. end;
  1249. procedure TspDataSkinListView.SaveToFile;
  1250. begin
  1251.   inherited;
  1252.   IniFile.WriteString(IDName, 'fontname', FontName);
  1253.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1254.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1255.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1256.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1257. end;
  1259. constructor TspDataSkinRichEdit.Create;
  1260. begin
  1261.   inherited;
  1262.   FontName := 'Arial';
  1263.   FontStyle := [];
  1264.   FontHeight := 14;
  1265.   FontColor := 0;
  1266.   BGColor := clWhite;
  1267. end;
  1269. procedure TspDataSkinRichEdit.LoadFromFile;
  1270. begin
  1271.   inherited;
  1272.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1273.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1274.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1275.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1276.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1277. end;
  1279. procedure TspDataSkinRichEdit.SaveToFile;
  1280. begin
  1281.   inherited;
  1282.   IniFile.WriteString(IDName, 'fontname', FontName);
  1283.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1284.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1285.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1286.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1287. end;
  1289. constructor TspDataSkinSlider.Create;
  1290. begin
  1291.   inherited;
  1292.   BGColor := 0;
  1293. end;
  1295. procedure TspDataSkinSlider.LoadFromFile;
  1296. begin
  1297.   inherited;
  1298.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1299.   HRulerRect := ReadRect(IniFile, IDName, 'hrulerrect');
  1300.   HThumbRect := ReadRect(IniFile, IDName, 'hthumbrect');
  1301.   VRulerRect := ReadRect(IniFile, IDName, 'vrulerrect');
  1302.   VThumbRect := ReadRect(IniFile, IDName, 'vthumbrect');
  1303.   EdgeSize := IniFile.ReadInteger(IDName, 'edgesize', 0);
  1304.   PointsColor := IniFile.ReadInteger(IDName, 'pointscolor', 0);
  1305. end;
  1307. procedure TspDataSkinSlider.SaveToFile;
  1308. begin
  1309.   inherited;
  1310.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1311.   WriteRect(IniFile, IDName, 'hrulerrect', HRulerRect);
  1312.   WriteRect(IniFile, IDName, 'hthumbrect', HThumbRect);
  1313.   WriteRect(IniFile, IDName, 'vrulerrect', VRulerRect);
  1314.   WriteRect(IniFile, IDName, 'vthumbrect', VThumbRect);
  1315.   IniFile.WriteInteger(IDName, 'edgesize', EdgeSize);
  1316.   IniFile.WriteInteger(IDName, 'pointscolor', PointsColor);
  1317. end;
  1319. constructor TspDataSkinBevel.Create;
  1320. begin
  1321.   inherited;
  1322.   LightColor := 0;
  1323.   DarkColor := 0;
  1324. end;
  1326. procedure TspDataSkinBevel.LoadFromFile;
  1327. begin
  1328.   inherited;
  1329.   LightColor := IniFile.ReadInteger(IDName, 'lightcolor', 0);
  1330.   DarkColor := IniFile.ReadInteger(IDName, 'darkcolor', 0);
  1331. end;
  1333. procedure TspDataSkinBevel.SaveToFile;
  1334. begin
  1335.   inherited;
  1336.   IniFile.WriteInteger(IDName, 'lightcolor', LightColor);
  1337.   IniFile.WriteInteger(IDName, 'darkcolor', DarkColor);
  1338. end;
  1340. constructor TspDataSkinTabControl.Create(AIDName: String);
  1341. begin
  1342.   inherited;
  1343.   FontName := 'Arial';
  1344.   FontStyle := [];
  1345.   FontHeight := 14;
  1346.   FontColor := 0;
  1347.   ActiveFontColor := 0;
  1348.   FocusFontColor := 0;
  1349.   UpDown := '';
  1350.   BGPictureIndex := -1;
  1351. end;
  1353. procedure TspDataSkinTabControl.LoadFromFile;
  1354. begin
  1355.   inherited;
  1356.   TabRect := ReadRect(IniFile, IDName, 'tabrect');
  1357.   ActiveTabRect := ReadRect(IniFile, IDName, 'activetabrect');
  1358.   FocusTabRect := ReadRect(IniFile, IDName, 'focustabrect');
  1359.   MouseInTabRect := ReadRect(IniFile, IDName, 'mouseintabrect');
  1360.   
  1361.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1362.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1363.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1364.   RTPoint := Readpoint(IniFile, IDName, 'righttoppoint');
  1365.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1366.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1368.   TabLeftOffset := IniFile.ReadInteger(IDName, 'tableftoffset', 0);
  1369.   TabRightOffset := IniFile.ReadInteger(IDName, 'tabrightoffset', 0);
  1370.   TabsBGRect := ReadRect(IniFile, IDName, 'tabsbgrect');
  1372.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1373.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1374.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1375.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1376.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1377.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1378.   MouseInFontColor := IniFile.ReadInteger(IDName, 'mouseinfontcolor', 0);
  1380.   UpDown := IniFile.ReadString(IDName, 'updown', '');
  1381. end;
  1383. procedure TspDataSkinTabControl.SaveToFile;
  1384. begin
  1385.   inherited;
  1386.   WriteRect(IniFile, IDName, 'tabrect', TabRect);
  1387.   WriteRect(IniFile, IDName, 'activetabrect', ActiveTabRect);
  1388.   WriteRect(IniFile, IDName, 'focustabrect', FocusTabRect);
  1389.   WriteRect(IniFile, IDName, 'mouseintabrect',  MouseInTabRect);
  1390.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1391.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1393.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1394.   writePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1395.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1396.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1398.   IniFile.WriteInteger(IDName, 'tableftoffset', TabLeftOffset);
  1399.   IniFile.WriteInteger(IDName, 'tabrightoffset', TabRightOffset);
  1400.   WriteRect(IniFile, IDName, 'tabsbgrect', TabsBGRect);
  1402.   IniFile.WriteString(IDName, 'fontname', FontName);
  1403.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1404.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1405.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1406.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1407.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1408.   IniFile.WriteInteger(IDName, 'mouseinfontcolor', MouseInFontColor);
  1410.   IniFile.WriteString(IDName, 'updown', UpDown);
  1411. end;
  1413. constructor TspDataSkinGridControl.Create;
  1414. begin
  1415.   inherited;
  1416.   FontName := 'Arial';
  1417.   FontStyle := [];
  1418.   FontHeight := 14;
  1419.   FontColor := 0;
  1420.   FixedFontName := 'Arial';
  1421.   FixedFontStyle := [];
  1422.   FixedFontHeight := 14;
  1423.   FixedFontColor := 0;
  1424.   BGPictureIndex := -1;
  1425. end;
  1427. procedure TspDataSkinGridControl.LoadFromFile(IniFile: TCustomIniFile);
  1428. begin
  1429.   inherited;
  1430.   FixedCellRect := ReadRect(IniFile, IDName, 'fixedcellrect');
  1431.   SelectCellRect := ReadRect(IniFile, IDName, 'selectcellrect');
  1432.   FocusCellRect := ReadRect(IniFile, IDName, 'focuscellrect');
  1433.   //
  1434.   FixedCellLeftOffset := IniFile.ReadInteger(IDName, 'fixedcellleftoffset', 0);
  1435.   FixedCellRightOffset := IniFile.ReadInteger(IDName, 'fixedcellrightoffset', 0);
  1436.   FixedCellTextRect := ReadRect(IniFile, IDName, 'fixedcelltextrect');
  1437.   //
  1438.   CellLeftOffset := IniFile.ReadInteger(IDName, 'cellleftoffset', 0);
  1439.   CellRightOffset := IniFile.ReadInteger(IDName, 'cellrightoffset', 0);
  1440.   CellTextRect := ReadRect(IniFile, IDName, 'celltextrect');
  1441.   //
  1442.   LinesColor := IniFile.ReadInteger(IDName, 'linescolor', 0);
  1443.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1444.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1445.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1446.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1447.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1448.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1449.   SelectFontColor := IniFile.ReadInteger(IDName, 'selectfontcolor', 0);
  1450.   FocusFontColor := IniFile.ReadInteger(IDName, 'focusfontcolor', 0);
  1451.   //
  1452.   FixedFontName := IniFile.ReadString(IDName, 'fixedfontname', 'Arial');
  1453.   FixedFontHeight := IniFile.ReadInteger(IDName, 'fixedfontheight', 14);
  1454.   FixedFontStyle := ReadFontStyles(IniFile, IDName, 'fixedfontstyle');
  1455.   FixedFontColor := IniFile.ReadInteger(IDName, 'fixedfontcolor', 0);
  1456. end;
  1458. procedure TspDataSkinGridControl.SaveToFile(IniFile: TCustomIniFile);
  1459. begin
  1460.   inherited;
  1461.   WriteRect(IniFile, IDName, 'fixedcellrect', FixedCellRect);
  1462.   WriteRect(IniFile, IDName, 'selectcellrect', SelectCellRect);
  1463.   WriteRect(IniFile, IDName, 'focuscellrect', FocusCellRect);
  1464.   //
  1465.   IniFile.WriteInteger(IDName, 'fixedcellleftoffset', FixedCellLeftOffset);
  1466.   IniFile.WriteInteger(IDName, 'fixedcellrightoffset', FixedCellRightOffset);
  1467.   WriteRect(IniFile, IDName, 'fixedcelltextrect', FixedCellTextRect);
  1468.   //
  1469.   IniFile.WriteInteger(IDName, 'cellleftoffset', CellLeftOffset);
  1470.   IniFile.WriteInteger(IDName, 'cellrightoffset', CellRightOffset);
  1471.   WriteRect(IniFile, IDName, 'celltextrect', CellTextRect);
  1472.   //
  1473.   IniFile.WriteInteger(IDName, 'linescolor', LinesColor);
  1474.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1475.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1476.   IniFile.WriteString(IDName, 'fontname', FontName);
  1477.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1478.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1479.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1480.   IniFile.WriteInteger(IDName, 'selectfontcolor', SelectFontColor);
  1481.   IniFile.WriteInteger(IDName, 'focusfontcolor', FocusFontColor);
  1482.   //
  1483.   IniFile.WriteString(IDName, 'fixedfontname', FixedFontName);
  1484.   IniFile.WriteInteger(IDName, 'fixedfontheight', FixedFontHeight);
  1485.   WriteFontStyles(IniFile, IDName, 'fixedfontstyle', FixedFontStyle);
  1486.   IniFile.WriteInteger(IDName, 'fixedfontcolor', FixedFontColor);
  1487. end;
  1490. constructor TspDataSkinFrameControl.Create;
  1491. begin
  1492.   inherited;
  1493.   FramesCount := 1;
  1494.   FramesPlacement := fpHorizontal;
  1495. end;
  1497. procedure TspDataSkinFrameControl.LoadFromFile;
  1498. var
  1499.   S: String;
  1500. begin
  1501.   inherited;
  1502.   FramesCount := IniFile.ReadInteger(IDName, 'framescount', 1);
  1503.   if FramesCount < 1 then FramesCount := 1;
  1504.   S := IniFile.ReadString(IDName, 'framesplacement', 'fphorizontal');
  1505.   if S = 'fphorizontal'
  1506.   then FramesPlacement := fpHorizontal
  1507.   else FramesPlacement := fpVertical;
  1508. end;
  1510. procedure TspDataSkinFrameControl.SaveToFile;
  1511. var
  1512.   S: String;
  1513. begin
  1514.   inherited;
  1515.   IniFile.WriteInteger(IDName, 'framescount', FramesCount);
  1516.   if FramesPlacement = fpHorizontal
  1517.   then S := 'fphorizontal'
  1518.   else S := 'fpvertical';
  1519.   IniFile.WriteString(IDName, 'framesplacement', S);
  1520. end;
  1523. constructor TspDataSkinFrameRegulator.Create;
  1524. begin
  1525.   inherited;
  1526.   Kind := rkRound;
  1527. end;
  1529. procedure TspDataSkinFrameRegulator.LoadFromFile;
  1530. var
  1531.   S: String;
  1532. begin
  1533.   inherited;
  1534.   Kind := rkRound;
  1535.   S := IniFile.ReadString(IDName, 'kind', 'rkround');
  1536.   if S = 'rkround'
  1537.   then Kind := rkRound
  1538.   else
  1539.   if S = 'rkhorizontal'
  1540.   then Kind := rkHorizontal
  1541.   else Kind := rkVertical;
  1542. end;
  1544. procedure TspDataSkinFrameRegulator.SaveToFile;
  1545. var
  1546.   S: String;
  1547. begin
  1548.   inherited;
  1549.   if Kind = rkRound
  1550.   then S := 'rkround'
  1551.   else
  1552.   if Kind = rkHorizontal
  1553.   then S := 'rkhorizontal'
  1554.   else S := 'rkvertical';
  1555.   IniFile.WriteString(IDName, 'kind', S);
  1556. end;
  1558. constructor TspDataSkinCustomControl.Create;
  1559. begin
  1560.   inherited;
  1561.   LTPoint := Point(0, 0);
  1562.   RBPoint := Point(0, 0);
  1563.   LBPoint := Point(0, 0);
  1564.   RTPoint := Point(0, 0);
  1565.   ClRect := Rect(0, 0, 0, 0);
  1566.   MaskPictureIndex := -1;
  1567. end;
  1569. procedure TspDataSkinCustomControl.LoadFromFile;
  1570. begin
  1571.   inherited;
  1572.   LTPoint := ReadPoint(IniFile, IDName, 'lefttoppoint');
  1573.   RTPoint := ReadPoint(IniFile, IDName, 'righttoppoint');
  1574.   LBPoint := ReadPoint(IniFile, IDName, 'leftbottompoint');
  1575.   RBPoint := ReadPoint(IniFile, IDName, 'rightbottompoint');
  1576.   ClRect := ReadRect(IniFile, IDName, 'clientrect');
  1577. end;
  1579. procedure TspDataSkinCustomControl.SaveToFile;
  1580. begin
  1581.   inherited;
  1582.   WritePoint(IniFile, IDName, 'lefttoppoint', LTPoint);
  1583.   WritePoint(IniFile, IDName, 'righttoppoint', RTPoint);
  1584.   WritePoint(IniFile, IDName, 'leftbottompoint', LBPoint);
  1585.   WritePoint(IniFile, IDName, 'rightbottompoint', RBPoint);
  1586.   WriteRect(IniFile, IDName, 'clientrect', ClRect);
  1587. end;
  1590. constructor TspDataSkinSpinEditControl.Create;
  1591. begin
  1592.   inherited;
  1593.   FontName := 'Arial';
  1594.   FontStyle := [];
  1595.   FontHeight := 12;
  1596.   FontColor := 0;
  1597. end;
  1599. procedure TspDataSkinSpinEditControl.LoadFromFile;
  1600. begin
  1601.   inherited;
  1602.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1603.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1604.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1605.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1607.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1608.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1609.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1611.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1612.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1613.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1614. end;
  1616. procedure TspDataSkinSpinEditControl.SaveToFile;
  1617. begin
  1618.   inherited;
  1619.   IniFile.WriteString(IDName, 'fontname', FontName);
  1620.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1621.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1622.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1624.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1625.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1626.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1628.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1629.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1630.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1631. end;
  1634. constructor TspDataSkinEditControl.Create;
  1635. begin
  1636.   inherited;
  1637.   FontName := 'Arial';
  1638.   FontStyle := [];
  1639.   FontHeight := 12;
  1640.   FontColor := 0;
  1641.   ActiveFontColor := 0;
  1642. end;
  1644. procedure TspDataSkinEditControl.LoadFromFile;
  1645. begin
  1646.   inherited;
  1647.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  1648.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1649.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1650.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1651.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1652.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  1653.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  1654.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1655.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1656.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1657. end;
  1659. procedure TspDataSkinEditControl.SaveToFile;
  1660. begin
  1661.   inherited;
  1662.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  1663.   IniFile.WriteString(IDName, 'fontname', FontName);
  1664.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1665.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1666.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1667.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1668.   IniFile.WriteInteger(IDName, 'disabledfontcolor', DisabledFontColor);
  1669.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1670.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1671.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1672. end;
  1674. constructor TspDataSkinMemoControl.Create(AIDName: String);
  1675. begin
  1676.   inherited;
  1677. end;
  1679. procedure TspDataSkinMemoControl.LoadFromFile;
  1680. begin
  1681.   inherited;
  1682.   BGColor := IniFile.ReadInteger(IDName, 'bgcolor', 0);
  1683.   ActiveBGColor := IniFile.ReadInteger(IDName, 'activebgcolor', 0);
  1684. end;
  1686. procedure TspDataSkinMemoControl.SaveToFile;
  1687. begin
  1688.   inherited;
  1689.   IniFile.WriteInteger(IDName, 'bgcolor', BGColor);
  1690.   IniFile.WriteInteger(IDName, 'activebgcolor', ActiveBGColor);
  1691. end;
  1693. constructor TspDataSkinStdLabelControl.Create;
  1694. begin
  1695.   inherited;
  1696.   FontName := 'Arial';
  1697.   FontStyle := [];
  1698.   FontHeight := 12;
  1699.   FontColor := 0;
  1700.   ActiveFontColor := clBlue;
  1701. end;
  1703. procedure TspDataSkinStdLabelControl.LoadFromFile;
  1704. begin
  1705.   inherited;
  1706.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1707.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1708.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1709.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1710.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', clBlue);
  1711. end;
  1713. procedure TspDataSkinStdLabelControl.SaveToFile;
  1714. begin
  1715.   inherited;
  1716.   IniFile.WriteString(IDName, 'fontname', FontName);
  1717.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1718.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1719.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1720.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  1721. end;
  1723. constructor TspDataSkinBitLabelControl.Create;
  1724. begin
  1725.   inherited;
  1726.   Symbols := TStringList.Create;
  1727.   SymbolWidth := 0;
  1728.   SymbolHeight := 0;
  1729. end;
  1731. destructor TspDataSkinBitLabelControl.Destroy;
  1732. begin
  1733.   Symbols.Clear;
  1734.   Symbols.Free;
  1735.   inherited;
  1736. end;
  1738. procedure TspDataSkinBitLabelControl.LoadFromFile;
  1739. begin
  1740.   inherited;
  1741.   SkinTextRect := ReadRect(IniFile, IDName, 'skintextrect');
  1742.   SymbolWidth := IniFile.ReadInteger(IDName, 'symbolwidth', 0);
  1743.   SymbolHeight := IniFile.ReadInteger(IDName, 'symbolheight', 0);
  1744.   ReadStrings(IniFile, IDName, 'symbols', Symbols);
  1745. end;
  1747. procedure TspDataSkinBitLabelControl.SaveToFile;
  1748. begin
  1749.   inherited;
  1750.   WriteRect(IniFile, IDName, 'skintextrect', SkinTextRect);
  1751.   IniFile.WriteInteger(IDName, 'symbolwidth', SymbolWidth);
  1752.   IniFile.WriteInteger(IDName, 'symbolheight', SymbolHeight);
  1753.   WriteStrings(IniFile, IDName, 'symbols', Symbols);
  1754. end;
  1757. constructor TspDataSkinLabelControl.Create;
  1758. begin
  1759.   inherited;
  1760.   FontName := 'Arial';
  1761.   FontStyle := [];
  1762.   FontHeight := 12;
  1763.   FontColor := 0;
  1764. end;
  1766. procedure TspDataSkinLabelControl.LoadFromFile;
  1767. begin
  1768.   inherited;
  1769.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1770.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1771.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1772.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1773. end;
  1775. procedure TspDataSkinLabelControl.SaveToFile;
  1776. begin
  1777.   inherited;
  1778.   IniFile.WriteString(IDName, 'fontname', FontName);
  1779.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1780.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1781.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1782. end;
  1786. constructor TspDataSkinScrollBarControl.Create;
  1787. begin
  1788.   inherited;
  1789.   ThumbOffset1 := 0;
  1790.   ThumbOffset2 := 0;
  1791. end;
  1793. procedure TspDataSkinScrollBarControl.LoadFromFile;
  1794. begin
  1795.   inherited;
  1796.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1798.   UpButtonRect := ReadRect(IniFile, IDName, 'upbuttonrect');
  1799.   ActiveUpButtonRect := ReadRect(IniFile, IDName, 'activeupbuttonrect');
  1800.   DownUpButtonRect := ReadRect(IniFile, IDName, 'downupbuttonrect');
  1802.   DownButtonRect := ReadRect(IniFile, IDName, 'downbuttonrect');
  1803.   ActiveDownButtonRect := ReadRect(IniFile, IDName, 'activedownbuttonrect');
  1804.   DownDownButtonRect := ReadRect(IniFile, IDName, 'downdownbuttonrect');
  1806.   ThumbRect := ReadRect(IniFile, IDName, 'thumbrect');
  1807.   ActiveThumbRect := ReadRect(IniFile, IDName, 'activethumbrect');
  1808.   DownThumbRect := ReadRect(IniFile, IDName, 'downthumbrect');
  1809.   ThumbOffset1 := IniFile.ReadInteger(IDName, 'thumboffset1', 0);
  1810.   ThumbOffset2 := IniFile.ReadInteger(IDName, 'thumboffset2', 0);
  1812.   GlyphRect := ReadRect(IniFile, IDName, 'glyphrect');
  1813.   ActiveGlyphRect := ReadRect(IniFile, IDName, 'activeglyphrect');
  1814.   DownGlyphRect := ReadRect(IniFile, IDName, 'downglyphrect');
  1815. end;
  1817. procedure TspDataSkinScrollBarControl.SaveToFile;
  1818. begin
  1819.   inherited;
  1820.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1822.   WriteRect(IniFile, IDName, 'upbuttonrect', UpButtonRect);
  1823.   WriteRect(IniFile, IDName, 'activeupbuttonrect', ActiveUpButtonRect);
  1824.   WriteRect(IniFile, IDName, 'downupbuttonrect', DownUpButtonRect);
  1826.   WriteRect(IniFile, IDName, 'downbuttonrect', DownButtonRect);
  1827.   WriteRect(IniFile, IDName, 'activedownbuttonrect', ActiveDownButtonRect);
  1828.   WriteRect(IniFile, IDName, 'downdownbuttonrect', DownDownButtonRect);
  1830.   WriteRect(IniFile, IDName, 'thumbrect', ThumbRect);
  1831.   WriteRect(IniFile, IDName, 'activethumbrect', ActiveThumbRect);
  1832.   WriteRect(IniFile, IDName, 'downthumbrect', DownThumbRect);
  1834.   IniFile.WriteInteger(IDName, 'thumboffset1', ThumbOffset1);
  1835.   IniFile.WriteInteger(IDName, 'thumboffset2', ThumbOffset2);
  1837.   WriteRect(IniFile, IDName, 'glyphrect', GlyphRect);
  1838.   WriteRect(IniFile, IDName, 'activeglyphrect', ActiveGlyphRect);
  1839.   WriteRect(IniFile, IDName, 'downglyphrect', DownGlyphRect);
  1840. end;
  1842. constructor TspDataSkinTrackBarControl.Create;
  1843. begin
  1844.   inherited;
  1845.   TrackArea := NullRect;
  1846.   ButtonRect := NullRect;
  1847.   ActiveButtonRect := NullRect;
  1848.   Vertical := False;
  1849. end;
  1851. procedure TspDataSkinTrackBarControl.LoadFromFile;
  1852. begin
  1853.   inherited;
  1854.   TrackArea := ReadRect(IniFile, IDName, 'trackarea');
  1855.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  1856.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  1857.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1858. end;
  1860. procedure TspDataSkinTrackBarControl.SaveToFile;
  1861. begin
  1862.   inherited;
  1863.   WriteRect(IniFile, IDName, 'trackarea', TrackArea);
  1864.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  1865.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  1866.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1867. end;
  1869. constructor TspDataSkinGaugeControl.Create;
  1870. begin
  1871.   inherited;
  1872.   ProgressArea := NullRect;
  1873.   ProgressRect := NullRect;
  1874.   Vertical := False;
  1875.   BeginOffset := 0;
  1876.   EndOffset := 0;
  1877.   FontName := 'Arial';
  1878.   FontStyle := [];
  1879.   FontHeight := 14;
  1880.   FontColor := 0;
  1881. end;
  1883. procedure TspDataSkinGaugeControl.LoadFromFile;
  1884. begin
  1885.   inherited;
  1886.   ProgressArea := ReadRect(IniFile, IDName, 'progressarea');
  1887.   ProgressRect := ReadRect(IniFile, IDName, 'progressrect');
  1888.   BeginOffset := IniFile.ReadInteger(IDName, 'beginoffset', 0);
  1889.   EndOffset := IniFile.ReadInteger(IDName, 'endoffset', 0);
  1890.   Vertical := ReadBoolean(IniFile, IDName, 'vertical');
  1891.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1892.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1893.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1894.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1895. end;
  1897. procedure TspDataSkinGaugeControl.SaveToFile;
  1898. begin
  1899.   inherited;
  1900.   WriteRect(IniFile, IDName, 'progressarea', ProgressArea);
  1901.   WriteRect(IniFile, IDName, 'progressrect', ProgressRect);
  1902.   IniFile.WriteInteger(IDName, 'beginoffset', BeginOffset);
  1903.   IniFile.WriteInteger(IDName, 'endoffset', EndOffset);
  1904.   WriteBoolean(IniFile, IDName, 'vertical', Vertical);
  1905.   IniFile.WriteString(IDName, 'fontname', FontName);
  1906.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1907.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1908.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1909. end;
  1912. constructor TspDataSkinScrollBoxControl.Create(AIDName: String);
  1913. begin
  1914.   inherited;
  1915.   BGPictureIndex := -1;
  1916. end;
  1918. procedure TspDataSkinScrollBoxControl.LoadFromFile(IniFile: TCustomIniFile);
  1919. begin
  1920.   inherited;
  1921.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1922. end;
  1924. procedure TspDataSkinScrollBoxControl.SaveToFile(IniFile: TCustomIniFile);
  1925. begin
  1926.   inherited;
  1927.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1928. end;
  1930. constructor TspDataSkinPanelControl.Create;
  1931. begin
  1932.   inherited;
  1933.   CaptionRect := NullRect;
  1934.   RollUpMarkerRect := NullRect;
  1935.   RestoreMarkerRect := NullRect;
  1936.   FontName := 'Arial';
  1937.   FontStyle := [];
  1938.   FontHeight := 12;
  1939.   FontColor := 0;
  1940.   Alignment := taCenter;
  1941.   BGPictureIndex := -1;
  1942. end;
  1944. procedure TspDataSkinPanelControl.LoadFromFile;
  1945. begin
  1946.   inherited;
  1947.   BGPictureIndex := IniFile.ReadInteger(IDName, 'bgpictureindex', -1);
  1948.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  1949.   RollUpMarkerRect := ReadRect(IniFile, IDName, 'rollupmarkerrect');
  1950.   RestoreMarkerRect := ReadRect(IniFile, IDName, 'restoremarkerrect');
  1951.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  1952.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  1953.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  1954.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  1955.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  1956.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  1957.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  1958. end;
  1960. procedure TspDataSkinPanelControl.SaveToFile;
  1961. begin
  1962.   inherited;
  1963.   IniFile.WriteInteger(IDName, 'bgpictureindex', BGPictureIndex);
  1964.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  1965.   WriteRect(IniFile, IDName, 'rollupmarkerrect', RollUpMarkerRect);
  1966.   WriteRect(IniFile, IDName, 'restoremarkerrect', RestoreMarkerRect);
  1967.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  1968.   IniFile.WriteString(IDName, 'fontname', FontName);
  1969.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  1970.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  1971.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  1972.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  1973.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  1974. end;
  1976. constructor TspDataSkinExPanelControl.Create(AIDName: String);
  1977. begin
  1978.   inherited;
  1979.   FontName := 'Arial';
  1980.   FontStyle := [];
  1981.   FontHeight := 12;
  1982.   FontColor := 0;
  1983. end;
  1985. procedure TspDataSkinExPanelControl.LoadFromFile(IniFile: TCustomIniFile);
  1986. begin
  1987.   inherited;
  1988.   RollHSkinRect := ReadRect(IniFile, IDName, 'rollhskinrect');
  1989.   RollVSkinRect := ReadRect(IniFile, IDName, 'rollvskinrect');
  1990.   RollLeftOffset := IniFile.ReadInteger(IDName, 'rollleftoffset', 0);
  1991.   RollRightOffset := IniFile.ReadInteger(IDName, 'rollrightoffset', 0);
  1992.   RollTopOffset := IniFile.ReadInteger(IDName, 'rolltopoffset', 0);
  1993.   RollBottomOffset := IniFile.ReadInteger(IDName, 'rollbottomoffset', 0);
  1994.   RollVCaptionRect := ReadRect(IniFile, IDName, 'rollvcaptionrect');
  1995.   RollHCaptionRect := ReadRect(IniFile, IDName, 'rollhcaptionrect');
  1996.   //
  1997.   CloseButtonRect := ReadRect(IniFile, IDName, 'closebuttonrect');
  1998.   CloseButtonActiveRect := ReadRect(IniFile, IDName, 'closebuttonactiverect');
  1999.   CloseButtonDownRect := ReadRect(IniFile, IDName, 'closebuttondownrect');
  2000.   HRollButtonRect := ReadRect(IniFile, IDName, 'hrollbuttonrect');
  2001.   HRollButtonActiveRect := ReadRect(IniFile, IDName, 'hrollbuttonactiverect');
  2002.   HRollButtonDownRect := ReadRect(IniFile, IDName, 'hrollbuttondownrect');
  2003.   HRestoreButtonRect := ReadRect(IniFile, IDName, 'hrestorebuttonrect');
  2004.   HRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'hrestorebuttonactiverect');
  2005.   HRestoreButtonDownRect := ReadRect(IniFile, IDName, 'hrestorebuttondownrect');
  2007.   VRollButtonRect := ReadRect(IniFile, IDName, 'vrollbuttonrect');
  2008.   VRollButtonActiveRect := ReadRect(IniFile, IDName, 'vrollbuttonactiverect');
  2009.   VRollButtonDownRect := ReadRect(IniFile, IDName, 'vrollbuttondownrect');
  2011.   VRestoreButtonRect := ReadRect(IniFile, IDName, 'vrestorebuttonrect');
  2012.   VRestoreButtonActiveRect := ReadRect(IniFile, IDName, 'vrestorebuttonactiverect');
  2013.   VRestoreButtonDownRect := ReadRect(IniFile, IDName, 'vrestorebuttondownrect');
  2014.   //
  2015.   CaptionRect := ReadRect(IniFile, IDName, 'captionrect');
  2016.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2017.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2018.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2019.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2020. end;
  2022. procedure TspDataSkinExPanelControl.SaveToFile(IniFile: TCustomIniFile);
  2023. begin
  2024.   inherited;
  2025.   WriteRect(IniFile, IDName, 'rollhskinrect', RollHSkinRect);
  2026.   WriteRect(IniFile, IDName, 'rollvskinrect', RollVSkinRect);
  2027.   IniFile.WriteInteger(IDName, 'rollleftoffset', RollLeftOffset);
  2028.   IniFile.WriteInteger(IDName, 'rollrightoffset', RollRightOffset);
  2029.   IniFile.WriteInteger(IDName, 'rolltopoffset', RollTopOffset);
  2030.   IniFile.WriteInteger(IDName, 'rollbottomoffset', RollBottomOffset);
  2031.   WriteRect(IniFile, IDName, 'rollvcaptionrect', RollVCaptionRect);
  2032.   WriteRect(IniFile, IDName, 'rollhcaptionrect', RollHCaptionRect);
  2033.   //
  2034.   WriteRect(IniFile, IDName, 'closebuttonrect', CloseButtonRect);
  2035.   WriteRect(IniFile, IDName, 'closebuttonactiverect', CloseButtonActiveRect);
  2036.   WriteRect(IniFile, IDName, 'closebuttondownrect', CloseButtonDownRect);
  2037.   WriteRect(IniFile, IDName, 'hrollbuttonrect', HRollButtonRect);
  2038.   WriteRect(IniFile, IDName, 'hrollbuttonactiverect', HRollButtonActiveRect);
  2039.   WriteRect(IniFile, IDName, 'hrollbuttondownrect', HRollButtonDownRect);
  2040.   WriteRect(IniFile, IDName, 'hrestorebuttonrect', HRestoreButtonRect);
  2041.   WriteRect(IniFile, IDName, 'hrestorebuttonactiverect', HRestoreButtonActiveRect);
  2042.   WriteRect(IniFile, IDName, 'hrestorebuttondownrect', HRestoreButtonDownRect);
  2043.   WriteRect(IniFile, IDName, 'vrollbuttonrect', VRollButtonRect);
  2044.   WriteRect(IniFile, IDName, 'vrollbuttonactiverect', VRollButtonActiveRect);
  2045.   WriteRect(IniFile, IDName, 'vrollbuttondownrect', VRollButtonDownRect);
  2046.   WriteRect(IniFile, IDName, 'vrestorebuttonrect', VRestoreButtonRect);
  2047.   WriteRect(IniFile, IDName, 'vrestorebuttonactiverect', VRestoreButtonActiveRect);
  2048.   WriteRect(IniFile, IDName, 'vrestorebuttondownrect', VRestoreButtonDownRect);
  2049.   //
  2050.   WriteRect(IniFile, IDName, 'captionrect', CaptionRect);
  2051.   IniFile.WriteString(IDName, 'fontname', FontName);
  2052.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2053.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  2054.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2055. end;
  2057. constructor TspDataSkinCheckRadioControl.Create;
  2058. begin
  2059.   inherited;
  2060.   FontName := 'Arial';
  2061.   FontStyle := [];
  2062.   FontHeight := 12;
  2063.   FontColor := 0;
  2064.   ActiveFontColor := 0;
  2065.   FontColor := 0;
  2066.   CheckImageArea := NullRect;
  2067.   TextArea := NullRect;
  2068.   ActiveSkinRect := NullRect;
  2069.   CheckImageRect := NullRect;
  2070.   UnCheckImageRect := NullRect;
  2071.   MorphKind := mkDefault;
  2072. end;
  2074. procedure TspDataSkinCheckRadioControl.LoadFromFile;
  2075. begin
  2076.   inherited;
  2077.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  2078.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  2079.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  2080.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  2081.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  2082.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  2083.   FrameFontColor := IniFile.ReadInteger(IDName, 'framefontcolor', 0);
  2084.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  2085.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  2086.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  2087.   CheckImageArea := ReadRect(IniFile, IDName, 'checkimagearea');
  2088.   TextArea := ReadRect(IniFile, IDName, 'textarea');
  2089.   CheckImageRect := ReadRect(IniFile, IDName, 'checkimagerect');
  2090.   UnCheckImageRect := ReadRect(IniFile, IDName, 'uncheckimagerect');
  2091.   ActiveCheckImageRect := ReadRect(IniFile, IDName, 'activecheckimagerect');
  2092.   ActiveUnCheckImageRect := ReadRect(IniFile, IDName, 'activeuncheckimagerect');
  2093.   UnEnabledCheckImageRect := ReadRect(IniFile, IDName, 'unenabledcheckimagerect');
  2094.   UnEnabledUnCheckImageRect := ReadRect(IniFile, IDName, 'unenableduncheckimagerect');
  2095. end;
  2097. procedure TspDataSkinCheckRadioControl.SaveToFile;
  2098. begin
  2099.   inherited;
  2100.   IniFile.WriteString(IDName, 'fontname', FontName);
  2101.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  2102.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);