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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 按钮控件 > 查看源码
WinSkinReg.pas
资源名称：winskin.rar　[点击查看]
上传用户：lmk588
上传日期：2013-04-16
资源大小：5120k
文件大小：3k
源码类别：

按钮控件

开发平台：

Delphi

WinSkinReg.pas：源码内容
  1. unit WinSkinReg;
  3. interface
  5. {$I Compilers.Inc}
  7. uses  Dialogs, Forms, Classes, SysUtils,
  8. {$ifdef DELPHI_4}
  9.    DsgnIntf,
  10. {$endif DELPHI_4}
  12. {$ifdef DELPHI_5}
  13.    DsgnIntf,
  14. {$endif DELPHI_5}
  16. {$ifdef DELPHI_6}
  17.      DesignIntf,DesignEditors,
  18. {$endif DELPHI_6}
  20. {$ifdef DELPHI_7}
  21.      DesignIntf,DesignEditors,
  22. {$endif DELPHI_7}
  24. {$ifdef CPPB_5}
  25.    DsgnIntf,
  26. {$endif CPPB_5}
  28. {$ifdef CPPB_6}
  29.      DesignIntf,DesignEditors,
  30. {$endif CPPB_6}
  32.    winskindata,skinread,winsubclass,winskinform,WinSkinStore;
  34. procedure Register;
  36. implementation
  39. type
  40. { TWinSkinStore}
  41.   TWinSkinStore = class(TPropertyEditor)
  42.   private
  43.   public
  44.     procedure Edit; override;
  45.     function GetAttributes: TPropertyAttributes; override;
  46.     function GetValue: string; override;
  47.   end;
  49. procedure TWinSkinStore.Edit;
  50. var
  51.   skindata: TSkindata;      //ms
  52.   storeitem: TSkinCollectionItem; //ms
  54.   OpenDialog: TOpenDialog;
  55. begin
  56.   { Execute editor }
  57.   OpenDialog := TOpenDialog.Create(Application);
  58.   OpenDialog.Filter := 'Skin files (*.skn)|*.skn';
  59.   try
  60.     if OpenDialog.Execute then
  61.     begin
  63.       { this entire block by ms }
  64.       storeitem := nil;
  65.       skindata := nil;
  67.       if GetComponent(0) is TSkinCollectionItem then
  68.         storeitem := GetComponent(0) as TSkinCollectionItem;
  70.       if GetComponent(0) is TSkindata then
  71.         skindata := GetComponent(0) as TSkindata;
  73.       if storeitem <> nil then
  74.       begin
  75.         storeitem.LoadFromFile(OpenDialog.FileName);
  76.       end
  77.       else
  78.       if skindata <> nil then
  79.       begin
  80.         skindata.data.clear;
  81.         skindata.data.LoadFromFile(OpenDialog.FileName);
  82.         skindata.SkinFile := '';
  83.       end;
  84.       {
  85.       TSkindata(GetComponent(0)).data.clear;
  86.       TSkindata(GetComponent(0)).data.LoadFromFile(OpenDialog.FileName);
  87.       TSkindata(GetComponent(0)).SkinFile := '';
  88.       }
  89.     end;
  90.     Modified;
  91.   finally
  92.     OpenDialog.Free;
  93.   end;
  94. end;
  96. function TWinSkinStore.GetAttributes: TPropertyAttributes;
  97. begin
  98.   Result := [paDialog];
  99. end;
  101. function TWinSkinStore.GetValue: string;
  102. var
  103.   skindata: TSkindata;      //ms
  104.   storeitem: TSkinCollectionItem; //ms
  105. begin
  107.   // ms
  108.   storeitem := nil;
  109.   skindata := nil;
  111.   if GetComponent(0) is TSkinCollectionItem then
  112.     storeitem := GetComponent(0) as TSkinCollectionItem;
  114.   if GetComponent(0) is TSkindata then
  115.     skindata := GetComponent(0) as TSkindata;
  117.   if storeitem <> nil then
  118.   begin
  119.     if storeitem.DataSize > 0 then
  120.       Result := '(SkinData)'
  121.     else
  122.       Result := '(Empty)'
  123.   end;
  125.   if skindata <> nil then
  126.   begin
  127.     if TSkindata(GetComponent(0)).data.size > 0 then
  128.     //    Result := '('+TSeSkinEngine(GetComponent(0)).SkinSource.SkinName+')'
  129.       Result := '(SkinData)'
  130.     else
  131.       Result := '(Empty)'
  132.   end;
  134. end;
  136. procedure Register;
  137. begin
  138.   RegisterComponents('VCLSkin', [TSkinData, TSkinStore]);
  139.   RegisterPropertyEditor(TypeInfo(String), TSkinData, 'SkinStore',TWinSkinStore);
  141.   // ms
  142.   RegisterPropertyEditor(TypeInfo(String), TSkinCollectionItem, 'SkinData',TWinSkinStore);
  144. end;
  146. end.