home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk5 / data.5 / WINTIME / APPS / I_DEKLAR.PGM < prev    next >
Text File  |  1996-12-03  |  5KB  |  131 lines
  1. Include
  2.  
  3. type
  4.   tool_arr = array[1..7] of short;
  5. var
  6.   msg  : integer;                   // Φφslo udßlosti
  7.   handle : window_id;               // nepou₧φvß se v tΘto aplikaci (pro Get_ext_message)
  8.   konec  : boolean;                 // p°φznak konce
  9.   id, id_sez : window_id;           // Φφsla r∙zn²ch pohled∙
  10.   id_vyb : window_id;
  11.   id_dbf : window_id;
  12.   id_wt : window_id;
  13.   id_form : window_id;
  14.   id_subvyb : window_id;
  15.   id_s : window_id;
  16.   id_prsch : window_id;
  17.   skup : short;                     // Φφslo skupiny
  18.   nazskup : string[30];             // nazev skupiny 
  19.   s2,s3,s4 : string[50];            // popis pro SetWindowText
  20.   vsechnysk : boolean;              // re₧im pro zobrazenφ vÜech skupin najednou   
  21.   curmain : cursor;                 // kurzor pro vybranΘ zßznamy
  22.   irec,erec : integer;
  23.   zrusitAkci : boolean;
  24.   labeltype : short;                // popis Ütφtku
  25.   labelsize : short;
  26.   labelname : string[10];
  27.   p : array[1..8] of boolean;       // popis kategoriφ
  28.   t : array[1..8] of string[20];
  29.   nall : boolean;
  30.   kolikrat : short;                 // nastavenφ tisku
  31.   preview : short;
  32.   str_od, str_do : short;
  33.   osloveni1,osloveni2 : string[20];
  34.   repsort : short;
  35.   pocetZaznamu : integer;                 // poΦet zßznam∙ v curmain
  36.   e1,e2,e3,e4,e5 : integer;
  37.   expkod : short;                         // popis exportu
  38.   exptype : short;
  39.   expset : short;
  40.   pole : array[1..255] of string[20];     // pole pro fieldy importovanΘho DBF
  41.   hlist  : short;                         // handle slo₧ky pohledu Seznam (Import z DBF)
  42.   patrs : array[1..15] of string[33];     // pole slou₧φcφ pro popis p°enosu z DBF
  43.   SQLinsert : string[1000];               // SQL p°φkaz INSERT pro p°enos dat z DBF do tabulky WinBase 
  44.   ukaz1,ukaz2 : short;
  45.   template : short;                       // vybranß Üablona WinTextu
  46.   pomocny : boolean;                      // podminka aktivity pohledu 
  47.   column: short;                          // prom. pro dlg. Find  
  48.   search : string[20];
  49.   cfind : cursor;
  50.   pocetNalez : integer;                    //poΦet zßznam∙ v cfind 
  51.   s : string[200];
  52.   dotaz : string[300];
  53.   dotazpom : short;
  54.   id_tool : window_id;
  55.   atr,oper,spoj : tool_arr;
  56.   hodn : array[1..7] of string[20];
  57.   vid : array[1..7] of boolean;
  58.   myname : CSIstring[10];
  59.   cis_imp : short;
  60.   editTisk : boolean;
  61.   cpom : cursor;                          // kurzor do pomocnΘ tabulky _tmpx
  62.   cx : cursor;                            // sejmut² kurzor z pohledu p°ed tiskem
  63.   curtisk : cursor;
  64.   tabul : string[10];
  65.   mm : boolean;
  66.   kon : boolean;                         // mß se zapisovat MM do tab. kontakt∙?
  67.   sp : short;                            // sp=1 spojka=AND; sp=2 spojka=OR
  68.   dvekateg : boolean;                    // pro podm. aktivity v pohledu PoleKateg
  69.   kolikpred : short;
  70.   pomocglob : short;                     // vlo₧enφ Φφsla firmy do novΘho zßznamu pro sch∙zku
  71.   idsch : window_id;                     // pomocnΘ pro pohled na sch∙zky
  72.   cislof : integer;
  73.   vybrat : boolean;                      // pro pohled VybratSkup true=vybrat, false=zmenit
  74.   spomx : string[80];                    // nadpis pohledu Pdbf
  75.   pomrec : integer;                      // pro ulo₧enφ Φφsla zßznamu p°i stisku tlaΦ. Kontakty
  76.   ckontakty : cursor;
  77.   ptatse : boolean;                      // priznak pro zeptani se na ulozeni dotazu
  78.   jeden : short;                         // zm∞nit skupinu u jednoho nebo vφce zßznam∙?
  79.   pathwb : string[100];
  80.   pathwt : string[100];                   // cesty k program∙m
  81.   pathwm : string[100];
  82.   pathwf : string[100];
  83.  
  84. table
  85.   TFirma,Tschuzky,Tsablonywt,Tool_res,Tdotazy,Tinserty,MailMerge,Parametry,Skupiny,Firmakopie,TABTAB,OBJTAB;
  86.  
  87.  
  88. function GetDlgItem(id : window_id; item : integer) : window_id;   
  89. {*******************************************}
  90. external 'USER32';
  91.  
  92. procedure SetWindowText(id : window_id; var tex : string[50]);   
  93. {*******************************************}
  94. external 'USER32.DLL' name 'SetWindowTextA';
  95.  
  96. function RegQueryValue(hkey : integer; var subkey,value : string; 
  97.                        var buf : integer) : integer;
  98. {*******************************************}
  99. external 'ADVAPI32' name 'RegQueryValueA';
  100.  
  101. function Server_access(var path : string[100]) : boolean;   
  102. {*******************************************}
  103. external 'WBKERNEL.DLL';
  104.  
  105. procedure SmazatFrontu;
  106. {*******************************************}
  107. //sma₧e frontu zprßv, po zav°enφ modßlnφho pohledu by se provßd∞ly p°φpadnΘ akce def. pomocφ Register_key
  108. var
  109.   nsg : integer;
  110. begin
  111.   while Peek_message do Get_message(nsg);
  112. end;
  113.  
  114. function GetProfString(var sekce, polozka, default, buffer : string; vel : integer; var ini : string) : integer;      
  115. {*******************************************}
  116. external 'KERNEL32' name 'GetPrivateProfileStringA';  
  117.  
  118. function GetTempPathA(vel : integer; var buffer : string) : integer;
  119. {*******************************************}
  120. external 'KERNEL32';
  121.  
  122. function GetTempDir : string[255];
  123. {*******************************************}
  124. var
  125.   pat : string[255];
  126. begin
  127.   GetTempPathA(255,pat);
  128.   GetTempDir :=pat;
  129. end;
  130.  
  131.