Автор | Сообщение |
|
| |
Пост N: 93
Зарегистрирован: 08.04.06
|
|
Отправлено: 17.09.07 13:48. Заголовок: Проблема с ярлыком и окном терминалки GTWVT
Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки... Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило? Закрываю это пустое окно - закрывается и окно моей программы. И наоборот... А ярлык я делал собственно для того, чтобы можно было программу на полный экран развернуть. Это вообще-то возможно?
| |
|
Ответов - 96
, стр:
1
2
3
4
5
All
[только новые]
|
|
|
| постоянный участник
|
Пост N: 31
Зарегистрирован: 27.01.07
|
|
Отправлено: 17.09.07 14:08. Заголовок: Re:
Лукашевский пишет: цитата: | А ярлык я делал собственно для того, чтобы можно было программу на полный экран развернуть. Это вообще-то возможно? |
| В текстовом режиме возможно. Alt-Enter.
| |
|
|
| |
Пост N: 94
Зарегистрирован: 08.04.06
|
|
Отправлено: 19.09.07 11:41. Заголовок: PSP
PSP пишет: цитата: | В текстовом режиме возможно. Alt-Enter. |
| В том-то и дело, что ничего подобного!!! На Alt-Enter никакой реакции! Стал бы я иначе изгаляться с ярлыком, если бы было так просто!
| |
|
|
| постоянный участник
|
Пост N: 32
Зарегистрирован: 27.01.07
|
|
Отправлено: 19.09.07 20:50. Заголовок: Re:
Вааще-то должно работать.
| |
|
|
| постоянный участник
|
Пост N: 34
Зарегистрирован: 27.01.07
|
|
Отправлено: 19.09.07 21:59. Заголовок: Re:
| |
|
|
| постоянный участник
|
Пост N: 242
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.09.07 22:08. Заголовок: Re:
| |
|
|
| |
Пост N: 95
Зарегистрирован: 08.04.06
|
|
Отправлено: 20.09.07 08:54. Заголовок: Re:Петр
Все такие умные... Времени нет весь интернет перелопачмвать! Если знаете, что делать - скажите, если нет - пустых фраз не надо (ну если только с соболезнованиями :-) Итак, что нужно сделать, чтобы: 1. Развернуть терминальную программу на весь экран 2. При запуске терминальной программы ярлыком было не два окна, а одно? Нет, ну можно подумать, что я один с этим столкнулся!!! Что, никто xHarbour-программу ярлыком с рабочего стола не запускает???
| |
|
|
| |
Пост N: 96
Зарегистрирован: 08.04.06
|
|
Отправлено: 20.09.07 08:56. Заголовок: Re: PSP
PSP пишет: цитата: | Вааще-то должно работать. |
| Так в Clippere и работает! А харборская - далеко не всегда! При терминале GTWIN с ключом линковки -aa переключение по Alt Enter в полный экран работает, а во ВСЕХ остальных случаях - нет!!!
| |
|
|
| постоянный участник
|
Пост N: 243
Зарегистрирован: 09.10.06
|
|
Отправлено: 20.09.07 08:59. Заголовок: Re:
Петр пишет: цитата: | http://www.google.com/search?client=opera&rls=ru&q=conagent.exe&sourceid=opera&ie=utf-8&oe=utf-8 Много интересного можно прочитать, если читать внимательно. |
| Лукашевский пишет: цитата: | Все такие умные... Времени нет весь интернет перелопачмвать! |
| Решение на первой странице..
| |
|
|
| постоянный участник
|
Пост N: 35
Зарегистрирован: 27.01.07
|
|
Отправлено: 20.09.07 11:00. Заголовок: Re:
Лукашевский пишет: цитата: | А харборская - не желает! |
| У меня работает. Именно xHarbour и именно с ярлыком. Может какой-то триппер на компе завелся?
| |
|
|
| |
Пост N: 99
Зарегистрирован: 08.04.06
|
|
Отправлено: 21.09.07 11:49. Заголовок: Re:
PSP пишет: цитата: | Может какой-то триппер на компе завелся? |
| DrWEB ничего не говорит... Может, два окна потому, что у меня Windows ME? Но тогда это проблема не только моя должна быть...
| |
|
|
| постоянный участник
|
Пост N: 339
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.09.07 12:43. Заголовок: Re:
Лукашевский пишет: цитата: | Может, два окна потому, что у меня Windows ME? |
| Попробуй на ХР, если и там будет 2 окна, то это скорее всего из-за того что напутано с ключами сборки программы. У меня такое тоже раньше было.
| |
|
|
|
| |
Пост N: 100
Зарегистрирован: 08.04.06
|
|
Отправлено: 21.09.07 12:55. Заголовок: Re: Петр
Петр пишет: цитата: | Решение на первой странице.. |
| Если ты о файле _default.pif, то у меня его нет, а если о том чтобы удалить conagent.exe - то без него ярлык вообще не запускается в принципе! Больше я там ничего полезного не нашёл...
| |
|
|
| |
Пост N: 101
Зарегистрирован: 08.04.06
|
|
Отправлено: 21.09.07 12:59. Заголовок: Re: Andrey
Andrey пишет: цитата: | Попробуй на ХР, если и там будет 2 окна, |
| Доберусь до компа с XP - попробую, конечно. У меня-то и на домашнем, и на ноутбуке Millennium... Кстати, а как ты справился с проблемой? Что именно там в ключах сборки было не так?
| |
|
|
| постоянный участник
|
Пост N: 245
Зарегистрирован: 09.10.06
|
|
Отправлено: 21.09.07 17:00. Заголовок: Re:
Лукашевский пишет: цитата: | Если ты о файле _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 и все должно заработать.
| |
|
|
| постоянный участник
|
Пост N: 340
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.09.07 19:40. Заголовок: Re:
Лукашевский пишет: цитата: | Кстати, а как ты справился с проблемой? Что именно там в ключах сборки было не так? |
| Да не помню я точно, как исправлял. Делай просто, собери программу из нескольких строк, проверь у себя, а затем на ХР. А по результату можно будет разбирать ситуацию дальше.
| |
|
|
| |
Пост N: 103
Зарегистрирован: 08.04.06
|
|
Отправлено: 23.09.07 00:05. Заголовок: Re: Петр
Петр пишет: цитата: | Вот щелкни на Conagent.exe правой клавишей мыши, вибери свойства, выбери закладку экран и установи опцию Окно, выбери применить. После всего этого у тебя должен появиться _Default.pif |
| Мне почему-то кажется, что не всему написанному в сети нужно верить... На закладке Экран у меня и так стояло значение "Оконный". И при этом _Default.pif не было. Я попробовал выставить "Полноэкранный" - пустое окно действительно разворачивается на полный экран, а окно программы как было, так и остаётся мелким! Так что ни одной из проблем манипуляции с Conagent.exe не решили!
| |
|
|
| постоянный участник
|
Пост N: 246
Зарегистрирован: 09.10.06
|
|
Отправлено: 23.09.07 11:29. Заголовок: Re:
А _Default.pif появился? Если появился - значит можно верить Есть еще одна подсказка : при компиляции программ MiniGUI прилинковывают библиотеку gtgui.lib ( стандарт для всех MiniGUI). Но, если требуется отладка такой программы используется ключ компилятора /b и в rsp файл включают еще и gtwin.lib, перед gtgui.lib. Связано это с тем, что отладчик в стандартном режиме использует именно gtwin терминал. Вот в результате при запуске этой MiniGUI программы мы можем видеть что-то подобное на то, что ты описываешь - основное GUI окно программы и пустое (до момента перехода в режим отладки) консольное. По моему на форуме xHb кто-то предлагал изменения необходимые для корректной работы отладчика в WVT терминале, но были ли эти изменения приняти и внесены в CVS - вопрос.
| |
|
|
| |
Пост N: 104
Зарегистрирован: 08.04.06
|
|
Отправлено: 25.09.07 09:49. Заголовок: Re: Петр
Петр пишет: цитата: | А _Default.pif появился? Если появился - значит можно верить |
| Не появился. Значит - верить нельзя. И никакого ключа /b у меня и в помине нет! Так что это что-то другое. Знать бы что именно!
| |
|
|
| |
Пост N: 131
Зарегистрирован: 08.04.06
|
|
Отправлено: 08.01.08 19:37. Заголовок: И ещё одна проблема
А в сборке xHarbour 1.1.0 шрифт окна нерусский типа "греческий", хотя в главном модуле программы в первых строках указано WVT_SETCODEPAGE(255)
| |
|
|
| Администратор
|
Пост N: 699
Зарегистрирован: 23.05.05
|
|
Отправлено: 10.01.08 18:35. Заголовок: Странно Я, правда, п..
Странно Я, правда, проверяю не на релизе, а на более поздней версии с CVS, но у меня кодовая страница русская (866) Пропробуй еще указать напрямую шрифт #include "gtinfo.ch" .. gtInfo(GTI_FONTNAME, 'Terminal') gtInfo(GTI_CODEPAGE, 255) // то же, что и WVT_SETCODEPAGE(255)
| |
|
|
| |
Пост N: 137
Зарегистрирован: 08.04.06
|
|
Отправлено: 12.01.08 12:24. Заголовок: Re: Pasha
Смогу проверить только в понедельник... На сборке 1.0.0, которая у меня на ноутбуке, со шрифтом и языком проблем нет - и твой вариант в ней работает точно так же, как и WVT_SETCODEPAGE(255). А что всё-таки с двумя окнами при запуске программы ярлыком? Или у тебя такой проблемы нет? И может ли всё-таки юзверь во время работы развернуть окно на полный экран, или в принципе нет?
| |
|
|
|
| Администратор
|
Пост N: 701
Зарегистрирован: 23.05.05
|
|
Отправлено: 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()
| |
|
|
| |
Пост N: 138
Зарегистрирован: 08.04.06
|
|
Отправлено: 12.01.08 14:36. Заголовок: Re: Pasha
А зачем два окна в принципе-то? НАФИГА? И как второе (пустое) окно убрать, ибо принципиально убрать его можно: при запуске из Нортона, например, окно одно-единственное!
| |
|
|
| постоянный участник
|
Пост N: 395
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.01.08 18:34. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | при запуске из Нортона, например, окно одно-единственное |
| Наверно т.к. Нортон это ДОС окно, то и второе не образуется. Я писал тебе, что при использовании gtwvt у меня только одно окно, при старте образуется 2 окна, а потом одно окно уходит (наверно какая-то инициализация), меня оно тоже раздражает ! У тебя что-то при сборке ЕХЕ-ника неправильно указано.
| |
|
|
| постоянный участник
|
Пост N: 396
Зарегистрирован: 12.09.06
|
|
Отправлено: 12.01.08 18:39. Заголовок: Pasha пишет: Этим ..
Pasha пишет: цитата: | Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно |
| А можно кусочек примера показать про эти настройки ? Плиз ....
| |
|
|
| Администратор
|
Пост N: 702
Зарегистрирован: 23.05.05
|
|
Отправлено: 13.01.08 10:44. Заголовок: По поводу 2-го окна ..
По поводу 2-го окна укажи линкеру опцию -aa
| |
|
|
| Администратор
|
Пост N: 703
Зарегистрирован: 23.05.05
|
|
Отправлено: 13.01.08 10:59. Заголовок: Файл my.ini: FontN..
Файл 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
| |
|
|
| |
Пост N: 142
Зарегистрирован: 08.04.06
|
|
Отправлено: 13.01.08 14:54. Заголовок: Re: Pasha
Pasha пишет: цитата: | По поводу 2-го окна укажи линкеру опцию -aa |
| Ура! Лишнее окно убралось! Странно только, что при линковке с терминалом GTWin всё было нормально и без этой опции...
| |
|
|
| |
Пост N: 143
Зарегистрирован: 08.04.06
|
|
Отправлено: 13.01.08 14:56. Заголовок: Re: Pasha
Pasha пишет: цитата: | gtInfo(GTI_FONTNAME, 'Terminal') gtInfo(GTI_CODEPAGE, 255) |
| Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался...
| |
|
|
| постоянный участник
|
Пост N: 82
Зарегистрирован: 13.10.05
|
|
Отправлено: 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\ %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
| |
|
|
| постоянный участник
|
Пост N: 400
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.01.08 09:44. Заголовок: Запусти утилиту HBMA..
| |
|
|
|
| постоянный участник
|
Пост N: 83
Зарегистрирован: 13.10.05
|
|
Отправлено: 15.01.08 13:07. Заголовок: А если без HBMAKE.E..
А если без HBMAKE.EXE? До этого я обходился без этой утилиты.
| |
|
|
| Администратор
|
Пост N: 708
Зарегистрирован: 23.05.05
|
|
Отправлено: 15.01.08 17:39. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался... |
| Я не могу сказать, что там в релизе начудили, да и смысла разбираться в этом наверное сейчас уже нет. Могу выслать собранную gtwvt.lib
| |
|
|
| Администратор
|
Пост N: 709
Зарегистрирован: 23.05.05
|
|
Отправлено: 15.01.08 17:43. Заголовок: Vlad04 пишет: У мен..
Vlad04 пишет: цитата: | У меня остается проблема со вторым окном. Для сборки я использую батник Кресина.Опцию -аа по разному пробовал, второе окно не убирается. Посмотрите может , кто подскажет для данного случая. |
| Наверное, надо добавить опцию -laa в вызове bcc32 Ключ -l у bcc: set linker option
| |
|
|
| Администратор
|
Пост N: 710
Зарегистрирован: 23.05.05
|
|
Отправлено: 15.01.08 17:47. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Странно только, что при линковке с терминалом 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 программа быть не может Вот и создается лишнее консольное окно
| |
|
|
| постоянный участник
|
Пост N: 84
Зарегистрирован: 13.10.05
|
|
Отправлено: 16.01.08 07:40. Заголовок: Меня второе окно осо..
Меня второе окно особенно то же не донимало, но если можно от него избавиться, то хотелось бы. При сборке с батником убрать окно не получилось. Вышлите на orsv04@mail.ru , кто победил второе окно используя утилиту HBMAKE.EXE , файлы , повидимому make_b32.bat и makefile.bc, конкретного примера.
| |
|
|
| постоянный участник
|
Пост N: 401
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.01.08 08:35. Заголовок: Vlad04 пишет: кто п..
Vlad04 пишет: цитата: | кто победил второе окно используя утилиту HBMAKE.EXE |
| Так я ж и пишу, что эта утилита соберет тебе проект правильно. !!! И не надо отпихиваться словами, что нужно разбираться.... Там все тупо и просто. Я даже проект собираю из 2-х файлов, чем править готовые батники ....
| |
|
|
| постоянный участник
|
Пост N: 86
Зарегистрирован: 13.10.05
|
|
Отправлено: 16.01.08 10:53. Заголовок: К HBMAKE.EXE долже..
К HBMAKE.EXE должен быть еще файл Makefile. Вот о нем речь и идет . Вышли его для программы хоть из двух файлов.
| |
|
|
| Администратор
|
Пост N: 713
Зарегистрирован: 23.05.05
|
|
Отправлено: 16.01.08 18:21. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Проверил - gtInfo не помог - как был греческий шрифт вместо русского на сборке 1.1.0, так греческим и остался... |
| Я сегодня был в одной организации, и был сражен наповал... на обычных рабочих местах установлен Windows 2003 Server !!!!! Причем на каждом компьютере. Видимо, что-то решил, что чем круче, тем лучше Но к чему это я. Установил свои программы. Попросили до кучи настроить и консольный режим. Настроил с gtwvt - и увидел... кракозябликов. Причем на одном 2003srv шрифт не русский, на другом - русский Поигрался с настройками. Выяснилось, что кодовая страница OEM (255) получается нерусская (зяблики), если указать шрифт Terminal. С Courier New, Arial и пр - все в порядке Вывод из всего этого. В некоторых ОС у шрифта Terminal либо отсутствует кодовая страница 866, либо кодовая страница для OEM указывает не на 866-ю страницу (брр, какой сумбур-каламбур получился) Лечится все это использованием другого шрифта: gtInfo(GTI_FONTNAME, cFont)
| |
|
|
| Администратор
|
Пост N: 714
Зарегистрирован: 23.05.05
|
|
Отправлено: 16.01.08 18:22. Заголовок: то есть gtInfo(GTI_F..
то есть gtInfo(GTI_FONTNAME, 'Courier New')
| |
|
|
| |
Пост N: 148
Зарегистрирован: 08.04.06
|
|
Отправлено: 16.01.08 18:31. Заголовок: Re: Pasha
Pasha пишет: цитата: | Лечится все это использованием другого шрифта: |
| Попробую, конечно... Однако: в сборке 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а...
| |
|
|
|
| |
Пост N: 149
Зарегистрирован: 08.04.06
|
|
Отправлено: 16.01.08 18:42. Заголовок: Re: Pasha
Pasha пишет: цитата: | то есть gtInfo(GTI_FONTNAME, 'Courier New') |
| Да, действительно, всё стало по-русски... но убого сплюснутым А если поставить Arial или Times, то буквы друг с другом сливаются... Terminal выглядел получше. Щас буду дальше экспериментировать.
| |
|
|
| |
Пост N: 150
Зарегистрирован: 08.04.06
|
|
Отправлено: 16.01.08 18:58. Заголовок: Re: Pasha
цитата: | Terminal выглядел получше. |
| О, нашёл: gtInfo(GTI_FONTNAME, "Lucida Console") очень неплохо смотрится!
| |
|
|
| Администратор
|
Пост N: 716
Зарегистрирован: 23.05.05
|
|
Отправлено: 16.01.08 21:58. Заголовок: До 2007-го года шриф..
До 2007-го года шрифт по умолчанию для gtwvt был Courier New. В прошлом году (точно не скажу когда и кем) его заменили на Terminal. Получается, что в некоторых ОС шрифт Terminal при указании OEM Codepage не устанавливает русскую кодировку. В релизе 1.0.0 это было некритично, так использовался по умолчанию другой шрифт, а в релизе 1.1.0 этот глюк некоторых ОС проявляется. Поскольку терминал дает возможность прямо устанавливать шрифт, возвращать его на Courier New нет смысла. Изначально это проблема не gtwvt, а ОС
| |
|
|
| |
Пост N: 153
Зарегистрирован: 08.04.06
|
|
Отправлено: 17.01.08 13:48. Заголовок: Re: Pasha
Pasha пишет: цитата: | gtInfo(GTI_FONTSIZE, nFontSize) // размер шрифта |
| Такое увеличение "размера" шрифта даёт только увеличение вертикальной длины символов. А как сделать, чтобы они и в ширину увеличивались? Короче, чтобы огрызков рабочего стола слева и справа от окна не было (глаз на них сильно отвлекается)? gtInfo(GTI_SCREENWIDTH, 800) помог лишь частично - окно стало в ширину экрана, но ширина шрифта в приложении осталась прежнего размера... соответственно имеем справа пустой кусок окна... gtInfo(GTI_FONTWEIGHT, ...) не даёт вообще никакого видимого эффекта... по крайней мере со шрифтом Lucida Console Больше я в gtInfo.ch ничего толкового на эту тему не нашёл.
| |
|
|
| Администратор
|
Пост N: 719
Зарегистрирован: 23.05.05
|
|
Отправлено: 17.01.08 15:57. Заголовок: А GTI_FONTWIDTH ? Эт..
А GTI_FONTWIDTH ? Это кажется то, что надо
| |
|
|
| |
Пост N: 155
Зарегистрирован: 08.04.06
|
|
Отправлено: 17.01.08 16:43. Заголовок: Re: Pasha
Pasha пишет: цитата: | А GTI_FONTWIDTH ? Это кажется то, что надо |
| Спасибо, Pasha! Действительно, проглядел... немало там всего. Сочетание: gtInfo(GTI_FONTNAME, "Lucida Console") gtInfo(GTI_FONTSIZE, 16) gtInfo(GTI_FONTWIDTH, 10) дало вполне приемлемый вид программы.
| |
|
|
| постоянный участник
|
Пост N: 404
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.01.08 00:12. Заголовок: А как можно получить..
А как можно получить список установленных шрифтов с размерами для терминала GTWVT ? Хотелось бы сделать менюшку с выбором шрифта и размерами. А то юзера разборчивые все пальцы загибают: а вот раньше (на Клипере) можно было размер "программы" установить (это они про шрифт так говорят) а сейчас нельзя, а мне не нравиться, а вообще программа стала хуже.... Достали ..........
| |
|
|
| Администратор
|
Пост N: 720
Зарегистрирован: 23.05.05
|
|
Отправлено: 18.01.08 12:24. Заголовок: Можно использовать л..
Можно использовать любой шрифт, в котором есть русская кодовая страница А список можно глянуть хотя бы в ворде Насчет размеров - сделай им простое дилоговое окошко с настройками этих размеров Будет еще лучше, чем рашьше :)
| |
|
|
| |
Пост N: 158
Зарегистрирован: 08.04.06
|
|
Отправлено: 18.01.08 18:55. Заголовок: Re: Pasha
Лукашевский пишет: цитата: | По поводу 2-го окна укажи линкеру опцию -aa Ура! Лишнее окно убралось! |
| М-да... Убралось оно при опции -aa только в Windows'98 и в Windows ME. В Windows XP по-прежнему присутствует...
| |
|
|
| постоянный участник
|
Пост N: 407
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.01.08 20:14. Заголовок: Pasha пишет: Можно ..
Pasha пишет: цитата: | Можно использовать любой шрифт, в котором есть русская кодовая страница А список можно глянуть хотя бы в ворде |
| Т.е. системно нельзя ? Я откуда знаю куда мою задачу поставят на 98/...... или ХР ! Или нужно под каждую операционку держать отдельные списки шрифтов ?
| |
|
|
| |
Пост N: 159
Зарегистрирован: 08.04.06
|
|
Отправлено: 20.01.08 00:23. Заголовок: Ещё одна ошибка терм..
Ещё одна ошибка терминала GTWVT: не воспринимается нажатие комбинации ALT F6 INKEY(0) её просто не ощущает - продолжает ждать нажатия клавиши!
| |
|
|
| Администратор
|
Пост N: 723
Зарегистрирован: 23.05.05
|
|
Отправлено: 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 это нажатие отрабатывается, если программа получает само событие
| |
|
|
| |
Пост N: 160
Зарегистрирован: 08.04.06
|
|
Отправлено: 21.01.08 20:52. Заголовок: Re: Pasha
Pasha пишет: цитата: | Какое приложение перехватывает комбинацию клавиш Alt+F6 в win98 - не знаю. Возможно, это делает сама ОС, если такое нажатие зарезервировано для каких-то системных целей |
| Pasha, ты не обратил внимание на слова "ошибка терминала GTWVT" в моём сообщении :-) Я специально попробовал на GTWIN - там Alt+F6 под тем же Win'98 прекрасно обрабатывается! Только после этого я написал то, что написал Так что ошибка скорее всего именно где-то в терминале GTWVT - комбинацию Alt+F6 зачем-то перехватывает именно он... Как, я думаю, и Alt+F5 под Win'XP... цитата: | В сырцах gtwvt видно, что нажатие Alt+F6 обрабатывается обычным образом. |
| Ну или, по крайней мере, GTWVT почему-то позволяет виндосе эту комбинацию перехватывать, в отличие от GTWIN, который это дело совершенно правильно рубит...
| |
|
|
| Администратор
|
Пост N: 724
Зарегистрирован: 23.05.05
|
|
Отправлено: 22.01.08 13:14. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Pasha, ты не обратил внимание на слова "ошибка терминала GTWVT" в моём сообщении :-) Я специально попробовал на GTWIN - там Alt+F6 под тем же Win'98 прекрасно обрабатывается! |
| Это ни о чем не говорит, так как события клавитуры в консольной и gui программе windows обрабатывает совершенно по разному. И набор winapi-функций разный цитата: | Как, я думаю, и Alt+F5 под Win'XP... |
| Нет, здесь как раз все ясно. Это нажатие перехватывает видеодрайвер
| |
|
|
| Администратор
|
Пост N: 726
Зарегистрирован: 23.05.05
|
|
Отправлено: 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 там нет
| |
|
|
| |
Пост N: 45
Зарегистрирован: 27.04.06
|
|
Отправлено: 24.01.08 12:27. Заголовок: Keyboard shortcuts f..
Keyboard shortcuts for Windows http://support.microsoft.com/kb/126449 ... 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
| |
|
|
| |
Пост N: 170
Зарегистрирован: 08.04.06
|
|
Отправлено: 30.01.08 23:27. Заголовок: Pasha пишет: Развер..
Pasha пишет: цитата: | Развернуть окно нельзя, т.к. полноэкранного режима в принципе нет для gtwvt |
| А для терминала GTWIN полноэкранный режим есть! И какой терминал прикажете считать более продвинутым?
| |
|
|
| |
Пост N: 171
Зарегистрирован: 08.04.06
|
|
Отправлено: 30.01.08 23:32. Заголовок: Re: Vlad04
Vlad04 пишет: цитата: | При сборке с батником убрать окно не получилось. |
| Так получилось у кого-нибудь убрать второе окно при работе под XP? А то у меня в 98-ME его нет, а в XP тот же самый EXEшник запускается двумя окнами!
| |
|
|
| Администратор
|
Пост N: 737
Зарегистрирован: 23.05.05
|
|
Отправлено: 31.01.08 09:16. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Так получилось у кого-нибудь убрать второе окно при работе под XP? А то у меня в 98-ME его нет, а в XP тот же самый EXEшник запускается двумя окнами! |
| линкеру дай параметр -aa
| |
|
|
| |
Пост N: 173
Зарегистрирован: 08.04.06
|
|
Отправлено: 31.01.08 23:26. Заголовок: Re: Pasha
Pasha пишет: А я о чём говорю?! Именно с этим параметром в 98-м и ME окно одно, а в XP - два!
| |
|
|
| постоянный участник
|
Пост N: 445
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.02.08 00:43. Заголовок: Собери свой проект п..
Собери свой проект под HBMAKE и он сам тебе правильно поставит опции сборки.... И не парся ....
| |
|
|
| постоянный участник
|
Пост N: 491
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.02.08 21:59. Заголовок: Pasha пишет: Насчет..
Pasha пишет: цитата: | Насчет размеров - сделай им простое дилоговое окошко с настройками этих размеров Будет еще лучше, чем рашьше :) |
| Как это сделать ???
| |
|
|
| |
Пост N: 210
Зарегистрирован: 08.04.06
|
|
Отправлено: 20.02.08 11:49. Заголовок: Pasha пишет: А GTI_..
Pasha пишет: цитата: | А GTI_FONTWIDTH ? Это кажется то, что надо |
| Перестал работать GtInfo(GTI_FONTWIDTH, 10)... Интересно, это из-за мультитерминальной сборки, или кто-то внёс ошибку в сырцы? При этом GtInfo(GTI_FONTWIDTH) работает как прежде, показывает ширину шрифта правильно. А вот установка этой самой ширины не работает
| |
|
|
| постоянный участник
|
Пост N: 497
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.02.08 22:41. Заголовок: Pasha пишет: Недавн..
Pasha пишет: цитата: | Недавно сделал настройку палитры цветов для gtwvt, через функции Wvt_GetPalette(), Wvt_SetPalette(), Wvt_ChooseColor() |
| А можно еще до кучи и этот кусочек примера показать про эти настройки ? спасибо заранее .... Pasha пишет: цитата: | Этим вопрос с размером окна закрыл полностью, каждому юзеру ставлю настройки как ему удобно |
| Т.е. ты сам в ини-файлы ставишь ручками шрифт и размер шрифта ?
| |
|
|
| Администратор
|
Пост N: 816
Зарегистрирован: 23.05.05
|
|
Отправлено: 24.02.08 11:03. Заголовок: Andrey „Ѓ„y„Љ„u„„: ..
Andrey „Ѓ„y„Љ„u„„: цитата: | „@ „}„Ђ„w„~„Ђ „u„‹„u „t„Ђ „{„…„‰„y „y „Џ„„„Ђ„„ „{„…„ѓ„Ђ„‰„u„{ „Ѓ„‚„y„}„u„‚„p „Ѓ„Ђ„{„p„x„p„„„Ћ „Ѓ„‚„Ђ „Џ„„„y „~„p„ѓ„„„‚„Ђ„z„{„y ? |
| „R„}. „Ѓ„‚„Ђ„?„u„t„…„‚„… „~„y„w„u. „S„p„}, „{„Ђ„~„u„‰„~„Ђ, „y„ѓ„Ѓ„Ђ„|„Ћ„x„…„u„„„ѓ„‘ „}„Ђ„‘ „ѓ„Ѓ„u„?„y„†„y„{„p. „N„Ђ „ѓ„…„„„Ћ, „‘ „t„…„}„p„ђ, „q„…„t„u„„ „Ѓ„Ђ„~„‘„„„~„p „M„p„ѓ„ѓ„y„r aGet - „Џ„„„Ђ „ѓ„Ѓ„y„ѓ„Ђ„{ GET. „{„Ђ„„„Ђ„‚„Ќ„u „~„p„t„Ђ „ѓ„Ђ„x„t„p„„„Ћ. „B „Џ„„„y„‡ get „‘ „x„p„t„p„ђ Reader-„q„|„Ђ„{, „r „{„Ђ„„„Ђ„‚„Ђ„} „Ѓ„Ђ Enter „r„Ќ„x„Ќ„r„p„u„„„ѓ„‘ „q„|„Ђ„{ „{„Ђ„t„p „r„y„t„p {|| SetClr(1, a16)}. „K„p„w„t„Ђ„}„… get „~„p„t„Ђ „…„ѓ„„„p„~„Ђ„r„y„„„Ћ „ѓ„Ђ„Ђ„„„r„u„„„ѓ„„„r„…„ђ„‹„y„z „?„r„u„„ TWindowNew/TWindowClose - „Ѓ„‚„Ђ„ѓ„„„Ђ „ѓ„Ђ„x„t„p„~„y„u „Ѓ„…„ѓ„„„Ђ„„„s„Ђ „Ђ„{„~„p „ѓ „‚„p„}„{„Ђ„z ARead „†„Ђ„‚„}„y„‚„…„u„„ get „y „r„Ќ„x„Ќ„r„p„u„„ ReadModal „H„p„}„u„~„y „}„Ђ„ђ „ѓ„Ѓ„u„?„y„†„y„{„… „~„p „ѓ„„„p„~„t„p„‚„„„~„Ќ„u „†„…„~„{„?„y„y. „` „~„p„Ѓ„‚„‘„}„…„ђ „{„Ђ„}„p„~„t„Ќ „„„y„Ѓ„p SAY/GET „r„Ќ„x„Ќ„r„p„ђ „‚„u„t„{„Ђ #ifdef __HARBOUR__ #include "getexit.ch" #include "inkey.ch" 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 aGet := {; { 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},; { 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},; { 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},; {10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},; {12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},; {14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},; {16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},; {18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},; { 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},; { 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},; { 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},; {10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},; {12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},; {14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},; {16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},; {18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},; {19,20, Replicate('„џ', 41)},; {20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,; {|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},; {|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},; {20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,; {|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},; {20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,; {|oG| StandardClr(a16)},, cBtnClr} } 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 endif Return nil Static func SetClr(nPal, a16) Local nClr := WVT_ChooseColor(a16[nPal], a16) if nClr # -1 .and. nClr # a16[nPal] a16[nPal] := nClr WvtRefresh(a16) endif Return nil Static func StandardClr(a16) a16[ 1] := RGB( 0x0 ,0x0 ,0x0 ) a16[ 2] := RGB( 0x0 ,0x0 ,0x85 ) a16[ 3] := RGB( 0x0 ,0x85,0x0 ) a16[ 4] := RGB( 0x0 ,0x85,0x85 ) a16[ 5] := RGB( 0x85,0x0 ,0x0 ) a16[ 6] := RGB( 0x85,0x0 ,0x85 ) a16[ 7] := RGB( 0x85,0x85,0x0 ) a16[ 8] := RGB( 0xC6,0xC6,0xC6 ) a16[ 9] := RGB( 0x60,0x60,0x60 ) a16[10] := RGB( 0x00,0x00,0xFF ) a16[11] := RGB( 0x60,0xFF,0x60 ) a16[12] := RGB( 0x60,0xFF,0xFF ) a16[13] := RGB( 0xF8,0x00,0x26 ) a16[14] := RGB( 0xFF,0x60,0xFF ) a16[15] := RGB( 0xFF,0xFF,0x00 ) a16[16] := RGB( 0xFF,0xFF,0xFF ) WvtRefresh(a16) Return nil STATIC FUNCTION rgb( r,g,b ) RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) ) #endif
| |
|
|
| Администратор
|
Пост N: 817
Зарегистрирован: 23.05.05
|
|
Отправлено: 24.02.08 11:04. Заголовок: „D„p „‰„„„Ђ „„„p„{„Ђ..
„D„p „‰„„„Ђ „„„p„{„Ђ„u. „K„‚„p„{„Ђ„x„‘„q„|„y„{„p„}„y „r„ѓ„u „Ѓ„Ђ„Љ„|„Ђ. „P„Ђ„r„„„Ђ„‚„‘„ђ „{„Ђ„t #ifdef __HARBOUR__ #ifndef _fw #include "getexit.ch" #include "inkey.ch" 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 aGet := {; { 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},; { 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},; { 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},; {10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},; {12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},; {14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},; {16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},; {18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},; { 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},; { 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},; { 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},; {10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},; {12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},; {14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},; {16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},; {18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},; {19,20, Replicate('„џ', 41)},; {20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,; {|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},; {|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},; {20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,; {|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},; {20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,; {|oG| StandardClr(a16)},, cBtnClr} } 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 endif Return nil Static func SetClr(nPal, a16) Local nClr := WVT_ChooseColor(a16[nPal], a16) if nClr # -1 .and. nClr # a16[nPal] a16[nPal] := nClr WvtRefresh(a16) endif Return nil Static func StandardClr(a16) a16[ 1] := RGB( 0x0 ,0x0 ,0x0 ) a16[ 2] := RGB( 0x0 ,0x0 ,0x85 ) a16[ 3] := RGB( 0x0 ,0x85,0x0 ) a16[ 4] := RGB( 0x0 ,0x85,0x85 ) a16[ 5] := RGB( 0x85,0x0 ,0x0 ) a16[ 6] := RGB( 0x85,0x0 ,0x85 ) a16[ 7] := RGB( 0x85,0x85,0x0 ) a16[ 8] := RGB( 0xC6,0xC6,0xC6 ) a16[ 9] := RGB( 0x60,0x60,0x60 ) a16[10] := RGB( 0x00,0x00,0xFF ) a16[11] := RGB( 0x60,0xFF,0x60 ) a16[12] := RGB( 0x60,0xFF,0xFF ) a16[13] := RGB( 0xF8,0x00,0x26 ) a16[14] := RGB( 0xFF,0x60,0xFF ) a16[15] := RGB( 0xFF,0xFF,0x00 ) a16[16] := RGB( 0xFF,0xFF,0xFF ) WvtRefresh(a16) Return nil STATIC FUNCTION rgb( r,g,b ) RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) ) #endif
| |
|
|
| Администратор
|
Пост N: 818
Зарегистрирован: 23.05.05
|
|
Отправлено: 24.02.08 11:07. Заголовок: Krakozyabliki po4emu..
Krakozyabliki po4emu-to poshli :0
| |
|
|
| Администратор
|
Пост N: 819
Зарегистрирован: 23.05.05
|
|
Отправлено: 24.02.08 12:31. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Перестал работать GtInfo(GTI_FONTWIDTH, 10)... Интересно, это из-за мультитерминальной сборки, или кто-то внёс ошибку в сырцы? |
| Posmotriu Посмотрю
| |
|
|
| Администратор
|
Пост N: 820
Зарегистрирован: 23.05.05
|
|
Отправлено: 24.02.08 21:30. Заголовок: Похоже, сейчас при m..
Похоже, сейчас при multi_gt сборке терминал gtwvt вообще не линкуется к программе. Доступен только gtwin Я написал об этом в dev-list
| |
|
|
| Администратор
|
Пост N: 823
Зарегистрирован: 23.05.05
|
|
Отправлено: 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 Задаете вопрос. Получаете компетентный ответ, причем оперативно, без лишнего передаточного звена в моем лице Если есть затруднения с английским - попросите знакомого перевести свой небольшой и несложный текст, или воспользуйтесь переводчиком
| |
|
|
| |
Пост N: 215
Зарегистрирован: 08.04.06
|
|
Отправлено: 25.02.08 22:43. Заголовок: Pasha пишет: Похоже..
Pasha пишет: цитата: | Похоже, сейчас при multi_gt сборке терминал gtwvt вообще не линкуется к программе. Доступен только gtwin |
| С сырцами от 20 февраля линкуется... Я же писал, что GtInfo(GTI_FONTWIDTH) выдаёт текущую ширину шрифта правильно... Кстати, Pasha, не в курсе, в какой кодировке должен быть русский текст для GtInfo(GTI_WINTITLE, text), чтобы он правильно отображался под GTWIN на XP ? С 98-м и ME проблем нет, а под XP чёрт знает что в заголовке окна рисует...
| |
|
|
| Администратор
|
Пост N: 825
Зарегистрирован: 23.05.05
|
|
Отправлено: 25.02.08 22:57. Заголовок: Я тоже об это споткн..
Я тоже об это споткнулся winxp и win9x ведут себя по разному, чтот для меня было неожиданно Поэтому можно написать так: GTInfo( GTI_WINTITLE, if(hb_gt_version()='WVT'.or.OS_ISWIN9X(), HB_OemToAnsi( cCap ), cCap) ) Так GTI_FONTWIDTH заработал ? У меня работает с последними сырцами, если поставить request
| |
|
|
| постоянный участник
|
Пост N: 499
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.02.08 23:10. Заголовок: Pasha пишет: Krakoz..
Pasha пишет: цитата: | Krakozyabliki po4emu-to poshli :0 |
| Паша спасибо за тексты, только в кракозябах я тоже ничерта не разберусь. Если тебе не трудно, то скинь пожалуйста тексты на мое мыло: 30195@mail.ru
| |
|
|
| |
Пост N: 216
Зарегистрирован: 08.04.06
|
|
Отправлено: 26.02.08 11:49. Заголовок: Pasha пишет: Так GT..
Pasha пишет: цитата: | Так GTI_FONTWIDTH заработал? |
| Как не работал, так и не работает... Сырцы обновлял сегодня ночью... request hb_gt_wvt уменя был поставлен сразу как я сделал мультитерминальную сборку (соотв. harbour_faq.txt) Но раз у тебя работает... возможно, GTI_FONTWIDTH перестала устанавливаться только под Win'9x, а под XP работает. Постараюсь прояснить этот вопрос.
| |
|
|
| Администратор
|
Пост N: 826
Зарегистрирован: 23.05.05
|
|
Отправлено: 26.02.08 13:17. Заголовок: „B„Ђ„„ „u„‹„u „‚„p„x..
„B„Ђ„„ „u„‹„u „‚„p„x „Џ„„„p „Ѓ„‚„Ђ„?„u„t„…„‚„p. „S„p„} „y„ѓ„Ѓ„Ђ„|„Ћ„x„…„ђ„„„ѓ„‘ „}„Ђ„y „†„~„{„?„y„y, „{„Ђ„„„Ђ„‚„Ќ„u „~„p„t„Ђ „x„p„}„u„~„y„„„Ћ „ѓ„r„Ђ„y„}„y TWindowNew()/TWindowsClose() - „Ѓ„‚„Ђ„ѓ„„„Ђ „Ђ„„„{„‚„Ќ„„„y„u „Ђ„{„~„p „ѓ „…„{„p„x„p„~„~„Ќ„}„y „{„Ђ„Ђ„‚„t„y„~„p„„„p„}„y „M„p„ѓ„ѓ„y„r aGet „Ѓ„‚„u„t„~„p„x„~„p„‰„u„~ „t„|„‘ „ѓ„Ђ„x„t„p„~„y„‘ say/get „Ђ„q„Ћ„u„{„„„Ђ„r „r „…„{„p„x„p„~„~„Ђ„} „}„u„ѓ„„„u „Џ„{„‚„p„~„p, „ѓ „x„p„t„p„~„~„Ќ„} „?„r„u„„„Ђ„}. „A„Ђ„| „{„Ђ„t„p {|| SetClr(1, a16)} „r„Ќ„x„Ќ„r„p„u„„„ѓ„‘ „Ѓ„Ђ „~„p„w„p„„„y„ђ Enter „~„p „Џ„„„y„‡ „Ђ„q„Ћ„u„{„„„p„‡ get. „S.„u. „~„p„t„Ђ „t„|„‘ „{„p„w„t„Ђ„s„Ђ „Ђ„q„Ћ„u„{„„„p get „ѓ„Ђ„x„t„p„„„Ћ reader-„q„|„Ђ„{, „{„Ђ„„„Ђ„‚„Ќ„z „q„Ќ „Ѓ„Ђ „~„p„w„p„„„y„ђ Enter „r„Ќ„x„Ќ„r„p„| „Џ„„„Ђ„„ „Ђ„q„‚„p„q„Ђ„„„‰„y„{ „U„…„~„{„?„y„‘ ARead „ѓ„Ђ„x„t„p„u„„ „Џ„„„y get „y „r„Ќ„x„Ќ„r„p„u„„ ReadModal „R„p„}„y „†„…„~„{„?„y„y „~„u „t„p„ђ, „„„p„{ „Ђ„~„y „Ѓ„Ђ„„„‘„~„…„„ „x„p „ѓ„Ђ„q„Ђ„z „u„‹„u „}„~„Ђ„s„Ђ „‰„u„s„Ђ... „D„…„}„p„ђ, „ѓ„…„„„Ћ „Ѓ„Ђ„~„‘„„„~„p „y „q„u„x „~„y„‡ #include "getexit.ch" #include "inkey.ch" 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 aGet := {; { 4,20, '„X„u„‚„~„Ќ„z ', bGet,,,,, {|| SetClr(1, a16)},, '07/00'},; { 6,20, '„R„y„~„y„z ', bGet,,,,, {|| SetClr(2, a16)},, '01/01'},; { 8,20, '„H„u„|„u„~„Ќ„z ', bGet,,,,, {|| SetClr(3, a16)},, '02/02'},; {10,20, '„A„y„‚„ђ„x„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(4, a16)},, '03/03'},; {12,20, '„K„‚„p„ѓ„~„Ќ„z ', bGet,,,,, {|| SetClr(5, a16)},, '04/04'},; {14,20, '„L„y„|„Ђ„r„Ќ„z ', bGet,,,,, {|| SetClr(6, a16)},, '05/05'},; {16,20, '„K„Ђ„‚„y„‰„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(7, a16)},, '06/06'},; {18,20, '„A„u„|„Ќ„z ', bGet,,,,, {|| SetClr(8, a16)},, '07/07'},; { 4,42, '„R„u„‚„Ќ„z ', bGet,,,,, {|| SetClr(9, a16)},, '08/08'},; { 6,42, '„`„‚„{„Ђ-„ѓ„y„~„y„z ', bGet,,,,, {|| SetClr(10, a16)},, '09/09'},; { 8,42, '„`„‚„{„Ђ-„x„u„|„u„~„Ќ„z', bGet,,,,, {|| SetClr(11, a16)},, '10/10'},; {10,42, '„C„Ђ„|„…„q„Ђ„z ', bGet,,,,, {|| SetClr(12, a16)},, '11/11'},; {12,42, '„`„‚„{„Ђ-„{„‚„p„ѓ„~„Ќ„z', bGet,,,,, {|| SetClr(13, a16)},, '12/12'},; {14,42, '„R„y„‚„u„~„u„r„Ќ„z ', bGet,,,,, {|| SetClr(14, a16)},, '13/13'},; {16,42, '„G„u„|„„„Ќ„z ', bGet,,,,, {|| SetClr(15, a16)},, '14/14'},; {18,42, '„`„‚„{„Ђ-„q„u„|„Ќ„z ', bGet,,,,, {|| SetClr(16, a16)},, '15/15'},; {19,20, Replicate('„џ', 41)},; {20,20,, {|| '[ „C„Ђ„„„Ђ„r„Ђ ]'},,,,; {|oG| if(oG:ExitState=GE_ENTER,(oG:ExitState:=GE_WRITE,.f.),.t.)},; {|oG| SetLastKey(K_ENTER),oG:ExitState:=6},, cBtnClr},; {20,20+13,, {|| '[ „O„„„}„u„~„p ]'},,,,,; {|oG| SetLastKey(K_ESC),oG:ExitState:=7},, cBtnClr},; {20,36+10,, {|| '[ „R„„„p„~„t„p„‚„„„~„Ќ„u ]'},,,,,; {|oG| StandardClr(a16)},, cBtnClr} } 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 endif Return nil Static func SetClr(nPal, a16) Local nClr := WVT_ChooseColor(a16[nPal], a16) if nClr # -1 .and. nClr # a16[nPal] a16[nPal] := nClr WvtRefresh(a16) endif Return nil Static func StandardClr(a16) a16[ 1] := RGB( 0x0 ,0x0 ,0x0 ) a16[ 2] := RGB( 0x0 ,0x0 ,0x85 ) a16[ 3] := RGB( 0x0 ,0x85,0x0 ) a16[ 4] := RGB( 0x0 ,0x85,0x85 ) a16[ 5] := RGB( 0x85,0x0 ,0x0 ) a16[ 6] := RGB( 0x85,0x0 ,0x85 ) a16[ 7] := RGB( 0x85,0x85,0x0 ) a16[ 8] := RGB( 0xC6,0xC6,0xC6 ) a16[ 9] := RGB( 0x60,0x60,0x60 ) a16[10] := RGB( 0x00,0x00,0xFF ) a16[11] := RGB( 0x60,0xFF,0x60 ) a16[12] := RGB( 0x60,0xFF,0xFF ) a16[13] := RGB( 0xF8,0x00,0x26 ) a16[14] := RGB( 0xFF,0x60,0xFF ) a16[15] := RGB( 0xFF,0xFF,0x00 ) a16[16] := RGB( 0xFF,0xFF,0xFF ) WvtRefresh(a16) Return nil STATIC FUNCTION rgb( r,g,b ) RETURN ( r + ( g * 256 ) + ( b * 256 * 256 ) )
| |
|
|
| Администратор
|
Пост N: 827
Зарегистрирован: 23.05.05
|
|
Отправлено: 26.02.08 13:19. Заголовок: что-то в коде процед..
что-то в коде процедуры заставляет форум переходить на кракозяблики напишу мылом
| |
|
|
| |
Пост N: 217
Зарегистрирован: 08.04.06
|
|
Отправлено: 26.02.08 22:31. Заголовок: Pasha пишет: Так GT..
Pasha пишет: цитата: | Так GTI_FONTWIDTH заработал ? |
| GTI_FONTWIDTH отказывается устанавливаться категорически, и на XP в том числе, - сегодня проверял. Из-за этого терминалом GTWVT пока не пользуюсь совсем. Представляешь, что такое размер шрифта 8 (а он по умолчанию всегда такой) при разрешении экрана, к примеру, 1280х1024?
| |
|
|
| |
Пост N: 218
Зарегистрирован: 08.04.06
|
|
Отправлено: 27.02.08 12:19. Заголовок: Pasha пишет: http:/..
Pasha пишет: цитата: | http://groups.google.com/group/comp.lang.xharbour/topics?lnk=gschg Задаете вопрос. Получаете компетентный ответ, причем оперативно |
| Какая-то там оперативность... неоперативная. За 14 часов мне пока никто не ответил За неделю тоже!
| |
|
|
| постоянный участник
|
Пост N: 508
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.03.08 08:58. Заголовок: А можно прикрутить к..
А можно ли прикрутить к GTWVT вызов стандартного окна шрифтов ??? и получать по завершению: 1) выбранный шрифт 2) размер шрифта
| |
|
|
| Администратор
|
Пост N: 841
Зарегистрирован: 23.05.05
|
|
Отправлено: 01.03.08 11:36. Заголовок: Функция wvt_choosefo..
Функция wvt_choosefont
| |
|
|
| постоянный участник
|
Пост N: 509
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.03.08 16:45. Заголовок: Спасибо Паша ! Попро..
Спасибо Паша ! Попробовал ее в действии и обнаружил что она возращает только имя фонта, а размер и все остальное не возращает. aFont := wvt_choosefont() IF LEN(aFont) > 0 FOR nI := 1 TO LEN(aFont) ? nI,aFont[nI] NEXT ENDIF // возвращает 1 System 2 1 3 0 4 700 5 1 6 .F. 7 .F. 8 .F. Что делать ?
| |
|
|
| |
Пост N: 227
Зарегистрирован: 08.04.06
|
|
Отправлено: 02.04.08 21:26. Заголовок: Pasha пишет: Так GT..
Pasha пишет: цитата: | Так GTI_FONTWIDTH заработал ? |
| Заработал, зараза! После того как я убрал из линковки TBROWSE, взятый когда-то из сырцов для исправления имевшейся там ошибки. А вот какая такая прочная-порочная зависимость между TBROWSE и HB_GtInfo() - непонятно...
| |
|
|
| |
Пост N: 309
Зарегистрирован: 08.04.06
|
|
Отправлено: 28.05.09 21:51. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | Делаю ярлык на EXEшник. При запуске получаю 2 окна - окно моей программы и рядом ещё одно, пустое! И соотв. внизу в статусной строке рабочего стола тоже две кнопки... Смотрю свойства пустого окна - там всё как надо - можно изменить шрифт, размер окна и т.д. - в отличие от окна моей программы, только вот во вкладке "Программа" в параметре "Командная строка" - какой-то C:\WINME\SYSTEM\conagent.exe Что бы это значило? |
| Наконец-то разобрался! Оказывается, такая ситуация возникает, только если продолжить пользоваться ярлыком который был для Clipper-программы! А если сделать новый ярлык, то всё OK! Но возникает другая проблема: если указать в свойствах ярлыка "Совместимость с Windows'95", программа запускается в свёрнутом окне в панели задач, и чтобы ею воспользоваться, приходится кликать на ней мышкой...
| |
|
|
| |
Пост N: 312
Зарегистрирован: 08.04.06
|
|
Отправлено: 29.05.09 21:20. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | если указать в свойствах ярлыка "Совместимость с Windows'95", |
| И ещё HB_GTInfo(GTI_WINTITLE, ....) в Win'XP для программы в свёрнутом состоянии при выставленной совместимости неправильно текст выводит (пустыми квадратиками). В связи с этим возникает 2 вопроса: 1) как программно развернуть терминалку GTWIN из свёрнутого состояния, и 2) как получить настройки ярлыка, которым запущена программа - потому что иначе я не понимаю, как точно определить, нужно ли при выводе GTI_WINTITLE использовать перекодировку HB_OEMToAnsi().
| |
|
|
| постоянный участник
|
Пост N: 853
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.06.09 14:40. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: цитата: | 1) как программно развернуть терминалку GTWIN из свёрнутого состояния |
| /* * ShowWindow() Commands в wvtwin.ch */ #define SW_NORMAL 1 #define SW_SHOWMINIMIZED 2 #define SW_SHOWMAXIMIZED 3 #define SW_MAXIMIZE 3 #define SW_SHOWNOACTIVATE 4 #define SW_SHOW 5 ИЛИ смотри: Z:\xHarbour\contrib\wvtgui\ChangeLog 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' )
| |
|
|
| |
Пост N: 317
Зарегистрирован: 08.04.06
|
|
Отправлено: 01.06.09 15:33. Заголовок: Andrey пишет: Перек..
Andrey пишет: цитата: | Перекодировку делать нужно ! |
| Andrey, ты не уловил шутку юмора: у меня в программе стоит перекодировка HB_OemToAnsi() для выводимого под XP заголовка окна, это естественно. И при стандартных значениях свойств ярлыка, которым запускается программа, заголовок выводится нормально. Но если для того же самого ярлыка под тем же самым XP поставить в Свойствах во вкладке "Совместимость" галочку напротив "Совместимость с Windows'95", результат вывода заголовка станет печальным. Проверить-то легко, не поленись. Может возникнуть вопрос: зачем ставить эту галочку? Ну, во-первых, юзвери - товарищи по определению непредсказуемые, а во-вторых, эту галку надо ОБЯЗАТЕЛЬНО ставить, если на сервере стоит Win'9x, а на компах-клиентах - что-нибудь NTшное. Иначе будешь получать зависание на первой же попытке записи в базу (это, конечно, под чистым Clipper/xHarbour, под ADS такого эффекта может и не быть).
| |
|
|
| |
Пост N: 320
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 15:56. Заголовок: Andrey пишет: ShowW..
Andrey пишет: цитата: | ShowWindow() Commands в wvtwin.ch |
| Начнём с того, что функция ShowWindow() не обнаруживается, хотя и gtwvt.lib и wvtgui.lib прилинкованы. Ладно, делаю ShowWindow() сам: HB_FUNC( SHOWWINDOW ) { ShowWindow( (HWND) hb_parnl(1), hb_parnl(2) ); } и пытаюсь юзать: ShowWindow(HB_GtInfo(GTI_GETWIN), 3) или ShowWindow(HB_GtInfo(GTI_WINTITLE), 3) На ошибке не сыплется, но и эффекта - НОЛЬ. Может, я невнятно объяснил задачу? Для винды окно у программы всегда одно (даже если терминал GTWVT, тамошние виндовые функции я не использую). Запускается программа, по какой-то причине (неважно) - в минимизированном окне. Как это самое окно развернуть? Можно конкретный пример, а не только упоминание о функции?
| |
|
|
| постоянный участник
|
Пост N: 865
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 16:04. Заголовок: Держи для GTWIN (для..
Держи для GTWIN (для GTWVT - посмотрю чуть позже): /* см. описание GetForegroundWindow() */ INIT PROCEDURE GetHandle() PUBLIC hWnd := GetForegroundWindow() FUNCTION MAIN SETCOLOR("15/2") CLEAR SCREEN MINIMIZE( M->hWnd ) tone(800,2) INKEY(4) MAXIMIZE( M->hWnd ) tone(400,2) WAIT RETURN NIL /* * C - level */ #pragma BEGINDUMP #include "hbapi.h" #include <windows.h> HB_FUNC( GETFOREGROUNDWINDOW ) { hb_retnl( (LONG) GetForegroundWindow() ); } HB_FUNC( MINIMIZE ) { ShowWindow( (HWND) hb_parnl(1), SW_MINIMIZE ); } HB_FUNC( MAXIMIZE ) { ShowWindow( (HWND) hb_parnl(1), SW_RESTORE ); } #pragma ENDDUMP
| |
|
|
| постоянный участник
|
Пост N: 867
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 16:29. Заголовок: Держи для GTWVT: :s..
Держи для GTWVT: //-------------------------------------------------------------------// /* * ShowWindow() Commands */ #define SW_HIDE 0 #define SW_SHOWNORMAL 1 #define SW_NORMAL 1 #define SW_SHOWMINIMIZED 2 #define SW_SHOWMAXIMIZED 3 #define SW_MAXIMIZE 3 #define SW_SHOWNOACTIVATE 4 #define SW_SHOW 5 #define SW_MINIMIZE 6 #define SW_SHOWMINNOACTIVE 7 #define SW_SHOWNA 8 #define SW_RESTORE 9 #define SW_SHOWDEFAULT 10 #define SW_FORCEMINIMIZE 11 #define SW_MAX 11 INIT PROCEDURE GetHandle() PUBLIC hWnd M->hWnd := GetForegroundWindow() FUNCTION MAIN SETCOLOR("15/2") CLEAR SCREEN Wvt_ShowWindow( M->hWnd, SW_MINIMIZE ) tone(800,2) INKEY(4) Wvt_ShowWindow( M->hWnd, SW_MAXIMIZE ) tone(400,2) WAIT RETURN NIL /* * C - level */ #pragma BEGINDUMP #include "hbapi.h" #include <windows.h> HB_FUNC( GETFOREGROUNDWINDOW ) { hb_retnl( (LONG) GetForegroundWindow() ); } //-------------------------------------------------------------------// // Взята из xHarbour\contrib\wvtgui\wvtutils.c и исправлена мною HB_FUNC( WVT_SHOWWINDOW ) { ShowWindow( (HWND) hb_parnl(1), hb_parni( 2 ) ); } #pragma ENDDUMP
| |
|
|
| |
Пост N: 322
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 16:47. Заголовок: Andrey пишет: HB_FU..
Andrey пишет: цитата: | HB_FUNC( MAXIMIZE ) { ShowWindow( (HWND) hb_parnl(1), SW_RESTORE ); } |
| Procedure Main Public i ..... i = GetForegroundWindow() MAXIMIZE(i) ..... Терминал GTWIN. НЕ РАБОТАЕТ! Как запустилось свёрнутым, так и остаётся, пока мышью не ткнёшь!
| |
|
|
| |
Пост N: 1235
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.06.09 17:22. Заголовок: Лукашевский Глянь т..
| |
|
|
| постоянный участник
|
Пост N: 868
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 17:30. Заголовок: У меня оба примера р..
У меня оба примера работают под WinXP SP3 ! Перед отправкой проверял. Dima пишет: А что это за винда ?
| |
|
|
| |
Пост N: 1236
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.06.09 17:31. Заголовок: Andrey пишет: А что..
Andrey пишет: Microsoft Windows ME Millenium
| |
|
|
| |
Пост N: 323
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 21:04. Заголовок: Dima пишет: Хотя у ..
Dima пишет: цитата: | Хотя у тебя вроде виндоус линолиум |
| А мои предыдущие сообщения в теме посмотреть слабо? Я здесь о домашнем компе говорю, на нём Win'XP Home SP3, лицензионный. Andrey пишет: цитата: | У меня оба примера работают под WinXP SP3 ! |
| А у меня - не работает! Может быть, конечно, это из-за галки "Совместимость с Windows'95" в свойствах ярлыка... Надо будет проверить в нормальных условиях.
| |
|
|
| |
Пост N: 324
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 22:08. Заголовок: Dima пишет: Глянь т..
Dima пишет: Dima, спасибо большое! Петру тоже спасибо Теперь бы ещё иметь какую-нить возможность выяснить, запущена ли программа в режиме совместимости, или нет, - и проблема будет решена. А то заголовок окна GTWIN в режиме совместимости всё так же пугает кракозябрами и пустыми квадратиками...
| |
|
Ответов - 96
, стр:
1
2
3
4
5
All
[только новые]
|
|
|