Отправлено: 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 , вопрос тоже не решил

 Отправлено: 16.02.26 11:25. Заголовок: Как сменить bmp на к..

Как сменить bmp на кнопках в GetBox ?
Пробовал так:

      SetProperty(cForm, cObj, "Image", { "bArrow30", "bDelRed32" } ) 
       This.&(cObj).Image   := { "bArrow30", "bDelRed32" }

Вылетает с ошибкой - Error MGERROR/0 Control: unrecognized property 'IMAGE'

 Отправлено: 16.02.26 18:33. Заголовок: Andrey пишет: Вылет..

Andrey пишет:

цитата:

Вылетает с ошибкой -

В справке по getbox указано правильное название этой проперти.

 Отправлено: 16.02.26 20:34. Заголовок: Haz пишет: В справк..

Haz пишет:

цитата:

В справке по getbox указано правильное название этой проперти.

Не нашёл. Пробовал разное на 2 кнопки - не работает !

SetProperty ( <ParentWindowName>,<ControlName>, Picture , cImageName ) на 2 кнопках тоже ничего не меняет. 
 

 Отправлено: 16.02.26 22:14. Заголовок: Andrey пишет: Пробо..

Andrey пишет:

цитата:

Пробовал разное

Ошибка говорит о нераспознанном имени проперти. Значит ошибка в имени , а не в присваевомом значении.
Тут только или сверять с документацией , или смотреть исходник .
Сейчас у меня комп на работе, специально оставляю чтоб отдыхать. Завтра днем посмотрю

 Отправлено: 16.02.26 23:23. Заголовок: Andrey пробни SetPr..

Andrey
пробни SetProperty ( <ParentWindowName>,<ControlName>, "Picture" , cImageName )

 Отправлено: 17.02.26 01:18. Заголовок: SergKis пишет: проб..

SergKis пишет:

цитата:

пробни SetProperty ( <ParentWindowName>,<ControlName>, "Picture" , cImageName )

Пробовал. На 2х кнопках без результата !

 Отправлено: 17.02.26 01:35. Заголовок: Andrey По мне, уже ..

Andrey
По мне, уже тебе говорил, нет смены bmp на кнопках GetBox, "Picture" управляет форматом, т.е
_HMG_aControlPicture [k] := cPicture
и bmp задаются только в Define GetBox - это внутренние кнопки
SetProperty(...,"Picture",...) использует ф-ю

 
       CASE Arg3 $ "PICTURE,PICTUREINDEX,ICON,ONCE,ONLISTCLOSE,ONCLOSEUP,INCREMENT" 
  
          _SetPicture ( Arg2 , Arg1 , Arg4 ) 
 в которой имеем 
    CASE t == 'GETBOX' 
  
       oGet := _HMG_aControlHeadClick  
       oGet:SetFocus() 
       oGet:Picture := Filename 
       _HMG_aControlPicture  := Filename 
       _HMG_aControlInputMask  := _GetPictureData ( oGet , Filename ) 
  
       _SetValue ( , , oGet:VarGet(), i ) 
 

переустановку формата отображения

 Отправлено: 17.02.26 01:40. Заголовок: В MiniGui.chm написа..

В MiniGui.chm написано

 
 Set / Gets image name of a gui object. 
  
 SYNTAX 
 Pseudo-OOP: 
  
 Set:  
 <ParentWindowName>.<ControlName>.Picture := cImageName 
  
 Get:  
 <ParentWindowName>.<ControlName>.Picture --> cImageName 
  
 Function syntax: 
  
 Set:  
 SetProperty ( <ParentWindowName>,<ControlName>, Picture , cImageName ) 
  
 Get:  
 GetProperty ( <ParentWindowName>, <ControlName>, Picture ) --> cImageName 
 

но это так не работает

 Отправлено: 17.02.26 12:01. Заголовок: Фигово получается.....

Фигово получается...
На каждый тип обработки придётся дублировать GETBOX с картинками.
Или делать отдельную кнопку для GETBOX.
Спасибо БОЛЬШОЕ !

 Отправлено: 17.02.26 12:23. Заголовок: Andrey пишет: Как с..

Andrey пишет:

цитата:

Как сменить bmp на кнопках в GetBox ?

через стандартные проперти никак, но есть вариант

 
 	    n := GetControlIndex ( cGetBox , cForm ) 
             CLButton_SetImage( _HMG_aControlRangeMin[n][2], "new.bmp" )  // new.bmp - новая картинка 
  
            в массиве  _HMG_aControlRangeMin[n] второй элемент это хендл первой кнопки hBtn1 ( которая правее ) в GETBOX, а третий элемент - второй кнопки hBtn2 
 

в принципе допилить SetProperty для GETBOX до понимания аргумента "IMAGE" с учетом вышеизложенного вообще без проблем - в пять строк кода можно уложиться

 Отправлено: 17.02.26 17:07. Заголовок: Спасибо большое Haz ..

Спасибо большое Haz !