home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / DOC / APPFB.DOC < prev    next >
Text File  |  2001-03-24  |  4KB  |  134 lines
  1. ~16|0|05 Jednotka AppFB.fbl
  2.  
  3.  Umoºσuje vytvá²et aplikaƒní ikony, které jsou
  4.  umís£ovány na úvodní plochu programu.
  5.  Aplikaƒní ikony je moºné pouºít pro spouτt╪ní dalτích
  6.  ƒástí programu nebo jin∞ch programà p²íkazem SwapVectors.
  7.  
  8.  |1|09 Postup pouºítí:
  9.  1) v zaƒátku programu uvedeme nejprve pomocí
  10.     p²íkazu |1|05IcoApp |0|12vτechny aplikaƒní ikony
  11.     s uvedením pozic umíst╪ní X a Y, po²adí, jména
  12.     obrázku .LMG (37x37bodà), textu pod ikonu (skládá
  13.     se ze dvou ²ádkà - kaºd∞ ²ádek max. 10 znakà)
  14.     a barvu textu. P²ed p²íkazem DisposeFB na konci
  15.     programu, uvedeme p²íkaz |1|05SaveAppIni(PROGRAM).
  16.  
  17.  2) po spuτt╪ní programu p²emístíme podle pot²eby
  18.     aplikaƒní ikony na ploτe a ukonƒíme program.
  19.     P²íkaz |1|05SaveAppIni |0|12uloºí nové rozmíst╪ní ikon na
  20.     ploτe do souboru PROGRAM.INI.
  21.  
  22.  3) Nyní màºeme pàvodní p²íkazy IcoApp bu╘to z textu
  23.     vyjmout nebo uzav²ít sloºen∞mi závorkami
  24.     {IcoApp...}. Na jejich místo p²ipíτeme p²íkaz
  25.     |1|05LoadAppIni(PROGRAM).
  26.  
  27.  4) P²i novém spuτt╪ní programu budou aplikaƒní ikony
  28.     umíst╪ny na ploτe podle údajà v souboru PROGRAM.INI.
  29.  
  30.  |1|12 P²íklad prvního spuτt╪ní:
  31.  |0|09 //Test//
  32.  |0|09 #unit GraphFBP, GrMouse, AppFB;
  33.  |0|09 .....
  34.  |0|09 .....
  35.  |0|09 Follow
  36.  |0|09  InitFB;
  37.  |1|09  {LoadAppIni('TEST');}
  38.  |1|05  NullArrApp;
  39.  |1|05  IcoApp(10,200,1,'KARTA.LMG','Volba adresy',White);
  40.  |1|05  IcoApp(50,200,2,'KARTA2.LMG','Nová adresa',White);
  41.  |1|05  IcoApp(90,200,2,'KARTA3.LMG','Zruτ adresu',White);
  42.  |0|09  CursorOn;
  43.  |0|09  :loop>
  44.  |0|09    WatchCursor;
  45.  |0|09    if LeftMousButton part
  46.  |0|09      CursorOff;
  47.  |0|09      if PosIcoApp(1) next VolbaAdresy;
  48.  |0|09      ....
  49.  |0|09      CursorOn;
  50.  |0|09    :if<
  51.  |0|09    if RightMousButton part
  52.  |0|09      CursorOff;
  53.  |0|09      if PosIcoApp(1) next MoveIcoApp(1);
  54.  |0|09      ....
  55.  |0|09      CursorOn;
  56.  |0|09    :if<
  57.  |0|09    ...
  58.  |0|09    ...
  59.  |0|09  :loop< EndLoop;
  60.  |1|05  SaveAppIni('TEST');
  61.  |0|09  DisposeFB;
  62.  |0|09 EndFo
  63.  
  64.  
  65.  |1|12 P²íklad druhého a dalτích spuτt╪ní:
  66.  |0|09 //Test//
  67.  |0|09 #unit GraphFBP, GrMouse, AppFB;
  68.  |0|09 .....
  69.  |0|09 .....
  70.  |0|09 Follow
  71.  |0|09  InitFB;
  72.  |1|05  LoadAppIni('TEST');
  73.  |1|09  {NullArrApp;}
  74.  |1|09  {IcoApp(10,200,1,'KARTA.LMG','Volba adresy',White);}
  75.  |1|09  {IcoApp(50,200,2,'KARTA2.LMG','Nová adresa',White);}
  76.  |1|09  {IcoApp(90,200,2,'KARTA3.LMG','Zruτ adresu',White);}
  77.  |0|09  CursorOn;
  78.  |0|09  :loop>
  79.  |0|09    WatchCursor;
  80.  |0|09    if LeftMousButton part
  81.  |0|09      CursorOff;
  82.  |0|09      if PosIcoApp(1) next VolbaAdresy;
  83.  |0|09      ....
  84.  |0|09      CursorOn;
  85.  |0|09    :if<
  86.  |0|09    if RightMousButton part
  87.  |0|09      CursorOff;
  88.  |0|09      if PosIcoApp(1) next MoveIcoApp(1);
  89.  |0|09      ....
  90.  |0|09      CursorOn;
  91.  |0|09    :if<
  92.  |0|09    ...
  93.  |0|09    ...
  94.  |0|09  :loop< EndLoop;
  95.  |1|05  SaveAppIni('TEST');
  96.  |0|09  DisposeFB;
  97.  |0|09 EndFo
  98.  
  99.  |1|05  1.0 NullArrApp;
  100.      Uvádí se p²i prvním spuτt╪ní místo LoadAppIni.
  101.  Procedura vyprázdní datová pole pro údaje o pozicích
  102.  ikon a textu k nim.
  103.  
  104.  |1|05  1.1 IcoApp(X,Y,PorIco,'NameIco.lmg',
  105.  |1|05            'Text pod ikonu',BTextu);
  106.  P²íkaz umístí na pozizi X a Y podle uvedeného po²adí
  107.  aplikaƒní ikonu oznaƒenou jako obrázek typu .LMG
  108.  (NameIco.lmg). Pod ikonu vypíτe text uveden∞ jako
  109.  'Text pod ikonu' do dvou ²ádkà uvedenou barvou textu
  110.  (BTextu).
  111.  
  112.  |1|05 1.2 PosIcoApp(Po²adí)
  113.  Funkce zjiτ£uje, zda bylo kliknuto na pozici aplikaƒní
  114.  ikony uvedeného po²adí. V∞sledek vrací jako TRUE nebo
  115.  FALSE.(Pokud bylo kliknuto prav∞m tlaƒítkem myτi, lze
  116.  se odvolat na funkci MoveIcoApp).
  117.  
  118.  |1|05 1.3 MoveIcoApp(Po²adí);
  119.  Provede p²esun ikony aklikace uvedeného po²adí.
  120.  
  121.  |1|05 1.4 LoadAppIni('PROGRAM');
  122.  Nahraje textov∞ soubor, ve kterém jsou uloºeny údaje
  123.  o aplikaƒních ikonách, v takovém p²ípad╪ budou ikony
  124.  rozmíst╪ny na ploτe |1|12podle t╪chto údajà. |0|12Parametr
  125.  PROGRAM vyjad²uje skuteƒn∞ název programu (koncovka
  126.  se neuvádí).
  127.  
  128.  |1|05 1.5 SaveAppIni('PROGRAM');
  129.  Uloºí údaje o aplikaƒních ikonách na ploτe do textového
  130.  souboru |1|12PROGRAM.INI. |0|12Parametr PROGRAM vyjad²uje skuteƒn∞
  131.  název programu |1|05(koncovka se neuvádí).
  132.  
  133.  
  134.