Отправлено: 17.09.07 13:48. Заголовок: Проблема с ярлыком и окном терминалки GTWVT
Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки... Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило? Закрываю это пустое окно - закрывается и окно моей программы. И наоборот...
А ярлык я делал собственно для того, чтобы можно было программу на полный экран развернуть. Это вообще-то возможно?
Все такие умные... Времени нет весь интернет перелопачмвать! Если знаете, что делать - скажите, если нет - пустых фраз не надо (ну если только с соболезнованиями :-)
Итак, что нужно сделать, чтобы: 1. Развернуть терминальную программу на весь экран 2. При запуске терминальной программы ярлыком было не два окна, а одно?
Нет, ну можно подумать, что я один с этим столкнулся!!! Что, никто xHarbour-программу ярлыком с рабочего стола не запускает???
Так в Clippere и работает! А харборская - далеко не всегда! При терминале GTWIN с ключом линковки -aa переключение по Alt Enter в полный экран работает, а во ВСЕХ остальных случаях - нет!!!
http://www.google.com/search?client=opera&rls=ru&q=conagent.exe&sourceid=opera&ie=utf-8&oe=utf-8 Много интересного можно прочитать, если читать внимательно.
Лукашевский пишет:
цитата:
Все такие умные... Времени нет весь интернет перелопачмвать!
Если ты о файле _default.pif, то у меня его нет, а если о том чтобы удалить conagent.exe - то без него ярлык вообще не запускается в принципе! Больше я там ничего полезного не нашёл...
Доберусь до компа с XP - попробую, конечно. У меня-то и на домашнем, и на ноутбуке Millennium... Кстати, а как ты справился с проблемой? Что именно там в ключах сборки было не так?
Если ты о файле _default.pif, то у меня его нет, а если о том чтобы удалить conagent.exe - то без него ярлык вообще не запускается в принципе! Больше я там ничего полезного не нашёл...
Ну я не знаю, что тебе поможет и как ты читал..
Вот, что прочитал я: Use one of the following procedures to correct the problem. Используйте одну из следующих процедур для решения этой проблемы. А вот процедуры 1. Steps to Reset Configuration of _Default.pif Шаги по восстановлению настроек _Default.pif и т.д. 2. Steps to Reset Configuration of Conagent.exe. Шаги по восстановлению настроек Conagent.exe Make sure there is no _Default.pif file in your path; specifically check your Windows directory. Убедитесь что нет никакого _Default.pif в вашем пути, специально проверьте ваш каталог Windows. Follow the instructions for steps 2, 3, and 4 above given for resetting _Default.pif on the file Conagent.exe in your Windows or Windows System directory. Следуйте инструкциям для шагов 2, 3 и 4 и т.д.
В общем, о удалении Conagent.exe речь не идет. Поскольку у тебя нет _Default.pif ( а он, как я понимаю, быть должен ) ты должен пройти процедуру №2.
Вот щелкни на Conagent.exe правой клавишей мыши, вибери свойства, выбери закладку экран и установи опцию Окно, выбери применить. После всего этого у тебя должен появиться _Default.pif и все должно заработать.
Кстати, а как ты справился с проблемой? Что именно там в ключах сборки было не так?
Да не помню я точно, как исправлял. Делай просто, собери программу из нескольких строк, проверь у себя, а затем на ХР. А по результату можно будет разбирать ситуацию дальше.
Вот щелкни на Conagent.exe правой клавишей мыши, вибери свойства, выбери закладку экран и установи опцию Окно, выбери применить. После всего этого у тебя должен появиться _Default.pif
Мне почему-то кажется, что не всему написанному в сети нужно верить... На закладке Экран у меня и так стояло значение "Оконный". И при этом _Default.pif не было. Я попробовал выставить "Полноэкранный" - пустое окно действительно разворачивается на полный экран, а окно программы как было, так и остаётся мелким! Так что ни одной из проблем манипуляции с Conagent.exe не решили!
А _Default.pif появился? Если появился - значит можно верить
Есть еще одна подсказка : при компиляции программ MiniGUI прилинковывают библиотеку gtgui.lib ( стандарт для всех MiniGUI). Но, если требуется отладка такой программы используется ключ компилятора /b и в rsp файл включают еще и gtwin.lib, перед gtgui.lib. Связано это с тем, что отладчик в стандартном режиме использует именно gtwin терминал. Вот в результате при запуске этой MiniGUI программы мы можем видеть что-то подобное на то, что ты описываешь - основное GUI окно программы и пустое (до момента перехода в режим отладки) консольное.
По моему на форуме xHb кто-то предлагал изменения необходимые для корректной работы отладчика в WVT терминале, но были ли эти изменения приняти и внесены в CVS - вопрос.
Смогу проверить только в понедельник... На сборке 1.0.0, которая у меня на ноутбуке, со шрифтом и языком проблем нет - и твой вариант в ней работает точно так же, как и WVT_SETCODEPAGE(255). А что всё-таки с двумя окнами при запуске программы ярлыком? Или у тебя такой проблемы нет? И может ли всё-таки юзверь во время работы развернуть окно на полный экран, или в принципе нет?
Отправлено: 12.01.08 14:02. Заголовок: 2 окна у меня тоже ф..
2 окна у меня тоже формируются Развернуть окно нельзя, т.к. полноэкранного режима в принципе нет для gtwvt У себя я сделал такие настройки - через ini-файл:
SetMode(nRow, nCol) // размер экрана в строках/столбцах gtInfo(GTI_FONTNAME, cFont) // шрифт gtInfo(GTI_FONTSIZE, nFontSize) // размер шрифта
Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно
Недавно сделал настройку палитры цветов для gtwvt, через функции Wvt_GetPalette(), Wvt_SetPalette(), Wvt_ChooseColor()
А зачем два окна в принципе-то? НАФИГА? И как второе (пустое) окно убрать, ибо принципиально убрать его можно: при запуске из Нортона, например, окно одно-единственное!
при запуске из Нортона, например, окно одно-единственное
Наверно т.к. Нортон это ДОС окно, то и второе не образуется. Я писал тебе, что при использовании gtwvt у меня только одно окно, при старте образуется 2 окна, а потом одно окно уходит (наверно какая-то инициализация), меня оно тоже раздражает ! У тебя что-то при сборке ЕХЕ-ника неправильно указано.
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
Отправлено: 15.01.08 09:01. Заголовок: У меня остается проб..
У меня остается проблема со вторым окном. Для сборки я использую батник Кресина.Опцию -аа по разному пробовал, второе окно не убирается. Посмотрите может , кто подскажет для данного случая.
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\
Запусти утилиту HBMAKE.EXE выбери нужные тебе опции, укажи свои PRG файлы, и он тебе сам соберет твой проект. Более подробно посмотри по поиску на этом форуме.
И не трать свое время на разборку всяких ключей, и не парься.
Отправлено: 15.01.08 17:43. Заголовок: Vlad04 пишет: У мен..
Vlad04 пишет:
цитата:
У меня остается проблема со вторым окном. Для сборки я использую батник Кресина.Опцию -аа по разному пробовал, второе окно не убирается. Посмотрите может , кто подскажет для данного случая.
Странно только, что при линковке с терминалом 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 программа быть не может Вот и создается лишнее консольное окно
Отправлено: 16.01.08 07:40. Заголовок: Меня второе окно осо..
Меня второе окно особенно то же не донимало, но если можно от него избавиться, то хотелось бы. При сборке с батником убрать окно не получилось. Вышлите на orsv04@mail.ru , кто победил второе окно используя утилиту HBMAKE.EXE , файлы , повидимому make_b32.bat и makefile.bc, конкретного примера.
Отправлено: 16.01.08 08:35. Заголовок: Vlad04 пишет: кто п..
Vlad04 пишет:
цитата:
кто победил второе окно используя утилиту HBMAKE.EXE
Так я ж и пишу, что эта утилита соберет тебе проект правильно. !!! И не надо отпихиваться словами, что нужно разбираться.... Там все тупо и просто. Я даже проект собираю из 2-х файлов, чем править готовые батники ....
Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался...
Я сегодня был в одной организации, и был сражен наповал... на обычных рабочих местах установлен Windows 2003 Server !!!!! Причем на каждом компьютере. Видимо, что-то решил, что чем круче, тем лучше Но к чему это я. Установил свои программы. Попросили до кучи настроить и консольный режим. Настроил с gtwvt - и увидел... кракозябликов. Причем на одном 2003srv шрифт не русский, на другом - русский Поигрался с настройками. Выяснилось, что кодовая страница OEM (255) получается нерусская (зяблики), если указать шрифт Terminal. С Courier New, Arial и пр - все в порядке
Вывод из всего этого. В некоторых ОС у шрифта Terminal либо отсутствует кодовая страница 866, либо кодовая страница для OEM указывает не на 866-ю страницу (брр, какой сумбур-каламбур получился) Лечится все это использованием другого шрифта:
Попробую, конечно... Однако: в сборке 1.0.0 у меня с русским всё было (и на ноуте и сейчас есть) нормально!!! Проблема появилась, начиная со сборки 1.1.0 (и осталась, gtwvt.lib от 05.01.08 не помог) - это во-первых, и только ДЛЯ ТЕРМИНАЛА GTWVT - с Gtwin всё в порядке, русский есть! GtWin что, другую кодовую страницу использует, не такую как GtWvt? Ну тогда это всё-таки наверное проблема терминала GtWvt, а? Пусть использует правильную кодовую страницу! И кстати, у меня совершенно обыкновенный Win'98 SE, а не 2003 Server... Что интересно, gtwvt.lib от 05.01.08 вроде как помог от неправильной предобработки GETа...
Да, действительно, всё стало по-русски... но убого сплюснутым А если поставить Arial или Times, то буквы друг с другом сливаются... Terminal выглядел получше. Щас буду дальше экспериментировать.
Отправлено: 16.01.08 21:58. Заголовок: До 2007-го года шриф..
До 2007-го года шрифт по умолчанию для gtwvt был Courier New. В прошлом году (точно не скажу когда и кем) его заменили на Terminal. Получается, что в некоторых ОС шрифт Terminal при указании OEM Codepage не устанавливает русскую кодировку. В релизе 1.0.0 это было некритично, так использовался по умолчанию другой шрифт, а в релизе 1.1.0 этот глюк некоторых ОС проявляется. Поскольку терминал дает возможность прямо устанавливать шрифт, возвращать его на Courier New нет смысла. Изначально это проблема не gtwvt, а ОС
Такое увеличение "размера" шрифта даёт только увеличение вертикальной длины символов. А как сделать, чтобы они и в ширину увеличивались? Короче, чтобы огрызков рабочего стола слева и справа от окна не было (глаз на них сильно отвлекается)? gtInfo(GTI_SCREENWIDTH, 800) помог лишь частично - окно стало в ширину экрана, но ширина шрифта в приложении осталась прежнего размера... соответственно имеем справа пустой кусок окна... gtInfo(GTI_FONTWEIGHT, ...) не даёт вообще никакого видимого эффекта... по крайней мере со шрифтом Lucida Console Больше я в gtInfo.ch ничего толкового на эту тему не нашёл.
Отправлено: 18.01.08 00:12. Заголовок: А как можно получить..
А как можно получить список установленных шрифтов с размерами для терминала GTWVT ? Хотелось бы сделать менюшку с выбором шрифта и размерами. А то юзера разборчивые все пальцы загибают: а вот раньше (на Клипере) можно было размер "программы" установить (это они про шрифт так говорят) а сейчас нельзя, а мне не нравиться, а вообще программа стала хуже.... Достали ..........
Отправлено: 18.01.08 20:14. Заголовок: Pasha пишет: Можно ..
Pasha пишет:
цитата:
Можно использовать любой шрифт, в котором есть русская кодовая страница А список можно глянуть хотя бы в ворде
Т.е. системно нельзя ? Я откуда знаю куда мою задачу поставят на 98/...... или ХР ! Или нужно под каждую операционку держать отдельные списки шрифтов ?
Отправлено: 21.01.08 20:24. Заголовок: Тест показал: В win9..
Тест показал: В win98 программа с gtwvt не получает событие при нажатии Alt+F6 В winxp - получает, и нормально обрабатывает Но, к примеру, в winxp у меня программа с gtwvt не получает событие при нажатии Alt+F5, поскольку эту комбинацию клавиш перехватывает видеодрайвер, даже если моя программа находится в фокусе Какое приложение перехватывает комбинацию клавиш Alt+F6 в win98 - не знаю. Возможно, это делает сама ОС, если такое нажатие зарезервировано для каких-то системных целей Хорошо бы протестировать нажатие Alt+F6 в любой win32-программе под win98 В сырцах gtwvt видно, что нажатие Alt+F6 обрабатывается обычным образом. Это подтверждается и тем, что в winxp это нажатие отрабатывается, если программа получает само событие
Какое приложение перехватывает комбинацию клавиш Alt+F6 в win98 - не знаю. Возможно, это делает сама ОС, если такое нажатие зарезервировано для каких-то системных целей
Pasha, ты не обратил внимание на слова "ошибка терминала GTWVT" в моём сообщении :-) Я специально попробовал на GTWIN - там Alt+F6 под тем же Win'98 прекрасно обрабатывается! Только после этого я написал то, что написал Так что ошибка скорее всего именно где-то в терминале GTWVT - комбинацию Alt+F6 зачем-то перехватывает именно он... Как, я думаю, и Alt+F5 под Win'XP...
цитата:
В сырцах gtwvt видно, что нажатие Alt+F6 обрабатывается обычным образом.
Ну или, по крайней мере, GTWVT почему-то позволяет виндосе эту комбинацию перехватывать, в отличие от GTWIN, который это дело совершенно правильно рубит...
Pasha, ты не обратил внимание на слова "ошибка терминала GTWVT" в моём сообщении :-) Я специально попробовал на GTWIN - там Alt+F6 под тем же Win'98 прекрасно обрабатывается!
Это ни о чем не говорит, так как события клавитуры в консольной и gui программе windows обрабатывает совершенно по разному. И набор winapi-функций разный
цитата:
Как, я думаю, и Alt+F5 под Win'XP...
Нет, здесь как раз все ясно. Это нажатие перехватывает видеодрайвер
Отправлено: 23.01.08 22:28. Заголовок: Это таки проблема ОС..
Это таки проблема ОС см. minigui\samples\basic\on_key\demo.prg добавляем строки: ON KEY ALT+F5 ACTION MsgInfo ('ALT+F5') ON KEY ALT+F6 ACTION MsgInfo ('ALT+F6') ON KEY ALT+F7 ACTION MsgInfo ('ALT+F7')
Как можно догадаться, магическое Alt+F6 не срабатывает под win98, со всеми остальными клавишами все ok Никакого gtwvt там нет
... General keyboard-only commands ... ALT+F6: Switch between multiple windows in the same program (for example, when the Notepad Find dialog box is displayed, ALT+F6 switches between the Find dialog box and the main Notepad window) ... APPLIES TO • Microsoft Windows Millennium Edition • Microsoft Windows 98 Second Edition • Microsoft Windows 98 Standard Edition • Microsoft Windows 95
Отправлено: 20.02.08 11:49. Заголовок: Pasha пишет: А GTI_..
Pasha пишет:
цитата:
А GTI_FONTWIDTH ? Это кажется то, что надо
Перестал работать GtInfo(GTI_FONTWIDTH, 10)... Интересно, это из-за мультитерминальной сборки, или кто-то внёс ошибку в сырцы? При этом GtInfo(GTI_FONTWIDTH) работает как прежде, показывает ширину шрифта правильно. А вот установка этой самой ширины не работает
Static func ColorSetup Local a16 := WVT_GetPalette(), w Local a16Old := AClone(a16) Local bGet := {|| space(6)} Local cBtnClr := '15/01,00/03, ,11/03,07/01'
Local aIni := HB_ReadIni('gals.ini') Local aWvt, cWvt, ser, lChange := .f.
if aIni # nil .and. ('GTWVT' IN aIni)
aWvt := aIni['GTWVT']
w := TWindowNew(2,15,22,65,,, 2, .t.) @ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ' // ARead(aGet)
TWindowClose(w)
for ser := 1 to 16 if a16[ser] # a16Old[ser] lChange := .t. exit endif next if lChange cWvt := '' for ser := 1 to 16 cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser]) next aWvt['Palette'] := cWvt HB_WriteIni('gals.ini', aIni) elseif LastKey() == K_ESC WvtRefresh(a16Old) endif
Static func ColorSetup Local a16 := WVT_GetPalette(), w Local a16Old := AClone(a16) Local bGet := {|| space(6)} Local cBtnClr := '15/01,00/03, ,11/03,07/01'
Local aIni := HB_ReadIni('gals.ini') Local aWvt, cWvt, ser, lChange := .f.
if aIni # nil .and. ('GTWVT' IN aIni)
aWvt := aIni['GTWVT']
w := TWindowNew(2,15,22,65,,, 2, .t.) @ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ' // ARead(aGet)
TWindowClose(w)
for ser := 1 to 16 if a16[ser] # a16Old[ser] lChange := .t. exit endif next if lChange cWvt := '' for ser := 1 to 16 cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser]) next aWvt['Palette'] := cWvt HB_WriteIni('gals.ini', aIni) elseif LastKey() == K_ESC WvtRefresh(a16Old) endif
Отправлено: 25.02.08 22:40. Заголовок: Я получил разьяснени..
Я получил разьяснение от Marcos Antonio Gambeta:
To run my programs i am using:
ANNOUNCE hb_gt_wvt_default
Procedure Main () .... Return
Procedure hb_gtsys () request hb_gt_wvt Return
To run in console mode:
myprogram.exe //gtwin
Мне кажется, что достаточно указать:
request hb_gt_wvt
Кстати, по таким небольшим вопросам лучше сами обращайтесь в группу новостей xHarbour Заходите на www.deja.com Находите группу новостей: comp.lang.xharbour или ссылка http://groups.google.com/group/comp.lang.xharbour/topics?lnk=gschg Задаете вопрос. Получаете компетентный ответ, причем оперативно, без лишнего передаточного звена в моем лице Если есть затруднения с английским - попросите знакомого перевести свой небольшой и несложный текст, или воспользуйтесь переводчиком
Похоже, сейчас при multi_gt сборке терминал gtwvt вообще не линкуется к программе. Доступен только gtwin
С сырцами от 20 февраля линкуется... Я же писал, что GtInfo(GTI_FONTWIDTH) выдаёт текущую ширину шрифта правильно... Кстати, Pasha, не в курсе, в какой кодировке должен быть русский текст для GtInfo(GTI_WINTITLE, text), чтобы он правильно отображался под GTWIN на XP ? С 98-м и ME проблем нет, а под XP чёрт знает что в заголовке окна рисует...
Отправлено: 26.02.08 11:49. Заголовок: Pasha пишет: Так GT..
Pasha пишет:
цитата:
Так GTI_FONTWIDTH заработал?
Как не работал, так и не работает... Сырцы обновлял сегодня ночью... request hb_gt_wvt уменя был поставлен сразу как я сделал мультитерминальную сборку (соотв. harbour_faq.txt) Но раз у тебя работает... возможно, GTI_FONTWIDTH перестала устанавливаться только под Win'9x, а под XP работает. Постараюсь прояснить этот вопрос.
Static func ColorSetup Local a16 := WVT_GetPalette(), w Local a16Old := AClone(a16) Local bGet := {|| space(6)} Local cBtnClr := '15/01,00/03, ,11/03,07/01'
Local aIni := HB_ReadIni('gals.ini') Local aWvt, cWvt, ser, lChange := .f.
if aIni # nil .and. ('GTWVT' IN aIni)
aWvt := aIni['GTWVT']
w := TWindowNew(2,15,22,65,,, 2, .t.) @ 2, 33 say '„N„p„ѓ„„„‚„Ђ„z„{„p „Ѓ„p„|„y„„„‚„Ќ' // ARead(aGet)
TWindowClose(w)
for ser := 1 to 16 if a16[ser] # a16Old[ser] lChange := .t. exit endif next if lChange cWvt := '' for ser := 1 to 16 cWvt += if(! Empty(cWvt), ',', '') + StrTrim(a16[ser]) next aWvt['Palette'] := cWvt HB_WriteIni('gals.ini', aIni) elseif LastKey() == K_ESC WvtRefresh(a16Old) endif
Отправлено: 26.02.08 22:31. Заголовок: Pasha пишет: Так GT..
Pasha пишет:
цитата:
Так GTI_FONTWIDTH заработал ?
GTI_FONTWIDTH отказывается устанавливаться категорически, и на XP в том числе, - сегодня проверял. Из-за этого терминалом GTWVT пока не пользуюсь совсем. Представляешь, что такое размер шрифта 8 (а он по умолчанию всегда такой) при разрешении экрана, к примеру, 1280х1024?
Отправлено: 02.04.08 21:26. Заголовок: Pasha пишет: Так GT..
Pasha пишет:
цитата:
Так GTI_FONTWIDTH заработал ?
Заработал, зараза! После того как я убрал из линковки TBROWSE, взятый когда-то из сырцов для исправления имевшейся там ошибки. А вот какая такая прочная-порочная зависимость между TBROWSE и HB_GtInfo() - непонятно...
Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки... Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило?
Наконец-то разобрался! Оказывается, такая ситуация возникает, только если продолжить пользоваться ярлыком который был для Clipper-программы! А если сделать новый ярлык, то всё OK!
Но возникает другая проблема: если указать в свойствах ярлыка "Совместимость с Windows'95", программа запускается в свёрнутом окне в панели задач, и чтобы ею воспользоваться, приходится кликать на ней мышкой...
если указать в свойствах ярлыка "Совместимость с Windows'95",
И ещё HB_GTInfo(GTI_WINTITLE, ....) в Win'XP для программы в свёрнутом состоянии при выставленной совместимости неправильно текст выводит (пустыми квадратиками).
В связи с этим возникает 2 вопроса: 1) как программно развернуть терминалку GTWIN из свёрнутого состояния, и 2) как получить настройки ярлыка, которым запущена программа - потому что иначе я не понимаю, как точно определить, нужно ли при выводе GTI_WINTITLE использовать перекодировку HB_OEMToAnsi().
2004-01-26 14:10 UTC+0530 Pritpal Bedi <pritpal@vouchcac.com> * xharbour/source/rtl/gtwvt/gtwvt.c + Wvt_Minimize() Minimizes the application window. Useful when application is engaged in long uninterrupted tasks.
+ Wvt_Maximize() Maximizes, I mean, restores to normal position the previously minimized application window.
Лукашевский пишет:
цитата:
2) как получить настройки ярлыка, которым запущена программа - потому что иначе я не понимаю, как точно определить, нужно ли при выводе GTI_WINTITLE использовать перекодировку HB_OEMToAnsi().
Перекодировку делать нужно ! // - вывести заголовок окна и иконку окна cNameWin := HB_OEMTOANSI( "Тестовая задача для gtwvt-терминала !" ) GTInfo( 26, cNameWin ) GTInfo( 27, 'main.ico' )
Andrey, ты не уловил шутку юмора: у меня в программе стоит перекодировка HB_OemToAnsi() для выводимого под XP заголовка окна, это естественно. И при стандартных значениях свойств ярлыка, которым запускается программа, заголовок выводится нормально. Но если для того же самого ярлыка под тем же самым XP поставить в Свойствах во вкладке "Совместимость" галочку напротив "Совместимость с Windows'95", результат вывода заголовка станет печальным. Проверить-то легко, не поленись.
Может возникнуть вопрос: зачем ставить эту галочку? Ну, во-первых, юзвери - товарищи по определению непредсказуемые, а во-вторых, эту галку надо ОБЯЗАТЕЛЬНО ставить, если на сервере стоит Win'9x, а на компах-клиентах - что-нибудь NTшное. Иначе будешь получать зависание на первой же попытке записи в базу (это, конечно, под чистым Clipper/xHarbour, под ADS такого эффекта может и не быть).
Может, я невнятно объяснил задачу? Для винды окно у программы всегда одно (даже если терминал GTWVT, тамошние виндовые функции я не использую). Запускается программа, по какой-то причине (неважно) - в минимизированном окне. Как это самое окно развернуть? Можно конкретный пример, а не только упоминание о функции?
Отправлено: 05.06.09 21:04. Заголовок: Dima пишет: Хотя у ..
Dima пишет:
цитата:
Хотя у тебя вроде виндоус линолиум
А мои предыдущие сообщения в теме посмотреть слабо? Я здесь о домашнем компе говорю, на нём Win'XP Home SP3, лицензионный.
Andrey пишет:
цитата:
У меня оба примера работают под WinXP SP3 !
А у меня - не работает! Может быть, конечно, это из-за галки "Совместимость с Windows'95" в свойствах ярлыка... Надо будет проверить в нормальных условиях.
Теперь бы ещё иметь какую-нить возможность выяснить, запущена ли программа в режиме совместимости, или нет, - и проблема будет решена. А то заголовок окна GTWIN в режиме совместимости всё так же пугает кракозябрами и пустыми квадратиками...
Все даты в формате GMT
3 час. Хитов сегодня: 8
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
- участник сейчас на форуме
- участник вне форума