Форум » [x]Harbour » Проблема с ярлыком и окном терминалки GTWVT » Ответить
Проблема с ярлыком и окном терминалки GTWVT
Лукашевский: Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки... Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило? Закрываю это пустое окно - закрывается и окно моей программы. И наоборот... А ярлык я делал собственно для того, чтобы можно было программу на полный экран развернуть. Это вообще-то возможно?
Лукашевский: Смогу проверить только в понедельник... На сборке 1.0.0, которая у меня на ноутбуке, со шрифтом и языком проблем нет - и твой вариант в ней работает точно так же, как и WVT_SETCODEPAGE(255). А что всё-таки с двумя окнами при запуске программы ярлыком? Или у тебя такой проблемы нет? И может ли всё-таки юзверь во время работы развернуть окно на полный экран, или в принципе нет?
Pasha: 2 окна у меня тоже формируются Развернуть окно нельзя, т.к. полноэкранного режима в принципе нет для gtwvt У себя я сделал такие настройки - через ini-файл: SetMode(nRow, nCol) // размер экрана в строках/столбцах gtInfo(GTI_FONTNAME, cFont) // шрифт gtInfo(GTI_FONTSIZE, nFontSize) // размер шрифта Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно Недавно сделал настройку палитры цветов для gtwvt, через функции Wvt_GetPalette(), Wvt_SetPalette(), Wvt_ChooseColor()
Лукашевский: А зачем два окна в принципе-то? НАФИГА? И как второе (пустое) окно убрать, ибо принципиально убрать его можно: при запуске из Нортона, например, окно одно-единственное!
Andrey: Лукашевский пишет: при запуске из Нортона, например, окно одно-единственное Наверно т.к. Нортон это ДОС окно, то и второе не образуется. Я писал тебе, что при использовании gtwvt у меня только одно окно, при старте образуется 2 окна, а потом одно окно уходит (наверно какая-то инициализация), меня оно тоже раздражает ! У тебя что-то при сборке ЕХЕ-ника неправильно указано.
Andrey: Pasha пишет: Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно А можно кусочек примера показать про эти настройки ? Плиз ....
Pasha: По поводу 2-го окна укажи линкеру опцию -aa
Pasha: Файл my.ini: [WVT] FontName=Terminal FontSize=20 Rows=30 Columns=90 его обработка при старте программы: if (aIni := HB_ReadIni('my.ini')) # nil if ('GTWVT' IN aIni) aPar := aIni['WVT'] if ('Rows' IN aPar) SetMode(Val(aPar['Rows']), Val(aPar['Columns'])) endif if ('FontName' IN aPar) gtInfo(GTI_FONTNAME, aPar['FontName']) endif if ('FontSize' IN aPar) gtInfo(GTI_FONTSIZE, Val(aPar['FontSize'])) endif endif endif
Лукашевский: Pasha пишет: По поводу 2-го окна укажи линкеру опцию -aa Ура! Лишнее окно убралось! Странно только, что при линковке с терминалом GTWin всё было нормально и без этой опции...
Лукашевский: Pasha пишет: gtInfo(GTI_FONTNAME, 'Terminal') gtInfo(GTI_CODEPAGE, 255) Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался...
Vlad04: У меня остается проблема со вторым окном. Для сборки я использую батник Кресина.Опцию -аа по разному пробовал, второе окно не убирается. Посмотрите может , кто подскажет для данного случая. CLS @echo off set path=D:\lang\xharbour_1\bin;C:\BORLAND\BCC55\BIN if "%HB_BIN_INSTALL%"=="" set HB_BIN_INSTALL=D:\lang\xharbour_1\bin\ if "%HB_LIB_INSTALL%"=="" set HB_LIB_INSTALL=D:\lang\xharbour_1\lib\;C:\BORLAND\BCC55\lib\ if "%HB_INC_INSTALL%"=="" set HB_INC_INSTALL=D:\lang\xharbour_1\include\;c:\Borland\Bcc55\include\ %HB_BIN_INSTALL%\harbour main.prg -n -i%HB_INC_INSTALL% %2 %3 %HB_BIN_INSTALL%\harbour fg_menu.prg -n -i%HB_INC_INSTALL% %2 %3 pause bcc32 -O2 -d -I%HB_INC_INSTALL% -L%HB_LIB_INSTALL% @mylib.lnk REM del *.obj rem del *.c del *.tds
Andrey: Запусти утилиту HBMAKE.EXE выбери нужные тебе опции, укажи свои PRG файлы, и он тебе сам соберет твой проект. Более подробно посмотри по поиску на этом форуме. И не трать свое время на разборку всяких ключей, и не парься.
Vlad04: А если без HBMAKE.EXE? До этого я обходился без этой утилиты.
Pasha: Лукашевский пишет: Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался... Я не могу сказать, что там в релизе начудили, да и смысла разбираться в этом наверное сейчас уже нет. Могу выслать собранную gtwvt.lib
Pasha: Vlad04 пишет: У меня остается проблема со вторым окном. Для сборки я использую батник Кресина.Опцию -аа по разному пробовал, второе окно не убирается. Посмотрите может , кто подскажет для данного случая. Наверное, надо добавить опцию -laa в вызове bcc32 Ключ -l у bcc: set linker option
Pasha: Лукашевский пишет: Странно только, что при линковке с терминалом GTWin всё было нормально и без этой опции... Для создания консольных и gui программ ilink32 использует разные опции: /aa Builds a 32-bit Windows application /ad Builds a 32-bit Windows device driver /ap Builds a 32-bit Windows console application Я, к примеру, смирился с этим вторым окном, так как собираю программы сразу с двумя терминалами - gtwvt и gtwin. Для меня важнее возможность более гибкой настройки. А одновременно консольной и windows программа быть не может Вот и создается лишнее консольное окно
Vlad04: Меня второе окно особенно то же не донимало, но если можно от него избавиться, то хотелось бы. При сборке с батником убрать окно не получилось. Вышлите на orsv04@mail.ru , кто победил второе окно используя утилиту HBMAKE.EXE , файлы , повидимому make_b32.bat и makefile.bc, конкретного примера.
Andrey: Vlad04 пишет: кто победил второе окно используя утилиту HBMAKE.EXE Так я ж и пишу, что эта утилита соберет тебе проект правильно. !!! И не надо отпихиваться словами, что нужно разбираться.... Там все тупо и просто. Я даже проект собираю из 2-х файлов, чем править готовые батники ....
Vlad04: К HBMAKE.EXE должен быть еще файл Makefile. Вот о нем речь и идет . Вышли его для программы хоть из двух файлов.
Pasha: Лукашевский пишет: Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался... Я сегодня был в одной организации, и был сражен наповал... на обычных рабочих местах установлен Windows 2003 Server !!!!! Причем на каждом компьютере. Видимо, что-то решил, что чем круче, тем лучше Но к чему это я. Установил свои программы. Попросили до кучи настроить и консольный режим. Настроил с gtwvt - и увидел... кракозябликов. Причем на одном 2003srv шрифт не русский, на другом - русский Поигрался с настройками. Выяснилось, что кодовая страница OEM (255) получается нерусская (зяблики), если указать шрифт Terminal. С Courier New, Arial и пр - все в порядке Вывод из всего этого. В некоторых ОС у шрифта Terminal либо отсутствует кодовая страница 866, либо кодовая страница для OEM указывает не на 866-ю страницу (брр, какой сумбур-каламбур получился) Лечится все это использованием другого шрифта: gtInfo(GTI_FONTNAME, cFont)
Pasha: то есть gtInfo(GTI_FONTNAME, 'Courier New')
полная версия страницы