home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / GRMOUSE.DOC < prev    next >
Text File  |  2001-03-24  |  5KB  |  133 lines
  1. ~16|0|05 Jednotka GrMouse.fbl
  2.  
  3.     Jednotka zajiτ£uje obsluhu grafického kurzoru.
  4.  Grafické kurzory jsou p²edem vytvo²eny v souboru
  5.  LITT.CHR. V této verzi je k dispozici celkem sedm
  6.  grafick∞ch kurzorà, které se definují p²íkazem
  7.  CursorType jejich názvem nebo ƒíslenou hodnotou:
  8.  
  9.       CURSYS    = 1;
  10.       CURCLOCK  = 2;
  11.       CURSORTXT = 3;
  12.       CLOCK     = 4;
  13.       BARVY     = 5;
  14.       SELECT    = 6;
  15.       CURLUPA   = 7;
  16.  
  17.     Protoºe tato verze pracuje v reºimu 800x600 bodà,
  18.  jsou n╪které funkce této jednotky ve dvojím provedení.
  19.  V základním provedení jsou urƒeny pro práci s ovladaƒem
  20.  v klasick∞ch hodnotách, kdy není aktivován grafick∞
  21.  kurzor TFBPro. Jsou to funkce: 
  22.          SetHor, SetVert, SetCursorXY a MouseOutSide
  23.  Druhé provedení pracuje s grafick∞m kurzorem TFBPro
  24.  a vτechny pozice p²epoƒítává pro rozliτení 800x600 bodà.
  25.  Jsou to vτechny ostatní funkce.
  26.  
  27.  
  28.  |1|05 1.1  GetCursorXY(var button,horiz,vert:Word);
  29.     Zjiτ£uje na jaké tlaƒítko bylo kliknuto (button)
  30.  a horizontální a vertikálmí pozici X a Y.
  31.  
  32.  |1|05 1.2  SetCursorXY(horiz,vert:Word);
  33.     Nastaví kurzor na zadanou horizontální a vertikální
  34.  pozici X a Y. Tato procedura se nepouºívá p²i aktivaci
  35.  grafického kurzoru TFBPro!
  36.  
  37.  
  38.  |1|05 1.3  SetGrCursorXY(horiz,vert:Word);
  39.     Nastaví grafick∞ kurzor na horizontální a vertikální
  40.  pozici X a Y. Procedura p²epoƒítává tuto pozici pro reºim
  41.  800x600b a souƒasn╪ zabraσuje pohybu kurzoru mimo tuto
  42.  plochu.
  43.  
  44.  |1|05 1.4  DriveMouse : Boolean;
  45.     Zjiτ£uje p²ítomnost a aktivaci ovladaƒe myτi. V∞sledek
  46.  vrací jako hodnotu typu Boolean.
  47.  
  48.  |1|05 1.5  SetHor(minimum,maximum:Word);
  49.     Nastaví minimální a maximální horizontální pozice,
  50.  ve kter∞ch se smí kurzor pohybovat. Nepouºívá se p²i
  51.  aktivaci grafického kurzoru TFBPro!
  52.  
  53.  |1|05 1.6  SetVert(minimum,maximum:Word);
  54.     Nastaví minimální a maximální vertikální pozice,
  55.  ve kter∞ch se smí kurzor pohybovat. Nepouºívá se p²i
  56.  aktivaci grafického kurzoru TFBPro!
  57.  
  58.  |1|05 1.7  SetGrHor(minimum,maximum:Word);
  59.     Nastaví minimální a maximální horizontální pozice,
  60.  ve kter∞ch se smí pohybovat grafick∞ kurzor TFBPro,
  61.  a proto p²epoƒítává pozice pro reºim 800x600b.
  62.  
  63.  |1|05 1.8  SetGrVert(minimum,maximum: Word);
  64.     Nastaví minimální a maximální vertikální pozice,
  65.  ve kter∞ch se smí pohybovat grafick∞ kurzor TFBPro,
  66.  a proto p²epoƒítává pozice pro reºim 800x600b.
  67.  
  68.  |1|05 1.9  MousWait;
  69.     ¼eká na stisk levého nebo pravého tlaƒítka myτi.
  70.  
  71.  |1|05 1.10 MouseSet(hor,ver: word);
  72.     Nastaví rychlost pohybu grafického kurzoru 
  73.  v horizontální a vertikální pozici. Pro aktivaci
  74.  grafického kurzoru TFBPro se pouºívá nastavení 1,1
  75.  jinak 5,5.
  76.  
  77.  |1|05 1.11 CursorReset;
  78.     Zruτí p²edeτlé hodnoty v buσce AX, nastaví základní
  79.  rychlost kurzoru, horizontální a vertikální rozsah.
  80.  Pozici kurzoru nastaví na pàvodní p²ed voláním této
  81.  funkce. 
  82.     Funkce najde uplatn╪ní p²edevτím pro situaci, kdy
  83.  jedna sekvence reagovala nap². na stisk levého tlaƒítka
  84.  myτi a následná funkce má reagovat na totéº. Mezi tyto
  85.  dv╪ sekvence se umístí tato funkce.
  86.  
  87.  |1|05 1.12 MouseOutSide(LME,PME,HME,SME:integer) : Boolean;
  88.     Zjiτ£uje, zda se kurzor (nikoli vτak TFBPro) nalézá
  89.  mimo uvedenou plochu. V∞sledek vrací jako hodnotu typu
  90.  Boolean.
  91.  
  92.  |1|05 1.13 CursorBeyond(LME,PME,HME,SME:integer) : Boolean;
  93.     Zjiτ£uje, zda se grafick∞ kurzor TFBPro nalézá mimo
  94.  uvedenou plochu. Pouºívá se pro reºim 800x600b. V∞sledek
  95.  vrací jako hodnotu typu Boolean.
  96.  
  97.  |1|05 1.14 LeftMousButton : Boolean;
  98.     Zjiτ£uj╪, zda bylo kliknuto na levé tlaƒítko myτi.
  99.  V∞sledek vrací jako hodnotu typu Boolean.
  100.  
  101.  |1|05 1.15 RightMousButton : Boolean;
  102.     Zjiτ£uj╪, zda bylo kliknuto na pravé tlaƒítko myτi.
  103.  V∞sledek vrací jako hodnotu typu Boolean.
  104.  
  105.  |1|05 1.16 InitCursor;
  106.     Velmi dàleºitá funkce! Inicializuje grafick∞ kurzor
  107.  TFBPro pro reºim 800x600b a nastaví jeho rychlost na 
  108.  horizontální a vertikální hranice. V aplikacích se
  109.  pouºije jen vyjímeƒn╪, nebo£ p²íkaz InitFB jiº tuto
  110.  funkci obsahuje.
  111.  
  112.  |1|05 1.17 CursorType(TypC:word);
  113.     Aktivuje typ grafického kurzoru (viz seznam kurzorà).
  114.  Souƒasn╪ s typem kurzoru nastaví i horizontální a vertikální
  115.  minimální a maximální pozice pro pohyb daného typu kurzoru.
  116.  
  117.  |1|05 1.18 CursorOn;
  118.     Zapíná (ukáºe) grafick∞ kurzor TFBPro. Pokud má b∞t
  119.  zajiτt╪n pohyb kurzoru ve smyƒce :loop> ... :loop< musí
  120.  následovat p²íkaz WatchCursor;
  121.  
  122.  |1|05 1.19 WatchCursor;
  123.     P²íkaz zajiτ£uje pohyb grafického kurzoru TFBPro ve
  124.  smyƒce. P²íkaz se uvádí po p²íkazu CursorOn za klíƒov∞m
  125.  slovem :loop>
  126.     Pokud by tento p²íkaz byl vynechán p²i aktivaci
  127.  grafického kurzoru TFBPro, nebude kurzor funkƒní !
  128.  
  129.  |1|05 1.20 CursorOff;
  130.    Vypíná (skryje) grafick∞ kurzor TFBPro.
  131.  
  132.  
  133.