home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 December / Chip_2002-12_cd1.bin / zkuste / delphi / kompon / d6 / AHICON32.ZIP / Icon32 / Icon32Ed.pas < prev    next >
Pascal/Delphi Source File  |  2002-09-18  |  2KB  |  66 lines
  1. {
  2.   Icon32Ed
  3.  
  4.   This notice may not be removed from or altered in any source distribution.
  5.  
  6.   "Author" herein refers to Abduraghman Hendricks (the creator of the Icon32). "Software" refers to all files
  7.   included with Icon32 distribution package.
  8.  
  9.   Please note that the Author hereby states that this package is provided "as is" and without any express or
  10.   implied warranties, including, but not without limitation, the implied warranties of merchantability and fitness
  11.   for a particular purpose. In other words, the Author accepts no liability for any damage that may result from
  12.   using Icon32.
  13.  
  14.   Icon32 is distributed as a freeware. You are free to use Icon32 as part of your application for any purpose
  15.   including freeware, commercial and shareware applications, provided an explicit credit is given to the author
  16.   in application's about box and/or accompanying documentation.
  17.  
  18.   The origin of this software must not be misrepresented; you must not claim your authorship.
  19.   All redistributions must retain the original copyright notice.
  20.  
  21. }
  22. unit Icon32Ed;
  23.  
  24. interface
  25.  
  26. uses PropertyCategories, DesignEditors, DesignIntf;
  27.  
  28. type
  29.   TIcon32FileStringProperty = class(TStringProperty)
  30.   public
  31.     procedure Edit; override;
  32.     function GetAttributes: TPropertyAttributes; override;
  33.   end;
  34.  
  35. procedure Register;
  36.  
  37. implementation
  38.  
  39. uses TypInfo, Icon32, Classes, Controls, Dialogs;
  40.  
  41. procedure TIcon32FileStringProperty.Edit;
  42. begin
  43.   with TOpenDialog.Create(nil) do
  44.     try
  45.       Filter := '32 bit Icon files|*.ico|All files|*.*';
  46.       DefaultExt := '*.ico';
  47.       FileName := GetStrValue;
  48.       if Execute then
  49.         SetStrValue(FileName);
  50.     finally
  51.       Free;
  52.     end;
  53. end;
  54.  
  55. function TIcon32FileStringProperty.GetAttributes: TPropertyAttributes;
  56. begin
  57.   Result := [paDialog];
  58. end;
  59.  
  60. procedure Register;
  61. begin
  62.   RegisterPropertyEditor(TypeInfo(TIcon32FileString), TIcon32, 'Icon32Name', TIcon32FileStringProperty);
  63. end;
  64.  
  65. end.
  66.