Отправлено: 21.11.08 12:36. Заголовок: Консоль + картинки

Как в консоли вывести на экран картинку ?
Если можно то нужен примерчик !

 Отправлено: 21.11.08 13:32. Заголовок: Можно для gtwvt см. ..

Можно для gtwvt
см. contrib\gtwvg\tests

 Отправлено: 21.11.08 13:38. Заголовок: Мне бы для GTWIN над..

Мне бы для GTWIN надо.

 Отправлено: 21.11.08 13:42. Заголовок: Pasha пишет: Можно ..

Pasha пишет:

цитата:

Можно для gtwvt

GTWVT в терминах M$ не консоль, а лишь эмуляция консоли.
В "настоящей" консоли (GTWIN) вывод графики не возможен, если не считать графикой т.н. ASСII Art.

P.S. ИМХО вывод картинки в консоль - это извращение И зачем оно нужно?

 Отправлено: 21.11.08 13:52. Заголовок: Петр пишет: И зачем..

Петр пишет:

цитата:

И зачем оно нужно?

Заказчик хочет , при чем именно в консоли
Если есть извращенные варианты , готов выслушать !

 Отправлено: 21.11.08 14:02. Заголовок: Dima пишет: Если ес..

Dima пишет:

цитата:

Если есть извращенные варианты , готов выслушать !

Ни извращенных ни каких других вариантов для консоли нет
Все, что можно сделать с консолью - см. в bcc55\include\wincon.h

А почему wvt не подойдет ? Если установить шрифт Terminal, то вненший вид практически такой же, как и у gtwin в оконном режиме
Полноэкранный режим, конечно, не поддерживается. Но в нем картинок быть в принципе не может
А по функциональности эти терминалы просто эквивалентны и взаимозаменяемы, если, конечно, не брать расширенные возможности gtwvt

 Отправлено: 21.11.08 14:06. Заголовок: Dima пишет: Заказчи..

Dima пишет:

цитата:

Заказчик хочет, при чем именно в консоли

А где он такое чудо видел?
Мне не встречалось. Только эмуляция.

Ему нужно хорошо обьяснить - ваши хотелки ничего не имеют общего с реальной жизнью. И денег у заказчика не хватит - с M$ ему не договориться..

 Отправлено: 21.11.08 14:18. Заголовок: Помнится раньше для ..

Помнится раньше для Clipper юзал библиотеку pcxlib для вывода изображений в формате PCX.
Да в момент вывода картинки , экран переходил в графический режим и это не смертельно ;)
Не ужели в харборе нет какого то аналога ?

 Отправлено: 21.11.08 14:34. Заголовок: Аналогом графическог..

Аналогом графического режима в DOS-16 для харбора можно как раз считать терминал gtwvt, ну и любую gui-библиотеку
Ведь win-программа не может непосредственно работать с графикой посредством низкоуровневых вызовов int 10, как это было в dos
Не знаю, можно ли настроить харбор-приложение для работы одновременно с gtwin и gtwvt и переключать фокус между ними

 Отправлено: 21.11.08 14:38. Заголовок: Pasha пишет: Не зна..

Pasha пишет:

цитата:

Не знаю, можно ли настроить харбор-приложение для работы одновременно с gtwin и gtwvt и переключать фокус между ними

Вот и я не знаю..........

 Отправлено: 21.11.08 14:44. Заголовок: Pasha пишет: Не зна..

Pasha пишет:

цитата:

Не знаю, можно ли настроить харбор-приложение для работы одновременно с gtwin и gtwvt и переключать фокус между ними

В Harbour нельзя - это точно. Такая перспектива лишь планируется, по крайней мере упоминалась на форуме разработчиков, когда будет никто точно не знает.
Все таки, что за картинки хочется смотреть, в каком формате, может просто вызывать какой-нибудь IrfanView или пойти по пути FastReport for [x]Harbour.

 Отправлено: 21.11.08 14:46. Заголовок: Вот есть тест, я его..

Вот есть тест, я его правда не запускал

harbour\tests\wvttext.prg

