Normalize node heights in dbtree and all other virtual trees, make them slightly less high. Keeping 120 DPI compatibility for editing boxes.

Cosmetic todo: Fix Vista selection colors and tree collapse/expand buttons
This commit is contained in:
Ansgar Becker
2008-09-04 19:22:35 +00:00
parent 63c7ce508c
commit ca726ca567
2 changed files with 1 additions and 3 deletions

View File

@@ -66,12 +66,10 @@ object MDIChild: TMDIChild
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
Indent = 16
Margin = 2
ParentShowHint = False
PopupMenu = popupTreeView
ShowHint = True
TabOrder = 0
TextMargin = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toRightClickSelect]

View File

@@ -2630,7 +2630,7 @@ begin
// Vist font fix: VT.Header doesn't have a ParentFont property, so we apply the font manually
InheritFont(VT.Header.Font);
// Resize hardcoded node height to work with different DPI settings
newHeight := VT.Canvas.TextHeight('A') + VT.TextMargin*2;
newHeight := VT.Canvas.TextHeight('A') + 6;
VT.DefaultNodeHeight := newHeight;
VT.Header.Height := newHeight;
end;