Program Nastaveni;

type
  str140 = string[140];

var
  i : integer;
  s : str140;
  bylo_nastaveno : boolean;

procedure InsTextPara(var text : str140);
begin
  InsertText(text);
  InsertNewPara;
end;

begin
  bylo_nastaveno := FALSE;
//  if not IsDocDefault then
//  begin
    if not GetNewWinState then
    begin
      SetNewWinState(TRUE);
      bylo_nastaveno := TRUE;
    end;
    NewFile;
//  end;

  SetFormatFont(kCHPbold, kOn);
  InsTextPara("Program vypíše nastavení WinTextu :");
  InsertNewPara;
  SetFormatFont(kCHPbold, kOff);

  if IsTabRulerOn then 
    s := "Pravítko s tabulátory je zapnuto"
  else
    s := "Pravítko s tabulátory je vypnuto";
  InsTextPara(s);

  if IsVertRulerOn then 
    s := "Svislé pravítko je zapnuto"
  else
    s := "Svislé pravítko je vypnuto";
  InsTextPara(s);

  if AreScrollbarsOn then 
    s := "Zobrazení posuvníků je zapnuto"
  else
    s := "Zobrazení posuvníků je vypnuto";
  InsTextPara(s);

  if IsFormatOn then 
    s := "Zobrazení skrytych znaků je zapnuto"
  else
    s := "Zobrazení skrytych znaků je vypnuto";
  InsTextPara(s);

  if AreObjectsOn then 
    s := "Zobrazení objektů je zapnuto"
  else
    s := "Zobrazení objektů je vypnuto";
  InsTextPara(s);

  if FrameMarginsOn then 
    s := "Zobrazení okrajů rámců je zapnuto"
  else
    s := "Zobrazení okrajů rámců je vypnuto";
  InsTextPara(s);

  if IsFieldCntsOn then 
    s := "Zobrazení obsahu polí je zapnuto"
  else
    s := "Zobrazení obsahu polí je vypnuto";
  InsTextPara(s);

  InsTextPara("*********************************************");
  i := GetSplitType;
  case i of
    stVertSplit: s := "Vertikální rozdělění oken";
    stHorSplit: s := "Horizontální rozdělění oken";
    stNoSplit  : s := "Žádné rozdělění oken";
  end;
  if i <> stNoSplit then
    s := s + ", velikost je: " + Int2Str(GetSplitVal);
(* InsertTab;  *)
  InsTextPara(s);

  if IsControlStrip then 
    s := "Pevná lišta je zapnuta"
  else
    s := "Pevná lišta je vypnuta";
  InsTextPara(s);

  if IsToolbar then 
    s:= "Pohyblivá lišta je zapnuta"
  else
    s := "Pohyblivá lišta je vypnuta";
  InsTextPara(s);

  if IsStatusStrip then 
    s := "Stavový řádek je zapnut"
  else
    s := "Stavový řádek je vypnut";
  InsTextPara(s);
  
  if IsInsertMode then 
    s := "Režim vkládání je zapnut"
  else
    s := "Režim přepisování je zapnut";
  InsTextPara(s);

  if GetNewWinState then 
    s := "Nové okno je nastaveno"
  else
    s := "Nové okno je vypnuto";
  InsTextPara(s);

  i := GetScale;
  s := "Zobrazení je nastaveno na " + Int2Str(i) + "%";
  InsTextPara(s);
  InsertNewPara;
  InsTextPara("*********************************************");

  SetFormatFont(kCHPbold,kOn);
  InsTextPara("Nastavení z dialogu Předvolba");
  SetFormatFont(kCHPbold,kOff);

  if GetPreferences(kPREF_DEV_FONTS) = 0 then 
    s := "Nabízení písem tiskárny je vypnuto"
  else
    s := "Nabízení písem tiskárny je zapnuto";
  InsTextPara(s);

  if GetPreferences(kPREF_S_WINDOWS) = 0 then 
    s := "Ukládání rozložení oken je vypnuto"
  else
    s := "Ukládání rozložení oken je zapnuto";
  InsTextPara(s);

  if GetPreferences(kPREF_TEMPL_NEW) = 0 then 
    s := "Nabízení šablon pro nové dokumenty je vypnuto"
  else
    s := "Nabízení šablon pro nové dokumenty je zapnuto";
  InsTextPara(s);

  case GetPreferences(kPREF_GLOB_UNITS) of
    1 : s := "palce";
    2 : s := "centimetry";
    3 : s := "body";
    4 : s := "pica";
    5 : s := "dekadické palce";
  end;
  s := "Jednotky jsou nastaveny na " + s;
  InsTextPara(s);

  s := "Interval ukládání je nastaven na "     + 
       Int2Str(GetPreferences(kPREF_AUTO_INT)) + 
       " minut";
  InsTextPara(s);

  if GetPreferences(kPREF_AUTOSAVE) = 0 then 
    s := "Automatické ukládání je vypnuto"
  else
    s := "Automatické ukládání je zapnuto";
  InsTextPara(s);

  if GetPreferences(kPREF_IMG_DITHER) = 0 then 
    s := "Výpočet odstínů šedi pro tisk obrázků je vypnut"
  else
    s := "Výpočet odstínů šedi pro tisk obrázků je zapnut";
  InsTextPara(s);

  if bylo_nastaveno then
     SetNewWinState(FALSE);
end.