Semen,
You are a Gentlemen and a "Real Programming Scholar".
That works great!!!
Phil
------------------
Announcement
Collapse
No announcement yet.
Avoiding dropdown menu
Collapse
X
-
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:
-
-
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).]Tags: None
-
Leave a comment: