units/service/service_demo/Unit1.pas

   1 { KOL MCK } // Do not remove this line!
   2 {$DEFINE KOL_MCK}
   3 unit Unit1;
   4
   5 interface
   6
   7 {$IFDEF KOL_MCK}
   8 uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
   9   Controls, mckCtrls {$ENDIF};
  10 {$ELSE}
  11 {$I uses.inc} mirror,
  12   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13   mirror;
  14 {$ENDIF}
  15
  16 type
  17   {$IFDEF KOL_MCK}
  18   {$I MCKfakeClasses.inc}
  19   {$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
  20   {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
  21     Form: PControl;
  22   {$ELSE not_KOL_MCK}
  23   TForm1 = class(TForm)
  24   {$ENDIF KOL_MCK}
  25     KOLForm: TKOLForm;
  26     Label1: TKOLLabel;
  27     Label2: TKOLLabel;
  28     procedure KOLFormFormCreate(Sender: PObj);
  29   private
  30     { Private declarations }
  31   public
  32     { Public declarations }
  33   end;
  34
  35 var
  36   Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
  37
  38 {$IFDEF KOL_MCK}
  39 procedure NewForm1( var Result: PForm1; AParent: PControl );
  40 {$ENDIF}
  41
  42 implementation
  43
  44 {$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
  45
  46 {$IFDEF KOL_MCK}
  47 {$I Unit1_1.inc}
  48 {$ENDIF}
  49
  50 procedure TForm1.KOLFormFormCreate(Sender: PObj);
  51 begin
  52    Form.SimpleStatusText := 'Running';
  53 end;
  54
  55 end.
  56
  57
  58
  59
  60
  61
  62
  63
  64
  65
  66
  67
  68