home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / java / intro.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  4.6 KB  |  205 lines
  1. unit Intro;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,PRINTERS;
  8.                    
  9. type
  10.   TForm3 = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     FE: TButton;
  14.     HI: TButton;
  15.     INS: TButton;
  16.     BitBtn1: TBitBtn;
  17.     BitBtn2: TBitBtn;
  18.     ED: TBitBtn;
  19.     MEMO1: TMemo;
  20.     Label2: TLabel;
  21.     Memo2: TMemo;
  22.     procedure BitBtn1Click(Sender: TObject);
  23.     procedure EDClick(Sender: TObject);
  24.     procedure FEClick(Sender: TObject);
  25.     procedure HIClick(Sender: TObject);
  26.     procedure INSClick(Sender: TObject);
  27.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  28.     procedure BitBtn2Click(Sender: TObject);
  29.     procedure FormShow(Sender: TObject);
  30.     procedure FEMouseMove(Sender: TObject; Shift: TShiftState; X,
  31.       Y: Integer);
  32.     procedure EDMouseMove(Sender: TObject; Shift: TShiftState; X,
  33.       Y: Integer);
  34.     procedure HIMouseMove(Sender: TObject; Shift: TShiftState; X,
  35.       Y: Integer);
  36.     procedure INSMouseMove(Sender: TObject; Shift: TShiftState; X,
  37.       Y: Integer);
  38.     procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  39.       Y: Integer);
  40.     procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  41.       Y: Integer);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   Form3: TForm3;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TForm3.BitBtn1Click(Sender: TObject);
  56. begin
  57. CLOSE
  58. end;
  59.  
  60. procedure TForm3.EDClick(Sender: TObject);
  61. begin
  62. MESSAGEDLG('NOTEPAD WILL DISAPPEAR AFTER YOU CLICK ON OUTSIDE OF IT . YOU CAN BRING IT UP AGAIN BY USE ALT+TAB KEYS !',
  63.  mtInformation,[mbOk], 0);
  64. WINEXEC('NOTEPAD',sw_SHOWNORMAL);
  65. end;
  66.  
  67. procedure TForm3.FEClick(Sender: TObject);
  68. begin
  69. MEMO1.LEFT:=240;
  70. MEMO1.TOP:=56;
  71. MEMO1.WIDTH:=377;
  72. MEMO1.HEIGHT:=377;
  73. MEMO1.SCROLLBARS:=SSvERTICAL;
  74. MEMO1.CLEAR;
  75. MEMO2.CLEAR;
  76. IF TAG=1 THEN
  77. BEGIN
  78. MEMO1.LINES.LOADFROMFILE('\TEXT\FEATURES.TXT');
  79. MEMO2.LINES.LOADFROMFILE('\TEXT\FEATURES.TXT');
  80. END;
  81. IF TAG=2 THEN
  82. MEMO1.LINES.LOADFROMFILE('\TEXT\AWT1.TXT');
  83. FORM3.WINDOWSTATE:=WSMINIMIZED;
  84. FORM3.WINDOWSTATE:=WSMAXIMIZED;
  85. end;
  86.  
  87. procedure TForm3.HIClick(Sender: TObject);
  88. begin
  89. MEMO1.LEFT:=240;
  90. MEMO1.TOP:=56;
  91. MEMO1.WIDTH:=377;
  92. MEMO1.HEIGHT:=377;
  93. MEMO1.SCROLLBARS:=SSvERTICAL;
  94. MEMO1.CLEAR;
  95. MEMO2.CLEAR;
  96. IF TAG=1 THEN
  97. BEGIN
  98. MEMO1.LINES.LOADFROMFILE('\TEXT\HISTORY.TXT');
  99. MEMO2.LINES.LOADFROMFILE('\TEXT\HISTORY.TXT');
  100. END;
  101. IF TAG=2 THEN
  102. BEGIN
  103. MEMO1.LINES.LOADFROMFILE('\TEXT\AWT2.TXT');
  104. MEMO2.LINES.LOADFROMFILE('\TEXT\AWT2.TXT');
  105. END;
  106. FORM3.WINDOWSTATE:=WSMINIMIZED;
  107. FORM3.WINDOWSTATE:=WSMAXIMIZED;
  108.  
  109. end;
  110.  
  111. procedure TForm3.INSClick(Sender: TObject);
  112. begin
  113. MEMO1.LEFT:=240;
  114. MEMO1.TOP:=56;
  115. MEMO1.WIDTH:=377;
  116. MEMO1.HEIGHT:=377;
  117. MEMO1.SCROLLBARS:=SSvERTICAL;
  118. MEMO1.CLEAR;
  119. MEMO2.CLEAR;
  120. IF TAG=1 THEN
  121. BEGIN
  122. MEMO1.LINES.LOADFROMFILE('\TEXT\IS.TXT');
  123. MEMO2.LINES.LOADFROMFILE('\TEXT\IS.TXT');
  124. END;
  125. IF TAG=2 THEN
  126. BEGIN
  127. MEMO1.LINES.LOADFROMFILE('\TEXT\AWT3.TXT');
  128. MEMO2.LINES.LOADFROMFILE('\TEXT\AWT3.TXT');
  129. END;
  130. FORM3.WINDOWSTATE:=WSMINIMIZED;
  131. FORM3.WINDOWSTATE:=WSMAXIMIZED;
  132.  
  133. end;
  134.  
  135. procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
  136. begin
  137. MEMO1.CLEAR;
  138. MEMO1.LINES.ADD('I AM WAITING...');
  139. MEMO1.LEFT:=416;
  140. MEMO1.TOP:=296;
  141. MEMO1.WIDTH:=201;
  142. MEMO1.HEIGHT:=137;
  143. MEMO1.SCROLLBARS:=SSNONE;
  144. end;
  145.  
  146. procedure TForm3.BitBtn2Click(Sender: TObject);
  147. VAR
  148. MYFILE:TEXTFILE;
  149. LI:INTEGER;
  150. begin
  151.   AssignPrn(MyFile);
  152.   Rewrite(MyFile);
  153.   Writeln(MyFile, ' ');
  154.   Writeln(MyFile, ' ');
  155.   Writeln(MyFile, ' ');
  156.   Writeln(MyFile, '   '+LABEL1.CAPTION);
  157.   Writeln(MyFile, ' ');
  158.   FOR LI:=0 TO MEMO2.LINES.COUNT-1 DO
  159.   Writeln(MyFile, '    '+MEMO2.LINES[LI]);
  160.   System.CloseFile(MyFile);
  161. end;
  162.  
  163. procedure TForm3.FormShow(Sender: TObject);
  164. begin
  165. IMAGE1.PICTURE.LOADFROMFILE('\MAN.BMP');
  166. end;
  167.  
  168. procedure TForm3.FEMouseMove(Sender: TObject; Shift: TShiftState; X,
  169.   Y: Integer);
  170. begin
  171. fe.setfocus;
  172. end;
  173.  
  174. procedure TForm3.EDMouseMove(Sender: TObject; Shift: TShiftState; X,
  175.   Y: Integer);
  176. begin
  177. ed.setfocus;
  178. end;
  179.  
  180. procedure TForm3.HIMouseMove(Sender: TObject; Shift: TShiftState; X,
  181.   Y: Integer);
  182. begin
  183. hi.setfocus;
  184. end;
  185.  
  186. procedure TForm3.INSMouseMove(Sender: TObject; Shift: TShiftState; X,
  187.   Y: Integer);
  188. begin
  189. ins.setfocus;
  190. end;
  191.  
  192. procedure TForm3.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
  193.   Y: Integer);
  194. begin
  195. bitbtn2.setfocus;
  196. end;
  197.  
  198. procedure TForm3.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  199.   Y: Integer);
  200. begin
  201. bitbtn1.setfocus;
  202. end;
  203.  
  204. end.
  205.