Chip 1997 October/Chip_1997-10_cd.bin/tema/sw602/wintext/disk1/data.1/AUTOCLOS.TXT

Text File | 1994-11-02 | 638b | 24 lines

Program AutoClose;
// P°φklad mo₧nΘho makra AutoClose, kterΘ takto nahradφ
// standardnφ hlßÜku o neulo₧enΘm dokumentu.

var
  S : string[300];
begin
  if not IsModified then Halt;
  S:="Dokument ";
  if IsDocDefault
    then begin
           S:= S + GetDocWndTittle + " nebyl nikdy ulo₧en !"
         end
    else begin
           S:= S + #13#10 + GetDocFileName;
           S:= S + #13#10"nebyl od poslednφ zm∞ny ulo₧en !"
         end;

  S:= S + #13#10#13#10"AvÜak jedno °eÜenφ by bylo.";
  S:= S + #13#10" Ulo₧it ?!";
  if YesNo_Box("D∙le₧itΘ upozorn∞nφ !", S)
    then SaveFile
    else MarkUnmodified;
end.