Автор | Сообщение |
|
| |
Пост N: 3035
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.04.13 13:11. Заголовок: [?]GtWin+GtWvt
Есть программа с Gtwin терминалом. Для просмотра картинок из нее я вызываю другую прогу с Gtwvt терминалом которая картинку и показывает. А можно ли это дело совместить , что бы просмотр картинки производился из той же проги (Gtwin) , с созданием нового окна Gtwvt или еще как то ?
|
|
|
Ответов - 17
[только новые]
|
|
|
| |
Пост N: 817
Зарегистрирован: 11.06.10
|
|
Отправлено: 16.04.13 14:25. Заголовок: Из xhb-diff.txt ###..
Из xhb-diff.txt ### MULTI WINDOW GTs AND RUNTIME GT SWITCHING ### ... i.e. application can use one GTWIN console (MS-Windows console window) and many GTWVT console windows. и посмотреть пример core\tests\gtwin.prg
|
|
|
|
| |
Пост N: 3036
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.04.13 14:28. Заголовок: AlexMyr Спасибо , с..
AlexMyr Спасибо , счас пробнем ;)
|
|
|
|
| |
Пост N: 3037
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.04.13 15:32. Заголовок: А как переключить ф..
А как переключить фокус ввода на вновь созданное окно ? Вроде должно работать а не работает. Вот такой код pGT1 := hb_gtCreate( "WVG" ) pGT := hb_gtSelect( pGT1 ) hb_GTInfo(HB_GTI_WINTITLE, "Для выхода нажмите любую клавишу") ? "test" wait hb_gtSelect( pGT ) pGT1 := NIL Но я остаюсь все равно в главном окне а новое создается рядом но не получает фокус ввода. Что не так делаю ?
|
|
|
|
| |
Пост N: 3038
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.04.13 15:41. Заголовок: И да. Если собирать ..
И да. Если собирать с опцией -gui то все так как я описал Если с опцией -std , тогда новое окно изображается за основным. Блин........
|
|
|
|
| постоянный участник
|
Пост N: 2800
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.04.13 21:26. Заголовок: Dima пишет: Есть пр..
Dima пишет: цитата: | Есть программа с Gtwin терминалом. Для просмотра картинок из нее я вызываю другую прогу с Gtwvt терминалом которая картинку и показывает |
| Переходи сразу на один Gtwvt-терминал и не будет проблем ! А картинки, чтобы не пропадали с экрана (после сворачивания) переделай на МиниГуи, 5 строк кода... Если надо, помогу.
|
|
|
|
| |
Пост N: 3039
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.04.13 22:19. Заголовок: Andrey пишет: А кар..
Andrey пишет: цитата: | А картинки, чтобы не пропадали с экрана (после сворачивания) переделай на МиниГуи, 5 строк кода... |
| Подробнее можно ? Задача у меня GTWIN , переделать под GTWVT(WVG) не проблема , каким боком тут МиниГуи не пойму. Проясни плиз ! Юзеры не хотят GUI морду , им подавай "аля-консоль" но с возможностью графики.
|
|
|
|
| постоянный участник
|
Пост N: 2801
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.04.13 10:30. Заголовок: Dima пишет: каким б..
Dima пишет: цитата: | каким боком тут МиниГуи не пойму. Проясни плиз ! |
| После вывода картинки в консоль и после сворачивания этого окна - картинка пропадает ! Или ты добился того, что бы не пропадала ? Вот я и предлагаю, сделать показ картинки на МиниГуи...
|
|
|
|
| |
Пост N: 3040
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 10:33. Заголовок: Andrey пишет: Или т..
Andrey пишет: цитата: | Или ты добился того, что бы не пропадала ? |
| Пока нет , но куда копать кажется знаю
|
|
|
|
| |
Пост N: 3041
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 12:07. Заголовок: Ни кто не поделится ..
Ни кто не поделится рецептом вычисления ширины и высоты фонта Lucida Console для разных разрешений !? Окно должно иметь примерно одинаковый размер для разных разрешений. Терминал GtWVT (WVG)
|
|
|
|
| |
Пост N: 3042
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 12:33. Заголовок: Один из вариантов h..
Один из вариантов hb_gtInfo(HB_GTI_FONTNAME, 'Lucida Console') nWidth := HB_GtInfo(HB_GTI_DESKTOPWIDTH) nHeight := HB_GtInfo(HB_GTI_DESKTOPHEIGHT) nFontH := Int(nHeight/25) nFontW := Int(nWidth /80) HB_GtInfo(HB_GTI_FONTSIZE , nFontH) HB_GtInfo(HB_GTI_FONTWIDTH, nFontW)
|
|
|
|
| постоянный участник
|
Пост N: 2802
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.04.13 13:44. Заголовок: Dima пишет: Ни кто ..
Dima пишет: цитата: | Ни кто не поделится рецептом вычисления ширины и высоты фонта Lucida Console для разных разрешений !? |
| Шрифты имеют строго заданный размер. Смотри мой пример для хХарбора. Там есть выбор и установка шрифта под разные разрешения экрана !
|
|
|
|
|
| |
Пост N: 3043
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 13:52. Заголовок: Andrey Вариант что ..
Andrey Вариант что выше я выложил прокатил нормально
|
|
|
|
| |
Пост N: 94
Зарегистрирован: 19.05.05
|
|
Отправлено: 17.04.13 14:08. Заголовок: Терминал GTWVT ..
Терминал GTWVT apaint := {} . . . Wvt_DrawImage( 0,1,3,20, "test.jpg" ) aAdd( aPaint, { '' , {||Wvt_DrawImage( 0,1,3,20, "test.jpg" )},nil } ) apnt := wvtsetpaint (aPaint) Изображение остается и при перемещении, и при сворачивании-разворачивании
|
|
|
|
| |
Пост N: 3044
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 14:45. Заголовок: nick_mi Какая верси..
nick_mi Какая версия (x)Harbour ? В Harbour 3.2 в чистом WVT нет функций wvtsetpaint , Wvt_DrawImage И если собрать вместе с gtwvg то картинка все равно исчезает при сворачивании окна Исходник #include "hbgtinfo.ch" proc Main() REQUEST HB_GT_WVG_DEFAULT apaint := {} hb_GTInfo(HB_GTI_WINTITLE, "test") cls Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "111.jpg" ) aAdd( aPaint, { '' , {||Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "111.jpg" )},nil } ) apnt := wvtsetpaint (aPaint) wait RETURN NIL HBP файлик -lgtwvg -lhbwin -nulrdd -workdir=obj -otest.exe -inc -gtwvt -gui test.prg Где косяк ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 17.04.13 14:59. Заголовок: Нужно учитывать еще размер рамки окна
Насколько понял, см. ссылку [url=https://groups.google.com/forum/?fromgroups#!searchin/harbour-users/font$20size/harbour-users/TAK8FAxOBQw/tg-LT8_zcS0J]click here[/url]
|
|
|
|
| |
Пост N: 96
Зарегистрирован: 19.05.05
|
|
Отправлено: 17.04.13 15:41. Заголовок: Виноват, не все собр..
Виноват, не все собрал до кучи... Вот так у меня работает с вашим HBP #include "hbgtinfo.ch" proc Main() REQUEST HB_GT_WVG_DEFAULT apaint := {} hb_GTInfo(HB_GTI_WINTITLE, "test") cls Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "111.jpg" ) aAdd( aPaint, { '' , {||Wvt_DrawImage( 0, 0, MaxRow(), MaxCol(), "111.jpg" )},nil } ) apnt := wvtsetpaint (aPaint) wait RETURN NIL /*----------------------------------------------------------------------*/ /* This function must be linked with the application * для перерисовки при перемещении окна*/ FUNCTION Wvt_Paint() WvtPaintObjects() RETURN NIL
|
|
|
|
| |
Пост N: 3045
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.04.13 16:01. Заголовок: nick_mi Да так рабо..
nick_mi Да так работает
|
|
|
|