mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
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:
@@ -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]
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user