home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / ONESRVFB.DOC < prev    next >
Text File  |  2001-03-10  |  2KB  |  43 lines
  1. ~16|0|05 Jednotka "OneSrvX.fbl"
  2.  
  3.  |1|05 A.1 ü AssignOneSurvey(SetHod);
  4.     Nastaví poƒáteƒní hodnoty pro v∞pis statické nabídky. Okno nabídky
  5.  neukládá p²ekryté pozadí ani po opuτt╪ní nabídky nevrací pàvodní pozadí.
  6.  Vyuºívá se p²edevτím do kartotéky nebo na plochu, ve které má b∞t toto
  7.  okno trvale umíst╪no. Aby byl zajiτt╪n v∞pis nabídky od posledn╪ pouºitého
  8.  zaƒátku v∞pisu a uchován ²ádek, kter∞ byl naposled selektován, je nutné
  9.  p²ed prvním voláním této procedury nastavit hodnotu poƒáteƒního v∞pisu
  10.  nabídkového souboru a selektovaného ²ádku. Ob╪ hodnoty se uvedou jako
  11.  ²et╪zec do jednoduch∞ch uvozovek:
  12.  |0|09 AssignOneSurvey('0,0');
  13.  
  14.  |1|05 P.1 ü PosSurvey;
  15.     Zjiτ£uje, zda po kliknutí na tlaƒítko myτi se kurzor nalézá uvnit² 
  16.  plochy statické nabídky. Pokud tomu tak je, vrátí hodnotu TRUE. Je nyní 
  17.  moºné programov╪ p²ejít do procedury, která obsluhuje toto okno. Viz 
  18.  dalτí funkce. 
  19.  
  20.  |1|05 1.2 ü SetOneSurvey(X1,Y1,X2,Y2,PR,PZ,'Soubor.inv');
  21.     Nastaví poƒáteƒní hodnoty nabídkového okna na uvedené
  22.  pozice a souboru.
  23.  
  24.  |1|05 1.3 ü OneSurveyXY(MaxZn,'Soubor.inv');
  25.     Aktivuje okno statické nabídky. Volá se po zjiτt╪ní, zda se kurzor     
  26.  po kliknutí nalézá uvnit² plochy tohoto okna (PosSurvey). Nyní jsou 
  27.  k dispozici vτechny funkce okna. Opuτt╪ní okna musí b∞t zajiτt╪no
  28.  p²íkazem MouseBeyond. 
  29.  |0|09DefFrom EndNabidka;
  30.  |0|09SetOneSurvey(80,110,400,8,30,'system\makra.mak');
  31.  |0|09CursorOn;
  32.  |0|09:loop>
  33.  |0|09  WatchCursor;
  34.  |0|09  if LeftMousButton ÷ RightMousButton part
  35.  |0|09    CursorOff;
  36.  |0|09    if MouseBeyond(50,500,100,270) From EndNabidka;
  37.  |0|09    if PosSurvey next OneSurveyXY(30,'system\makra.mak');
  38.  |0|09    CursorOn;
  39.  |0|09  :if<
  40.  |0|09:loop< EndLoop;
  41.  |0|09@EndNabidka<
  42.  
  43.