Насколько я понял, там вызовом hb_gtReload( 'WVT' ) создается другое окно

Для вывода картинок в другом окне можно попробовать использовать подобный фокус

 Отправлено: 21.11.08 15:05. Заголовок: Петр пишет: Все так..

Петр пишет:

цитата:

Все таки, что за картинки хочется смотреть, в каком формате

Хотят смотреть JPG , фотки продуктов которые продают ;)

 Отправлено: 21.11.08 15:34. Заголовок: Откопал в TESTS прим..

Откопал в TESTS примерчик xhbpic.prg , собрать не удалось потому как не удалось собрать библиотеку
Rtl\GTALLEG в виду отсутствия allegro.h
Cобственно где его взять (allegro.h) ?

 Отправлено: 21.11.08 15:39. Заголовок: Можно еще воспользов..

Можно еще воспользоваться библиотекой freeimage
contrib\hbfimage

Но для того, чтобы вывести картинку на экран, прийдется наверное ручками из gtwin создавать окно, поскольку функция вывода картинки FI_WinDraw требует device handle окна
Как из gtwin создать окно - не знаю, может кто-то подскажет

 Отправлено: 21.11.08 15:47. Заголовок: Dima пишет: Cобстве..

Dima пишет:

цитата:

Cобственно где его взять (allegro.h) ?

Наверное здесь: http://alleg.sourceforge.net/

 Отправлено: 21.11.08 16:42. Заголовок: Pasha Спасибо ! Вот..

Pasha
Спасибо !
Вот только собрать не получается.
Error E2209 C:\x\source\rtl\gtalleg\allegro\include\allegro/platform/astdint.h 30: Unable to open include file 'stdint.h'
Лезу в allegro\include\allegro\platform\astdint.h
Смотрю в книгу и вижу фигу ;)
/* Please only include this file from include/allegro/internal/alconfig.h
* and don't add more than inttypes.h/stdint.h emulation here. Thanks.
*/
Не очень понял что нужно сделать.........


По ходу JPG формат библа не знает

 Отправлено: 21.11.08 17:31. Заголовок: По поводу allegro, е..

По поводу allegro,
если удастся его запустить - это будет тоже не консоль
Зачем его мучить, если gtwvt дает такой же результат, но без сторонних библиотек

gtwvt кажется тоже не понимает jpg, но в его окне можно будет выводить jpg средствами freeimage. Я в своих gui-программах для работы с картинками jpg использовал как раз эту библиотеку

 Отправлено: 21.11.08 17:35. Заголовок: Pasha Убедил ! Что ..

Pasha
Убедил !
Что нужно исправить в своих сырцах для перехода в gtwvt , не считая того что нужно пересобрать
с другими библами ?

PS
Было GTWIN +ADS

 Отправлено: 21.11.08 17:55. Заголовок: Request HB_GT_WVT Re..

Request HB_GT_WVT
Request HB_GT_WVT_DEFAULT

hb_gtInfo(GTI_CODEPAGE, 255)
hb_gtInfo(GTI_FONTNAME, 'Terminal')
hb_gtInfo(GTI_FONTSIZE, 20)
SetMode(30, 80)

Параметры можно установить по вкусу

 Отправлено: 21.11.08 17:59. Заголовок: Pasha Спасибо !!!!!..

Pasha
Спасибо !!!!!!!!!!!!!
В плане ADS ни чего нужно переделывать ?

 Отправлено: 21.11.08 18:17. Заголовок: Не пойму , почему в ..

Не пойму , почему в папке xHarbour\contrib\wvtgui\ нет ни чего ?
Может я чего пропустил ?

 Отправлено: 21.11.08 18:18. Заголовок: Dima пишет: В плане..

Dima пишет:

цитата:

В плане ADS ни чего нужно переделывать ?

Нет, все остальное, включая ads, не заметит замену терминала
Даже пользователь, если он работал в оконном режиме, может не заметить :)

 Отправлено: 21.11.08 18:20. Заголовок: Ясно :sm12: А что ..

