DOS/V Power Report 1997 August/VPR9708A.ISO/D3TRIAL/INSTALL/DATA.Z/delphi32.exe/RCDATA/OCXSOURCE

Text File | 1997-05-14 | 2KB | 78 lines

unit %A;

{ This file contains pascal declarations imported from a type library.
  This file will be written during each import or refresh of the type
  library editor.  Changes to this file will be discarded during the
  refresh process. }

{ このファイルにはタイプライブラリから作成した PASCAL による宣言が収められ
  ています。タイプライブラリエディタで更新をおこなうと内容が書き換えられます
  このファイルを直接変更しても、タイプライブラリエディタによって上書きされる
  ため変更内容は保存されません。
  }

%H{ Version %J }

%Binterface

%I%G%C

implementation

%D
end.
|%N%A  %B = class(TOleControl)
  private
%C    FIntf: %O;
%D  protected
    procedure InitControlData; override;
    procedure InitControlInterface(const Obj: IUnknown); override;
  public
%E    property ControlInterface: %O read FIntf;
%F  published
%H%I%J  end;

|procedure %B.InitControlData;
const
%Kbegin
  ControlData := @CControlData;
end;

procedure %B.InitControlInterface(const Obj: IUnknown);
begin
  FIntf := Obj as %O;
end;

%L%M
|function %I.Get_%B%L%D;
begin
  Result := ControlInterface.%B%K;
end;

|procedure %I.Set_%B%M;
begin
  ControlInterface.%B%K := Value;
end;

|procedure Register;
begin
  RegisterComponents('%E', [%F]);
end;
|%N  Co%P = class
    class function Create: %O;
    class function CreateRemote(const MachineName: string): %O;
  end;

|class function Co%P.Create: %O;
begin
  Result := CreateComObject(Class_%P) as %O;
end;

class function Co%P.CreateRemote(const MachineName: string): %O;
begin
  Result := CreateRemoteComObject(MachineName, Class_%P) as %O;
end;

|