Solution for smartphone to show dialogs with keyboard

[Silvio]

Perhaps I found a solution for the smartphone :
see this image :




I only made this:

Code: Select all  Expand view  RUN

#define EVENT_SIP      224


 oDlgClient:bSettingChange := {|uVal| PocketEvent( uVal,oDlgClient ) }

...
   ACTIVATE DIALOG oDlgClient;
   ON INIT ( DlgFullScreen( oDlgClient:hWnd ), oDlgClient:SetMenu( DialogBar(oDlgClient,oLbx) ) )


*----------------------------------
STATIC FUNCTION PocketEvent( uVal,oDlg )
*----------------------------------
   DO CASE
      CASE uVal == EVENT_SIP ; Dimensiona(oDlg)
   ENDCASE
RETU NIL
 
 
 
*---------------------------
STATIC FUNCTION Dimensiona(oDlg)
*---------------------------
    IF SipInfo()
        MoveWindow( oDlg:hWnd, 25, 0, 240, 185 )
     ELSE
        DlgFullScreen( oDlg:hWnd )
      // MoveWindow( oDlg:hWnd, 28, 10, 220, 260 )
    ENDIF
    oDlg:Refresh()
RETU NIL

 

the problem I cannot see the listbox bottom scroll .... where is it ?

[Otto]

Hello Silvio,
try to change the height of the listbox
oBrw:nHeight = 105
oBrw:refresh()
Best regards,
Otto

[Silvio]

THANKS Otto,
but I wanted to use the function Dimensiona for all my dialogs into my application.
On my dialog use listboxes and also folders.
On that dialog not is a folder but a listbox to another there is a folder and not listbox
If I insert olbx:nHeight:=105 on my function I must to control if this control exist ....
I hope you understand me