> -- adva в viewtopic.php?p=33408#p33408 писал(а):
> Вопрос немного не в тему, но решил ради этого новую тему не создавать.Спасибо. Как раз сижу и думаю, чего бы помодерить да время убить. Если без шуток: люди, имейте совесть! Сами же потом плачетесь, что на форуме фиг чего найдешь.

По теме (касательно окон документа):adva, поглядите HostWindows иviewtopic.php?f=24&t=574. Для себя лично использую такое, аналогичное предложенному тов-мTrurl, исправление HostWindows:## Код:
```
PROCEDURE GenPathTitle (w: Window; OUT title: ARRAY OF CHAR);
      VAR loc: Files.Locator; ch: CHAR; s1, s2: HostFiles.FullName; i, j: INTEGER;
   BEGIN
      loc := w.loc; title := "";
      WITH loc: HostFiles.Locator DO
         i := 0; ch := loc.path[0]; j := 0; s2 := "";
         WHILE ch # 0X DO
            IF (ch = "\") OR (ch = "/") THEN
               s1[j] := 0X; s2 := s1$; j := 0
            ELSE
               s1[j] := ch; INC(j)
            END;
            INC(i); ch := loc.path[i]
         END;
         s1[j] := 0X;
         (* -> начало изменений *)
         IF  s2 # "" THEN
            IF (CAP(s1[0]) = "M") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "D") & (s1[3] = 0X) THEN
               title := "("+s2+"/Mod)";
            ELSIF (CAP(s1[0]) = "D") & (CAP(s1[1]) = "O") & (CAP(s1[2]) = "C") & (CAP(s1[3]) = "U") & (s1[4] = 0X) THEN
               title := "("+s2+"/Docu)";
            ELSIF (CAP(s1[0]) = "R") & (CAP(s1[1]) = "S") & (CAP(s1[2]) = "R") & (CAP(s1[3]) = "C") & (s1[4] = 0X) THEN
               title := "("+s2+"/Rsrc)";
            END
         END
         (* <- конец изменений *)
      ELSE
      END;
      Append(title, w.name)
   END GenPathTitle;
```
