|
@@ -4862,7 +4862,8 @@ Type TWindowsTreeView Extends TWindowsGadget
|
|
|
|
|
|
Self.style = style
|
|
Self.style = style
|
|
xstyle=WS_EX_CLIENTEDGE
|
|
xstyle=WS_EX_CLIENTEDGE
|
|
- wstyle=WS_CHILD|TVS_HASLINES|TVS_HASBUTTONS|TVS_LINESATROOT|TVS_SHOWSELALWAYS|TVS_NOTOOLTIPS|WS_CLIPSIBLINGS
|
|
|
|
|
|
+ wstyle=WS_CHILD|TVS_SHOWSELALWAYS|TVS_NOTOOLTIPS|WS_CLIPSIBLINGS|TVS_HASBUTTONS
|
|
|
|
+ If Not(style&TREEVIEW_WIN32_NO_DECORATION) wstyle:|TVS_HASLINES|TVS_LINESATROOT
|
|
If Not(style&TREEVIEW_DRAGNDROP) wstyle:|TVS_DISABLEDRAGDROP
|
|
If Not(style&TREEVIEW_DRAGNDROP) wstyle:|TVS_DISABLEDRAGDROP
|
|
|
|
|
|
parent=group.query(QUERY_HWND_CLIENT)
|
|
parent=group.query(QUERY_HWND_CLIENT)
|