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

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

Delphi控件源码

开发平台：

Delphi

SkinData.pas：源码内容
  1.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  2.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  3.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  4.   IniFile.WriteInteger(IDName, 'framefontcolor', FrameFontColor);
  5.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  6.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  7.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  8.   WriteRect(IniFile, IDName, 'checkimagearea', CheckImageArea);
  9.   WriteRect(IniFile, IDName, 'textarea', TextArea);
  10.   WriteRect(IniFile, IDName, 'checkimagerect', CheckImageRect);
  11.   WriteRect(IniFile, IDName, 'uncheckimagerect', UnCheckImageRect);
  12.   WriteRect(IniFile, IDName, 'activecheckimagerect', ActiveCheckImageRect);
  13.   WriteRect(IniFile, IDName, 'activeuncheckimagerect', ActiveUnCheckImageRect);
  14.   WriteRect(IniFile, IDName, 'unenabledcheckimagerect', UnEnabledCheckImageRect);
  15.   WriteRect(IniFile, IDName, 'unenableduncheckimagerect', UnEnabledUnCheckImageRect);
  16. end;
  18. constructor TspDataSkinMenuButtonControl.Create;
  19. begin
  20.   inherited;
  21. end;
  23. procedure TspDataSkinMenuButtonControl.LoadFromFile;
  24. begin
  25.   inherited;
  26.   TrackButtonRect := ReadRect(IniFile, IDName, 'trackbuttonrect');
  27. end;
  29. procedure TspDataSkinMenuButtonControl.SaveToFile;
  30. begin
  31.   inherited;
  32.   WriteRect(IniFile, IDName, 'trackbuttonrect', TrackButtonRect);
  33. end;
  35. constructor TspDataSkinButtonControl.Create;
  36. begin
  37.   inherited;
  38.   FontName := 'Arial';
  39.   FontStyle := [];
  40.   FontHeight := 12;
  41.   FontColor := 0;
  42.   ActiveFontColor := 0;
  43.   DownFontColor := 0;
  44.   FontColor := 0;
  45.   ActiveSkinRect := NullRect;
  46.   DownSkinRect := NullRect;
  47.   MorphKind := mkDefault;
  48. end;
  50. procedure TspDataSkinButtonControl.LoadFromFile;
  51. begin
  52.   inherited;
  53.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  54.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  55.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  56.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  57.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  58.   DisabledFontColor := IniFile.ReadInteger(IDName, 'disabledfontcolor', 0);
  59.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  60.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  61.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  62.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  63.   DownSkinRect := ReadRect(IniFile, IDName, 'downskinrect');
  64.   DisabledSkinRect := ReadRect(IniFile, IDName, 'disabledskinrect');
  65. end;
  67. procedure TspDataSkinButtonControl.SaveToFile;
  68. begin
  69.   inherited;
  70.   IniFile.WriteString(IDName, 'fontname', FontName);
  71.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  72.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  73.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  74.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  75.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  76.   IniFile.WriteInteger(IDName, 'disabledfontcolor',   DisabledFontColor);
  77.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  78.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  79.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  80.   WriteRect(IniFile, IDName, 'downskinrect', DownSkinRect);
  81.   WriteRect(IniFile, IDName, 'disabledskinrect', DisabledSkinRect);
  82. end;
  84. constructor TspDataSkinArea.Create(AIDName: String; ARect: TRect);
  85. begin
  86.   IDName := AIDName;
  87.   AreaRect := ARect;
  88. end;
  90. constructor TspDataSkinObject.Create;
  91. begin
  92.   IDName := AIDName;
  93.   Hint := '';
  94.   ActivePictureIndex := -1;
  95.   SkinRect := NullRect;
  96.   ActiveSkinRect := SkinRect;
  97.   Morphing := False;
  98.   CursorIndex := -1;
  99.   RollUp := False;
  100. end;
  102. procedure TspDataSkinObject.LoadFromFile;
  103. begin
  104.   Hint := IniFile.ReadString(IDName, 'hint', '');
  105.   RollUp := ReadBoolean(IniFile, IDName, 'rollup');
  106.   ActivePictureIndex := IniFile.ReadInteger(IDName, 'activepictureindex', -1);
  107.   SkinRectInAPicture := ReadBoolean(IniFile, IDName, 'skinrectinapicture');
  108.   CursorIndex := IniFile.ReadInteger(IDName, 'cursorindex', -1);
  109.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  110.   ActiveSkinRect := ReadRect(IniFile, IDName, 'activeskinrect');
  111.   Morphing := ReadBoolean(IniFile, IDName, 'morphing');
  112.   MorphKind := ReadMorphKind(IniFile, IDName, 'morphkind');
  113. end;
  115. procedure TspDataSkinObject.SaveToFile;
  116. begin
  117.   IniFile.EraseSection(IDName);
  118.   IniFile.WriteString(IDName, 'hint', Hint);
  119.   WriteBoolean(IniFile, IDName, 'rollup',  RollUp);
  120.   IniFile.WriteInteger(IDName, 'activepictureindex', ActivePictureIndex);
  121.   WriteBoolean(IniFile, IDName, 'skinrectinapicture', SkinRectInAPicture);
  122.   IniFile.WriteInteger(IDName, 'cursorindex', CursorIndex);
  123.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  124.   WriteRect(IniFile, IDName, 'activeskinrect', ActiveSkinRect);
  125.   WriteBoolean(IniFile, IDName, 'morphing', Morphing);
  126.   WriteMorphKind(IniFile, IDName, 'morphkind', MorphKind);
  127. end;
  129. procedure TspDataUserObject.LoadFromFile;
  130. begin
  131.   RollUp := ReadBoolean(IniFile, IDName, 'rollup');
  132.   SkinRect := ReadRect(IniFile, IDName, 'skinrect');
  133.   CursorIndex := IniFile.ReadInteger(IDName, 'cursorindex', -1);
  134. end;
  136. procedure TspDataUserObject.SaveToFile;
  137. begin
  138.   IniFile.EraseSection(IDName);
  139.   WriteBoolean(IniFile, IDName, 'rollup',  RollUp);
  140.   WriteRect(IniFile, IDName, 'skinrect', SkinRect);
  141.   IniFile.WriteInteger(IDName, 'cursorindex', CursorIndex);
  142. end;
  145. procedure TspDataSkinFrameGaugeObject.LoadFromFile;
  146. var
  147.   S: String;
  148. begin
  149.   inherited;
  150.   MinValue := IniFile.ReadInteger(IDName, 'minvalue', 0);
  151.   MaxValue := IniFile.ReadInteger(IDName, 'maxvalue', 0);
  152.   CountFrames := IniFile.ReadInteger(IDName, 'countframes', 0);
  153.   S := IniFile.ReadString(IDName, 'framesplacement', 'fphorizontal');
  154.   if S = 'fphorizontal'
  155.   then FramesPlacement := fpHorizontal
  156.   else FramesPlacement := fpVertical;
  157. end;
  159. procedure TspDataSkinFrameGaugeObject.SaveToFile;
  160. var
  161.   S: String;
  162. begin
  163.   inherited;
  164.   IniFile.WriteInteger(IDName, 'minvalue', MinValue);
  165.   IniFile.WriteInteger(IDName, 'maxvalue', MaxValue);
  166.   IniFile.WriteInteger(IDName, 'countframes', CountFrames);
  167.   if FramesPlacement = fpHorizontal
  168.   then S := 'fphorizontal'
  169.   else S := 'fpvertical';
  170.   IniFile.WriteString(IDName, 'framesplacement', S);
  171. end;
  173. procedure TspDataSkinFrameRegulatorObject.LoadFromFile;
  174. var
  175.   S: String;
  176. begin
  177.   inherited;
  178.   MinValue := IniFile.ReadInteger(IDName, 'minvalue', 0);
  179.   MaxValue := IniFile.ReadInteger(IDName, 'maxvalue', 0);
  180.   CountFrames := IniFile.ReadInteger(IDName, 'countframes', 0);
  181.   S := IniFile.ReadString(IDName, 'framesplacement', 'fphorizontal');
  182.   if S = 'fphorizontal'
  183.   then FramesPlacement := fpHorizontal
  184.   else FramesPlacement := fpVertical;
  185.   S := IniFile.ReadString(IDName, 'kind', 'rkround');
  186.   if S = 'rkround'
  187.   then Kind := rkRound
  188.   else
  189.   if S = 'rkhorizontal'
  190.   then Kind := rkHorizontal
  191.   else Kind := rkVertical;
  192. end;
  194. procedure TspDataSkinFrameRegulatorObject.SaveToFile;
  195. var
  196.   S: String;
  197. begin
  198.   inherited;
  199.   IniFile.WriteInteger(IDName, 'minvalue', MinValue);
  200.   IniFile.WriteInteger(IDName, 'maxvalue', MaxValue);
  201.   IniFile.WriteInteger(IDName, 'countframes', CountFrames);
  202.   if FramesPlacement = fpHorizontal
  203.   then S := 'fphorizontal'
  204.   else S := 'fpvertical';
  205.   IniFile.WriteString(IDName, 'framesplacement', S);
  206.   case Kind of
  207.     rkRound: S := 'rkround';
  208.     rkVertical: S := 'rkvertical';
  209.     rkHorizontal: S := 'rkhorizontal';
  210.   end;
  211.   IniFile.WriteString(IDName, 'kind', S);
  212. end;
  214. procedure TspDataSkinGauge.LoadFromFile;
  215. var
  216.   S: String;
  217. begin
  218.   inherited;
  219.   MinValue := IniFile.ReadInteger(IDName, 'minvalue', 0);
  220.   MaxValue := IniFile.ReadInteger(IDName, 'maxvalue', 0);
  221.   S := IniFile.ReadString(IDName, 'kind', 'gkhorizontal');
  222.   if S = 'gkhorizontal' then Kind := gkHorizontal else Kind := gkVertical;
  223. end;
  225. procedure TspDataSkinGauge.SaveToFile;
  226. var
  227.   S: String;
  228. begin
  229.   inherited;
  230.   IniFile.WriteInteger(IDName, 'minvalue', MinValue);
  231.   IniFile.WriteInteger(IDName, 'maxvalue', MaxValue);
  232.   if Kind = gkHorizontal then S := 'gkhorizontal' else S := 'gkvertical';
  233.   IniFile.WriteString(IDName, 'kind', S);
  234. end;
  236. procedure TspDataSkinTrackBar.LoadFromFile;
  237. begin
  238.   inherited;
  239.   ButtonRect := ReadRect(IniFile, IDName, 'buttonrect');
  240.   ActiveButtonRect := ReadRect(IniFile, IDName, 'activebuttonrect');
  241.   BeginPoint := ReadPoint(IniFile, IDName, 'beginpoint');
  242.   EndPoint := ReadPoint(IniFile, IDName, 'endpoint');
  243.   MinValue := IniFile.ReadInteger(IDName, 'minvalue', 0);
  244.   MaxValue := IniFile.ReadInteger(IDName, 'maxvalue', 0);
  245.   MouseDownChangeValue := ReadBoolean(IniFile, IDName, 'mousedownchangevalue');
  246.   Morphing := False;
  247. end;
  249. procedure TspDataSkinTrackBar.SaveToFile;
  250. begin
  251.   inherited;
  252.   WriteRect(IniFile, IDName, 'buttonrect', ButtonRect);
  253.   WriteRect(IniFile, IDName, 'activebuttonrect', ActiveButtonRect);
  254.   WritePoint(IniFile, IDName, 'beginpoint', BeginPoint);
  255.   WritePoint(IniFile, IDName, 'endpoint', EndPoint);
  256.   IniFile.WriteInteger(IDName, 'minvalue', MinValue);
  257.   IniFile.WriteInteger(IDName, 'maxvalue', MaxValue);
  258.   WriteBoolean(IniFile, IDName, 'mousedownchangevalue', MouseDownChangeValue);
  259. end;
  261. procedure TspDataSkinAnimate.LoadFromFile;
  262. var
  263.   S: String;
  264. begin
  265.   inherited;
  266.   Morphing := False;
  267.   CountFrames := IniFile.ReadInteger(IDName, 'countframes', 1);
  268.   Cycle := ReadBoolean(IniFile, IDName, 'cycle');
  269.   ButtonStyle := ReadBoolean(IniFile, IDName, 'buttonstyle');
  270.   TimerInterval := IniFile.ReadInteger(IDName, 'timerinterval', 50);
  271.   S := IniFile.ReadString(IDName, 'command', 'cmdefault');
  272.   if S = 'cmclose' then Command := cmClose else
  273.   if S = 'cmmaximize' then Command := cmMaximize else
  274.   if S = 'cmminimize' then Command := cmMinimize else
  275.   if S = 'cmsysmenu' then Command := cmSysMenu else
  276.   if S = 'cmdefault' then Command := cmDefault else
  277.   Command := cmRollUp;
  278. end;
  280. procedure TspDataSkinAnimate.SaveToFile;
  281. var
  282.   S: String;
  283. begin
  284.   inherited;
  285.   IniFile.WriteInteger(IDName, 'countframes', CountFrames);
  286.   WriteBoolean(IniFile, IDName, 'cycle', Cycle);
  287.   WriteBoolean(IniFile, IDName, 'buttonstyle', ButtonStyle);
  288.   IniFile.WriteInteger(IDName, 'timerinterval', TimerInterval);
  289.   if Command = cmClose then S := 'cmclose' else
  290.   if Command = cmMaximize then S := 'cmmaximize' else
  291.   if Command = cmMinimize then S := 'cmminimize' else
  292.   if Command = cmSysMenu then S := 'cmsysmenu' else
  293.   if Command = cmDefault then S := 'cmdefault' else
  294.   S := 'cmrollup';
  295.   IniFile.WriteString(IDName, 'command', S);
  296. end;
  299. constructor TspDataSkinPopupWindow.Create;
  300. begin
  301.   inherited;
  302.   WindowPictureIndex := -1;
  303.   MaskPictureIndex := -1;
  304.   LTPoint := Point(0, 0);
  305.   LBPoint := Point(0, 0);
  306.   RTPoint := Point(0, 0);
  307.   RBPoint := Point(0, 0);
  308.   CursorIndex := -1;
  309.   ScrollMarkerColor := 0;
  310.   ScrollMarkerActiveColor := 0;
  311. end;
  313. procedure TspDataSkinPopupWindow.LoadFromFile;
  314. begin
  315.   WindowPictureIndex := IniFile.ReadInteger(
  316.     'POPUPWINDOW', 'windowpictureindex', -1);
  317.   MaskPictureIndex := IniFile.ReadInteger(
  318.     'POPUPWINDOW', 'maskpictureindex', -1);
  319.   LTPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'lefttoppoint');
  320.   RTPoint := Readpoint(IniFile, 'POPUPWINDOW', 'righttoppoint');
  321.   LBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'leftbottompoint');
  322.   RBPoint := ReadPoint(IniFile, 'POPUPWINDOW', 'rightbottompoint');
  323.   CursorIndex := IniFile.ReadInteger('POPUPWINDOW', 'cursorindex', -1);
  324.   ItemsRect := ReadRect(IniFile, 'POPUPWINDOW', 'itemsrect');
  325.   ScrollMarkerColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkercolor', 0);
  326.   ScrollMarkerActiveColor := IniFile.ReadInteger('POPUPWINDOW', 'scrollmarkeractivecolor', 0);
  327. end;
  329. procedure TspDataSkinPopupWindow.SaveToFile;
  330. begin
  331.   IniFile.EraseSection('POPUPWINDOW');
  332.   IniFile.WriteInteger('POPUPWINDOW', 'windowpictureindex',
  333.     WindowPictureIndex);
  334.   IniFile.WriteInteger( 'POPUPWINDOW', 'maskpictureindex',
  335.     MaskPictureIndex);
  336.   WritePoint(IniFile, 'POPUPWINDOW', 'lefttoppoint', LTPoint);
  337.   WritePoint(IniFile, 'POPUPWINDOW', 'righttoppoint', RTPoint);
  338.   WritePoint(IniFile, 'POPUPWINDOW', 'leftbottompoint', LBPoint);
  339.   WritePoint(IniFile, 'POPUPWINDOW', 'rightbottompoint', RBPoint);
  340.   WriteRect(IniFile, 'POPUPWINDOW', 'itemsrect', ItemsRect);
  341.   IniFile.WriteInteger('POPUPWINDOW', 'cursorindex', CursorIndex);
  342.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkercolor', ScrollMarkerColor);
  343.   IniFile.WriteInteger('POPUPWINDOW', 'scrollmarkeractivecolor', ScrollMarkerActiveColor);
  344. end;
  346. constructor TspDataSkinHintWindow.Create;
  347. begin
  348.   inherited;
  349.   WindowPictureIndex := -1;
  350.   MaskPictureIndex := -1;
  351.   LTPoint := Point(0, 0);
  352.   LBPoint := Point(0, 0);
  353.   RTPoint := Point(0, 0);
  354.   RBPoint := Point(0, 0);
  355.   ClRect := NullRect;
  356.   FontName := 'Arial';
  357.   FontStyle := [];
  358.   FontHeight := 12;
  359.   FontColor := 0;
  360. end;
  362. procedure TspDataSkinHintWindow.LoadFromFile;
  363. begin
  364.   WindowPictureIndex := IniFile.ReadInteger(
  365.     'HINTWINDOW', 'windowpictureindex', -1);
  366.   MaskPictureIndex := IniFile.ReadInteger(
  367.     'HINTWINDOW', 'maskpictureindex', -1);
  368.   LTPoint := ReadPoint(IniFile, 'HINTWINDOW', 'lefttoppoint');
  369.   RTPoint := Readpoint(IniFile, 'HINTWINDOW', 'righttoppoint');
  370.   LBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'leftbottompoint');
  371.   RBPoint := ReadPoint(IniFile, 'HINTWINDOW', 'rightbottompoint');
  372.   ClRect := ReadRect(IniFile, 'HINTWINDOW', 'clientrect');
  373.   FontName := IniFile.ReadString('HINTWINDOW', 'fontname', 'Arial');
  374.   FontHeight := IniFile.ReadInteger('HINTWINDOW', 'fontheight', 14);
  375.   FontStyle := ReadFontStyles(IniFile, 'HINTWINDOW', 'fontstyle');
  376.   FontColor := IniFile.ReadInteger('HINTWINDOW', 'fontcolor', 0);
  377. end;
  379. procedure TspDataSkinHintWindow.SaveToFile;
  380. begin
  381.   IniFile.EraseSection('HINTWINDOW');
  382.   IniFile.WriteInteger('HINTWINDOW', 'windowpictureindex',
  383.     WindowPictureIndex);
  384.   IniFile.WriteInteger( 'HINTWINDOW', 'maskpictureindex',
  385.     MaskPictureIndex);
  386.   WritePoint(IniFile, 'HINTWINDOW', 'lefttoppoint', LTPoint);
  387.   WritePoint(IniFile, 'HINTWINDOW', 'righttoppoint', RTPoint);
  388.   WritePoint(IniFile, 'HINTWINDOW', 'leftbottompoint', LBPoint);
  389.   WritePoint(IniFile, 'HINTWINDOW', 'rightbottompoint', RBPoint);
  390.   WriteRect(IniFile, 'HINTWINDOW', 'clientrect', ClRect);
  391.   IniFile.WriteString('HINTWINDOW', 'fontname', FontName);
  392.   IniFile.WriteInteger('HINTWINDOW', 'fontheight', FontHeight);
  393.   WriteFontStyles(IniFile, 'HINTWINDOW', 'fontstyle', FontStyle);
  394.   IniFile.WriteInteger('HINTWINDOW', 'fontcolor', FontColor);
  395. end;
  397. procedure TspDataSkinMenuItem.LoadFromFile;
  398. begin
  399.   inherited;
  400.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  401.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  402.   DividerRect := ReadRect(IniFile, IDName, 'dividerrect');
  403.   DividerLO := IniFile.ReadInteger(IDName, 'dividerleftoffset', 0);
  404.   DividerRO := IniFile.ReadInteger(IDName, 'dividerrightoffset', 0);
  405.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  406.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  407.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  408.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  409.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  410.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  411.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontcolor', 0);
  412. end;
  414. procedure TspDataSkinMenuItem.SaveToFile;
  415. begin
  416.   inherited;
  417.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  418.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  419.   WriteRect(IniFile, IDName, 'dividerrect', DividerRect);
  420.   IniFile.WriteInteger(IDName, 'dividerleftoffset', DividerLO);
  421.   IniFile.WriteInteger(IDName, 'dividerrightoffset', DividerRO);
  422.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  423.   IniFile.WriteString(IDName, 'fontname', FontName);
  424.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  425.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  426.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  427.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  428.   IniFile.WriteInteger(IDName, 'unenabledfontcolor', UnEnabledFontColor);
  429. end;
  431. procedure TspDataSkinMainMenuItem.LoadFromFile;
  432. begin
  433.   inherited;
  434.   ItemLO := IniFile.ReadInteger(IDName, 'itemleftoffset', 0);
  435.   ItemRO := IniFile.ReadInteger(IDName, 'itemrightoffset', 0);
  436.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  437.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  438.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  439.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  440.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  441.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  442.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  443.   DownFontColor := IniFile.ReadInteger(IDName, 'downfontcolor', 0);
  444.   UnEnabledFontColor := IniFile.ReadInteger(IDName, 'unenabledfontColor', 0);
  445. end;
  447. procedure TspDataSkinMainMenuItem.SaveToFile;
  448. begin
  449.   inherited;
  450.   IniFile.WriteInteger(IDName, 'itemleftoffset', ItemLO);
  451.   IniFile.WriteInteger(IDName, 'itemrightoffset', ItemRO);
  452.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  453.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  454.   IniFile.WriteString(IDName, 'fontname', FontName);
  455.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  456.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  457.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  458.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  459.   IniFile.WriteInteger(IDName, 'downfontcolor', DownFontColor);
  460.   IniFile.WriteInteger(IDName, 'unenabledfontColor', UnEnabledFontColor);
  461. end;
  463. constructor TspDataSkinButton.Create(AIDName: String);
  464. begin
  465.   inherited;
  466.   GroupIndex := -1;
  467.   DownRect := NullRect;
  469. end;
  471. procedure TspDataSkinButton.SaveToFile;
  472. begin
  473.   inherited;
  474.   WriteRect(IniFile, IDName, 'downrect', DownRect);
  475.   WriteRect(IniFile, IDName, 'disableskinrsect', DisableSkinRect);
  476.   IniFile.WriteInteger(IDName, 'groupindex', GroupIndex);
  477. end;
  479. procedure TspDataSkinButton.LoadFromFile;
  480. begin
  481.   inherited;
  482.   DownRect := ReadRect(IniFile, IDName, 'downrect');
  483.   DisableSkinRect := ReadRect(IniFile, IDName, 'disableskinrsect');
  484.   GroupIndex := IniFile.ReadInteger(IDName, 'groupindex', -1);
  485. end;
  487. procedure TspDataSkinStdButton.LoadFromFile;
  488. var
  489.   S: String;
  490. begin
  491.   inherited;
  492.   S := IniFile.ReadString(IDName, 'command', 'cmdefault');
  493.   if S = 'cmclose' then Command := cmClose else
  494.   if S = 'cmmaximize' then Command := cmMaximize else
  495.   if S = 'cmminimize' then Command := cmMinimize else
  496.   if S = 'cmsysmenu' then Command := cmSysMenu else
  497.   if S = 'cmdefault' then Command := cmDefault else
  498.   Command := cmRollUp;
  499.   RestoreRect := ReadRect(IniFile, IDName, 'restorerect');
  500.   RestoreActiveRect := ReadRect(IniFile, IDName, 'restoreactiverect');
  501.   RestoreDownRect := ReadRect(IniFile, IDName, 'restoredownrect');
  502. end;
  504. procedure TspDataSkinStdButton.SaveToFile;
  505. var
  506.   S: String;
  507. begin
  508.   inherited;
  509.   if Command = cmClose then S := 'cmclose' else
  510.   if Command = cmMaximize then S := 'cmmaximize' else
  511.   if Command = cmMinimize then S := 'cmminimize' else
  512.   if Command = cmSysMenu then S := 'cmsysmenu' else
  513.   if Command = cmDefault then S := 'cmdefault' else
  514.   S := 'cmrollup';
  515.   IniFile.WriteString(IDName, 'command', S);
  516.   WriteRect(IniFile, IDName, 'restorerect', RestoreRect);
  517.   WriteRect(IniFile, IDName, 'restoreactiverect', RestoreActiveRect);
  518.   WriteRect(IniFile, IDName, 'restoredownrect', RestoreDownRect);
  519. end;
  521. constructor TspDataSkinBitLabel.Create;
  522. begin
  523.   inherited;
  524.   TextValue := '';
  525.   Symbols := TStringList.Create;
  526.   SymbolWidth := 0;
  527.   SymbolHeight := 0;
  528. end;
  530. destructor TspDataSkinBitLabel.Destroy;
  531. begin
  532.   Symbols.Clear;
  533.   Symbols.Free;
  534.   inherited;
  535. end;
  537. procedure TspDataSkinBitLabel.LoadFromFile;
  538. begin
  539.   inherited;
  540.   Morphing := False;
  541.   TextValue := IniFile.ReadString(IDName, 'textvalue', '');
  542.   SymbolWidth := IniFile.ReadInteger(IDName, 'symbolwidth', 0);
  543.   SymbolHeight := IniFile.ReadInteger(IDName, 'symbolheight', 0);
  544.   ReadStrings(IniFile, IDName, 'symbols', Symbols);
  545. end;
  547. procedure TspDataSkinBitLabel.SaveToFile;
  548. begin
  549.   inherited;
  550.   IniFile.WriteString(IDName, 'textvalue', TextValue);
  551.   IniFile.WriteInteger(IDName, 'symbolwidth', SymbolWidth);
  552.   IniFile.WriteInteger(IDName, 'symbolheight', SymbolHeight);
  553.   WriteStrings(IniFile, IDName, 'symbols', Symbols);
  554. end;
  556. procedure TspDataSkinLabel.LoadFromFile;
  557. begin
  558.   inherited;
  559.   FontName := IniFile.ReadString(IDName, 'fontName', 'Arial');
  560.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  561.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  562.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  563.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  564.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  565.   TextValue := IniFile.ReadString(IDName, 'textvalue', '');
  566. end;
  568. procedure TspDataSkinLabel.SaveToFile;
  569. begin
  570.   inherited;
  571.   IniFile.WriteString(IDName, 'fontname', FontName);
  572.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  573.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  574.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  575.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  576.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  577.   IniFile.WriteString(IDName, 'textvalue', TextValue);
  578. end;
  580. procedure TspDataSkinCaption.SaveToFile;
  581. begin
  582.   inherited;
  583.   WriteBoolean(IniFile, IDName, 'defaultcaption', DefaultCaption);
  584.   WriteRect(IniFile, IDName, 'textrect', TextRct);
  585.   IniFile.WriteString(IDName, 'fontname', FontName);
  586.   IniFile.WriteInteger(IDName, 'fontheight', FontHeight);
  587.   WriteFontStyles(IniFile, IDName, 'fontstyle', FontStyle);
  588.   IniFile.WriteInteger(IDName, 'fontcolor', FontColor);
  589.   IniFile.WriteInteger(IDName, 'activefontcolor', ActiveFontColor);
  590.   WriteAlignment(IniFile, IDName, 'alignment', Alignment);
  591.   WriteBoolean(IniFile, IDName, 'shadow', Shadow);
  592.   IniFile.WriteInteger(IDName, 'shadowcolor', ShadowColor);
  593.   IniFile.WriteInteger(IDName, 'activeshadowcolor', ActiveShadowColor);
  594.   WriteRect(IniFile, IDName, 'framerect', FrameRect);
  595.   WriteRect(IniFile, IDName, 'activeframerect', ActiveFrameRect);
  596.   WriteRect(IniFile, IDName, 'frametextrect', FrameTextRect);
  597.   IniFile.WriteInteger(IDName, 'frameleftoffset', FrameLeftOffset);
  598.   IniFile.WriteInteger(IDName, 'framerightoffset', FrameRightOffset);
  599. end;
  601. procedure TspDataSkinCaption.LoadFromFile;
  602. begin
  603.   inherited;
  604.   DefaultCaption := ReadBoolean(IniFile, IDName, 'defaultcaption');
  605.   TextRct := ReadRect(IniFile, IDName, 'textrect');
  606.   FontName := IniFile.ReadString(IDName, 'fontname', 'Arial');
  607.   FontHeight := IniFile.ReadInteger(IDName, 'fontheight', 14);
  608.   FontStyle := ReadFontStyles(IniFile, IDName, 'fontstyle');
  609.   FontColor := IniFile.ReadInteger(IDName, 'fontcolor', 0);
  610.   ActiveFontColor := IniFile.ReadInteger(IDName, 'activefontcolor', 0);
  611.   Alignment := ReadAlignment(IniFile, IDName, 'alignment');
  612.   Shadow := ReadBoolean(IniFile, IDName, 'shadow');
  613.   ShadowColor := IniFile.ReadInteger(IDName, 'shadowcolor', 0);
  614.   ActiveShadowColor := IniFile.ReadInteger(IDName, 'activeshadowcolor', 0);
  615.   FrameRect := ReadRect(IniFile, IDName, 'framerect');
  616.   ActiveFrameRect := ReadRect(IniFile, IDName, 'activeframerect');
  617.   FrameTextRect := ReadRect(IniFile, IDName, 'frametextrect');
  618.   FrameLeftOffset := IniFile.ReadInteger(IDName, 'frameleftoffset', 0);
  619.   FrameRightOffset := IniFile.ReadInteger(IDName, 'framerightoffset', 0);
  620. end;
  623. constructor TspStoredSkin.Create;
  624. begin
  625.   inherited Create(AOwner);
  626.   FPicture := TBitMap.Create;
  627.   FMask := TBitMap.Create;
  628.   FRollUpPicture := TBitMap.Create;
  629.   FRollUpMask := TBitMap.Create;
  630.   FActivePictures := TList.Create;
  631.   FIniStrings := TStringList.Create;
  632.   FFileName := '';
  633. end;
  635. destructor TspStoredSkin.Destroy;
  636. begin
  637.   FPicture.Free;
  638.   FMask.Free;
  639.   FRollUpPicture.Free;
  640.   FRollUpMask.Free;
  641.   FIniStrings.Free;
  642.   ClearBitMaps;
  643.   FActivePictures.Free;
  644.   inherited;
  645. end;
  647. procedure TspStoredSkin.SetFileName;
  648. var
  649.   OD: TOpenDialog;
  650. begin
  651.   if (csDesigning in ComponentState) and not
  652.      (csLoading in ComponentState)
  653.   then
  654.     begin
  655.       OD := TOpenDialog.Create(Self);
  656.       if OD.Execute
  657.       then
  658.         begin
  659.           FFileName := ExtractFileName(OD.FileName);
  660.           LoadFromFile(OD.FileName);
  661.         end;
  662.       OD.Free;
  663.     end
  664.   else
  665.     FFileName := Value;    
  666. end;
  668. procedure TspStoredSkin.SetIniStrings;
  669. begin
  670.   FIniStrings.Assign(Value);
  671. end;
  673. procedure TspStoredSkin.ClearBitMaps;
  674. var
  675.   i, Count: Integer;
  676. begin
  677.   Count := FActivePictures.Count;
  678.   if Count > 0
  679.   then
  680.     for i := 0 to Count - 1 do
  681.     begin
  682.       TBitMap(FActivePictures.Items[i]).Free;
  683.     end;
  684.   FActivePictures.Clear;
  685. end;
  687. procedure TspStoredSkin.DefineProperties(Filer: TFiler);
  688. begin
  689.   inherited;
  690.   Filer.DefineBinaryProperty('Pictures', ReadData, WriteData, True);
  691. end;
  693. procedure TspStoredSkin.ReadData;
  694. var
  695.   IsEmpty: Boolean;
  696.   i, Count: Integer;
  697. begin
  698.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  699.   if IsEmpty
  700.   then FPicture.Assign(nil)
  701.   else FPicture.LoadFromStream(Reader);
  703.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  704.   if IsEmpty
  705.   then FMask.Assign(nil)
  706.   else FMask.LoadFromStream(Reader);
  708.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  709.   if IsEmpty
  710.   then FRollUpPicture.Assign(nil)
  711.   else FRollUpPicture.LoadFromStream(Reader);
  713.   Reader.Read(IsEmpty, SizeOf(IsEmpty));
  714.   if IsEmpty
  715.   then FRollUpMask.Assign(nil)
  716.   else FRollUpMask.LoadFromStream(Reader);
  718.   ClearBitMaps;
  720.   Reader.Read(Count, SizeOf(Count));
  721.   if Count > 0
  722.   then
  723.     for i := 0 to Count - 1 do
  724.     begin
  725.       FActivePictures.Add(TBitMap.Create);
  726.       TBitMap(FActivePictures.Items[i]).LoadFromStream(Reader);
  727.     end;
  728. end;
  730. procedure TspStoredSkin.WriteData;
  731. var
  732.   IsEmpty: Boolean;
  733.   i, Count: Integer;
  734. begin
  735.   IsEmpty := FPicture.Empty;
  736.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  737.   if not IsEmpty then FPicture.SaveToStream(Writer);
  739.   IsEmpty := FMask.Empty;
  740.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  741.   if not IsEmpty then FMask.SaveToStream(Writer);
  743.   IsEmpty := FRollUpPicture.Empty;
  744.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  745.   if not IsEmpty then FRollUpPicture.SaveToStream(Writer);
  747.   IsEmpty := FRollUpMask.Empty;
  748.   Writer.Write(IsEmpty, SizeOf(IsEmpty));
  749.   if not IsEmpty then FRollUpMask.SaveToStream(Writer);
  751.   Count := FActivePictures.Count;
  752.   Writer.Write(Count, SizeOf(Count));
  754.   if Count > 0
  755.   then
  756.     for i := 0 to Count - 1 do
  757.     begin
  758.       TBitMap(FActivePictures.Items[i]).SaveToStream(Writer);
  759.     end;
  760. end;
  762. procedure TspStoredSkin.LoadFromFile;
  763. var
  764.   F: TMemIniFile;
  765.   PNames: TStrings;
  766.   PName, Path: String;
  767.   i: Integer;
  768. begin
  769.   FIniStrings.Clear;
  770.   FIniStrings.LoadFromFile(AFileName);
  771.   Path := ExtractFilePath(AFileName);
  772.   F := TMemIniFile.Create(FileName);
  773.   // load base pictures
  775.   PName := F.ReadString('PICTURES', 'picture', '');
  776.   if PName <> ''
  777.   then
  778.     begin
  779.       if IsJPegFile(PName)
  780.       then
  781.         LoadFromJpegFile(FPicture, Path + PName)
  782.       else
  783.         FPicture.LoadFromFile(Path + PName);
  784.     end
  785.   else FPicture.Assign(nil);
  787.   PName := F.ReadString('PICTURES', 'mask', '');
  788.   if PName <> ''
  789.   then
  790.     begin
  791.       if IsJPegFile(PName)
  792.       then
  793.         LoadFromJpegFile(FMask, Path + PName)
  794.       else
  795.         FMask.LoadFromFile(Path + PName);
  796.     end
  797.   else FMask.Assign(nil);
  799.   PName := F.ReadString('PICTURES', 'rolluppicture', '');
  800.   if PName <> ''
  801.   then
  802.     begin
  803.       if IsJPegFile(PName)
  804.       then
  805.         LoadFromJpegFile(FRollUpPicture, Path + PName)
  806.       else
  807.         FRollUpPicture.LoadFromFile(Path + PName);
  808.     end
  809.   else FRollUpPicture.Assign(nil);
  811.   PName := F.ReadString('PICTURES', 'rollupmask', '');
  812.   if PName <> ''
  813.   then
  814.     begin
  815.       if IsJPegFile(PName)
  816.       then
  817.         LoadFromJpegFile(FRollUpMask, Path + PName)
  818.       else
  819.         FRollUpMask.LoadFromFile(Path + PName);
  820.     end
  821.   else FRollUpMask.Assign(nil);
  823.   // load activepictures
  824.   PNames := TStringList.Create;
  825.   ReadStrings1(F, 'PICTURES', 'activepictures', PNames);
  826.   ClearBitMaps;
  827.   for i := 0 to PNames.Count - 1 do
  828.   begin
  829.     FActivePictures.Add(TBitMap.Create);
  830.     if IsJpegFile(PNames[i])
  831.     then
  832.       LoadFromJPegFile(TBitMap(FActivePictures.Items[i]), Path + PNames[i])
  833.     else
  834.       TBitMap(FActivePictures.Items[i]).LoadFromFile(Path + PNames[i]);
  835.   end;
  836.   PNames.Free;
  837.   //
  838.   F.Free;
  839. end;
  841. constructor TspSkinData.Create(AOwner: TComponent);
  842. begin
  843.   inherited Create(AOwner);
  844.   FStoredSkin := nil;
  845.   ObjectList := TList.Create;
  846.   CtrlList := TList.Create;
  847.   AreaList := TList.Create;
  848.   FActivePictures := TList.Create;
  849.   FPicture := TBitMap.Create;
  850.   FMask := TBitMap.Create;
  851.   FRollUpPicture := TBitMap.Create;
  852.   FRollUpMask := TBitMap.Create;
  853.   FPictureName := '';
  854.   FMaskName := '';
  855.   FRollUpPictureName := '';
  856.   FRollUpMaskName := '';
  857.   FActivePicturesNames := TStringList.Create;
  858.   FCursorsNames := TStringList.Create;
  859.   Names := TStringList.Create;
  860.   SkinName := '';
  861.   Empty := True;
  862.   PopupWindow := TspDataSkinPopupWindow.Create;
  863.   HintWindow := TspDataSkinHintWindow.Create;
  864.   MainMenuPopupUp := False;
  865.   BuildMode := False;
  866.   StartCursorIndex := 1;
  867.   CursorIndex := -1;
  868.   BGPictureIndex := -1;
  869. end;
  871. destructor TspSkinData.Destroy;
  872. begin
  873.   Empty := True;
  874.   ClearObjects;
  875.   ObjectList.Free;
  876.   CtrlList.Free;
  877.   AreaList.Free;
  878.   FActivePictures.Free;
  879.   FPicture.Free;
  880.   FMask.Free;
  881.   FRollUpPicture.Free;
  882.   FRollUpMask.Free;
  883.   FActivePicturesNames.Free;
  884.   FCursorsNames.Free;
  885.   Names.Free;
  886.   PopupWindow.Free;
  887.   HintWindow.Free;
  888.   inherited Destroy;
  889. end;
  891. procedure TspSkinData.Notification;
  892. begin
  893.   inherited Notification(AComponent, Operation);
  894.   if (Operation = opRemove) and (AComponent = FStoredSkin)
  895.   then FStoredSkin := nil;
  896.   if (Operation = opRemove) and (AComponent = FCompressedStoredSkin)
  897.   then FCompressedStoredSkin := nil;
  898. end;
  901. procedure TspSkinData.SetCompressedStoredSkin;
  902. begin
  903.   FCompressedStoredSkin := Value;
  904.   if not (csDesigning in ComponentState) and (FCompressedStoredSkin <> nil)
  905.   then
  906.     LoadCompressedStoredSkin(FCompressedStoredSkin);
  907. end;
  909. procedure TspSkinData.SetStoredSkin;
  910. begin
  911.   FStoredSkin := Value;
  912.   if not (csDesigning in ComponentState) and (FStoredSkin <> nil)
  913.   then
  914.     LoadStoredSkin(FStoredSkin);
  915. end;
  918. procedure TspSkinData.LoadNames;
  919. var
  920.   i: Integer;
  921. begin
  922.   Names.Clear;
  923.   for i := 0 to ObjectList.Count - 1 do
  924.     Names.Add(TspDataSkinObject(ObjectList.Items[i]).IDName);
  925.   for i := 0 to CtrlList.Count - 1 do
  926.     Names.Add(TspDataSkinControl(CtrlList.Items[i]).IDName);
  927. end;
  929. procedure TspSkinData.EraseSections;
  930. var
  931.   i: Integer;
  932. begin
  933.   if Names.Count = 0 then Exit;
  934.   for i := 0 to Names.Count - 1 do
  935.     F.EraseSection(Names[i]);
  936. end;
  938. procedure TspSkinData.SendSkinDataMessage;
  939. var
  940.   i: Integer;
  941.   F: TForm;
  942. begin
  943.   F := TForm(Owner);
  944.   SendMessage(F.Handle, M, Integer(Self), 1000);
  945.   with Screen do
  946.    for i := 0 to FormCount - 1 do
  947.      if Forms[i] <> F
  948.      then
  949.        SendMessage(Forms[i].Handle, M, Integer(Self), 1000);
  950. end;
  953. function TspSkinData.GetAreaIndex;
  954. var
  955.   i: Integer;
  956. begin
  957.   Result := -1;
  958.   for i := 0 to AreaList.Count - 1 do
  959.   begin
  960.     if AIDName = TspDataSkinArea(AreaList.Items[i]).IDName
  961.     then
  962.       begin
  963.         Result := i;
  964.         Break;
  965.       end;
  966.   end;
  967. end;  
  969. function TspSkinData.GetIndex;
  970. var
  971.   i: Integer;
  972. begin
  973.   Result := -1;
  974.   for i := 0 to ObjectList.Count - 1 do
  975.   begin
  976.     if AIDName = TspDataSkinObject(ObjectList.Items[i]).IDName
  977.     then
  978.       begin
  979.         Result := i;
  980.         Break;
  981.       end;
  982.   end;
  983. end;
  985. function TspSkinData.GetControlIndex;
  986. var
  987.   i: Integer;
  988. begin
  989.   Result := -1;
  990.   for i := 0 to CtrlList.Count - 1 do
  991.   begin
  992.     if AIDName = TspDataSkinControl(CtrlList.Items[i]).IDName
  993.     then
  994.       begin
  995.         Result := i;
  996.         Break;
  997.       end;
  998.   end;
  999. end;
  1001. procedure TspSkinData.ClearObjects;
  1002. var
  1003.   i: Integer;
  1004. begin
  1005.   for i := 0 to AreaList.Count - 1 do
  1006.     TspDataSkinArea(AreaList.Items[i]).Free;
  1007.   AreaList.Clear;
  1008.   for i := 0 to ObjectList.Count - 1 do
  1009.     TspDataSkinObject(ObjectList.Items[i]).Free;
  1010.   ObjectList.Clear;
  1011.   for i := 0 to CtrlList.Count - 1 do
  1012.     TspDataSkinControl(CtrlList.Items[i]).Free;
  1013.   CtrlList.Clear;
  1014.   for i := 0 to FActivePictures.Count - 1 do
  1015.     TBitMap(FActivePictures.Items[i]).Free;
  1016.   PopupWindow.WindowPictureIndex := -1;
  1017.   HintWindow.WindowPictureIndex := -1;
  1018.   FCursorsNames.Clear;
  1019.   FActivePictures.Clear;
  1020.   FActivePicturesNames.Clear;
  1021.   FCursorsNames.Clear;
  1022. end;
  1024. procedure TspSkinData.ClearAll;
  1025. begin
  1026.   ClearObjects;
  1027.   FPicture.Assign(nil);
  1028.   FMask.Assign(nil);
  1029.   FRollUpPicture.Assign(nil);
  1030.   FRollUpMask.Assign(nil);
  1031.   FPictureName := '';
  1032.   FMaskName := '';
  1033.   FRollUpPictureName := '';
  1034.   FRollUpMaskName := '';
  1035.   Empty := True;
  1036. end;
  1038. const
  1039.   symbols = ',: ';
  1041. procedure TspSkinData.GetObjectTypeName(S: String; var AName, AType: String);
  1042. var
  1043.   i, j: Integer;
  1044. begin
  1045.   AName := '';
  1046.   AType := '';
  1047.   j := 0;
  1048.   for i := 1 to Length(S) do
  1049.     if S[i] = ':'
  1050.     then
  1051.       begin
  1052.         j := i;
  1053.         Break;
  1054.       end;
  1055.   if j <> 0
  1056.   then
  1057.     begin
  1058.       AName := Copy(S, 1, j - 1);
  1059.       AType := Copy(S, j + 1, Length(S) - j);
  1060.     end;  
  1061. end;
  1063. procedure TspSkinData.GetAreaNameRect(S: String; var AName: String; var ARect: TRect);
  1064. var
  1065.   i, j: Integer;
  1066.   ARectStr: String;
  1067. begin
  1068.   AName := '';
  1069.   ARectStr := '';
  1070.   j := 0;
  1071.   for i := 1 to Length(S) do
  1072.     if S[i] = ':'
  1073.     then
  1074.       begin
  1075.         j := i;
  1076.         Break;
  1077.       end;
  1078.   if j <> 0
  1079.   then
  1080.     begin
  1081.       AName := Copy(S, 1, j - 1);
  1082.       ARectStr := Copy(S, j + 1, Length(S) - j);
  1083.       ARect := GetRect(ARectStr);
  1084.     end;
  1085. end;
  1087. procedure TspSkinData.AddSkinArea;
  1088. begin
  1089.   AreaList.Add(TspDataSkinArea.Create(AName, ARect));
  1090. end;
  1092. procedure TspSkinData.WriteAreas(F: TCustomIniFile);
  1093. var
  1094.   S: String;
  1095.   i: Integer;
  1096. begin
  1097.   F.EraseSection('SKINAREAS');
  1098.   F.WriteInteger('SKINAREAS', 'count', AreaList.Count);
  1099.   for i := 0 to AreaList.Count - 1 do
  1100.   with TspDataSkinArea(AreaList.Items[i]) do
  1101.   begin
  1102.     S := IDName + ':' + SetRect(AreaRect);
  1103.     F.WriteString('SKINAREAS', IntToStr(i), S);
  1104.   end;
  1105. end;
  1107. procedure TspSkinData.ReadAreas(F: TCustomIniFile);
  1108. var
  1109.   i, Count: Integer;
  1110.   S, FName: String;
  1111.   FRect: TRect;
  1112. begin
  1113.   Count := F.ReadInteger('SKINAREAS', 'count', 0);
  1114.   for i := 0 to Count - 1 do
  1115.   begin
  1116.     S := F.ReadString('SKINAREAS', IntToStr(i), '');
  1117.     GetAreaNameRect(S, FName, FRect);
  1118.     AddSkinArea(FName, FRect);
  1119.   end;
  1120. end;
  1122. procedure TspSkinData.WriteObjects;
  1123. var
  1124.   i: Integer;
  1125.   S: String;
  1126. begin
  1127.   F.EraseSection('SKINOBJECTS');
  1128.   F.WriteInteger('SKINOBJECTS', 'count', ObjectList.Count);
  1129.   for i := 0 to ObjectList.Count - 1 do
  1130.   begin
  1131.     S := TspDataSkinObject(ObjectList.Items[i]).IDName + ':';
  1132.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinMenuItem
  1133.     then S := S + 'menuitem' else
  1134.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinMainMenuBarItem
  1135.     then S := S + 'mainmenubaritem' else
  1136.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinMainMenuItem
  1137.     then S := S + 'mainmenuitem' else
  1138.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinMainMenuBarButton
  1139.     then S := S + 'mainmenubarbutton' else
  1140.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinStdButton
  1141.     then S := S + 'stdbutton' else
  1142.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinButton
  1143.     then S := S + 'button' else
  1144.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinCaption
  1145.     then S := S + 'caption' else
  1146.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinTrackBar
  1147.     then S := S + 'trackbar' else
  1148.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinGauge
  1149.     then S := S + 'gauge' else
  1150.      if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinFrameGaugeObject
  1151.     then S := S + 'framegauge' else
  1152.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinFrameRegulatorObject
  1153.     then S := S + 'frameregulator' else
  1154.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinLabel
  1155.     then S := S + 'label' else
  1156.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinBitLabel
  1157.     then S := S + 'bitlabel' else
  1158.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinSwitch
  1159.     then S := S + 'switch' else
  1160.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataSkinAnimate
  1161.     then S := S + 'animate' else
  1162.     if TspDataSkinObject(ObjectList.Items[i]) is TspDataUserObject
  1163.     then S := S + 'userobject';
  1164.     F.WriteString('SKINOBJECTS', IntToStr(i), S);
  1165.     TspDataSkinObject(ObjectList.Items[i]).SaveToFile(F);
  1166.   end;
  1167. end;
  1169. procedure TspSkinData.WriteCtrls(F: TCustomIniFile);
  1170. var
  1171.   i: Integer;
  1172.   S: String;
  1173. begin
  1174.   F.EraseSection('SKINCONTROLS');
  1175.   F.WriteInteger('SKINCONTROLS', 'count', CtrlList.Count);
  1176.   for i := 0 to CtrlList.Count - 1 do
  1177.   begin
  1178.     S := TspDataSkinControl(CtrlList.Items[i]).IDName + ':';
  1179.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinSlider
  1180.     then S := S + 'slider'
  1181.     else
  1182.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinBevel
  1183.     then S := S + 'bevel'
  1184.     else
  1185.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinPanelControl
  1186.     then S := S + 'panel'
  1187.     else
  1188.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinExPanelControl
  1189.     then S := S + 'expanel'
  1190.     else
  1191.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinMenuButtonControl
  1192.     then S := S + 'menubutton'
  1193.     else
  1194.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinButtonControl
  1195.     then S := S + 'button'
  1196.     else
  1197.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinCheckRadioControl
  1198.     then S := S + 'checkradio'
  1199.     else
  1200.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinGaugeControl
  1201.     then S := S + 'gauge'
  1202.     else
  1203.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinSplitterControl
  1204.     then S := S + 'splitter'
  1205.     else
  1206.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinTrackBarControl
  1207.     then S := S + 'trackbar'
  1208.     else
  1209.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinLabelControl
  1210.     then S := S + 'label'
  1211.     else
  1212.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinStdLabelControl
  1213.     then S := S + 'stdlabel'
  1214.     else
  1215.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinBitLabelControl
  1216.     then S := S + 'bitlabel'
  1217.     else
  1218.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinFrameRegulator
  1219.     then S := S + 'frameregulator'
  1220.     else
  1221.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinFrameGauge
  1222.     then S := S + 'framegauge'
  1223.     else
  1224.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinAnimateControl
  1225.     then S := S + 'animate'
  1226.     else
  1227.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinUpDownControl
  1228.     then S := S + 'updown'
  1229.     else
  1230.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinSwitchControl
  1231.     then S := S + 'switch'
  1232.     else
  1233.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinGridControl
  1234.     then S := S + 'grid'
  1235.     else
  1236.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinTabControl
  1237.     then S := S + 'tab'
  1238.     else
  1239.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinMainMenuBar
  1240.     then S := S + 'mainmenubar'
  1241.     else
  1242.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinControlBar
  1243.     then S := S + 'controlbar'
  1244.     else
  1245.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinMemoControl
  1246.     then S := S + 'memo'
  1247.     else
  1248.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinEditControl
  1249.     then S := S + 'edit'
  1250.     else
  1251.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinCheckListBox
  1252.     then S := S + 'checklistbox'
  1253.     else
  1254.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinListBox
  1255.     then S := S + 'listbox'
  1256.     else
  1257.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinComboBox
  1258.     then S := S + 'combobox'
  1259.     else
  1260.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinScrollBarControl
  1261.     then S := S + 'scrollbar'
  1262.     else
  1263.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinSpinEditControl
  1264.     then S := S + 'spinedit'
  1265.     else
  1266.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinScrollBoxControl
  1267.     then S := S + 'scrollbox'
  1268.     else
  1269.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinTreeView
  1270.     then S := S + 'treeview'
  1271.     else
  1272.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinListView
  1273.     then S := S + 'listview'
  1274.     else
  1275.     if TspDataSkinControl(CtrlList.Items[i]) is TspDataSkinRichEdit
  1276.     then S := S + 'richedit';
  1277.     F.WriteString('SKINCONTROLS', IntToStr(i), S);
  1278.     TspDataSkinControl(CtrlList.Items[i]).SaveToFile(F);
  1279.   end;
  1280. end;
  1282. procedure TspSkinData.ReadCtrls(F: TCustomIniFile);
  1283. var
  1284.   i, Count: Integer;
  1285.   S, FName, FType: String;
  1286. begin
  1287.   Count := F.ReadInteger('SKINCONTROLS', 'count', 0);
  1288.   for i := 0 to Count - 1 do
  1289.   begin
  1290.     S := F.ReadString('SKINCONTROLS', IntToStr(i), '');
  1291.     GetObjectTypeName(S, FName, FType);
  1292.     if FType = 'slider'
  1293.     then CtrlList.Add(TspDataSkinSlider.Create(FName))
  1294.     else
  1295.     if FType = 'bevel'
  1296.     then CtrlList.Add(TspDataSkinBevel.Create(FName))
  1297.     else
  1298.     if FType = 'panel'
  1299.     then CtrlList.Add(TspDataSkinPanelControl.Create(FName))
  1300.     else
  1301.     if FType = 'expanel'
  1302.     then CtrlList.Add(TspDataSkinExPanelControl.Create(FName))
  1303.     else
  1304.     if FType = 'menubutton'
  1305.     then CtrlList.Add(TspDataSkinMenuButtonControl.Create(FName))
  1306.     else
  1307.     if FType = 'button'
  1308.     then CtrlList.Add(TspDataSkinButtonControl.Create(FName))
  1309.     else
  1310.     if FType = 'checkradio'
  1311.     then CtrlList.Add(TspDataSkinCheckRadioControl.Create(FName))
  1312.     else
  1313.     if FType = 'gauge'
  1314.     then CtrlList.Add(TspDataSkinGaugeControl.Create(FName))
  1315.     else
  1316.     if FType = 'splitter'
  1317.     then CtrlList.Add(TspDataSkinSplitterControl.Create(FName))
  1318.     else
  1319.     if FType = 'trackbar'
  1320.     then CtrlList.Add(TspDataSkinTrackBarControl.Create(FName))
  1321.     else
  1322.     if FType = 'label'
  1323.     then CtrlList.Add(TspDataSkinLabelControl.Create(FName))
  1324.     else
  1325.     if FType = 'stdlabel'
  1326.     then CtrlList.Add(TspDataSkinStdLabelControl.Create(FName))
  1327.     else
  1328.     if FType = 'bitlabel'
  1329.     then CtrlList.Add(TspDataSkinBitLabelControl.Create(FName))
  1330.     else
  1331.     if FType = 'frameregulator'
  1332.     then CtrlList.Add(TspDataSkinFrameRegulator.Create(FName))
  1333.     else
  1334.     if FType = 'framegauge'
  1335.     then CtrlList.Add(TspDataSkinFrameGauge.Create(FName))
  1336.     else
  1337.     if FType = 'animate'
  1338.     then CtrlList.Add(TspDataSkinAnimateControl.Create(FName))
  1339.     else
  1340.     if FType = 'updown'
  1341.     then CtrlList.Add(TspDataSkinUpDownControl.Create(FName))
  1342.     else
  1343.     if FType = 'switch'
  1344.     then CtrlList.Add(TspDataSkinSwitchControl.Create(FName))
  1345.     else
  1346.     if FType = 'grid'
  1347.     then CtrlList.Add(TspDataSkinGridControl.Create(FName))
  1348.     else
  1349.     if FType = 'tab'
  1350.     then CtrlList.Add(TspDataSkinTabControl.Create(FName))
  1351.     else
  1352.     if FType = 'mainmenubar'
  1353.     then CtrlList.Add(TspDataSkinMainMenuBar.Create(FName))
  1354.     else
  1355.     if FType = 'controlbar'
  1356.     then CtrlList.Add(TspDataSkinControlBar.Create(FName))
  1357.     else
  1358.     if FType = 'memo'
  1359.     then CtrlList.Add(TspDataSkinMemoControl.Create(FName))
  1360.     else
  1361.     if FType = 'edit'
  1362.     then CtrlList.Add(TspDataSkinEditControl.Create(FName))
  1363.     else
  1364.     if FType = 'checklistbox'
  1365.     then CtrlList.Add(TspDataSkinCheckListBox.Create(FName))
  1366.     else
  1367.     if FType = 'listbox'
  1368.     then CtrlList.Add(TspDataSkinListBox.Create(FName))
  1369.     else
  1370.     if FType = 'combobox'
  1371.     then CtrlList.Add(TspDataSkinComboBox.Create(FName))
  1372.     else
  1373.     if FType = 'scrollbar'
  1374.     then CtrlList.Add(TspDataSkinScrollBarControl.Create(FName))
  1375.     else
  1376.     if FType = 'spinedit'
  1377.     then CtrlList.Add(TspDataSkinSpinEditControl.Create(FName))
  1378.     else
  1379.     if FType = 'scrollbox'
  1380.     then CtrlList.Add(TspDataSkinScrollBoxControl.Create(FName))
  1381.     else
  1382.     if FType = 'treeview'
  1383.     then CtrlList.Add(TspDataSkinTreeView.Create(FName))
  1384.     else
  1385.     if FType = 'listview'
  1386.     then CtrlList.Add(TspDataSkinListView.Create(FName))
  1387.     else
  1388.     if FType = 'richedit'
  1389.     then CtrlList.Add(TspDataSkinRichEdit.Create(FName));
  1390.     TspDataSkinControl(CtrlList[CtrlList.Count - 1]).LoadFromFile(F);
  1391.   end;
  1392. end;
  1394. procedure TspSkinData.WriteActivePictures;
  1395. begin
  1396.   WriteStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  1397. end;
  1399. procedure TspSkinData.WriteCursors;
  1400. begin
  1401.   F.WriteInteger('CURSORS', 'startcursorindex', StartCursorIndex);
  1402.   WriteStrings1(F, 'CURSORS', 'cursors', FCursorsNames);
  1403. end;
  1405. procedure TspSkinData.ReadActivePictures;
  1406. var
  1407.   i: Integer;
  1408. begin
  1409.   ReadStrings1(F, 'PICTURES', 'activepictures', FActivePicturesNames);
  1410.   for i := 0 to FActivePicturesNames.Count - 1 do
  1411.   begin
  1412.     FActivePictures.Add(TBitMap.Create);
  1413.     if IsJpegFile(FActivePicturesNames[i])
  1414.     then
  1415.       LoadFromJPegFile(TBitMap(FActivePictures.Items[i]), Path + FActivePicturesNames[i])
  1416.     else
  1417.       TBitMap(FActivePictures.Items[i]).LoadFromFile(Path + FActivePicturesNames[i]);
  1418.   end;
  1419. end;
  1421. procedure TspSkinData.ReadCursors;
  1422. var
  1423.   i: Integer;
  1424.   CN: PChar;
  1425. begin
  1426.   StartCursorIndex := F.ReadInteger('CURSORS', 'startcursorindex', 1);
  1427.   if StartCursorIndex < 1 then StartCursorIndex := 1;
  1428.   ReadStrings1(F, 'CURSORS', 'cursors', FCursorsNames);
  1429.   if not BuildMode and (FCursorsNames.Count <> 0)
  1430.   then
  1431.     begin
  1432.       for i := StartCursorIndex to StartCursorIndex + FCursorsNames.Count - 1 do
  1433.       begin
  1434.         CN := PChar(Path + FCursorsNames[i - StartCursorIndex]);
  1435.         Screen.Cursors[i] := LoadCursorFromFile(CN);
  1436.       end;
  1437.     end;
  1438. end;
  1440. procedure TspSkinData.ReadObjects;
  1441. var
  1442.   i, Count: Integer;
  1443.   S, FName, FType: String;
  1444. begin
  1445.   Count := F.ReadInteger('SKINOBJECTS', 'count', 0);
  1446.   for i := 0 to Count - 1 do
  1447.   begin
  1448.     S := F.ReadString('SKINOBJECTS', IntToStr(i), '');
  1449.     GetObjectTypeName(S, FName, FType);
  1450.     if FType = 'menuitem'
  1451.     then ObjectList.Add(TspDataSkinMenuItem.Create(FName)) else
  1452.     if FType = 'mainmenubaritem'
  1453.     then ObjectList.Add(TspDataSkinMainMenuBarItem.Create(FName)) else
  1454.     if FType = 'mainmenuitem'
  1455.     then ObjectList.Add(TspDataSkinMainMenuItem.Create(FName)) else
  1456.     if FType = 'stdbutton'
  1457.     then ObjectList.Add(TspDataSkinStdButton.Create(FName)) else
  1458.     if FType = 'mainmenubarbutton'
  1459.     then ObjectList.Add(TspDataSkinMainMenuBarButton.Create(FName)) else
  1460.     if FType = 'button'
  1461.     then ObjectList.Add(TspDataSkinButton.Create(FName)) else
  1462.     if FType = 'caption'
  1463.     then ObjectList.Add(TspDataSkinCaption.Create(FName)) else
  1464.     if FType = 'trackbar'
  1465.     then ObjectList.Add(TspDataSkinTrackBar.Create(FName)) else
  1466.     if FType = 'gauge'
  1467.     then ObjectList.Add(TspDataSkinGauge.Create(FName)) else
  1468.     if FType = 'framegauge'
  1469.     then ObjectList.Add(TspDataSkinFrameGaugeObject.Create(FName))
  1470.     else
  1471.     if FType = 'frameregulator'
  1472.     then ObjectList.Add(TspDataSkinFrameRegulatorObject.Create(FName)) else
  1473.     if FType = 'label'
  1474.     then ObjectList.Add(TspDataSkinLabel.Create(FName)) else
  1475.     if FType = 'bitlabel'
  1476.     then ObjectList.Add(TspDataSkinBitLabel.Create(FName)) else
  1477.     if FType = 'switch'
  1478.     then ObjectList.Add(TspDataSkinSwitch.Create(FName)) else
  1479.     if FType = 'animate'
  1480.     then ObjectList.Add(TspDataSkinAnimate.Create(FName)) else
  1481.     if FType = 'userobject'
  1482.     then ObjectList.Add(TspDataUserObject.Create(FName));
  1483.     TspDataSkinObject(ObjectList[ObjectList.Count - 1]).LoadFromFile(F);
  1484.   end;
  1485. end;
  1488. procedure TspSkinData.AddBitMap(FileName: String);
  1489. begin
  1490.   FActivePicturesNames.Add(ExtractFileName(FileName));
  1491.   FActivePictures.Add(TBitMap.Create);
  1492.   if IsJPegFile(ExtractFileName(FileName))
  1493.   then
  1494.     LoadFromJpegFile(TBitMap(FActivePictures.Items[FActivePictures.Count - 1]),
  1495.                      FileName)
  1496.   else
  1497.     TBitMap(FActivePictures.Items[FActivePictures.Count - 1]).LoadFromFile(FileName);
  1498. end;
  1500. procedure TspSkinData.DeleteBitMap(Index: Integer);
  1501. begin
  1502.   FActivePicturesNames.Delete(Index);
  1503.   TBitMap(FActivePictures.Items[Index]).Free;
  1504.   FActivePictures.Delete(Index);
  1505. end;
  1507. procedure TspSkinData.WriteFormInfo;
  1508. begin
  1509.   WritePoint(F, 'FORMINFO', 'lefttoppoint', LTPoint);
  1510.   Writepoint(F, 'FORMINFO', 'righttoppoint', RTPoint);
  1511.   WritePoint(F, 'FORMINFO', 'leftbottompoint', LBPoint);
  1512.   WritePoint(F, 'FORMINFO', 'rightbottompoint', RBPoint);
  1513.   WriteRect(F, 'FORMINFO', 'clientrect', ClRect);
  1514.   F.WriteInteger('FORMINFO', 'bgpictureindex', BGPictureIndex);
  1515.   WriteRect(F, 'FORMINFO', 'maskrectarea', MaskRectArea);
  1516.   //
  1517.   WriteRect(F, 'FORMINFO', 'buttonsrect', ButtonsRect);
  1518.   WriteRect(F, 'FORMINFO', 'captionrect', CaptionRect);
  1519.   F.WriteInteger('FORMINFO', 'buttonsoffset', ButtonsOffset);
  1520.   WriteBoolean(F, 'FORMINFO', 'buttonsinleft', CapButtonsInLeft);
  1521.   //
  1522.   WritePoint(F, 'FORMINFO', 'hittestlefttoppoint', HitTestLTPoint);
  1523.   WritePoint(F, 'FORMINFO', 'hittestrighttoppoint', HitTestRTPoint);
  1524.   WritePoint(F, 'FORMINFO', 'hittestleftbottompoint', HitTestLBPoint);
  1525.   WritePoint(F, 'FORMINFO', 'hittestrightbottompoint', HitTestRBPoint);
  1526.   //
  1527.   WritePoint(F, 'FORMINFO', 'rollupleftpoint', RollUpLeftPoint);
  1528.   WritePoint(F, 'FORMINFO', 'rolluprightpoint', RollUpRightPoint);
  1529.   //
  1530.   WriteRect(F, 'FORMINFO', 'mainmenurect', MainMenuRect);
  1531.   WriteRect(F, 'FORMINFO', 'iconrect', IconRect);
  1532.   WriteBoolean(F, 'FORMINFO', 'mainmenupopupup', MainMenuPopupUp);
  1533.   F.WriteInteger('FORMINFO', 'borderwidth', BorderW);
  1534.   F.WriteInteger('FORMINFO', 'cursorindex', CursorIndex);
  1535.   WriteBoolean(F, 'FORMINFO', 'autorenderinginactiveimage', AutoRenderingInActiveImage);
  1536.   WriteInActiveEffect(F, 'FORMINFO', 'inactiveeffect', InActiveEffect);
  1537. end;
  1539. procedure TspSkinData.ReadFormInfo;
  1540. begin
  1541.   LTPoint := ReadPoint(F, 'FORMINFO', 'lefttoppoint');
  1542.   RTPoint := Readpoint(F, 'FORMINFO', 'righttoppoint');
  1543.   LBPoint := ReadPoint(F, 'FORMINFO', 'leftbottompoint');
  1544.   RBPoint := ReadPoint(F, 'FORMINFO', 'rightbottompoint');
  1545.   ClRect := ReadRect(F, 'FORMINFO', 'clientrect');
  1546.   BGPictureIndex := F.ReadInteger('FORMINFO', 'bgpictureindex', -1);
  1547.   //
  1548.   ButtonsRect := ReadRect(F, 'FORMINFO', 'buttonsrect');
  1549.   CaptionRect := ReadRect(F, 'FORMINFO', 'captionrect');
  1550.   ButtonsOffset := F.ReadInteger('FORMINFO', 'buttonsoffset', 0);
  1551.   CapButtonsInLeft := ReadBoolean(F, 'FORMINFO', 'buttonsinleft');
  1552.   //
  1553.   MaskRectArea := ReadRect(F, 'FORMINFO', 'maskrectarea');
  1554.   HitTestLTPoint := ReadPoint(F, 'FORMINFO', 'hittestlefttoppoint');
  1555.   HitTestRTPoint := ReadPoint(F, 'FORMINFO', 'hittestrighttoppoint');
  1556.   HitTestLBPoint := ReadPoint(F, 'FORMINFO', 'hittestleftbottompoint');
  1557.   HitTestRBPoint := ReadPoint(F, 'FORMINFO', 'hittestrightbottompoint');
  1558.   //
  1559.   RollUpLeftPoint := ReadPoint(F, 'FORMINFO', 'rollupleftpoint');
  1560.   RollUpRightPoint := ReadPoint(F, 'FORMINFO', 'rolluprightpoint');
  1561.   //
  1562.   if FMaskName <> ''
  1563.   then
  1564.     begin
  1565.       if isNullRect(MaskRectArea)
  1566.       then
  1567.         MaskRectArea := ClRect
  1568.       else
  1569.         begin
  1570.           if MaskRectArea.Left > ClRect.Left
  1571.           then MaskRectArea.Left := ClRect.Left;
  1572.           if MaskRectArea.Top > ClRect.Top
  1573.           then MaskRectArea.Top := ClRect.Top;
  1574.           if MaskRectArea.Right < ClRect.Right
  1575.           then MaskRectArea.Right := ClRect.Right;
  1576.           if MaskRectArea.Bottom < ClRect.Bottom
  1577.           then MaskRectArea.Bottom := ClRect.Bottom;
  1578.         end;
  1579.       if isNullPoint(HitTestLTPoint) then  HitTestLTPoint := LTPoint;
  1580.       if isNullPoint(HitTestRTPoint) then  HitTestRTPoint := RTPoint;
  1581.       if isNullPoint(HitTestLBPoint) then  HitTestLBPoint := LBPoint;
  1582.       if isNullPoint(HitTestRBPoint) then  HitTestRBPoint := RBPoint;
  1583.     end;
  1584.   //
  1585.   MainMenuRect := ReadRect(F, 'FORMINFO', 'mainmenurect');
  1586.   IconRect := ReadRect(F, 'FORMINFO', 'iconrect');
  1587.   MainMenuPopupUp := ReadBoolean(F, 'FORMINFO', 'mainmenupopupup');
  1588.   BorderW := F.ReadInteger('FORMINFO', 'borderwidth', 0);
  1589.   CursorIndex := F.ReadInteger('FORMINFO', 'cursorindex', -1);
  1590.   AutoRenderingInActiveImage := ReadBoolean(F, 'FORMINFO', 'autorenderinginactiveimage');
  1591.   InActiveEffect := ReadInActiveEffect(F, 'FORMINFO', 'inactiveeffect');
  1592.   //
  1593.   if (RBPoint.X - LTPoint.X  <> 0) and
  1594.      (RBPoint.Y - LTPoint.Y <> 0)
  1595.   then
  1596.     begin
  1597.       if LTPoint.X < CLRect.Left then LTPoint.X := CLRect.Left;
  1598.       if LTPoint.Y < CLRect.Top then LTPoint.Y := CLRect.Top;
  1599.       if RTPoint.X > CLRect.Right then RTPoint.X := CLRect.Right;
  1600.       if RTPoint.Y < CLRect.Top then RTPoint.Y := CLRect.Top;
  1601.       if LBPoint.X < CLRect.Left then LBPoint.X := CLRect.Left;
  1602.       if LBPoint.Y > CLRect.Bottom then LBPoint.Y := CLRect.Bottom;
  1603.       if RBPoint.X > CLRect.Right then RBPoint.X := CLRect.Right;
  1604.       if RBPoint.Y > CLRect.Bottom then RBPoint.Y := CLRect.Bottom;
  1605.     end;
  1606. end;
  1608. const
  1609.   SkinDataFileFormat = 2;
  1611. procedure TspSkinData.SaveToFile;
  1612. var
  1613.   F: TIniFile;
  1614.   Version: Integer;
  1615. begin
  1616.   //
  1617.   F := TIniFile.Create(FileName);
  1618.   if BuildMode
  1619.   then
  1620.     begin
  1621.       EraseSections(F);
  1622.       LoadNames;
  1623.     end;  
  1624.   //
  1625.   F.EraseSection('VERSION');
  1626.   Version := SkinDataFileFormat;
  1627.   F.WriteInteger('VERSION', 'ver', Version);
  1628.   F.WriteString('VERSION', 'skinname', SkinName);
  1629.   F.WriteString('VERSION', 'skinauthor', SkinAuthor);
  1630.   F.WriteString('VERSION', 'authoremail', AuthorEmail);
  1631.   F.WriteString('VERSION', 'authorurl', AuthorURL);
  1632.   F.WriteString('VERSION', 'skincomments', SkinComments);
  1633.   //
  1634.   F.EraseSection('PICTURES');
  1635.   F.WriteString('PICTURES', 'picture', FPictureName);
  1636.   F.WriteString('PICTURES', 'mask', FMaskName);
  1637.   F.WriteString('PICTURES', 'rolluppicture', FRollUpPictureName);
  1638.   F.WriteString('PICTURES', 'rollupmask', FRollUpMaskName);
  1639.   WriteActivePictures(F);
  1640.   //
  1641.   F.EraseSection('CURSORS');
  1642.   WriteCursors(F);
  1643.   //
  1644.   F.EraseSection('FORMINFO');
  1645.   WriteFormInfo(F);
  1646.   //
  1647.   F.EraseSection('POPUPWINDOW');
  1648.   PopupWindow.SaveToFile(F);
  1649.   //
  1650.   F.EraseSection('HINTWINDOW');
  1651.   HintWindow.SaveToFile(F);
  1652.   //
  1653.   WriteAreas(F);
  1654.   //
  1655.   WriteObjects(F);
  1656.   //
  1657.   WriteCtrls(F);
  1658.   //
  1659.   F.Free;
  1660. end;
  1662. procedure TspSkinData.LoadFromFile;
  1663. var
  1664.   F: TIniFile;
  1665.   FilePath: String;
  1666. begin
  1667.   Empty := True;
  1669.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  1671.   ClearAll;
  1672.   F := TIniFile.Create(FileName);
  1674.   if not CheckSkinFile(F)
  1675.   then
  1676.     begin
  1677.       SendSkinDataMessage(WM_CHANGESKINDATA);
  1678.       SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1679.       F.Free;
  1680.       Exit;
  1681.     end;
  1684.   FilePath := ExtractFilePath(FileName);
  1685.   //
  1686.   SkinName := F.ReadString('VERSION', 'skinname', '');
  1687.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  1688.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  1689.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  1690.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  1691.   //
  1692.   FPictureName := F.ReadString('PICTURES', 'picture', '');
  1693.   FMaskName := F.ReadString('PICTURES', 'mask', '');
  1694.   FRollUpPictureName := F.ReadString('PICTURES', 'rolluppicture', '');
  1695.   FRollUpMaskName := F.ReadString('PICTURES', 'rollupmask', '');
  1697.   if FPictureName <> ''
  1698.   then
  1699.     begin
  1700.       if IsJpegFile(FPictureName)
  1701.       then
  1702.         LoadFromJPegFile(FPicture, FilePath + FPictureName)
  1703.       else
  1704.         FPicture.LoadFromFile(FilePath + FPictureName);
  1705.     end
  1706.   else
  1707.     FPicture.Assign(nil);
  1709.   if FMaskName <> ''
  1710.   then
  1711.     begin
  1712.       if IsJpegFile(FMaskName)
  1713.       then
  1714.         LoadFromJpegFile(FMask, FilePath + FMaskName)
  1715.       else
  1716.         FMask.LoadFromFile(FilePath + FMaskName);
  1717.     end
  1718.   else
  1719.     FMask.Assign(nil);
  1721.   if FRollUpPictureName <> ''
  1722.   then
  1723.     begin
  1724.       if IsJpegFile(FRollUpPictureName)
  1725.       then
  1726.         LoadFromJPegFile(FRollUpPicture, FilePath + FRollUpPictureName)
  1727.       else
  1728.         FRollUpPicture.LoadFromFile(FilePath + FRollUpPictureName);
  1729.     end
  1730.   else
  1731.     FRollUpPicture.Assign(nil);
  1733.   if FRollUpMaskName <> ''
  1734.   then
  1735.     begin
  1736.       if IsJpegFile(FRollUpMaskName)
  1737.       then
  1738.         LoadFromJPegFile(FRollUpMask, FilePath + FRollUpMaskName)
  1739.       else
  1740.         FRollUpMask.LoadFromFile(FilePath + FRollUpMaskName);
  1741.     end
  1742.   else
  1743.     FRollUpMask.Assign(nil);
  1746.   ReadActivePictures(F, FilePath);
  1747.   ReadCursors(F, FilePath);
  1748.   //
  1749.   ReadFormInfo(F);
  1750.   //
  1751.   PopupWindow.LoadFromFile(F);
  1752.   //
  1753.   HintWindow.LoadFromFile(F);
  1754.   //
  1755.   ReadAreas(F);
  1756.   //
  1757.   ReadObjects(F);
  1758.   //
  1759.   ReadCtrls(F);
  1760.   //
  1761.   if BuildMode then LoadNames;
  1763.   F.UpdateFile;
  1765.   F.Free;
  1767.   Empty := False;
  1769.   SendSkinDataMessage(WM_CHANGESKINDATA);
  1770.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1771. end;
  1773. procedure TspSkinData.LoadCompressedStoredSkin(AStoredSkin: TspCompressedStoredSkin);
  1774. var
  1775.   TmpStream: TMemoryStream;
  1776.   CV: Integer;
  1777.   FIniStrings: TStrings;
  1778.   F: TMemIniFile;
  1779.   IsEmpty: Boolean;
  1780.   i, Count: Integer;
  1781. begin
  1782.   if AStoredSkin.Empty then Exit;
  1783.   Empty := True;
  1784.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  1785.   ClearAll;
  1786.   TmpStream := TMemoryStream.Create;
  1787.   AStoredSkin.DeCompressToStream(TmpStream);
  1788.   TmpStream.Seek(0, 0);
  1789.   TmpStream.Read(CV, SizeOf(CV));
  1790.   if CV <> 1
  1791.   then
  1792.     begin
  1793.       TmpStream.Free;
  1794.       Exit;
  1795.     end;
  1796.   //
  1797.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  1798.   if IsEmpty
  1799.   then FPicture.Assign(nil)
  1800.   else FPicture.LoadFromStream(TmpStream);
  1802.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  1803.   if IsEmpty
  1804.   then FMask.Assign(nil)
  1805.   else FMask.LoadFromStream(TmpStream);
  1807.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  1808.   if IsEmpty
  1809.   then FRollUpPicture.Assign(nil)
  1810.   else FRollUpPicture.LoadFromStream(TmpStream);
  1812.   TmpStream.Read(IsEmpty, SizeOf(IsEmpty));
  1813.   if IsEmpty
  1814.   then FRollUpMask.Assign(nil)
  1815.   else FRollUpMask.LoadFromStream(TmpStream);
  1817.   TmpStream.Read(Count, SizeOf(Count));
  1818.   if Count > 0
  1819.   then
  1820.     for i := 0 to Count - 1 do
  1821.     begin
  1822.       FActivePictures.Add(TBitMap.Create);
  1823.       TBitMap(FActivePictures.Items[i]).LoadFromStream(TmpStream);
  1824.     end;
  1825.   //
  1826.   FIniStrings := TStringList.Create;
  1827.   FIniStrings.LoadFromStream(TmpStream);
  1828.   F := TMemIniFile.Create('');
  1829.   F.SetStrings(FIniStrings);
  1830.   //
  1831.   SkinName := F.ReadString('VERSION', 'skinname', '');
  1832.   SkinAuthor := F.ReadString('VERSION', 'skinauthor', '');
  1833.   AuthorEmail := F.ReadString('VERSION', 'authoremail', '');
  1834.   AuthorURL := F.ReadString('VERSION', 'authorurl', '');
  1835.   SkinComments := F.ReadString('VERSION', 'skincomments', '');
  1836.   ReadFormInfo(F);
  1837.   PopupWindow.LoadFromFile(F);
  1838.   HintWindow.LoadFromFile(F);
  1839.   ReadObjects(F);
  1840.   ReadCtrls(F);
  1841.   //
  1842.   FIniStrings.Free;
  1843.   F.Free;
  1844.   TmpStream.Free;
  1845.   //
  1846.   Empty := False;
  1847.   SendSkinDataMessage(WM_CHANGESKINDATA);
  1848.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1849. end;
  1851. procedure TspSkinData.LoadStoredSkin;
  1852. var
  1853.   F: TMemIniFile;
  1854.   i: Integer;
  1855. begin
  1856.   Empty := True;
  1858.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  1860.   ClearAll;
  1862.   F := TMemIniFile.Create('');
  1863.   //
  1864.   F.SetStrings(AStoredSkin.FIniStrings);
  1866.   if not CheckSkinFile(F)
  1867.   then
  1868.     begin
  1869.       SendSkinDataMessage(WM_CHANGESKINDATA);
  1870.       SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1871.       F.Free;
  1872.       Exit;
  1873.     end;
  1875.   //
  1876.   SkinName := F.ReadString('VERSION', 'skinname', '');
  1877.   // load base pictures
  1878.   FPicture.Assign(AStoredSkin.FPicture);
  1879.   FMask.Assign(AStoredSkin.FMask);
  1880.   FRollUpPicture.Assign(AStoredSkin.FRollUpPicture);
  1881.   FRollUpMask.Assign(AStoredSkin.FRollUpMask);
  1883.   // load activepictures
  1884.   if AStoredSkin.FActivePictures.Count > 0
  1885.   then
  1886.     for i := 0 to AStoredSkin.FActivePictures.Count - 1 do
  1887.     begin
  1888.       FActivePictures.Add(TBitMap.Create);
  1889.       TBitMap(FActivePictures.Items[i]).Assign(TBitMap(AStoredSkin.FActivePictures.Items[i]));
  1890.     end;
  1891.   // load cursors
  1892.   StartCursorIndex := F.ReadInteger('CURSORS', 'startcursorindex', 1);
  1893.   if StartCursorIndex < 1 then StartCursorIndex := 1;
  1894.   //
  1895.   ReadFormInfo(F);
  1896.   //
  1897.   PopupWindow.LoadFromFile(F);
  1898.   //
  1899.   HintWindow.LoadFromFile(F);
  1900.   //
  1901.   ReadAreas(F);
  1902.   //
  1903.   ReadObjects(F);
  1904.   //
  1905.   ReadCtrls(F);
  1906.   //
  1907.   F.Free;
  1908.   Empty := False;
  1909.   SendSkinDataMessage(WM_CHANGESKINDATA);
  1910.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1911. end;
  1913. procedure TspSkinData.ClearSkin;
  1914. begin
  1915.   ClearAll;
  1916.   SendSkinDataMessage(WM_BEFORECHANGESKINDATA);
  1917.   SendSkinDataMessage(WM_CHANGESKINDATA);
  1918.   SendSkinDataMessage(WM_AFTERCHANGESKINDATA);
  1919. end;
  1921. constructor TspCompressedStoredSkin.Create(AOwner: TComponent);
  1922. begin
  1923.   inherited;
  1924.   FCompressedStream := TMemoryStream.Create;
  1925. end;
  1927. destructor TspCompressedStoredSkin.Destroy;
  1928. begin
  1929.   FCompressedStream.Free;
  1930.   inherited;
  1931. end;
  1933. function TspCompressedStoredSkin.GetEmpty: Boolean;
  1934. begin
  1935.   Result := FCompressedStream.Size = 0;
  1936. end;
  1938. procedure TspCompressedStoredSkin.SetFileName;
  1939. begin
  1940.   if (csDesigning in ComponentState) and not
  1941.      (csLoading in ComponentState)
  1942.   then
  1943.     begin
  1944.       FFileName := ExtractFileName(Value);
  1945.       LoadFromIniFile(Value);
  1946.     end
  1947.   else
  1948.     FFileName := Value;
  1949. end;
  1951. procedure TspCompressedStoredSkin.DefineProperties(Filer: TFiler);
  1952. begin
  1953.   inherited;
  1954.   Filer.DefineBinaryProperty('CompressedData', ReadData, WriteData, True);
  1955. end;
  1957. const
  1958.   CompressVersion = 1;
  1960. procedure TspCompressedStoredSkin.ReadData;
  1961. begin
  1962.   FCompressedStream.LoadFromStream(Reader);
  1963. end;
  1965. procedure TspCompressedStoredSkin.WriteData;
  1966. begin
  1967.   FCompressedStream.SaveToStream(Writer);
  1968. end;
  1970. procedure TspCompressedStoredSkin.DeCompressToStream;
  1971. begin
  1972.   DecompressStream(S, FCompressedStream);
  1973. end;
  1975. procedure TspCompressedStoredSkin.LoadFromIniFile(AFileName: String);
  1976. var
  1977.   TmpStream: TMemoryStream;
  1978.   F: TMemIniFile;
  1979.   Path: String;
  1980.   FIniStrings: TStrings;
  1981.   BitMapName: String;
  1982.   BitMap: TBitMap;
  1983.   IsEmpty: Boolean;
  1984.   i, Count, CV: Integer;
  1985.   PNames: TStrings;
  1986. begin
  1987.   FIniStrings := TStringList.Create;
  1988.   FIniStrings.LoadFromFile(AFileName);
  1990.   F := TMemIniFile.Create(AFileName);
  1992.   if not CheckSkinFile(F)
  1993.   then
  1994.     begin
  1995.       F.Free;
  1996.       FIniStrings.Free;
  1997.       Exit;
  1998.     end;
  2000.   Path := ExtractFilePath(AFileName);
  2002.   FCompressedStream.Clear;
  2004.   TmpStream := TMemoryStream.Create;
  2005.   //
  2006.   CV := CompressVersion;
  2007.   TmpStream.Write(CV, SizeOf(CV));
  2008.   // load bitmaps to stream
  2009.   BitMap := TBitMap.Create;
  2010.   //
  2011.   BitMapName := F.ReadString('PICTURES', 'picture', '');
  2012.   if BitMapName <> ''
  2013.   then BitMap.LoadFromFile(Path + BitMapName)
  2014.   else BitMap.Assign(nil);
  2015.   IsEmpty := BitMap.Empty;
  2016.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  2017.   if not IsEmpty
  2018.   then BitMap.SaveToStream(TmpStream);
  2019.   //
  2020.   BitMapName := F.ReadString('PICTURES', 'mask', '');
  2021.   if BitMapName <> ''
  2022.   then BitMap.LoadFromFile(Path + BitMapName)
  2023.   else BitMap.Assign(nil);
  2024.   IsEmpty := BitMap.Empty;
  2025.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  2026.   if not IsEmpty then BitMap.SaveToStream(TmpStream);
  2027.   //
  2028.   BitMapName := F.ReadString('PICTURES', 'rolluppicture', '');
  2029.   if BitMapName <> ''
  2030.   then BitMap.LoadFromFile(Path + BitMapName)
  2031.   else BitMap.Assign(nil);
  2032.   IsEmpty := BitMap.Empty;
  2033.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  2034.   if not IsEmpty
  2035.   then BitMap.SaveToStream(TmpStream);
  2036.   //
  2037.   BitMapName := F.ReadString('PICTURES', 'rollupmask', '');
  2038.   if BitMapName <> ''
  2039.   then BitMap.LoadFromFile(Path + BitMapName)
  2040.   else BitMap.Assign(nil);
  2041.   IsEmpty := BitMap.Empty;
  2042.   TmpStream.Write(IsEmpty, SizeOf(IsEmpty));
  2043.   if not IsEmpty
  2044.   then BitMap.SaveToStream(TmpStream);
  2045.   //
  2046.   PNames := TStringList.Create;
  2047.   ReadStrings1(F, 'PICTURES', 'activepictures', PNames);
  2048.   Count := PNames.Count;
  2049.   TmpStream.Write(Count, SizeOf(Count));
  2050.   if Count > 0
  2051.   then
  2052.     for i := 0 to Count - 1 do
  2053.     begin
  2054.       BitMapName := Path + PNames[i];
  2055.       BitMap.LoadFromFile(BitMapName);
  2056.       BitMap.SaveToStream(TmpStream);
  2057.     end;
  2058.   PNames.Free;
  2059.   //
  2060.   FIniStrings.SaveToStream(TmpStream);
  2061.   //
  2062.   CompressStream(TmpStream, FCompressedStream);
  2063.   BitMap.Free;
  2064.   FIniStrings.Free;
  2065.   TmpStream.Free;
  2066.   F.Free;
  2067. end;
  2069. procedure TspCompressedStoredSkin.LoadFromCompressFile(AFileName: String);
  2070. var
  2071.   F: TFileStream;
  2072.   CV, Size: LongInt;
  2073. begin
  2074.   FCompressedStream.Clear;
  2075.   F := TFileStream.Create(AFileName, fmOpenRead);
  2076.   F.Read(CV, SizeOf(CV));
  2077.   if CV = 1
  2078.   then
  2079.     begin
  2080.       F.Read(Size, SizeOf(Size));
  2081.       FCompressedStream.CopyFrom(F, Size);
  2082.     end;
  2083.   F.Free;
  2084. end;
  2086. procedure TspCompressedStoredSkin.SaveToCompressFile(AFileName: String);
  2087. var
  2088.   F: TFileStream;
  2089.   CV, Size: LongInt;
  2090. begin
  2091.   if Empty then Exit;
  2092.   F := TFileStream.Create(AFileName, fmCreate);
  2093.   CV := CompressVersion;
  2094.   F.Write(CV, SizeOf(CV));
  2095.   Size := FCompressedStream.Size;
  2096.   F.Write(Size, SizeOf(Size));
  2097.   FCompressedStream.SaveToStream(F);
  2098.   F.Free;
  2099. end;
  2101. end.