Отправлено: 14.03.25 17:22. Заголовок: GetBox ввода телефона

Что то я забыл как это делать в МиниГуи...
Вывожу так:

   @ nY, nX GETBOX GB_Phone VALUE cVal WIDTH nWTxt HEIGHT nHTxt ; 
      PICTURE "@R (999) 999-99-99" FONT cFont SIZE nFSize        ; 
      ON CHANGE {|| App.Cargo:oIni:Phone:cPhone := This.GB_Phone.Value  }

nWTxt большая длина и сам номер телефона центрируется вправо.
А как сделать, чтобы слева был телефон ?

 Отправлено: 14.03.25 19:08. Заголовок: 1. @ nY, nX GETBO..

1.
@ nY, nX GETBOX GB_Phone VALUE cVal WIDTH nWTxt HEIGHT nHTxt ;
PICTURE "@R (999) 999-99-99" FONT cFont SIZE nFSize ;
ON CHANGE {|| App.Cargo:oIni:Phone:cPhone := This.GB_Phone.Value } ;
ON INIT {|| _SetAlign (This.Name, ThisWindow.Name, "LEFT" ) } // "CENTER" \ "RIGHT"

2. @ nY, nX GETBOX GB_Phone VALUE cVal WIDTH nWTxt HEIGHT nHTxt ;
...
This.GB_Phone.Alignment := "LEFT" // "CENTER" \ "RIGHT" или
SetProperty(This.Name, "GB_Phone", "ALIGNMENT", "LEFT")

 Отправлено: 14.03.25 20:06. Заголовок: Спасибо БОЛЬШОЕ !!! ..

Спасибо БОЛЬШОЕ !!!

 Отправлено: 15.03.25 21:20. Заголовок: Вопрос немного не в ..

Вопрос немного не в тему, но актуален - как бороться с потерей фокуса окна ?
Вызываю свою прогу на МиниГуи из Фара.
Окно Main, на нем кнопка, идёт вызов MsgDebug() и потом окно Main оказывается под ФАРОМ !!!
Вот код:

 
      :Event( 21, {|obtn| // Кнопка город: 
                      Local ow := obtn:Window 
                      Local a  := obtn:Cargo:aBtn 
                      //             1     2           3         4           5       6          7        8         
                      //o:aBtn := { nI, o:oWnd:Name, o:cName, o:cObjLbl, o:cObjBtn, o:cObjRec, o:cVal, o:nCode }  
                      Local nI    := a[1] 
                      Local cForm := a[2] 
                      SET WINDOW THIS TO ow 
                      Darken2Open(ow:Handle)    // затенение окна  
                      MsgDebug(a,nI,cForm, App.Cargo:Menu2aObj2) 
                      Darken2Close(ow:Handle)   // закрыть затенение окна        
                      SET WINDOW THIS TO 
                      ow:Enabler(obtn:Name, .T.) 
                      // без этого теряется фокус окна 
                      IF _IsWindowDefined(cForm)  
                         DoMethod(cForm, "Minimize") ; DO EVENTS 
                         DoMethod(cForm, "Restore" ) ; DO EVENTS 
                         IF _IsControlDefined("Label_Vers", cForm) 
                            DoMethod(cForm, "Label_Vers", "SetFocus" ) 
                         ENDIF 
                         DO EVENTS 
                      ENDIF  
                      Return Nil 
                      })

Как убрать мелькание окна ?

                        DoMethod(cForm, "Minimize") ; DO EVENTS 
                         DoMethod(cForm, "Restore" ) ; DO EVENTS 
 

 Отправлено: 15.03.25 21:44. Заголовок: Andrey пишет как бор..

Andrey пишет

цитата:

как бороться с потерей фокуса окна

 
    //hWnd := FindWindowEx( ,,, APP_TITLE ) 
    hWnd := GetFormHandle(cForm)    // hWnd := ow:Handle 
  
    IF hWnd > 0 
  
       IF IsIconic( hWnd ) 
          _Restore( hWnd ) 
       ELSE 
          SetForeGroundWindow( hWnd ) 
       ENDIF 
    ELSE 
  
       MsgStop( "Cannot find application window!", "Error", , .f. ) 
  
    ENDIF 
 

цитата:

Как убрать мелькание окна ?

DoMethod(cForm, "Minimize") ; DO EVENTS -> убирает\сворачивает окно
DoMethod(cForm, "Restore" ) ; DO EVENTS -> поднимает\показывает окно
что тут можно убрать ?
Hide, Show так же сделают

цитата:

потом окно Main оказывается под ФАРОМ

У far не часто, но бывает, после запусков из под него, ему ставится свойство переднего плана и все др. запуски прячутся под него ( окна). Помогает убрать и перезапусить far. У меня так происходит.

 Отправлено: 15.03.25 21:57. Заголовок: Спасибо БОЛЬШОЕ ! :..

Спасибо БОЛЬШОЕ !

 Отправлено: 16.03.25 14:13. Заголовок: SergKis пишет: У fa..

SergKis пишет:

цитата:

У far не часто, но бывает, после запусков из под него, ему ставится свойство переднего плана и все др. запуски прячутся под него ( окна).

Ещё одна фигня с Фаром...
После запуска проги на МиниГуи после переключения на Фар ИНОГДА НЕВОЗМОЖНО открыть лог по клавише F4, да и другие клавиши
перестают действовать, приходиться тыкать мышкой.
А в редакторе Фара другие клавиши тоже блокированы.
После выхода из проги на МиниГуи все клавиши в Фаре начинают работать.
Использую одну форма MAIN и такое назначение клавиш:

      ON KEY F1     OF Form_Main ACTION _wPost(1) 
       ON KEY ESCAPE OF Form_Main ACTION _wPost(98)

Как такое может быть и как это исправить ?

 Отправлено: 17.03.25 18:22. Заголовок: Andrey пишет: Ещё о..

Andrey пишет:

цитата:

Ещё одна фигня с Фаром...

у себя тоже иногда наблюдаю похожие вещи , особенно когда включен
удаленный сеанс TeamViewer , вопрос тоже не решил