units/hintra/hintra_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, KOLHintRA {$IFNDEF KOL_MCK}, mirror, Classes, Controls, mckControls, mckObjs, Graphics,
   9   mckHintRA, mckCtrls {$ENDIF};
  10 {$ELSE}
  11 {$I uses.inc}
  12   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  13 {$ENDIF}
  14
  15 type
  16   {$IFDEF KOL_MCK}
  17   {$I MCKfakeClasses.inc}
  18   {$IFDEF KOLCLASSES} TForm1 = class; PForm1 = TForm1; {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
  19   {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
  20     Form: PControl;
  21   {$ELSE not_KOL_MCK}
  22   TForm1 = class(TForm)
  23   {$ENDIF KOL_MCK}
  24     KOLProject1: TKOLProject;
  25     KOLForm1: TKOLForm;
  26     Button1: TKOLButton;
  27     HintRA1: TKOLHintRA;
  28     Button2: TKOLButton;
  29     HintRA2: TKOLHintRA;
  30     Button3: TKOLButton;
  31     HintRA3: TKOLHintRA;
  32     Button4: TKOLButton;
  33     HintRA4: TKOLHintRA;
  34     Label1: TKOLLabel;
  35     EditBox1: TKOLEditBox;
  36     HintRA5: TKOLHintRA;
  37     Button6: TKOLButton;
  38     HintRA6: TKOLHintRA;
  39     Button7: TKOLButton;
  40     Button8: TKOLButton;
  41     HintRA7: TKOLHintRA;
  42     HintRA8: TKOLHintRA;
  43     HintRA9: TKOLHintRA;
  44     Panel1: TKOLPanel;
  45     Button5: TKOLButton;
  46     HintRA10: TKOLHintRA;
  47     procedure Button6Click(Sender: PObj);
  48     procedure KOLForm1FormCreate(Sender: PObj);
  49     procedure HintRA5BeforeShowHint(Sender: PObj);
  50   private
  51     { Private declarations }
  52   public
  53     { Public declarations }
  54   end;
  55
  56 var
  57   Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
  58
  59 {$IFDEF KOL_MCK}
  60 procedure NewForm1( var Result: PForm1; AParent: PControl );
  61 {$ENDIF}
  62
  63 implementation
  64
  65 {$IFNDEF KOL_MCK} {$R *.DFM} {$ENDIF}
  66
  67 {$IFDEF KOL_MCK}
  68 {$I Unit1_1.inc}
  69 {$ENDIF}
  70
  71 procedure TForm1.Button6Click(Sender: PObj);
  72 begin
  73   HintRA6.SetDelay(HintRA6.GetDelay div 2);
  74 end;
  75
  76 procedure TForm1.KOLForm1FormCreate(Sender: PObj);
  77 begin
  78   HintRA7.KOLControl:=Form;//óñòàíîâêà Hint'a ôîðìû
  79   HintRA9.SetDelay(30);
  80 end;
  81
  82 procedure TForm1.HintRA5BeforeShowHint(Sender: PObj);
  83 begin
  84 HintRA5.BeginUpdate;
  85   HintRA5.HintText:='Âû çàäàëè:'+#13#10+EditBox1.Text;
  86 HintRA5.EndUpdate;
  87 end;
  88
  89
  90
  91
  92 end.
  93
  94
  95