Форум » [x]Harbour » Консоль + картинки » Ответить
Консоль + картинки
Dima: Как в консоли вывести на экран картинку ? Если можно то нужен примерчик !
Dima: Не пойму , почему в папке xHarbour\contrib\wvtgui\ нет ни чего ? Может я чего пропустил ?
Pasha: Dima пишет: В плане ADS ни чего нужно переделывать ? Нет, все остальное, включая ads, не заметит замену терминала Даже пользователь, если он работал в оконном режиме, может не заметить :)
Dima: Ясно А что насчет xHarbour\contrib\wvtgui\ (месага над твоей) ?
Pasha: Dima пишет: А что насчет xHarbour\contrib\wvtgui\ (месага над твоей) ? Она стала жертвой не очень понятных переименований Теперь надо смотреть в contrib\gtwvg
Dima: Понял , батника для сборки и тд там не вижу....... Что нужно что бы ее собрать ? Спасибо !!! ЗЫ До этих странных переименований все для сборки было. Отбой ;) make_b32.bat ALL собирает и ее
Andrey: Есть предложение: вывести картинку для GTWIN через FastReport. Демку скинул для GTWIN и GTWVT2 : http://files.mail.ru/DBNUPV Правда не разобрался как WORD-вский файл растягивать на страницы....
Dima: Pasha пишет: Параметры можно установить по вкусу Как сделать окно на весь экран ? Куда делся 'wvtgui.ch' , аналога не вижу ? Почему прога падает на этой строке hb_gtInfo(GTI_WINTITLE, "TESTIK") ? По ходу не пашет GTI_FONTWIDTH
Pasha: Dima пишет: Почему прога падает на этой строке hb_gtInfo(GTI_WINTITLE, "TESTIK") ? Я нарвался на gpf в GTI_WINTITLE еще в августе, поправил у себя, а на CVS сбросить просто забыл Только что пофиксил и на CVS
Dima: Как в терминале WVT деактивировать крестик закрытия окна ?
Pasha: Dima пишет: По ходу не пашет GTI_FONTWIDTH Для настройки размера шрифта достаточно и GTI_FONTSIZE Как в терминале WVT деактивировать крестик закрытия окна ? hb_gtInfo(HB_GTI_CLOSABLE, .f.)
Dima: Pasha пишет: hb_gtInfo(HB_GTI_CLOSABLE, .f.) Спасибо я уже сам нашел ;) Что касается фонтов , разобрался Вот так будет работать hb_gtInfo(GTI_FONTNAME, 'Lucida Console') hb_gtInfo(GTI_FONTWIDTH, 15) hb_gtInfo(GTI_FONTSIZE, 32) А вот так FONTWIDTH не сработает hb_gtInfo(GTI_FONTNAME, 'Lucida Console') hb_gtInfo(GTI_FONTSIZE, 32) hb_gtInfo(GTI_FONTWIDTH, 15) Что касается картинок и формата JPG , все работает без всяких лишних библиотек !
Dima: Столкнулся с проблемкой. Если юзать только GTWVT , все нормально. Если юзать GTWVG , то происходит следующее. Сворачиваем задачу в трей или переключаемся на другое приложение (или окно). Возвращаемся в нашу задачу , видим только границы окна а в окне либо нет ни чего , либо видим часть изображения. Как лечить ?
Dima: [pre2] #include 'wvtwin.ch' #include "hbgtinfo.ch" proc main hb_gtInfo(GTI_CODEPAGE, 255) hb_gtInfo(GTI_FONTNAME, 'Lucida Console') hb_gtInfo(GTI_FONTWIDTH, 15) hb_gtInfo(GTI_FONTSIZE, 32) hb_GtInfo( HB_GTI_CLOSABLE,.f.) Hb_GtInfo( HB_GTI_RESIZABLE,.f.) WVT_Core() WVT_Utils() Wvt_SetGui( .t. ) a:={} @ 1, 1, 22, 79 BOX "........" for i=1 to 20 aadd(a,"Строка " +str(i)) next achoice(2,2,21,78,a) return [/pre2] Научите балбеса как перерисовать окно когда фокус ввода снова оказался на нем ! Спасибо !
Dima: Кто то подскажет ? ;) PS Можно конечно заюзать Freeimage , но хотелось бы с помощью GTWVG , все реализовать.
Pasha: Dima пишет: Кто то подскажет ? ;) В общем случае: и для gtwvt, и для gui-библиотеки, работа с freeimage такая: fi_Initialise() nType := fi_GetFileType( cFile, JPEG_DEFAULT ) pFIga := fi_Load( nType, cFile, JPEG_DEFAULT ) nSize := 150 // размер картинки в окне // масштабирование картинки (необязательно) if pFiga # nil nFWidth := fi_GetWidth( pFIga ) nFHeight := fi_GetHeight( pFIga ) if nFWidth > nFHeight nFHeight := Int(nSize * (nFHeight/nFWidth)) nFWidth := nSize else nFWidth := Int(nSize * (nFWidth/nFHeight)) nFHeight := nSize endif endif ... затем в ON PAINT надо вызывать функцию вывода рисунка Static func SayImage(hDC, o) Local nTop := 20, nLeft := 600 if pFiga # nil FI_WinDraw(pFiga, hDC, nTop, nLeft, nTop+nFHeight-1, nLeft+nFWidth-1) endif Return nil if pFiga # nil fi_unload(pFiga) pFiga := nil endif fi_Deinitialise() для gtwvg вызов SayImage в OnPaint надо делать из функции Wvt_Paint() Эта функция, если она существует, вызывается из обработчика WM_PAINT Но, наверное, предпочтительнее будет добить родные процедуры работы с картинками в gtwvg. Дима, сейчас я проверить твой пример не могу, сделаю чуть позже. У меня нет под рукой свежих сырцов xHb, а с теми что есть твой пример вываливается на gpf
Dima: Pasha пишет: У меня нет под рукой свежих сырцов xHb, а с теми что есть твой пример вываливается на gpf Павел , пример можно собрать любой , не обязательно тот что я дал. Собираем , запускаем , сворачиваем окно , разворачиваем и видим не то что было до сворачивания. В GTWVT все нормально , проблема с GTWVG
Dima: Окно до сворачивания http://hotimg15.fotki.com/a/81_24/210_47/s1.jpg Свернул , развернул http://hotimg25.fotki.com/a/81_24/210_47/s2.jpg
Andrey: Dima пишет: Столкнулся с проблемкой. Если юзать только GTWVT , все нормально. Кинь в меня рабочим примером для GTWVT, а то я так и не смог его сделать..... Заранее спасибо.
Dima: Если ты о картинках то причина тут Request HB_GT_WVT Request HB_GT_WVT_DEFAULT Эти Request делать не нужно.
Pasha: Dima пишет: Окно до сворачивания http://hotimg15.fotki.com/a/81_24/210_47/s1.jpg Свернул , развернул http://hotimg25.fotki.com/a/81_24/210_47/s2.jpg Причина понятна. Картинку рисовать надо в обработчике WM_PAINT Покажи код, где ты выводишь jpg
полная версия страницы