Ясно
А что насчет xHarbour\contrib\wvtgui\ (месага над твоей) ?

 Отправлено: 21.11.08 18:26. Заголовок: Dima пишет: А что н..

Dima пишет:

цитата:

А что насчет xHarbour\contrib\wvtgui\ (месага над твоей) ?

Она стала жертвой не очень понятных переименований
Теперь надо смотреть в contrib\gtwvg

 Отправлено: 21.11.08 18:33. Заголовок: Понял , батника для ..

Понял , батника для сборки и тд там не вижу.......
Что нужно что бы ее собрать ?



Спасибо !!!

ЗЫ
До этих странных переименований все для сборки было.


Отбой ;)
make_b32.bat ALL собирает и ее

 Отправлено: 22.11.08 01:24. Заголовок: Есть предложение: вы..

Есть предложение: вывести картинку для GTWIN через FastReport.
Демку скинул для GTWIN и GTWVT2 : http://files.mail.ru/DBNUPV
Правда не разобрался как WORD-вский файл растягивать на страницы....

 Отправлено: 22.11.08 08:09. Заголовок: Pasha пишет: Параме..

Pasha пишет:

цитата:

Параметры можно установить по вкусу

Как сделать окно на весь экран ?
Куда делся 'wvtgui.ch' , аналога не вижу ?
Почему прога падает на этой строке hb_gtInfo(GTI_WINTITLE, "TESTIK") ?
По ходу не пашет GTI_FONTWIDTH

 Отправлено: 22.11.08 15:23. Заголовок: Dima пишет: Почему ..

Dima пишет:

цитата:

Почему прога падает на этой строке hb_gtInfo(GTI_WINTITLE, "TESTIK") ?

Я нарвался на gpf в GTI_WINTITLE еще в августе, поправил у себя, а на CVS сбросить просто забыл
Только что пофиксил и на CVS

 Отправлено: 22.11.08 18:16. Заголовок: Как в терминале WVT ..

Как в терминале WVT деактивировать крестик закрытия окна ?

 Отправлено: 23.11.08 13:55. Заголовок: Dima пишет: По ходу..

Dima пишет:

цитата:

По ходу не пашет GTI_FONTWIDTH

Для настройки размера шрифта достаточно и GTI_FONTSIZE

цитата:

Как в терминале WVT деактивировать крестик закрытия окна ?

hb_gtInfo(HB_GTI_CLOSABLE, .f.)

 Отправлено: 23.11.08 14:11. Заголовок: Pasha пишет: hb_gtI..

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 , все работает без всяких лишних библиотек !

 Отправлено: 23.11.08 14:40. Заголовок: Столкнулся с проблем..

Столкнулся с проблемкой.
Если юзать только GTWVT , все нормально.
Если юзать GTWVG , то происходит следующее.
Сворачиваем задачу в трей или переключаемся на другое приложение (или окно).
Возвращаемся в нашу задачу , видим только границы окна а в окне либо нет ни чего , либо видим
часть изображения.
Как лечить ?

 Отправлено: 23.11.08 15:26. Заголовок: #include 'wvtwi..

 
 #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  
  
  
 

Научите балбеса как перерисовать окно когда фокус ввода снова оказался на нем !
Спасибо !

 Отправлено: 23.11.08 19:27. Заголовок: Кто то подскажет ? ;..

Кто то подскажет ? ;)

PS
Можно конечно заюзать Freeimage , но хотелось бы с помощью GTWVG , все реализовать.

 Отправлено: 24.11.08 11:03. Заголовок: Dima пишет: Кто то ..

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

 Отправлено: 24.11.08 11:13. Заголовок: Pasha пишет: У меня..

Pasha пишет:

цитата:

У меня нет под рукой свежих сырцов xHb, а с теми что есть твой пример вываливается на gpf

Павел , пример можно собрать любой , не обязательно тот что я дал.
Собираем , запускаем , сворачиваем окно , разворачиваем и видим не то что было до сворачивания.
В GTWVT все нормально , проблема с GTWVG

 Отправлено: 24.11.08 11:24. Заголовок: Окно до сворачивания..

