units/ftp/ftp_demo/DirBox.pas

   1 { KOL MCK } // Do not remove this line!
   2 {$DEFINE KOL_MCK}
   3 unit DirBox;
   4
   5 interface
   6
   7 {$IFDEF KOL_MCK}
   8 uses Windows, Messages, ShellAPI, KOL {$IFNDEF KOL_MCK}, mirror, Classes,
   9   mckCtrls, Controls, Graphics {$ENDIF};
  10 {$ELSE}
  11 {$I uses.inc}
  12   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13   mckCtrls, mirror;
  14 {$ENDIF}
  15
  16 type
  17   {$IFDEF KOL_MCK}
  18   {$I MCKfakeClasses.inc}
  19   {$IFDEF KOLCLASSES} TForm5 = class; PForm5 = TForm5; {$ELSE OBJECTS} PForm5 = ^TForm5; {$ENDIF CLASSES/OBJECTS}
  20   {$IFDEF KOLCLASSES}{$I TForm5.inc}{$ELSE} TForm5 = object(TObj) {$ENDIF}
  21     Form: PControl;
  22   {$ELSE not_KOL_MCK}
  23   TForm5 = class(TForm)
  24   {$ENDIF KOL_MCK}
  25     KF: TKOLForm;
  26     P1: TKOLPanel;
  27     P2: TKOLPanel;
  28     EB: TKOLEditBox;
  29     B1: TKOLButton;
  30     B2: TKOLButton;
  31     LE: TKOLLabelEffect;
  32     procedure B1Click(Sender: PObj);
  33     procedure B2Click(Sender: PObj);
  34   private
  35     { Private declarations }
  36   public
  37     { Public declarations }
  38   end;
  39
  40 var
  41   Form5 {$IFDEF KOL_MCK} : PForm5 {$ELSE} : TForm5 {$ENDIF} ;
  42
  43 {$IFDEF KOL_MCK}
  44 procedure NewForm5( var Result: PForm5; AParent: PControl );
  45 {$ENDIF}
  46
  47 implementation
  48
  49 {$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
  50
  51 {$IFDEF KOL_MCK}
  52 {$I DirBox_1.inc}
  53 {$ENDIF}
  54
  55 procedure TForm5.B1Click(Sender: PObj);
  56 begin
  57    Form.ModalResult := 1;
  58    Form.Hide;
  59 end;
  60
  61 procedure TForm5.B2Click(Sender: PObj);
  62 begin
  63    Form.ModalResult := 1;
  64    EB.Text := '';
  65    Form.Hide;
  66 end;
  67
  68 end.
  69
  70
  71
  72
  73
  74
  75
  76
  77
  78
  79