Listbox appearance problem

[vagblad]

Hello all,

I am encountering a problem with the display of a Listbox in one of our apps. I want the listbox to .Show when a certain Editbox gets focus. It works like that but any control that is "under" the Listbox shows as well.
Small sample images below:
No listbox yet

1.JPG (15.77 KiB) Viewed 1934 times

Editbox got focus and now Listbox appears.

2.JPG (16.89 KiB) Viewed 1934 times

This happens when you hover over the listbox with the mouse.

I've also attached a small sample .exe and sourcecode(code is for MiniGUi Extended) if you want to see it yourselves. Anyone has any idea or a workaround for that behaviour? Since we don't seem to have any kind of layer(strata) management for the controls like other environments do. Unless i am mistaken.
Thanks a lot.

[mol]

Maybe try to hide covered controls when your listbox get focus. After loosing focus, you can show control again

[dragancesu]

Maybe

Code: Select all

     DEFINE TEXTBOX Text_2
            ROW    50
            COL    30
            WIDTH  120
            HEIGHT 24
            FONTNAME 'Arial'
            ONGOTFOCUS ShowList()
            ONLOSTFOCUS HideList()
     END TEXTBOX 

like Mol said

[mol]

I'm using official hmg 3.4.4:

Code: Select all

#include <minigui.ch>

FUNCTION Main
SET NAVIGATION EXTENDED
   LOAD WINDOW Main
   Main.Center
   Main.Activate

RETURN( NIL )

PROCEDURE ShowList()

 Main.List_1.Visible := .T.
 Main.Text_3.Visible := .f.
 Main.Label_1.Visible := .f.
 Main.List_1.Height := 100
return

PROCEDURE HideList()

 Main.List_1.Visible := .F.  
 Main.List_1.Height := 24
 Main.Text_3.Visible := .t.
 Main.Label_1.Visible := .t.
return

main.fmg:

Code: Select all

* HMG-IDE ANSI Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb

DEFINE WINDOW TEMPLATE AT 288 , 463 WIDTH 550 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL  CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE TEXTBOX Text_1
        ROW    20
        COL    30
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE TEXTBOX Text_2
        ROW    50
        COL    30
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS ShowList()
        ONLOSTFOCUS HideList()
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER HideList()
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE TEXTBOX Text_3
        ROW    80
        COL    30
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        VALUE ""
    END TEXTBOX

    DEFINE LISTBOX List_1
        ROW    80
        COL    30
        WIDTH  120
        HEIGHT 100
        ITEMS {"abc","efg","hij"}
        VALUE 0
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS ShowList()
        ONLOSTFOCUS HideList()
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
        ONDBLCLICK Nil
        HELPID Nil
        TABSTOP .F.
        VISIBLE .F.
        SORT .F.
        MULTISELECT .F.
        DRAGITEMS .F.
    END LISTBOX

    DEFINE LABEL Label_1
        ROW    140
        COL    30
        WIDTH  120
        HEIGHT 24
        VALUE "Label_1"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        HELPID Nil
        VISIBLE .T.
        TRANSPARENT .T.
        ACTION Nil
        AUTOSIZE .F.
        BACKCOLOR NIL
        FONTCOLOR NIL
    END LABEL

END WINDOW

[vagblad]

thank you Mol and Dragan