Окно до сворачивания
http://hotimg15.fotki.com/a/81_24/210_47/s1.jpg

Свернул , развернул
http://hotimg25.fotki.com/a/81_24/210_47/s2.jpg

 Отправлено: 24.11.08 12:00. Заголовок: Dima пишет: Столкну..

Dima пишет:

цитата:

Столкнулся с проблемкой. Если юзать только GTWVT , все нормально.

Кинь в меня рабочим примером для GTWVT, а то я так и не смог его сделать.....
Заранее спасибо.

 Отправлено: 24.11.08 12:13. Заголовок: Если ты о картинках ..

Если ты о картинках то причина тут
Request HB_GT_WVT
Request HB_GT_WVT_DEFAULT
Эти Request делать не нужно.

 Отправлено: 24.11.08 13:20. Заголовок: Dima пишет: Окно до..

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

 Отправлено: 24.11.08 13:39. Заголовок: Дело не в картинке. ..

Дело не в картинке. Даже если ее и не выводить

Код примерно таков

 
    do while .t. 
  
 // тут что то типа n:=Achoice(..........) 
  
     if n==5 
 exit 
     endif        
  
    enddo 
  
 

Что править ?

 Отправлено: 24.11.08 14:34. Заголовок: ­Pasha пишет: Картин..

*PRIVAT*

 Отправлено: 24.11.08 15:45. Заголовок: Dima пишет: Пожалуй..

Dima пишет:

цитата:

Пожалуй останусь на Gtwvt + freeimage В этой связи вопрос. Как получить HDC окна в gtwvt ? Как создать новое окно в gtwvt ? -

В gtwvg для этого как раз обработчик WM_PAINT каждый раз вызывает процедуру Wvt_Paint, в которой пользователь выводит на экран все, что надо
В примере видно, как это сделать. Формируется массив со всеми обьектами, которые надо нарисовать, а процедура этот массив просматривает и выдает команды на вывод в окне. hDC - параметр этой процедуры
А многооконный wvt - это терминал gtwvw

 Отправлено: 24.11.08 21:41. Заголовок: Сделал для хHarbour&..

Сделал для х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

Если надо, то готовую сборку могу выслать .....

 Отправлено: 25.11.08 08:37. Заголовок: Andrey пишет: #incl..

Andrey пишет:

цитата:

#include 'wvtgui.ch'

В последних сборках xharbour этого файла нет.
Если взять старый то пример собрать не возможно в виду отсутствия ряда функций.
Выложи (или метни в мыло) wvtgui.ch

 Отправлено: 25.11.08 15:47. Заголовок: Dima пишет: В посл..

Dima пишет:

цитата:

В последних сборках xharbour этого файла ('wvtgui.ch' ) нет.

Он лежит в \xHarbour\contrib\wvtgui

Выкладываю целиком проект, сборка командой: hbmake gtwvt_ru.bc
http://files.mail.ru/MU8O34

 Отправлено: 25.11.08 15:54. Заголовок: Andrey пишет: Он ле..

Andrey пишет:

цитата:

Он лежит в \xHarbour\contrib\wvtgui

Дружище ты наверное давно не обновлялся.
Эта папка пуста. WvtGui переименован в gtwvg еще в июле месяце вроде ;)

 Отправлено: 25.11.08 15:57. Заголовок: 2008-06-30 22:55 UT..

 
 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 
  
 

 Отправлено: 25.11.08 16:32. Заголовок: Блин, где обновлятьс..

Блин, где обновляться ???
Только сейчас лазил на www.xharbour.org и оттуда скачал все заново.....

 Отправлено: 25.11.08 16:44. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, где обновляться ???

CVS , самое свежее только там.

 Отправлено: 25.11.08 16:52. Заголовок: Дима ! Пришли пожалу..

Дима ! Пришли пожалуйста готовое обновление с CVS или выложи на http://files.mail.ru

Ну не наладил я обновления с CVS.... Все времени не хватает....

 Отправлено: 25.11.08 17:00. Заголовок: Andrey пишет: Пришл..

Andrey пишет:

цитата:

