controls/formsave/formsave_demo/KOLForm.pas

   1 { KOL MCK } // Do not remove this line!
   2 {$DEFINE KOL_MCK}
   3 unit KOLForm;
   4
   5 interface
   6
   7 {$IFDEF KOL_MCK}
   8 uses Windows, Messages, ShellAPI, KOL, FormSave {$IFNDEF KOL_MCK}, mirror, Classes,
   9   mckFormSave {$ENDIF};
  10 {$ELSE}
  11 {$I uses.inc} mirror,
  12   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  13 {$ENDIF}
  14
  15 type
  16   {$IFDEF KOL_MCK}
  17   {$I MCKfakeClasses.inc}
  18   PForm1 = ^TForm1;
  19   TForm1 = object(TObj)
  20     Form: PControl;
  21   {$ELSE not_KOL_MCK}
  22   TForm1 = class(TForm)
  23   {$ENDIF KOL_MCK}
  24     KOLProject: TKOLProject;
  25     KOLForm: TKOLForm;
  26     FS: TKOLFormSave;
  27   private
  28     { Private declarations }
  29   public
  30     { Public declarations }
  31   end;
  32 var
  33   Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
  34
  35 {$IFDEF KOL_MCK}
  36 procedure NewForm1( var Result: PForm1; AParent: PControl );
  37 {$ENDIF}
  38
  39 implementation
  40
  41 {$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
  42
  43 {$IFDEF KOL_MCK}
  44 {$I KOLForm_1.inc}
  45 {$ENDIF}
  46
  47 end.
  48
  49
  50
  51
  52
  53
  54
  55