Tweet
I've always been annoyed by long Style lines (%WS_MAXIMIZE or %WS_MAXIMIZEBOX or %WS_MINIMIZE or %WS_MINIMIZEBOX or %WS_OVERLAPPED or %WS_OVERLAPPEDWINDOW ...). A pain in the neck for me to edit, fool around with etc. I came up with something a lot easier to use. More flexible too.
If creating more than one dialog and using different styles then you'd have to create a separate Macro for each one (or easier to C&P the appropriate styles from the existing Macros).
'
If creating more than one dialog and using different styles then you'd have to create a separate Macro for each one (or easier to C&P the appropriate styles from the existing Macros).
'
Code:
'PBWIN 9.00 - WinApi 05/2008 - XP Pro SP3
#Dim All
#Compile Exe
#Include "WIN32API.INC"
#Include "COMDLG32.INC"
#Include "InitCtrl.inc"
'
Global hdlg As Dword
Global Dlg_Hght&, Dlg_Wdth&
'
Macro Dialog_Styles
Local Stile As Long
' Stile = Stile Or %DS_3DLOOK ' Give the dialog box a non-bold font, and draw three-dimensional borders around controls in the dialog box.
' ' The %DS_3DLOOK Style Is Not required by applications marked With #Option Version4 Or #Option Version5; As Windows automatically applies the 3D appearance. DDT dialogs are always Created With this Style. (Default)
' Stile = Stile or %DS_ABSALIGN ' Indicate that the coordinates Of the Dialog Box are screen coordinates; otherwise, Windows assumes they are Client coordinates.
' Stile = Stile or %DS_CENTER ' Center the dialog box in the working area (the area not obscured by the task bar and system tray). This is the default if x& and y& are not specified.
' Stile = Stile Or %DS_CENTERMOUSE ' Center the mouse cursor in the dialog box when the dialog is initially created.
' Stile = Stile Or %DS_CONTEXTHELP ' Include a question mark in the title bar of the dialog box. When the user clicks the question mark, the cursor changes to a question mark with a pointer. If the user then clicks a control in the dialog box,
' ' the Dialog CallBack receives a %WM_HELP message. This Style cannot be used With the %WS_MAXIMIZEBOX And %WS_MINIMIZEBOX styles. Also see %WS_EX_CONTEXTHELP.
' Stile = Stile or %DS_CONTROL ' Create a dialog that works as a child control of another dialog, smoothing the keyboard focus interface across the two dialogs when the TAB key or control accelerators are used.
' ' Typically used For dialogs that form the "pages" For Tab controls And Property-sheets.
' Stile = Stile or %DS_MODALFRAME ' Create a dialog box with a modal dialog-box frame that can be combined with a title bar and System menu by specifying the %WS_CAPTION and %WS_SYSMENU styles. (default)
' Stile = Stile or %DS_NOFAILCREATE ' The dialog is created regardless of any errors that may occur during the creation phase. DDT dialogs are always created with this style. (default)
' Stile = Stile or %DS_SETFONT ' The font to be used by a DDT dialog and its controls can be predetermined with the DIALOG FONT statement. If the DIALOG FONT statement is not used, the default font (MS Sans Serif, 8 point) is used.
' ' The Size Of the Dialog Font proportionately affects the conversion Of Dialog Units values into Pixels, so an increase In Default Font Size will automatically Create a larger Dialog, even through the Dialog dimensions
' ' have remained constant. As Child controls are added To a %DS_SETFONT Dialog, they will be sent a %WM_SETFONT message To ensure they also make use Of the specified Dialog Font.
' ' DDT dialogs are always Created With this Style. (Default)
' Stile = Stile or %DS_SETFOREGROUND ' Bring the dialog box to the foreground. Internally, Windows calls the SetForegroundWindow API function for the dialog box.
' Stile = Stile or %DS_SYSMODAL ' Create a system-modal dialog box. This style causes the dialog box to have the %WS_EX_TOPMOST style, but otherwise has no effect on the dialog box or the behavior of other applications
' ' And windows when the Dialog Box Is displayed.
Stile = Stile Or %WS_BORDER ' Create a dialog that has a thin-line border.
Stile = Stile Or %WS_CAPTION ' Create a dialog that has a title bar. Includes the %WS_BORDER and %WS_DLGFRAME styles. When this style is used, the width& and height& parameters specify the size of the client area of the dialog;
' ' otherwise, they specify the outer dimensions Of the Dialog. (Default)
' Stile = Stile or %WS_CHILD ' Create a child dialog. Cannot be used with the %WS_POPUP style. Typically used with %DS_CONTROL for tab control and property sheet "pages".
' Stile = Stile or %WS_CLIPCHILDREN ' Exclude the area occupied by child controls when drawing occurs on the dialog background. FRAME and LINE controls on a dialog with this style usually use the extended style %WS_EX_TRANSPARENT
' ' so the background Of those controls Is drawn by the Dialog before the controls are drawn. %WS_CLIPCHILDREN Is commonly used To reduce ReDraw flicker when a %WS_THICKFRAME Style Dialog Is being resized.
' Stile = Stile or %WS_CLIPSIBLINGS ' Child controls are clipped (not overdrawn) by one another when the dialog window is repainted. (default)
' Stile = Stile or %WS_DISABLED ' Create a dialog that is initially disabled. A disabled dialog cannot receive input from the user.
' Stile = Stile or %WS_DLGFRAME ' Create a window that has a border of the style typically used with dialog boxes. (default)
Stile = Stile Or %WS_HSCROLL ' Dialog contains a horizontal scroll bar.
' Stile = Stile or %WS_ICONIC ' Create a dialog that is initially minimized, the same as the %WS_MINIMIZE style.
' Stile = Stile Or %WS_MAXIMIZE ' Create a dialog that is initially maximized.
Stile = Stile Or %WS_MAXIMIZEBOX ' Create a dialog that has a Maximize button. Use with the %WS_SYSMENU style.
' Stile = Stile or %WS_MINIMIZE ' Create a dialog that is initially minimized, the same as the %WS_ICONIC style.
Stile = Stile Or %WS_MINIMIZEBOX ' Create a dialog that has a Minimize button. Use with the %WS_SYSMENU style.
' Stile = Stile or %WS_OVERLAPPED ' Create an overlapped window. An overlapped window has a title bar (caption) and a border. Synonym of the obsolete style %WS_TILED.
' Stile = Stile or %WS_OVERLAPPEDWINDOW ' Combination style producing an overlapping dialog. Comprises %WS_CAPTION, %WS_SYSMENU, %WS_THICKFRAME, %WS_MINIMIZEBOX, %WS_MAXIMIZEBOX, and %WS_OVERLAPPED styles.
' Stile = Stile or %WS_POPUP ' Create a popup dialog. When used by itself, a flat dialog is created with no caption or borders. Combine with %DS_MODALFRAME to create a 3D border. A popup dialog can overlap another window or dialog. (default)
' Stile = Stile or %WS_POPUPWINDOW ' Create a popup dialog but with a border and system menu. Comprises %WS_BORDER, %WS_POPUP and %WS_SYSMENU. Combine %WS_POPUPWINDOW with %WS_CAPTION to make the Window menu visible.
Stile = Stile Or %WS_SYSMENU ' Create a dialog that has a System-menu box in its title bar. Must be used with the %WS_CAPTION style.
Stile = Stile Or %WS_THICKFRAME ' Create a dialog that has a sizing border. That is, the dialog will be resizable.
Stile = Stile Or %WS_VSCROLL ' Dialog contains a vertical scroll bar. Also see %WS_EX_LEFTSCROLLBAR
End Macro
'
Macro Dialog_ExStyles
Local ExStile As Long
'ExStile = ExStile Or %WS_EX_ACCEPTFILES ' The dialog accepts drag+drop files. The dialog Callback Function receives a %WM_DROPFILES message when files have been dropped onto the dialog.
'ExStile = ExStile Or %WS_EX_APPWINDOW ' Force a top-level dialog onto the application taskbar when the window is minimized.
'ExStile = ExStile Or %WS_EX_CLIENTEDGE ' Dialog has a border with a sunken edge.
'ExStile = ExStile Or %WS_EX_CONTEXTHELP ' Include a question mark in the title bar of the dialog. When the user clicks the question mark, the cursor changes to a question mark with a pointer. If the user then clicks a child window,
' ' the child receives a %WM_HELP message. Also see %DS_CONTEXTHELP.
'ExStile = ExStile Or %WS_EX_CONTROLPARENT ' The user may navigate among the child dialogs of the window by using the TAB key. See %DS_CONTROL.
'ExStile = ExStile Or %WS_EX_LEFT ' Dialog has generic "left-aligned" properties. (default)
'ExStile = ExStile Or %WS_EX_LEFTSCROLLBAR ' If present, the vertical scroll bar is positioned to the left of the client area. Also see %WS_VSCROLL.
'ExStile = ExStile Or %WS_EX_LTRREADING ' Display the dialog text using Left to Right reading-order properties. (default)
'ExStile = ExStile Or %WS_EX_MDICHILD ' Create a MDI child window.
'ExStile = ExStile Or %WS_EX_NOPARENTNOTIFY ' Suppress %WM_PARENTNOTIFY messages when dialog is created or destroyed.
'ExStile = ExStile Or %WS_EX_OVERLAPPEDWINDOW ' Comprised of the %WS_EX_CLIENTEDGE and %WS_EX_WINDOWEDGE styles.
'ExStile = ExStile Or %WS_EX_PALETTEWINDOW ' Comprised of the %WS_EX_WINDOWEDGE, %WS_EX_TOOLWINDOW and %WS_EX_TOPMOST styles.
'ExStile = ExStile Or %WS_EX_RIGHT ' Dialog has generic "right-aligned" properties that depend on the window class. This style has an effect only if the shell language is Hebrew, Arabic, or another language that supports reading order alignment.
' ' Otherwise, the style is ignored.
'ExStile = ExStile Or %WS_EX_RIGHTSCROLLBAR ' If present, the vertical scroll bar is positioned to the right of the client area. See %WS_VSCROLL. (default)
'ExStile = ExStile Or %WS_EX_RTLREADING ' If the shell language is Hebrew, Arabic, or another language that supports reading order alignment, the dialog text is displayed using Right to Left reading-order properties. For other languages, the style is ignored.
'ExStile = ExStile Or %WS_EX_STATICEDGE ' Dialog has a 3D border. Primarily used for dialogs that do not require user-input.
'ExStile = ExStile Or %WS_EX_TOOLWINDOW ' Create a tool window (a window intended to be used as a floating toolbar). A tool window has a shorter than normal caption area and the dialog caption is drawn using a smaller font.
' ' A tool window does not appear in the task bar,
' ' or in the window that appears when the user presses ALT+TAB. The hybrid versions of Windows (95/98/ME) may require this extended style to be added after creation, using the SetWindowLong API function.
'ExStile = ExStile Or %WS_EX_TOPMOST ' Place dialog above all non-topmost windows and keep it above them, even while the dialog is deactivated.
'ExStile = ExStile Or %WS_EX_TRANSPARENT ' Controls/windows beneath the dialog are drawn before the dialog is drawn. The dialog is deemed transparent because elements behind the dialog have already been painted - the dialog itself is not drawn differently.
' ' True transparency is achieved by using Regions - see MSDN for more information.
'ExStile = ExStile Or %WS_EX_WINDOWEDGE ' Dialog has a border with a raised edge
End Macro
'''
'''
CallBack Function Dialog_Processor
End Function
'
Function PBMain
Dialog_Styles 'Set Dialog styles
Dialog_ExStyles ' ""
Dialog New Pixels, hdlg, "Demo", , , 400, 400, Stile, ExStile To hdlg
Dialog Show Modal hDlg Call Dialog_Processor
End Function 'Applikation beendendone
'
Comment