Вопрос немного не в тему, но решил ради этого новую тему не создавать.
Спасибо. Как раз сижу и думаю, чего бы помодерить да время убить. Если без шуток: люди, имейте совесть! Сами же потом плачетесь, что на форуме фиг чего найдешь.
По теме (касательно окон документа):
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;