Subversion Repositories decoder

Rev

Blame | Last modification | View Log | RSS feed

  1. unit DragDropDesign;
  2. // -----------------------------------------------------------------------------
  3. //
  4. //                      NOT FOR RELEASE
  5. //
  6. // -----------------------------------------------------------------------------
  7. // Project:         Drag and Drop Component Suite
  8. // Module:          DragDropDesign
  9. // Description:     Contains design-time support for the drag and drop
  10. //                  components.
  11. // Version:         4.0
  12. // Date:            25-JUN-2000
  13. // Target:          Win32, Delphi 3-6 and C++ Builder 3-5
  14. // Authors:         Angus Johnson, ajohnson@rpi.net.au
  15. //                  Anders Melander, anders@melander.dk, http://www.melander.dk
  16. // Copyright        © 1997-2000 Angus Johnson & Anders Melander
  17. // -----------------------------------------------------------------------------
  18.  
  19. interface
  20.  
  21. procedure Register;
  22.  
  23. implementation
  24.  
  25. {$include DragDrop.inc}
  26.  
  27. uses
  28.   DragDrop,
  29. {$ifndef VER14_PLUS}
  30.   DsgnIntf,
  31. {$else}
  32.   DesignIntf,
  33.   DesignEditors,
  34. {$endif}
  35.   Classes;
  36.  
  37. type
  38.   TDataFormatNameEditor = class(TStringProperty)
  39.   public
  40.     function GetAttributes: TPropertyAttributes; override;
  41.     procedure GetValues(Proc: TGetStrProc); override;
  42.   end;
  43.  
  44. procedure Register;
  45. begin
  46.   RegisterPropertyEditor(TypeInfo(string), TDataFormatAdapter, 'DataFormatName',
  47.     TDataFormatNameEditor);
  48. end;
  49.  
  50. { TDataFormatNameEditor }
  51.  
  52. function TDataFormatNameEditor.GetAttributes: TPropertyAttributes;
  53. begin
  54.   Result := [paValueList, paSortList, paMultiSelect];
  55. end;
  56.  
  57. type
  58.   TDataFormatClassesCracker = class(TDataFormatClasses);
  59.  
  60. procedure TDataFormatNameEditor.GetValues(Proc: TGetStrProc);
  61. var
  62.   i             : Integer;
  63. begin
  64.   for i := 0 to TDataFormatClassesCracker.Instance.Count-1 do
  65.     Proc(TDataFormatClassesCracker.Instance[i].ClassName);
  66. end;
  67.  
  68. end.
  69.