Пришли пожалуйста готовое обновление с CVS

Прислать то можно , только там куча багов !
Эту сборку не советуют использовать для рабочих программ.
Смотри сам
http://groups.google.com/group/comp.lang.xharbour/browse_thread/thread/a69c0bb76acd42d9#

Andrey пишет:

цитата:

Ну не наладил я обновления с CVS.... Все времени не хватает....

Да брось ;) Найди 10 минут времени ;)

 Отправлено: 25.11.08 17:10. Заголовок: Спасибо... Так как ..

Спасибо...

Так как насчет примерчика
Выкладываю целиком проект, сборка командой: hbmake gtwvt_ru.bc
http://files.mail.ru/MU8O34

 Отправлено: 18.04.10 10:37. Заголовок: Перебросил этот вопр..

Перебросил этот вопрос сюда !
Dima пишет:

цитата:

Andrey пишет: цитата: как реализовал вывод картинки Wvt_DrawImage( 1,0,23,79, "blabla.jpg" ) Andrey пишет: цитата: и перерисовку экрана Не очень понял вопрос. А вообще Wvt_saveScreen , Wvt_RestScreen , хотя это и не совсем верно.

Вопросы по этому терминалу:
На чем собрано (Харбор или хХарбор) ?
Какая версия ?
Можешь ли дать тестовый пример как это работает или что нужно сделать у себя в программе чтоб это (показ картинки) заработало ?

 Отправлено: 18.04.10 12:42. Заголовок: Andrey Xharbour 1.1..

Andrey
Xharbour 1.1.0 build 6225

 
 #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  
 

 Отправлено: 18.04.10 15:54. Заголовок: А с Xharbour 1.2 и..

А с Xharbour 1.2 и больше соберется? На форуме как то писали, что после версии 1.0 эта библиотека не поддерживается.

 Отправлено: 18.04.10 16:00. Заголовок: Vlad04 пишет: А с X..

Vlad04 пишет:

цитата:

А с Xharbour 1.2 и больше соберется?

Вероятно нет (не пробовал) .

 Отправлено: 18.04.10 16:31. Заголовок: Dima пишет: Вероятн..

Dima пишет:

цитата:

Вероятно нет (не пробовал)

Работает на 1.2.
Смотри ....\xHarbour\contrib\gtwvg

Только эфект непонятный... 8 сек. картинка висит, а потом черный экран ?




Проект и пример здесь: http://files.mail.ru/N5BNY1

 Отправлено: 18.04.10 17:37. Заголовок: Andrey пишет: Тольк..

Andrey пишет:

цитата:

Только эфект непонятный... 8 сек. картинка висит, а потом черный экран ?

Скорее всего ты окно свернул а потом развернул.
Короче WM_PAINT нужно юзать , вот только как это сделать правильно применительно пусть
да же к этому примеру я не знаю.
Может Пётр или Павел подскажут !?

 Отправлено: 18.04.10 17:47. Заголовок: Dima пишет: Скорее..

Dima пишет:

цитата:

Скорее всего ты окно свернул а потом развернул.

Ничего не сворачивал... Запустил и жду...
Смотри пример, то же самое будет ! Ссылку же разместил....

 Отправлено: 18.04.10 17:55. Заголовок: Andrey пишет: Ничег..

Andrey пишет:

цитата:

Ничего не сворачивал... Запустил и жду...

У меня норм , запустил и ждал пока ужин готовил (это длилось больше 8 секунд). Ни чего не пропало.
Но вот если свернуть и развернуть окно тогда жо..а

 Отправлено: 18.04.10 21:57. Заголовок: Dima пишет: Но вот ..

Dima пишет:

цитата:

Но вот если свернуть и развернуть окно тогда жо..а

А у тебя в программе тоже так ?

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

Andrey пишет:

цитата:

А у тебя в программе тоже так ?

Нет, примерно так

 Отправлено: 19.04.10 10:58. Заголовок: Dima пишет: Нет, пр..

Dima пишет:

цитата:

Нет, примерно так

Я тебя серьезно спрашиваю, а ты обиделся что-то .....

