home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / FORM3.IPS < prev    next >
Text File  |  1997-11-16  |  2KB  |  50 lines
  1. VAR
  2.    ico : word; rad : integer; slo : integer; klavesa  : word;
  3. ENDVAR
  4.  
  5. PROCEDURE KrokV
  6.    ChangeIcon(ico,'PES_V.ICO');
  7.    IF slo < 288; slo := slo + 32; ENDIF;
  8.    MoveIcon(ico, slo+11, rad+11)
  9. ENDPROC
  10.  
  11. PROCEDURE KrokZ
  12.    ChangeIcon(ico,'PES_Z.ICO');
  13.    IF slo > 10; slo := slo - 32; ENDIF;
  14.    MoveIcon(ico, slo+11, rad+11)
  15. ENDPROC
  16.  
  17. PROCEDURE KrokS
  18.    ChangeIcon(ico,'PES_S.ICO');
  19.    IF rad > 10; rad := rad - 32; ENDIF;
  20.    MoveIcon(ico, slo+11, rad+11)
  21. ENDPROC
  22. PROCEDURE KrokJ
  23.    ChangeIcon(ico,'PES_J.ICO');
  24.    IF rad < 224; rad := rad + 32; ENDIF;
  25.    MoveIcon(ico, slo+11, rad+11)
  26. ENDPROC
  27.  
  28. PROCEDURE stisk
  29.    IF KLAVESA = 38 THEN KROKS ENDIF;
  30.    IF KLAVESA = 40 THEN KROKJ ENDIF;
  31.    IF KLAVESA = 39 THEN KROKV ENDIF;
  32.    IF KLAVESA = 37 THEN KROKZ ENDIF;
  33. ENDPROC
  34.  
  35. PROCEDURE main
  36.    createForm   ('Form1', 'Test pou₧itφ rßm∙, tlaΦφtek a ikon', 50, 80, 430, 360);
  37.    addFrame('Form1', 9, 9, 324, 264);
  38.    addFrame('Form1', 9, 280, 410, 48);
  39.    addStatic ('Form1', "Pohyb pejska m∙₧ete na vymezenΘ ploÜe ovkßdat kurzorov²mi", 30, 284, 300, 14);
  40.    addStatic ('Form1', "klßvesami, nebo kliknutφm myÜφ na tlaΦφtko s Üipkou."    , 50, 304, 300, 14);
  41.    ico := addIcon('Form1', 'haf',  'PES_V.ICO', 11, 234, 32, 32, 'getx', 'gety');
  42.    addSpeedButton('Form1', 'KrokS','SIPKA_S.BMP', 367, 187, 24, 24);
  43.    addSpeedButton('Form1', 'KrokJ','SIPKA_J.BMP', 367, 241, 24, 24);
  44.    addSpeedButton('Form1', 'KrokV','SIPKA_V.BMP', 394, 214, 24, 24);
  45.    addSpeedButton('Form1', 'KrokZ','SIPKA_Z.BMP', 340, 214, 24, 24);
  46.    rad := 224; slo := 0;
  47.    FormActionKey('form1', 'stisk', 'klavesa');
  48.    formDialog('Form1');
  49.    QUIT;
  50. ENDPROC