Отправлено: 03.08.08 21:07. Заголовок: GPE при повторном вызове Wintitle и др..

Как теперь заголовок окна установить в xHarbour при использовании WVT?? Появилась какая-то хитрость при сборке или надо добавить какие-то магические слова?!. Пожалуйста объясните по-русски как заставить работать следующий код?!

#include "hbgtinfo.ch"

Function Main()

ANNOUNCE HB_GTWVT
REQUEST HB_GT_WVT

Hb_gtInfo( HB_GTI_WINTITLE, "Window title 1" )
Hb_gtInfo( HB_GTI_WINTITLE, "Window title 2" )

Hb_gtInfo( HB_GTI_SETWIN)
Hb_gtInfo(HB_GTI_SCREENSIZE)
WAIT

RETURN NIL

спасибо!

 Отправлено: 03.08.08 23:51. Заголовок: Я делаю так: #inclu..

Я делаю так:

#include "gtinfo.ch"
#define MYPROGRAM "Моя программа в DOS-кодировке"

......
IF hb_gt_version() == "WVT"
// Если используется граф.терминал GTWVT.LIB
cNameWin := HB_OEMTOANSI( MYPROGRAM )
ELSE
cNameWin := MYPROGRAM
ENDIF

GTInfo( GTI_WINTITLE, cNameWin )
GTInfo( GTI_ICONRES, "MyIcon" )

 Отправлено: 04.08.08 11:07. Заголовок: Причина gpf - HB_GTI..

Причина gpf - HB_GTI_GETWIN

Эту функцию надо использовать так:

nh := Hb_gtInfo( HB_GTI_GETWIN)
...
Hb_gtInfo( HB_GTI_SETWIN, nh)