git-svn-id: https://svn.code.sf.net/p/kolmck/code@8 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Addons/mckRAS.pas

@@ -0,0 +1,94 @@
+unit mckRAS;
+
+interface
+
+uses
+  Windows, Classes, Messages, Forms, SysUtils,
+  KOLRAS, mirror;
+
+type
+
+  TKOLRAS = class(TKOLObj)
+  private
+
+    fRASName:           string;
+    FOnConnecting:      TOnConnectingEvent;
+    FOnError:           TOnErrorEvent;
+
+  protected
+
+    function  AdditionalUnits: string; override;
+    procedure SetupFirst( SL: TStringList; const AName, AParent, Prefix: String ); override;
+    procedure SetupLast( SL: TStringList; const AName, AParent, Prefix: String ); override;
+    procedure AssignEvents( SL: TStringList; const AName: String ); override;
+
+    procedure SetRASName(Value: string);
+    procedure SetOnConnecting(Value: TOnConnectingEvent);
+    procedure SetOnError(Value: TOnErrorEvent);
+
+  published
+
+    property RASName: string read FRASName write SetRASName;
+    property OnConnecting: TOnConnectingEvent read FOnConnecting write SetOnConnecting;
+    property OnError: TOnErrorEvent read FOnError write SetOnError;
+
+  end;
+
+  procedure Register;
+
+implementation
+
+{$R *.dcr}
+
+procedure TKOLRAS.SetRASName(Value: String);
+begin
+  fRASName := Value;
+  Change;
+end;
+
+procedure TKOLRAS.SetOnConnecting;
+begin
+   fOnConnecting := Value;
+   Change;
+end;
+
+procedure TKOLRAS.SetOnError;
+begin
+   fOnError := Value;
+   Change;
+end;
+
+function TKOLRAS.AdditionalUnits;
+begin
+   Result := ', KOLRAS';
+end;
+
+procedure TKOLRAS.SetupFirst(SL: TStringList; const AName,
+  AParent, Prefix: String);
+begin
+  SL.Add( Prefix + AName + ' := NewRASObj;' );
+  if fRASName <> '' then
+  SL.Add( Prefix + AName + '.RASName := ''' + fRASName + ''';');
+end;
+
+procedure TKOLRAS.SetupLast(SL: TStringList; const AName,
+  AParent, Prefix: String);
+begin
+   //
+end;
+
+procedure TKOLRAS.AssignEvents(SL: TStringList; const AName: String);
+begin
+  inherited;
+  DoAssignEvents( SL, AName,
+  [ 'OnConnecting', 'OnError' ],
+  [ @OnConnecting , @OnError  ]);
+end;
+
+procedure Register;
+begin
+  RegisterComponents('KOLAddons', [TKOLRAS]);
+end;
+
+end.
+