Автор | Сообщение |
|
| |
Пост N: 171
Зарегистрирован: 06.06.06
|
|
Отправлено: 01.04.20 15:55. Заголовок: Установка координат окна в GTWIN
Всем привет! Нужно изменить координаты консольного окна в GTWIN, а функция hb_gtInfo( HB_GTI_SETPOS_XY ) работает только в GTWVT. Может кто знает, как это сделать?
|
|
|
Ответов - 6
[только новые]
|
|
|
| постоянный участник
|
Пост N: 3105
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.20 18:38. Заголовок: Может EnumWindows() ..
|
|
|
|
| постоянный участник
|
Пост N: 3106
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.20 19:55. Заголовок: PS Handle окна появи..
PS Handle окна появится после первой команды вывода на экран CLS @ ... SAY ... ? ... ?? ...
|
|
|
|
| постоянный участник
|
Пост N: 1582
Зарегистрирован: 27.01.07
|
|
Отправлено: 01.04.20 19:56. Заголовок: Когда-то это было дл..
ort пишет: Когда-то это было для меня одной из причин перейти на GTWVT.
|
|
|
|
| |
Пост N: 7179
Зарегистрирован: 17.05.05
|
|
Отправлено: 01.04.20 23:08. Заголовок: PSP пишет: Когда-то..
PSP пишет: цитата: | Когда-то это было для меня одной из причин перейти на GTWVT. |
| +1
|
|
|
|
| постоянный участник
|
Пост N: 3107
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.20 23:27. Заголовок: Dima пишет +1 К сожа..
Dima пишет К сожалению не всегда задачу с 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. ) // меняем позицию окна ...
|
|
|
|
| |
Пост N: 172
Зарегистрирован: 06.06.06
|
|
Отправлено: 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 ) ) ); } И вроде бы даже работает!
|
|
|
|