Отправлено: 01.04.20 15:55. Заголовок: Установка координат окна в GTWIN

Всем привет!
Нужно изменить координаты консольного окна в GTWIN,
а функция hb_gtInfo( HB_GTI_SETPOS_XY ) работает только в GTWVT.
Может кто знает, как это сделать?

 Отправлено: 01.04.20 18:38. Заголовок: Может EnumWindows() ..

Может EnumWindows() bp hmg поможет получить hWnd тема http://clipper.borda.ru/?1-1-0-00000582-000-0-0-1580986789

 Отправлено: 01.04.20 19:55. Заголовок: PS Handle окна появи..

PS
Handle окна появится после первой команды вывода на экран
CLS
@ ... SAY ...
? ...
?? ...

 Отправлено: 01.04.20 19:56. Заголовок: Когда-то это было дл..

ort пишет:

цитата:

работает только в GTWVT

Когда-то это было для меня одной из причин перейти на GTWVT.

 Отправлено: 01.04.20 23:08. Заголовок: PSP пишет: Когда-то..

PSP пишет:

цитата:

Когда-то это было для меня одной из причин перейти на GTWVT.

+1

 Отправлено: 01.04.20 23:27. Заголовок: Dima пишет +1 К сожа..

Dima пишет

цитата:

+1

К сожалению не всегда задачу с clipper удается перевести на wvt, если куча модулей через bat запуск и каждая - продолжение предыдущего запуска по оформлению экрана. Такую задачу лучше оставить в console, переводить в wvt трудоемко и не оправдано по трудозатратам. Проще сделать запуск win, wvt программ через "запускальщик", к примеру, на hmg. Т.е. (y,x можно из ini файла брать или др. источника)

 
 ... 
 	FOR EACH j IN aParam 
 		 IF left(j, 1) != '-' 
 			 cPar += ' '+ j 
 			 LOOP 
 		 EndIf 
 		 If	  lower(left(j, 2)) == '-y'	; y	 := val(subs(j, 4)) 
 		 ElseIf lower(left(j, 2)) == '-x'	; x	 := val(subs(j, 4)) 
 		 ElseIf lower(left(j, 4)) == '-exe' ; cRun :=			  subs(j, 6) 
 		 ElseIf lower(left(j, 4)) == '-run' ; cRun :=			  subs(j, 6) 
 		 ElseIf lower(left(j, 4)) == '-bat' ; cRun := '%CALL% '+subs(j, 6) 
 		 EndIf 
 	NEXT 
 ... 
 Запускать exe\bat и ловить Handle (как в ссылке по теме) и ставить нужные y, x  
        row  := y 
        col  := x 
        width  := GetWindowWidth (hTmp)  
        height := GetWindowHeight(hTmp)  
        MoveWindow ( hTmp , nCol , nRow , width , height , .T. )   // меняем позицию окна  
 ... 
 

 Отправлено: 02.04.20 00:10. Заголовок: Друзья, спасибо за и..

Друзья, спасибо за идеи, но я, кажется, нашел то, что искал...

В C:\MiniGUI\SOURCE\c_windowsAPI.c есть такая функция:

HB_FUNC( SETWINDOWPOS )
{
hb_retl( ( BOOL ) SetWindowPos( ( HWND ) HB_PARNL( 1 ), ( HWND ) HB_PARNL( 2 ), hb_parni( 3 ), hb_parni( 4 ), hb_parni( 5 ), hb_parni( 6 ), hb_parni( 7 ) ) );
}

И вроде бы даже работает!