Post by Walt Decker on May 1, 2021 8:50:13 GMT -5
Since LB does not list the window styles it uses or recognizes I have put together a list of common styles:
WS.OVERLAPPED = HEXDEC("&H00000000")
WS.POPUP = HEXDEC("&H80000000")
WS.CHILD = HEXDEC("&H40000000")
WS.MINIMIZE = HEXDEC("&H20000000")
WS.VISIBLE = HEXDEC("&H10000000")
WS.DISABLED = HEXDEC("&H08000000")
WS.CLIPSIBLINGS = HEXDEC("&H04000000")
WS.CLIPCHILDREN = HEXDEC("&H02000000")
WS.MAXIMIZE = HEXDEC("&H01000000")
WS.CAPTION = HEXDEC("&H00C00000")
WS.BORDER = HEXDEC("&H00800000")
WS.DLGFRAME = HEXDEC("&H00400000")
WS.VSCROLL = HEXDEC("&H00200000")
WS.HSCROLL = HEXDEC("&H00100000")
WS.SYSMENU = HEXDEC("&H00080000")
WS.THICKFRAME = HEXDEC("&H00040000")
WS.GROUP = HEXDEC("&H00020000")
WS.TABSTOP = HEXDEC("&H00010000")
WS.MINIMIZEBOX = HEXDEC("&H00020000")
WS.MAXIMIZEBOX = HEXDEC("&H00010000")
WS.TILED = WS.OVERLAPPED
WS.ICONIC = WS.MINIMIZE
WS.SIZEBOX = WS.THICKFRAME
WS.TILEDWINDOW = WS.OVERLAPPEDWINDOW
'
' Common Window Styles
'
WS.OVERLAPPEDWINDOW = (WS.OVERLAPPED _
OR WS.CAPTION _
OR WS.SYSMENU _
OR WS.THICKFRAME _
OR WS.MINIMIZEBOX _
OR WS.MAXIMIZEBOX)
WS.POPUPWINDOW = (WS.POPUP _
OR WS.BORDER _
OR WS.SYSMENU)
WS.CHILDWINDOW = WS.CHILD
'
' Extended Window Styles
'
WS.EX.DLGMODALFRAME = HEXDEC("&H00000001")
WS.EX.NOPARENTNOTIFY = HEXDEC("&H00000004")
WS.EX.TOPMOST = HEXDEC("&H00000008")
WS.EX.ACCEPTFILES = HEXDEC("&H00000010")
WS.EX.TRANSPARENT = HEXDEC("&H00000020")
WS.EX.MDICHILD = HEXDEC("&H00000040")
WS.EX.TOOLWINDOW = HEXDEC("&H00000080")
WS.EX.WINDOWEDGE = HEXDEC("&H00000100")
WS.EX.CLIENTEDGE = HEXDEC("&H00000200")
WS.EX.CONTEXTHELP = HEXDEC("&H00000400")
WS.EX.RIGHT = HEXDEC("&H00001000")
WS.EX.LEFT = HEXDEC("&H00000000")
WS.EX.RTLREADING = HEXDEC("&H00002000")
WS.EX.LTRREADING = HEXDEC("&H00000000")
WS.EX.LEFTSCROLLBAR = HEXDEC("&H00004000")
WS.EX.RIGHTSCROLLBAR = HEXDEC("&H00000000")
WS.EX.CONTROLPARENT = HEXDEC("&H00010000")
WS.EX.STATICEDGE = HEXDEC("&H00020000")
WS.EX.APPWINDOW = HEXDEC("&H00040000")
WS.EX.OVERLAPPEDWINDOW = (WS.EX.WINDOWEDGE OR WS.EX.CLIENTEDGE)
WS.EX.PALETTEWINDOW = (WS.EX.WINDOWEDGE OR WS.EX.TOOLWINDOW OR WS.EX.TOPMOST)
WS.EX.LAYERED = HEXDEC("&H00080000")
WS.EX.NOINHERITLAYOUT = HEXDEC("&H00100000") ' Disable inheritence of mirroring by children
WS.EX.LAYOUTRTL = HEXDEC("&H00400000") ' Right to left mirroring
WS.EX.COMPOSITED = HEXDEC("&H02000000")
WS.EX.NOACTIVATE = HEXDEC("&H08000000")
DS.ABSALIGN = HEXDEC("&H01")
DS.SYSMODAL = HEXDEC("&H02")
DS.LOCALEDIT = HEXDEC("&H20") ' Edit items get Local storage.
DS.SETFONT = HEXDEC("&H40") ' User specified font for Dlg controls
DS.MODALFRAME = HEXDEC("&H80") ' Can be combined with WS.CAPTION
DS.NOIDLEMSG = HEXDEC("&H100") ' WM.ENTERIDLE message will not be sent
DS.SETFOREGROUND = HEXDEC("&H200") ' not in win3.1
DS.3DLOOK = HEXDEC("&H0004")
DS.FIXEDSYS = HEXDEC("&H0008")
DS.NOFAILCREATE = HEXDEC("&H0010")
DS.CONTROL = HEXDEC("&H0400")
DS.CENTER = HEXDEC("&H0800")
DS.CENTERMOUSE = HEXDEC("&H1000")
DS.CONTEXTHELP = HEXDEC("&H2000")
DS.SHELLFONT = (DS.SETFONT OR DS.FIXEDSYS)
DS.USEPIXELS = HEXDEC("&H8000")
'==========================================================
STATIC CONTROL
'==========================================================
SS.LEFT = HEXDEC("00000000")
SS.CENTER = HEXDEC("00000001")
SS.RIGHT = HEXDEC("00000002")
SS.ICON = HEXDEC("00000003")
SS.BLACKRECT = HEXDEC("00000004")
SS.GRAYRECT = HEXDEC("00000005")
SS.WHITERECT = HEXDEC("00000006")
SS.BLACKFRAME = HEXDEC("00000007")
SS.GRAYFRAME = HEXDEC("00000008")
SS.WHITEFRAME = HEXDEC("00000009")
SS.USERITEM = HEXDEC("0000000A")
SS.SIMPLE = HEXDEC("0000000B")
SS.LEFTNOWORDWRAP = HEXDEC("0000000C")
SS.OWNERDRAW = HEXDEC("0000000D")
SS.BITMAP = HEXDEC("0000000E")
SS.ENHMETAFILE = HEXDEC("0000000F")
SS.ETCHEDHORZ = HEXDEC("00000010")
SS.ETCHEDVERT = HEXDEC("00000011")
SS.ETCHEDFRAME = HEXDEC("00000012")
SS.TYPEMASK = HEXDEC("0000001F")
SS.REALSIZECONTROL = HEXDEC("00000040")
SS.NOPREFIX = HEXDEC("00000080") ' Don't do "&" character translation
SS.NOTIFY = HEXDEC("00000100")
SS.CENTERIMAGE = HEXDEC("00000200")
SS.RIGHTJUST = HEXDEC("00000400")
SS.REALSIZEIMAGE = HEXDEC("00000800")
SS.SUNKEN = HEXDEC("00001000")
SS.EDITCONTROL = HEXDEC("00002000")
SS.ENDELLIPSIS = HEXDEC("00004000")
SS.PATHELLIPSIS = HEXDEC("00008000")
SS.WORDELLIPSIS = HEXDEC("0000C000")
SS.ELLIPSISMASK = HEXDEC("0000C000")
==========================================================
BUTTON STYLES
==========================================================
BS.PUSHBUTTON = HEXDEC("&H00000000")
BS.DEFPUSHBUTTON = HEXDEC("&H00000001")
BS.CHECKBOX = HEXDEC("&H00000002")
BS.AUTOCHECKBOX = HEXDEC("&H00000003")
BS.RADIOBUTTON = HEXDEC("&H00000004")
BS.3STATE = HEXDEC("&H00000005")
BS.AUTO3STATE = HEXDEC("&H00000006")
BS.GROUPBOX = HEXDEC("&H00000007")
BS.USERBUTTON = HEXDEC("&H00000008")
BS.AUTORADIOBUTTON = HEXDEC("&H00000009")
BS.PUSHBOX = HEXDEC("&H0000000A")
BS.OWNERDRAW = HEXDEC("&H0000000B")
BS.TYPEMASK = HEXDEC("&H0000000F")
BS.LEFTTEXT = HEXDEC("&H00000020")
BS.TEXT = HEXDEC("&H00000000")
BS.ICON = HEXDEC("&H00000040")
BS.BITMAP = HEXDEC("&H00000080")
BS.LEFT = HEXDEC("&H00000100")
BS.RIGHT = HEXDEC("&H00000200")
BS.CENTER = HEXDEC("&H00000300")
BS.TOP = HEXDEC("&H00000400")
BS.BOTTOM = HEXDEC("&H00000800")
BS.VCENTER = HEXDEC("&H00000C00")
BS.PUSHLIKE = HEXDEC("&H00001000")
BS.MULTILINE = HEXDEC("&H00002000")
BS.NOTIFY = HEXDEC("&H00004000")
BS.FLAT = HEXDEC("&H00008000")
BS.RIGHTBUTTON = BS.LEFTTEXT
================================================================
LISTBOX STYLES
================================================================
LBS.NOTIFY = HEXDEC("0001")
LBS.SORT = HEXDEC("0002")
LBS.NOREDRAW = HEXDEC("0004")
LBS.MULTIPLESEL = HEXDEC("0008")
LBS.OWNERDRAWFIXED = HEXDEC("0010")
LBS.OWNERDRAWVARIABLE = HEXDEC("0020")
LBS.HASSTRINGS = HEXDEC("0040")
LBS.USETABSTOPS = HEXDEC("0080")
LBS.NOINTEGRALHEIGHT = HEXDEC("0100")
LBS.MULTICOLUMN = HEXDEC("0200")
LBS.WANTKEYBOARDINPUT = HEXDEC("0400")
LBS.EXTENDEDSEL = HEXDEC("0800")
LBS.DISABLENOSCROLL = HEXDEC("1000")
LBS.NODATA = HEXDEC("2000")
LBS.NOSEL = HEXDEC("4000")
LBS.COMBOBOX = HEXDEC("8000")
LBS.STANDARD = (LBS.NOTIFY OR LBS.SORT OR %WS_VSCROLL OR %WS_BORDER)
===================================================================
COMBOBOX STYLES
===================================================================
CBS.SIMPLE = HEXDEC("0001")
CBS.DROPDOWN = HEXDEC("0002")
CBS.DROPDOWNLIST = HEXDEC("0003")
CBS.OWNERDRAWFIXED = HEXDEC("0010")
CBS.OWNERDRAWVARIABLE = HEXDEC("0020")
CBS.AUTOHSCROLL = HEXDEC("0040")
CBS.OEMCONVERT = HEXDEC("0080")
CBS.SORT = HEXDEC("0100")
CBS.HASSTRINGS = HEXDEC("0200")
CBS.NOINTEGRALHEIGHT = HEXDEC("0400")
CBS.DISABLENOSCROLL = HEXDEC("0800")
CBS.UPPERCASE = HEXDEC("2000")
CBS.LOWERCASE = HEXDEC("4000")
==================================================================
EDIT CONTROL STYLES
==================================================================
ES.LEFT = HEXDEC("0000")
ES.CENTER = HEXDEC("0001")
ES.RIGHT = HEXDEC("0002")
ES.MULTILINE = HEXDEC("0004")
ES.UPPERCASE = HEXDEC("0008")
ES.LOWERCASE = HEXDEC("0010")
ES.PASSWORD = HEXDEC("0020")
ES.AUTOVSCROLL = HEXDEC("0040")
ES.AUTOHSCROLL = HEXDEC("0080")
ES.NOHIDESEL = HEXDEC("0100")
ES.OEMCONVERT = HEXDEC("0400")
ES.READONLY = HEXDEC("0800")
ES.WANTRETURN = HEXDEC("1000")
ES.NUMBER = HEXDEC("2000")
