home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / hh.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.7 KB  |  132 lines
  1. unit Hh;
  2.     
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,PRINTERS;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     Image1: TImage;
  12.     Memo1: TMemo;
  13.     mov: TBitBtn;
  14.     back: TBitBtn;
  15.     Timer1: TTimer;
  16.     Label1: TLabel;
  17.     PR: TBitBtn;
  18.     Memo2: TMemo;
  19.     procedure backClick(Sender: TObject);
  20.     procedure Timer1Timer(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.     procedure movClick(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure PRClick(Sender: TObject);
  25.     procedure PRMouseMove(Sender: TObject; Shift: TShiftState; X,
  26.       Y: Integer);
  27.     procedure movMouseMove(Sender: TObject; Shift: TShiftState; X,
  28.       Y: Integer);
  29.     procedure backMouseMove(Sender: TObject; Shift: TShiftState; X,
  30.       Y: Integer);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   Form2: TForm2;
  39.   go,P,M:bOOLEAN;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TForm2.backClick(Sender: TObject);
  46. begin
  47. MEMO2.CLEAR;
  48. MEMO1.CLEAR;
  49. close;
  50. end;
  51.  
  52. procedure TForm2.Timer1Timer(Sender: TObject);
  53. begin
  54.      IF GO THEN
  55.      BEGIN
  56.      if memo1.left=25 then
  57.      begin
  58.      p:=true;
  59.      m:=False;
  60.      end;
  61.      if memo1.left=310 then
  62.      begin
  63.      m:=true;
  64.      p:=FaLSE;
  65.      END;
  66.      if p then memo1.left:=memo1.left+5;
  67.      if m then memo1.left:=memo1.left-5;
  68.      END;
  69. end;
  70.  
  71. procedure TForm2.FormShow(Sender: TObject);
  72. begin
  73.      GO:=TRUE;
  74.      IMAGE1.PICTURE.LOADFROMFILE('\TEXT.BMP');
  75. end;
  76.  
  77. procedure TForm2.movClick(Sender: TObject);
  78. begin
  79.      IF MOV.CAPTION='Stop Move' then
  80.      begin
  81.      GO:=fALSE;
  82.      mov.caption:='Active';
  83.      end
  84.      else
  85.      begin
  86.      GO:=true;
  87.      mov.caption:='Stop Move';
  88.      end;
  89. end;
  90.  
  91. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  92. begin
  93.      go:=false;
  94. end;
  95.  
  96. procedure TForm2.PRClick(Sender: TObject);
  97. VAR
  98. MYFILE:TEXTFILE;
  99. LI:INTEGER;
  100. begin
  101.   AssignPrn(MyFile);
  102.   Rewrite(MyFile);
  103.   Writeln(MyFile, ' ');
  104.   Writeln(MyFile, ' ');
  105.   Writeln(MyFile, ' ');
  106.   Writeln(MyFile, '   '+LABEL1.CAPTION);
  107.   Writeln(MyFile, ' ');
  108.   FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
  109.   Writeln(MyFile, '    '+MEMO2.LINES[LI]);
  110.   System.CloseFile(MyFile);
  111. end;
  112.  
  113. procedure TForm2.PRMouseMove(Sender: TObject; Shift: TShiftState; X,
  114.   Y: Integer);
  115. begin
  116. pr.setfocus;
  117. end;
  118.  
  119. procedure TForm2.movMouseMove(Sender: TObject; Shift: TShiftState; X,
  120.   Y: Integer);
  121. begin
  122. mov.setfocus;
  123. end;
  124.  
  125. procedure TForm2.backMouseMove(Sender: TObject; Shift: TShiftState; X,
  126.   Y: Integer);
  127. begin
  128. back.setfocus;
  129. end;
  130.  
  131. end.
  132.