demos/mdi/Unit2.pas

   1 { KOL MCK } // Do not remove this line!
   2 {$DEFINE KOL_MCK}
   3 unit Unit2;
   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}
  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   PForm2 = ^TForm2;
  20   TForm2 = object(TObj)
  21     Form: PControl;
  22   {$ELSE not_KOL_MCK}
  23   TForm2 = class(TForm)
  24   {$ENDIF KOL_MCK}
  25     KOLMDIChild1: TKOLMDIChild;
  26     Panel1: TKOLPanel;
  27   private
  28     { Private declarations }
  29   public
  30     { Public declarations }
  31   end;
  32
  33 var
  34   Form2 {$IFDEF KOL_MCK} : PForm2 {$ELSE} : TForm2 {$ENDIF} ;
  35
  36 {$IFDEF KOL_MCK}
  37 procedure NewForm2( var Result: PForm2; AParent: PControl );
  38 {$ENDIF}
  39
  40 implementation
  41
  42 {$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
  43
  44 {$IFDEF KOL_MCK}
  45 {$I Unit2_1.inc}
  46 {$ENDIF}
  47
  48 end.
  49
  50