Posts: 57
Threads: 17
Joined: Dec 2008
How do i make a double title bar on dialog.. instead of how it is by default a single line make it double?
Posts: 12,073
Threads: 140
Joined: Dec 2002
Like in Internet Explorer on Vista?
Posts: 57
Threads: 17
Joined: Dec 2008
Posts: 12,073
Threads: 140
Joined: Dec 2002
Function
dlg_extend_caption
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages
if(!ShowDialog("dlg_extend_caption" &dlg_extend_caption 0)) ret
;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 223 143 "Dialog"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2030006 "*" "" ""
ret
;messages
type MARGINS cxLeftWidth cxRightWidth cyTopHeight cyBottomHeight
dll- dwmapi #DwmExtendFrameIntoClientArea hWnd MARGINS*pMarInset
dll- dwmapi #DwmIsCompositionEnabled *pfEnabled
def WM_DWMCOMPOSITIONCHANGED 0x031E
sel message
,case WM_INITDIALOG
,;g1
,if(_winnt>=6 and !DwmIsCompositionEnabled(&_i) and _i)
,,MARGINS m.cyTopHeight=50
,,DwmExtendFrameIntoClientArea hDlg &m
,
,case WM_ERASEBKGND
,if(_winnt>=6 and !DwmIsCompositionEnabled(&_i) and _i)
,,RECT r; GetClientRect hDlg &r
,,FillRect wParam &r COLOR_BTNFACE+1
,,r.bottom=50
,,FillRect wParam &r GetStockObject(BLACK_BRUSH)
,,ret DT_Ret(hDlg 1)
,
,case WM_DWMCOMPOSITIONCHANGED goto g1
,
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
This is for Vista and later.
Posts: 57
Threads: 17
Joined: Dec 2008
Posts: 262
Threads: 63
Joined: Nov 2005
What am I missing? I am using Win XP and when I run this macro all it does is show a normal dialog. Does this need Vista or can I use XP? Can you tell me what is Double Title Bar?
Posts: 1,000
Threads: 253
Joined: Feb 2008
The title bar is twice the height. It works on one of my computers but not the other...?
Posts: 12,073
Threads: 140
Joined: Dec 2002
This is for Vista and later, where title bar of all windows is partially transparent. Part or all client area also can be transparent like title bar. Like in IE and folders.