Но картинка красивая .... Мне понравилась.... Пойду повешу кому-нибудь на рабочий стол.... Вот смеху то будет....

 Отправлено: 19.04.10 15:55. Заголовок: Andrey Давай ка луч..

Andrey
Давай ка лучше разберемся почему при сворачивании и разворачивании окна на нем теряется графика.
Мысли есть что нужно делать ?


Andrey пишет:

цитата:

Пойду повешу кому-нибудь на рабочий стол.... Вот смеху то будет....

Для этого дела я могу тебе и по круче картинку дать

 Отправлено: 19.04.10 18:24. Заголовок: Dima пишет: Короче ..

Dima пишет:

цитата:

Короче WM_PAINT нужно юзать , вот только как это сделать правильно применительно пусть да же к этому примеру я не знаю.

Все правильно. Выводить картинки надо в обработчике on paint. Как это сделать - можно глянуть в примере demowvg.prg

 Отправлено: 19.04.10 18:37. Заголовок: Pasha Павел а для о..

Pasha
Павел а для особо бестолковых , для тех кто только слез с велосипеда (с Clipper) можно показать
на простом примере как это реализовать ?
Скажем окно , в нем картинка и простейший Achoice()

Заранее спасибо !

PS
Пример смотрел но не понял сходу как правильно сделать.

 Отправлено: 19.04.10 19:08. Заголовок: В программе должна б..

В программе должна быть функция с именем wvt_Paint. Эта функция будет вызываться по событию WM_PAINT

Пример функции:

FUNCTION Wvt_Paint()

Wvt_DrawImage(...)
...

WvtPaintObjects()

RETURN 0

Но надо учитывать, что эту функцию терминал wvt будет вызывать при каждом событии WM_PAINT, так что функция должна определять, когда надо выводить картинку, а когда нет.
В примерах этой функции передается массив блоков кода, которые она выполняет. Для каждого окна это будет разные массивы.
Пример:

FUNCTION Wvt_Paint()

// aBlocks - массив блоков кода. Он может быть static, public, или как-то по другому организован.
aEval( aBlocks, {|e| eval( e ) } )

WvtPaintObjects()

RETURN 0

 Отправлено: 19.04.10 20:00. Заголовок: Pasha Объясни пожа..

Pasha

Объясни пожалуйста на простом примере ;) ! Не догнал я.......(простуда достала уже)
Что в нем нужно изменить , что бы при сворачивании окно не портилось ?
************

#include 'wvtwin.ch'
#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)

@ 0,0 say padc(alltrim(version()),80) color "n/w"
@ 24,0 say padc(alltrim(os()),80) color "n/w"
Wvt_DrawImage( 1,0,23,79, "111.jpg" )
achoice(10,20,20,40,{"Тест","Тест 1"})

quit
return


***************

 Отправлено: 19.04.10 20:04. Заголовок: вот так #include &#..

вот так

#include 'wvtwin.ch'
#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)

@ 0,0 say padc(alltrim(version()),80) color "n/w"
@ 24,0 say padc(alltrim(os()),80) color "n/w"
achoice(10,20,20,40,{"Тест","Тест 1"})

quit
return

FUNCTION Wvt_Paint()

Wvt_DrawImage( 1,0,23,79, "111.jpg" )

WvtPaintObjects()

RETURN 0

 Отправлено: 19.04.10 20:16. Заголовок: Pasha Спасибо !!! Т..

Pasha
Спасибо !!!
Только Achoice куда то теряется в этом случае.

 Отправлено: 19.04.10 20:52. Заголовок: Так нужно выводить ф..

Так нужно выводить фоновый рисунок ? Кажется, wvt это не умеет. Wvt_SetBrush задает только фон. Прозрачный рисунок выводить нельзя.
Можно после Wvt_DrawImage выводить тест посредством Wvt_Label, в функции wvt_paint
Впрочем, я все эти средства не использую, может и есть другой вариант.

 Отправлено: 19.04.10 21:24. Заголовок: Pasha То есть все г..

