On-line: SergKis, гостей 0. Всего: 1 [подробнее..]
АвторСообщение





Пост N: 171
Зарегистрирован: 06.06.06
ссылка на сообщение  Отправлено: 01.04.20 15:55. Заголовок: Установка координат окна в GTWIN


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

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 6 [только новые]





Пост N: 3105
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 01.04.20 18:38. Заголовок: Может EnumWindows() ..


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

Спасибо: 1 
ПрофильЦитата Ответить



Пост N: 3106
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 01.04.20 19:55. Заголовок: PS Handle окна появи..


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

Спасибо: 1 
ПрофильЦитата Ответить
постоянный участник


Пост N: 1582
Зарегистрирован: 27.01.07
ссылка на сообщение  Отправлено: 01.04.20 19:56. Заголовок: Когда-то это было дл..


ort пишет:

 цитата:
работает только в GTWVT


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

Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 7179
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 01.04.20 23:08. Заголовок: PSP пишет: Когда-то..


PSP пишет:

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


+1

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3107
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 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. ) // меняем позицию окна
...


Спасибо: 1 
ПрофильЦитата Ответить





Пост 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 ) ) );
}

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

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 324
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет