home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / FORM4.IPS < prev    next >
Text File  |  1997-11-16  |  858b  |  23 lines
  1. VAR
  2.    ico : word; GetX : integer; GetY : integer
  3.    sayX : word; sayY : word;
  4. ENDVAR
  5.  
  6. PROCEDURE klik
  7.    DlgSetControlText(sayX,"Sou°adnice X = "+IntToStr(GetX));
  8.    DlgSetControlText(sayY,"Sou°adnice Y = "+IntToStr(GetY));
  9. ENDPROC
  10.  
  11. PROCEDURE main
  12.    GetX := 0;
  13.    GetY := 0;
  14.    createForm   ('Form1', 'Test pou₧itφ rßm∙ a ikon', 100, 150, 300, 160);
  15.    addFrame('Form1', 10, 10, 180, 60);
  16.    addStatic ('Form1', "Pokud klikn∞te myÜφ na ikonu pejska,", 30, 85, 300, 14);
  17.    addStatic ('Form1', "zobrazφ se sou°adnice kliknutφ.", 40, 105, 300, 14);
  18.    ico  := addIcon('Form1', 'klik', 'PES_V.ICO', 20, 20, 32, 32, 'GetX', 'GetY');
  19.    sayX := addStatic ('Form1', "Sou°adnice X = "+IntToStr(GetX), 70, 18, 100, 14);
  20.    sayY := addStatic ('Form1', "Sou°adnice Y = "+IntToStr(GetY), 70, 38, 100, 14);
  21.    formDialog('Form1');
  22.    QUIT;
  23. ENDPROC