Pasha
То есть все графические примитивы в WVT следует выводить на экран только
через wvt_paint , я правильно понял ?
Подружить эти графические примитивы будет сложно с обычными функциями вывода
на экран. Так ?
Просто хочу для себя уяснить.

 Отправлено: 19.04.10 21:32. Заголовок: Да, выводить рисунки..

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

 Отправлено: 19.04.10 21:55. Заголовок: Pasha Спасибо !!!..

Pasha
Спасибо !!!

 Отправлено: 20.04.10 06:51. Заголовок: Dima пишет: Pasha С..

Dima пишет:

цитата:

Pasha Спасибо !!!

Присоединяюсь !!!
Спасибо !

 Отправлено: 16.02.11 01:12. Заголовок: Dima пишет: То есть..

Dima пишет:

цитата:

То есть все графические примитивы в WVT следует выводить на экран только через wvt_paint , я правильно понял ? Подружить эти графические примитивы будет сложно с обычными функциями вывода на экран. Так ? Просто хочу для себя уяснить.

Дима, как ты решил проблему с показом фонового рисунка ?

 Отправлено: 16.02.11 16:00. Заголовок: Andrey пишет: Дима,..

Andrey пишет:

цитата:

Дима, как ты решил проблему с показом фонового рисунка ?

Ни как. Показываю как и показывал.

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

Dima пишет:

цитата:

Ни как. Показываю как и показывал.

А если за окно мышкой потаскать по экрану и вниз, картинка стирается ?
У меня стирается ....

 Отправлено: 20.08.19 11:59. Заголовок: Функция wvt_SetGUI( .T. ) для терминального режима не переключается в графический режим?

Подскажите почему функция wvt_SetGUI( .T. ) для терминального режима не переключается в графический режим?

Часть текстов:

#include "hbgtinfo.ch"
#include 'wvtwin.ch'

#require "gtwvg"

#include "hbclass.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"

REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVT

xx := wvt_SetGUI( .T. ) && Не переключает в графический режим.


Файл сборки *.HBP
-hbexe
-n
-inc
-q0
-es2
-prgflag=-D__NO_HWGUI__
-prgflag={win}-DGTWVT

-std
#-gtwvg
-info
-trace

-ldflag=-c
-ldflag=-tW
-ldflag=-M

# folder where there will be all * .obj
-workdir=…

# the name of the EXE module
-o….

# paths to the main and extension * .Lib
-lhbct
-lhbblink
-lhbblink-bcc
-lhbmemio

# Для графического эмулятора терминала
{win}zp_.rc
gtwvg.hbc
#gtwvg.hbx
xhb.hbc

-prgflag=/b
-prgflag=/n
-prgflag=/m
-prgflag=/q
-prgflag=/dGTWVT
-prgflag=/dBLINKER

@ZP.hbm

 Отправлено: 12.10.19 12:07. Заголовок: Снова Wvt_DrawImage ..

Снова Wvt_DrawImage
Картинки BMP и JPG (JPEG) показывает.
Понадобилось показывать PNG .........не пашет
Что можно придумать ?

 Отправлено: 12.10.19 12:13. Заголовок: Dima пишет: Что мож..

Dima пишет:

цитата:

Что можно придумать ?

Сделай отдельную программку на МиниГуи показа PNG и запускай через ShellExecute().
Это наверное проще будет....

 Отправлено: 15.10.19 10:49. Заголовок: Andrey пишет: Сдела..

Andrey пишет:

цитата:

Сделай отдельную программку на МиниГуи показа PNG и запускай через ShellExecute(). Это наверное проще будет....

Так и сделал.
Если её юзать через Far , подавая ей параметр из командной строки , то все работает отлично.
Если так же подавать параметр из проги GTWVT , то глючит писец при перерисовке окна.
Юзал варианты запуска разные ... WAPI_ShellExecute , hb_processrun , EXECANDWAIT ,
глючит одинаково.
Если дам сырец , кто то подскажет куда копать , потому как уже не знаю что делать ?

 Отправлено: 15.10.19 12:16. Заголовок: Проехали..

Проехали