home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / zcd30120.exe / Demo / spot_1.pas < prev    next >
Pascal/Delphi Source File  |  1997-01-07  |  4KB  |  132 lines
  1. {$A+,B-,D-,F-,G+,I+,K+,L-,N+,P+,Q-,R-,S+,T-,V-,W-,X+,Y-}
  2.  
  3. Unit Spot_1;
  4.  
  5. {
  6.        Spot_1.PAS, a unit for TestSpot.DPR, a testprogram for:
  7.                                                                 Tz3DLabel
  8.                                                                 TzColorBtn
  9.                                                                 TzMouseSpot
  10.                                                                 TzHint
  11.                                                                 TzShowApp
  12.  
  13.                       The ZieglerCollection one (TM)
  14.                                 Version 1,01
  15.  
  16.            (C) Copyright 1995,96,97 By ZieglerSoft, all rights reserved
  17. }
  18.  
  19. Interface
  20.  
  21. Uses
  22.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  23.   Forms, Dialogs, ExtCtrls, Animate, StdCtrls, Mystd;
  24.  
  25. Type
  26.   TForm1 = Class(TForm)
  27.     Image1: TImage;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     zHint1: TzHint;
  31.     zShowApp1: TzShowApp;
  32.     z3DLabel1: Tz3DLabel;
  33.     zColorBtn1: TzColorBtn;
  34.     zMouseSpot1: TzMouseSpot;
  35.     zMouseSpot2: TzMouseSpot;
  36.     zMouseSpot3: TzMouseSpot;
  37.     zMouseSpot4: TzMouseSpot;
  38.     zMouseSpot5: TzMouseSpot;
  39.     zMouseSpot6: TzMouseSpot;
  40.     zMouseSpot7: TzMouseSpot;
  41.     zMouseSpot8: TzMouseSpot;
  42.     zMouseSpot9: TzMouseSpot;
  43.     zMouseSpot10: TzMouseSpot;
  44.     zMouseSpot11: TzMouseSpot;
  45.     zMouseSpot12: TzMouseSpot;
  46.     zMouseSpot13: TzMouseSpot;
  47.     zMouseSpot14: TzMouseSpot;
  48.     zMouseSpot15: TzMouseSpot;
  49.     zMouseSpot16: TzMouseSpot;
  50.     zMouseSpot17: TzMouseSpot;
  51.     zMouseSpot18: TzMouseSpot;
  52.     Procedure zColorBtn1Click(Sender: TObject);
  53.     Procedure zMouseSpot8Click(Sender: TObject);
  54.     Procedure zMouseSpot1Click(Sender: TObject);
  55.     Procedure zMouseSpot2Click(Sender: TObject);
  56.     Procedure zMouseSpot4Click(Sender: TObject);
  57.     Procedure zMouseSpot5Click(Sender: TObject);
  58.     Procedure zMouseSpot6Click(Sender: TObject);
  59.     Procedure zMouseSpot3Click(Sender: TObject);
  60.     procedure zShowApp1SecondInstance(Sender: TObject;
  61.       var BringFirstInstanceToFront: Boolean);
  62.   Public
  63.     Procedure SetText(I,I2:String);
  64.   End;
  65.  
  66. var
  67.   Form1: TForm1;
  68.  
  69. implementation
  70.  
  71. {$R *.DFM}
  72.  
  73. Procedure TForm1.zColorBtn1Click(Sender: TObject);
  74. Begin
  75.   Close;
  76. End;
  77.  
  78. Procedure TForm1.zMouseSpot8Click(Sender: TObject);
  79. Begin
  80.   Label2.Caption:='';
  81. End;
  82.  
  83. Procedure TForm1.SetText;
  84. Begin
  85.   Label2.Caption:=
  86.     I+#13#10'-----------------------------'#13#10'Population: '+I2;
  87. End;
  88.  
  89.  
  90. Procedure TForm1.zMouseSpot1Click(Sender: TObject);
  91. Begin
  92.   SetText('Copenhagen','1152221');
  93. End;
  94.  
  95. Procedure TForm1.zMouseSpot2Click(Sender: TObject);
  96. Begin
  97.   SetText('Odense','177333');
  98. End;
  99.  
  100. Procedure TForm1.zMouseSpot4Click(Sender: TObject);
  101. Begin
  102.   SetText('┼rhus','263829');
  103. End;
  104.  
  105. Procedure TForm1.zMouseSpot5Click(Sender: TObject);
  106. Begin
  107.   SetText('Randers','60951');
  108. End;
  109.  
  110. Procedure TForm1.zMouseSpot6Click(Sender: TObject);
  111. Begin
  112.   SetText('Aalborg','155552');
  113.   Label2.Caption:=Label2.Caption+#13#13#10+
  114.     'The home of ZieglerSoft';
  115. End;
  116.  
  117. Procedure TForm1.zMouseSpot3Click(Sender: TObject);
  118. Begin
  119.   SetText('Esbjerg','81561');
  120. End;
  121.  
  122. procedure TForm1.zShowApp1SecondInstance(Sender: TObject;
  123.   var BringFirstInstanceToFront: Boolean);
  124. begin
  125.   BringFirstInstanceTofront:=(
  126.   Application.MessageBox('The program is running on this machine already.'#13#10+
  127.     'This instance will be closed again.'#13#13#10'Do you want to see the first '+
  128.     'Instance now?','Warning',mb_IconQuestion or MB_yesNo)=IDYES);
  129. end;
  130.  
  131. End.
  132.