home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk12 / data.12 / WINTEXT / MAKRA / SOURCES / _SETUP.TXT < prev    next >
Text File  |  1995-02-13  |  4KB  |  175 lines
  1. Program Nastaveni;
  2.  
  3. type
  4.   str140 = string[140];
  5.  
  6. var
  7.   i : integer;
  8.   s : str140;
  9.   bylo_nastaveno : boolean;
  10.  
  11. procedure InsTextPara(var text : str140);
  12. begin
  13.   InsertText(text);
  14.   InsertNewPara;
  15. end;
  16.  
  17. begin
  18.   bylo_nastaveno := FALSE;
  19. //  if not IsDocDefault then
  20. //  begin
  21.     if not GetNewWinState then
  22.     begin
  23.       SetNewWinState(TRUE);
  24.       bylo_nastaveno := TRUE;
  25.     end;
  26.     NewFile;
  27. //  end;
  28.  
  29.   SetFormatFont(kCHPbold, kOn);
  30.   InsTextPara("Program vypφÜe nastavenφ WinTextu :");
  31.   InsertNewPara;
  32.   SetFormatFont(kCHPbold, kOff);
  33.  
  34.   if IsTabRulerOn then 
  35.     s := "Pravφtko s tabulßtory je zapnuto"
  36.   else
  37.     s := "Pravφtko s tabulßtory je vypnuto";
  38.   InsTextPara(s);
  39.  
  40.   if IsVertRulerOn then 
  41.     s := "SvislΘ pravφtko je zapnuto"
  42.   else
  43.     s := "SvislΘ pravφtko je vypnuto";
  44.   InsTextPara(s);
  45.  
  46.   if AreScrollbarsOn then 
  47.     s := "Zobrazenφ posuvnφk∙ je zapnuto"
  48.   else
  49.     s := "Zobrazenφ posuvnφk∙ je vypnuto";
  50.   InsTextPara(s);
  51.  
  52.   if IsFormatOn then 
  53.     s := "Zobrazenφ skrytych znak∙ je zapnuto"
  54.   else
  55.     s := "Zobrazenφ skrytych znak∙ je vypnuto";
  56.   InsTextPara(s);
  57.  
  58.   if AreObjectsOn then 
  59.     s := "Zobrazenφ objekt∙ je zapnuto"
  60.   else
  61.     s := "Zobrazenφ objekt∙ je vypnuto";
  62.   InsTextPara(s);
  63.  
  64.   if FrameMarginsOn then 
  65.     s := "Zobrazenφ okraj∙ rßmc∙ je zapnuto"
  66.   else
  67.     s := "Zobrazenφ okraj∙ rßmc∙ je vypnuto";
  68.   InsTextPara(s);
  69.  
  70.   if IsFieldCntsOn then 
  71.     s := "Zobrazenφ obsahu polφ je zapnuto"
  72.   else
  73.     s := "Zobrazenφ obsahu polφ je vypnuto";
  74.   InsTextPara(s);
  75.  
  76.   InsTextPara("*********************************************");
  77.   i := GetSplitType;
  78.   case i of
  79.     stVertSplit: s := "Vertikßlnφ rozd∞l∞nφ oken";
  80.     stHorSplit: s := "Horizontßlnφ rozd∞l∞nφ oken";
  81.     stNoSplit  : s := "ÄßdnΘ rozd∞l∞nφ oken";
  82.   end;
  83.   if i <> stNoSplit then
  84.     s := s + ", velikost je: " + Int2Str(GetSplitVal);
  85. (* InsertTab;  *)
  86.   InsTextPara(s);
  87.  
  88.   if IsControlStrip then 
  89.     s := "Pevnß liÜta je zapnuta"
  90.   else
  91.     s := "Pevnß liÜta je vypnuta";
  92.   InsTextPara(s);
  93.  
  94.   if IsToolbar then 
  95.     s:= "Pohyblivß liÜta je zapnuta"
  96.   else
  97.     s := "Pohyblivß liÜta je vypnuta";
  98.   InsTextPara(s);
  99.  
  100.   if IsStatusStrip then 
  101.     s := "Stavov² °ßdek je zapnut"
  102.   else
  103.     s := "Stavov² °ßdek je vypnut";
  104.   InsTextPara(s);
  105.   
  106.   if IsInsertMode then 
  107.     s := "Re₧im vklßdßnφ je zapnut"
  108.   else
  109.     s := "Re₧im p°episovßnφ je zapnut";
  110.   InsTextPara(s);
  111.  
  112.   if GetNewWinState then 
  113.     s := "NovΘ okno je nastaveno"
  114.   else
  115.     s := "NovΘ okno je vypnuto";
  116.   InsTextPara(s);
  117.  
  118.   i := GetScale;
  119.   s := "Zobrazenφ je nastaveno na " + Int2Str(i) + "%";
  120.   InsTextPara(s);
  121.   InsertNewPara;
  122.   InsTextPara("*********************************************");
  123.  
  124.   SetFormatFont(kCHPbold,kOn);
  125.   InsTextPara("Nastavenφ z dialogu P°edvolba");
  126.   SetFormatFont(kCHPbold,kOff);
  127.  
  128.   if GetPreferences(kPREF_DEV_FONTS) = 0 then 
  129.     s := "Nabφzenφ pφsem tiskßrny je vypnuto"
  130.   else
  131.     s := "Nabφzenφ pφsem tiskßrny je zapnuto";
  132.   InsTextPara(s);
  133.  
  134.   if GetPreferences(kPREF_S_WINDOWS) = 0 then 
  135.     s := "Uklßdßnφ rozlo₧enφ oken je vypnuto"
  136.   else
  137.     s := "Uklßdßnφ rozlo₧enφ oken je zapnuto";
  138.   InsTextPara(s);
  139.  
  140.   if GetPreferences(kPREF_TEMPL_NEW) = 0 then 
  141.     s := "Nabφzenφ Üablon pro novΘ dokumenty je vypnuto"
  142.   else
  143.     s := "Nabφzenφ Üablon pro novΘ dokumenty je zapnuto";
  144.   InsTextPara(s);
  145.  
  146.   case GetPreferences(kPREF_GLOB_UNITS) of
  147.     1 : s := "palce";
  148.     2 : s := "centimetry";
  149.     3 : s := "body";
  150.     4 : s := "pica";
  151.     5 : s := "dekadickΘ palce";
  152.   end;
  153.   s := "Jednotky jsou nastaveny na " + s;
  154.   InsTextPara(s);
  155.  
  156.   s := "Interval uklßdßnφ je nastaven na "     + 
  157.        Int2Str(GetPreferences(kPREF_AUTO_INT)) + 
  158.        " minut";
  159.   InsTextPara(s);
  160.  
  161.   if GetPreferences(kPREF_AUTOSAVE) = 0 then 
  162.     s := "AutomatickΘ uklßdßnφ je vypnuto"
  163.   else
  164.     s := "AutomatickΘ uklßdßnφ je zapnuto";
  165.   InsTextPara(s);
  166.  
  167.   if GetPreferences(kPREF_IMG_DITHER) = 0 then 
  168.     s := "V²poΦet odstφn∙ Üedi pro tisk obrßzk∙ je vypnut"
  169.   else
  170.     s := "V²poΦet odstφn∙ Üedi pro tisk obrßzk∙ je zapnut";
  171.   InsTextPara(s);
  172.  
  173.   if bylo_nastaveno then
  174.      SetNewWinState(FALSE);
  175. end.