home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Doc / wcompreg.int < prev   
Text File  |  1999-08-11  |  3KB  |  94 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {       Registration of MIDAS Web components            }
  6. {                                                       }
  7. {       Copyright (c) 1999 Inprise Corporation          }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit WCompReg;
  12.  
  13. interface
  14.  
  15. uses DsgnIntf, Classes, MidProd;
  16.  
  17. type
  18.   TProviderNameProperty = class(TStringProperty)
  19.     function GetAttributes: TPropertyAttributes; override;
  20.     procedure GetValues(Proc: TGetStrProc); override;
  21.   end;
  22.  
  23.   TXMLDisplayComponentProperty = class(TComponentProperty)
  24.     function GetAttributes: TPropertyAttributes; override;
  25.     procedure GetValues(Proc: TGetStrProc); override;
  26.   end;
  27.  
  28.   TQueryFormComponentProperty = class(TComponentProperty)
  29.     function GetAttributes: TPropertyAttributes; override;
  30.     procedure GetValues(Proc: TGetStrProc); override;
  31.   end;
  32.  
  33.   TItemsFieldProperty = class(TStringProperty)
  34.     function GetAttributes: TPropertyAttributes; override;
  35.     procedure GetValues(Proc: TGetStrProc); override;
  36.   end;
  37.  
  38.   TDataSetViewFieldProperty = class(TStringProperty)
  39.     function GetAttributes: TPropertyAttributes; override;
  40.     procedure GetValues(Proc: TGetStrProc); override;
  41.   end;
  42.  
  43.   TDataSetViewParamProperty = class(TStringProperty)
  44.     function GetAttributes: TPropertyAttributes; override;
  45.     procedure GetValues(Proc: TGetStrProc); override;
  46.   end;
  47.  
  48.   TXMLDataSetFieldProperty = class(TStringProperty)
  49.     function GetAttributes: TPropertyAttributes; override;
  50.     procedure GetValues(Proc: TGetStrProc); override;
  51.   end;
  52.  
  53.   TServerNameProperty = class(TStringProperty)
  54.     function GetAttributes: TPropertyAttributes; override;
  55.     procedure GetValues(Proc: TGetStrProc); override;
  56.   end;
  57.  
  58.   TCssClassProperty = class(TStringProperty)
  59.   protected
  60.     function FindProducer: TCustomMidasPageProducer; virtual;
  61.   public
  62.     function GetAttributes: TPropertyAttributes; override;
  63.     procedure GetValues(Proc: TGetStrProc); override;
  64.   end;
  65.  
  66.   TWebPageItemsPropertyEditor = class(TClassProperty)
  67.     procedure Edit; override;
  68.     function GetAttributes: TPropertyAttributes; override;
  69.   end;
  70.  
  71.   TStylesFilePropertyEditor = class(TStringProperty)
  72.   public
  73.     procedure Edit; override;
  74.     function GetAttributes: TPropertyAttributes; override;
  75.   end;
  76.  
  77.   TWebPageEditor = class(TComponentEditor)
  78.   public
  79.     procedure ExecuteVerb(Index: Integer); override;
  80.     function GetVerb(Index: Integer): string; override;
  81.     function GetVerbCount: Integer; override;
  82.   end;
  83.  
  84.   TXMLBrokerEditor = class(TComponentEditor)
  85.   public
  86.     procedure ExecuteVerb(Index: Integer); override;
  87.     function GetVerb(Index: Integer): string; override;
  88.     function GetVerbCount: Integer; override;
  89.   end;
  90.  
  91. procedure Register;
  92.  
  93. implementation
  94.