OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Суббота, 19 Октябрь, 2019 00:42

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
СообщениеДобавлено: Суббота, 22 Август, 2009 11:14 

Зарегистрирован: Суббота, 16 Февраль, 2008 07:58
Сообщения: 345
Откуда: Россия, Стерлитамак
Модератор: выделено из viewtopic.php?f=2&t=1773
Вопрос немного не в тему, но решил ради этого новую тему не создавать.

Как можно сделать вывести в строке заголовка блекбокса/открытого в блекбоксе документа, путь к исполняемому файлу / путь к этому документу? Просто иногда приходится открывать несколько версий блекбокса, и это было бы удобно.


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 22 Август, 2009 12:05 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9147
Откуда: Россия, Орёл
Самый простой способ - обзовите копии экзешников как-то по-другому. BlackBox2.exe...

Иначе нужно будет выковыривать путь к ББ через Files-HostFiles, и применять WinApi-вызов для изменения заголовка окна.

Если захочется помахаться, то про первую часть (выковыривание) подскажем, а про вторую найдёте в Инете самостоятельно, там этих описаний "Работа с чужими окнами" полно. SetWindowLong или что-то типа того...


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Суббота, 22 Август, 2009 12:14 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4516
Откуда: Россия, Орёл
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;


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2019, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB