Announcement

Collapse
No announcement yet.

Avoiding dropdown menu

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Phil Tippit
    replied
    Semen,

    You are a Gentlemen and a "Real Programming Scholar".

    That works great!!!

    Phil

    ------------------

    Leave a comment:


  • Semen Matusovski
    replied
    Phil --
    try this direction
    Code:
       #Compile Exe
       #Dim All
       #Register None
       #Include "win32api.INC"
    
       CallBack Function DlgProc
          Select Case CbMsg
             Case %WM_NCLBUTTONDOWN
                If CbWparam = %HTSYSMENU Then Function = 1: Exit Function
             Case %WM_NCRBUTTONDOWN
                If CbWparam = %HTCAPTION Or CbWparam = %HTSYSMENU Then Function = 1: Exit Function
          End Select
       End Function
    
       Function PbMain
          Local hDlg As Long
          Dialog New 0, "No menu", , , 100, 60, _
             %WS_CAPTION Or %WS_SYSMENU Or %WS_MAXIMIZEBOX Or %WS_MINIMIZEBOX Or %WS_THICKFRAME To hDlg
          Control Add Button, hDlg, %IDOK, "&Nothing", 30, 20, 40, 14
          PostMessage  hDlg, %WM_SETICON, %ICON_SMALL, LoadIcon(ByVal 0&, ByVal %IDI_ASTERISK)
          Dialog Show Modal hDlg, Call DlgProc
      End Function


    ------------------
    E-MAIL: [email protected]

    Leave a comment:


  • Phil Tippit
    started a topic Avoiding dropdown menu

    Avoiding dropdown menu

    Gentlemen:

    How do I stop the dropdown MENU WITH Restore,Move,SIZE,MIN,MAX,CLOSE
    FROM being displayed when I place a icon IN the Title Area.

    IF I don't put the icon in the Title Area, I can move the dialog around
    by holding DOWN the mouse anywhere IN the title area.

    WITH the icon IN place, the same is true anywhere over the TEXT IN the
    title area, except over the icon itself, THEN I GET the dropdown menu.

    How DO I destroy the dropdown after I place the icon?

    Code:
    WINMAIN
        hpbcicon&=loadicon(hCurInstance,"PSSOFT")  ' hpbcicon& is global
        ShowDialog_pbcodeform 0
    END FUNCTION
    
    SUB ShowDialog_pbcodeform(BYVAL hParent&)
        LOCAL Style&, ExStyle&
        LOCAL N&, CT&        '  Variables used for Reading Data in Arrays for Listbox and Combobox
        '   hParent& = 0 if no parent Dialog
        Style& = %WS_POPUP OR %DS_MODALFRAME OR %WS_CAPTION OR %WS_MINIMIZEBOX OR %WS_SYSMENU OR %DS_SYSMODAL
        ExStyle& = 0
        DIALOG NEW hParent&, "Some Kind of Title", 0,50,  427,  49, Style&, ExStyle& TO hpbcodeform&
                  ' Put icon in dialog title area
        IF hpbcicon& THEN n&=SendMessage(hpbcodeform&, %WM_SETICON, %ICON_SMALL, hpbcicon&)
    END SUB
    ------------------


    [This message has been edited by Phil Tippit (edited January 25, 2001).]
Working...
X