Форум » [x]Harbour » Консоль + картинки » Ответить
Консоль + картинки
Dima: Как в консоли вывести на экран картинку ? Если можно то нужен примерчик !
Dima: Дело не в картинке. Даже если ее и не выводить Код примерно таков [pre2] do while .t. // тут что то типа n:=Achoice(..........) if n==5 exit endif enddo [/pre2] Что править ?
Dima: *PRIVAT*
Pasha: Dima пишет: Пожалуй останусь на Gtwvt + freeimage В этой связи вопрос. Как получить HDC окна в gtwvt ? Как создать новое окно в gtwvt ? - В gtwvg для этого как раз обработчик WM_PAINT каждый раз вызывает процедуру Wvt_Paint, в которой пользователь выводит на экран все, что надо В примере видно, как это сделать. Формируется массив со всеми обьектами, которые надо нарисовать, а процедура этот массив просматривает и выдает команды на вывод в окне. hDC - параметр этой процедуры А многооконный wvt - это терминал gtwvw
Andrey: Сделал для хHarbour'a GTWVT-терминала примерчик. Картинки отображаются, а вот ТЕКСТ не отображается вообще !!! Где копать ??? #include 'wvtgui.ch' #include 'wvtwin.ch' PROCEDURE MAIN LOCAL nI, a:={} , nWidth WVT_Core() WVT_Utils() Wvt_SetGui( .t. ) setMouse(.T.) SetCursor(0) SET COLOR TO W+/B, W+/R,,,N/GR SetMode(32,98) nWidth := Wvt_GetScreenWidth() Wvt_SetCodePage(255) // #define OEM_CHARSET 255 - from wingdi.h DO CASE CASE nWidth >= 1024 Wvt_SetFont('Terminal',18,10) //Wvt_SetFont('Terminal',24,14) //Wvt_SetFont( 'Courier New', 18, 0, 0 ) CASE nWidth >= 800 Wvt_SetFont('System',16,-8) OTHERWISE Wvt_SetFont('Terminal',12,6) ENDCASE REQUEST HB_CODEPAGE_RU866 hb_SetCodepage( "RU866" ) REQUEST HB_LANG_RU866 HB_LANGSELECT("RU866") REQUEST HB_CODEPAGE_RU1251 SET WINDOW ICON TO 'vr_1.ico' SET WINDOW TITLE TO HB_OEMTOANSI('Мой тест') CLS Wvt_SetGui( .t. ) Wvt_SetMouseMove( .t. ) Wvt_ShowWindow( SW_RESTORE ) @ 1, 0 TO MAXROW()-1, MAXCOL() IMAGE 'monetki2.jpg' @ 1, 2 TO 5, 20 IMAGE 'money.bmp' @ 0, 0 SAY PADC("Меню выбора товара",MAXCOL()+1) COLOR("14/4") @ 6, 9, 28, 66 BOX "........" for nI := 1 to 20 AADD(a,"Строка " +str(nI)) next achoice(7,10,29,65,a) RETURN Если надо, то готовую сборку могу выслать .....
Dima: Andrey пишет: #include 'wvtgui.ch' В последних сборках xharbour этого файла нет. Если взять старый то пример собрать не возможно в виду отсутствия ряда функций. Выложи (или метни в мыло) wvtgui.ch
Andrey: Dima пишет: В последних сборках xharbour этого файла ('wvtgui.ch' ) нет. Он лежит в \xHarbour\contrib\wvtgui Выкладываю целиком проект, сборка командой: hbmake gtwvt_ru.bc http://files.mail.ru/MU8O34
Dima: Andrey пишет: Он лежит в \xHarbour\contrib\wvtgui Дружище ты наверное давно не обновлялся. Эта папка пуста. WvtGui переименован в gtwvg еще в июле месяце вроде ;)
Dima: [pre2] 2008-06-30 22:55 UTC-0430 Ron Pinkas <ron/at/xharbour.com> * common.mak * compile.mak * makefile.vc * mdir.bat - Removed contrib/wvtgui + Added contrib/gtwvg [/pre2]
Andrey: Блин, где обновляться ??? Только сейчас лазил на www.xharbour.org и оттуда скачал все заново.....
Dima: Andrey пишет: Блин, где обновляться ??? CVS , самое свежее только там.
Andrey: Дима ! Пришли пожалуйста готовое обновление с CVS или выложи на http://files.mail.ru Ну не наладил я обновления с CVS.... Все времени не хватает....
Dima: Andrey пишет: Пришли пожалуйста готовое обновление с CVS Прислать то можно , только там куча багов ! Эту сборку не советуют использовать для рабочих программ. Смотри сам http://groups.google.com/group/comp.lang.xharbour/browse_thread/thread/a69c0bb76acd42d9# Andrey пишет: Ну не наладил я обновления с CVS.... Все времени не хватает.... Да брось ;) Найди 10 минут времени ;)
Andrey: Спасибо... Так как насчет примерчика Выкладываю целиком проект, сборка командой: hbmake gtwvt_ru.bc http://files.mail.ru/MU8O34
Andrey: Перебросил этот вопрос сюда ! Dima пишет: Andrey пишет: цитата: как реализовал вывод картинки Wvt_DrawImage( 1,0,23,79, "blabla.jpg" ) Andrey пишет: цитата: и перерисовку экрана Не очень понял вопрос. А вообще Wvt_saveScreen , Wvt_RestScreen , хотя это и не совсем верно. Вопросы по этому терминалу: На чем собрано (Харбор или хХарбор) ? Какая версия ? Можешь ли дать тестовый пример как это работает или что нужно сделать у себя в программе чтоб это (показ картинки) заработало ?
Dima: Andrey Xharbour 1.1.0 build 6225 [pre] #include 'wvtwin.ch' #include "c:\x\include\hbgtinfo.ch" Proc main() local nWidth,nHight hb_gtInfo(GTI_CODEPAGE, 255) hb_gtInfo(GTI_FONTNAME, 'Lucida Console') hb_gtInfo(HB_GTI_FONTQUALITY,3) nwidth:=1280/Wvt_GetScreenWidth() nHight:=1024/Wvt_GetScreenHeight() hb_gtInfo(GTI_FONTWIDTH, 16/nwidth) hb_gtInfo(GTI_FONTSIZE, 38/nHight) request HB_NOMOUSE @ 0,0 say padc(alltrim(os()),80) color "n/w" @ 24,0 say padc(alltrim(os()),80) color "n/w" Wvt_DrawImage( 1,0,23,79, "111.jpg" ) @ 10,10 say "Привет Андрей ;)))" wait quit return [/pre]
Vlad04: А с Xharbour 1.2 и больше соберется? На форуме как то писали, что после версии 1.0 эта библиотека не поддерживается.
Dima: Vlad04 пишет: А с Xharbour 1.2 и больше соберется? Вероятно нет (не пробовал) .
Andrey: Dima пишет: Вероятно нет (не пробовал) Работает на 1.2. Смотри ....\xHarbour\contrib\gtwvg Только эфект непонятный... 8 сек. картинка висит, а потом черный экран ? Проект и пример здесь: http://files.mail.ru/N5BNY1
Dima: Andrey пишет: Только эфект непонятный... 8 сек. картинка висит, а потом черный экран ? Скорее всего ты окно свернул а потом развернул. Короче WM_PAINT нужно юзать , вот только как это сделать правильно применительно пусть да же к этому примеру я не знаю. Может Пётр или Павел подскажут !?
Andrey: Dima пишет: Скорее всего ты окно свернул а потом развернул. Ничего не сворачивал... Запустил и жду... Смотри пример, то же самое будет ! Ссылку же разместил....
полная версия страницы