Отправлено: 16.04.13 13:11. Заголовок: [?]GtWin+GtWvt

Есть программа с Gtwin терминалом. Для просмотра картинок из нее я вызываю другую прогу
с Gtwvt терминалом которая картинку и показывает.
А можно ли это дело совместить , что бы просмотр картинки производился из той же
проги (Gtwin) , с созданием нового окна Gtwvt или еще как то ?

 Отправлено: 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

 Отправлено: 16.04.13 14:28. Заголовок: AlexMyr Спасибо , с..

AlexMyr
Спасибо , счас пробнем ;)

 Отправлено: 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 
 

Но я остаюсь все равно в главном окне а новое создается рядом но не получает фокус ввода.
Что не так делаю ?

 Отправлено: 16.04.13 15:41. Заголовок: И да. Если собирать ..

И да. Если собирать с опцией -gui то все так как я описал
Если с опцией -std , тогда новое окно изображается за основным.
Блин........

 Отправлено: 16.04.13 21:26. Заголовок: Dima пишет: Есть пр..

Dima пишет:

цитата:

Есть программа с Gtwin терминалом. Для просмотра картинок из нее я вызываю другую прогу с Gtwvt терминалом которая картинку и показывает

Переходи сразу на один Gtwvt-терминал и не будет проблем !
А картинки, чтобы не пропадали с экрана (после сворачивания) переделай на МиниГуи, 5 строк кода...
Если надо, помогу.

 Отправлено: 16.04.13 22:19. Заголовок: Andrey пишет: А кар..

Andrey пишет:

цитата:

А картинки, чтобы не пропадали с экрана (после сворачивания) переделай на МиниГуи, 5 строк кода...

Подробнее можно ?
Задача у меня GTWIN , переделать под GTWVT(WVG) не проблема , каким боком тут МиниГуи не пойму. Проясни плиз !
Юзеры не хотят GUI морду , им подавай "аля-консоль" но с возможностью графики.

 Отправлено: 17.04.13 10:30. Заголовок: Dima пишет: каким б..

Dima пишет:

цитата:

каким боком тут МиниГуи не пойму. Проясни плиз !

После вывода картинки в консоль и после сворачивания этого окна - картинка пропадает !
Или ты добился того, что бы не пропадала ?
Вот я и предлагаю, сделать показ картинки на МиниГуи...

 Отправлено: 17.04.13 10:33. Заголовок: Andrey пишет: Или т..

Andrey пишет:

цитата:

Или ты добился того, что бы не пропадала ?

Пока нет , но куда копать кажется знаю

 Отправлено: 17.04.13 12:07. Заголовок: Ни кто не поделится ..

Ни кто не поделится рецептом вычисления ширины и высоты фонта Lucida Console для разных разрешений !?
Окно должно иметь примерно одинаковый размер для разных разрешений.
Терминал GtWVT (WVG)

 Отправлено: 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)  
 

 Отправлено: 17.04.13 13:44. Заголовок: Dima пишет: Ни кто ..

Dima пишет:

цитата:

Ни кто не поделится рецептом вычисления ширины и высоты фонта Lucida Console для разных разрешений !?

Шрифты имеют строго заданный размер.
Смотри мой пример для хХарбора. Там есть выбор и установка шрифта под разные разрешения экрана !

 Отправлено: 17.04.13 13:52. Заголовок: Andrey Вариант что ..

Andrey
Вариант что выше я выложил прокатил нормально

 Отправлено: 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)

Изображение остается и при перемещении, и при сворачивании-разворачивании

 Отправлено: 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 
  
 

Где косяк ?

 Отправлено: 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]

 Отправлено: 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

 Отправлено: 17.04.13 16:01. Заголовок: nick_mi Да так рабо..

nick_mi
Да так работает