Issue #2131: add minimal border to column default editor and data type editor

This commit is contained in:
Ansgar Becker
2025-04-22 06:57:24 +02:00
parent 8929f32d9b
commit dc19cda1d5

View File

@ -1269,7 +1269,7 @@ begin
FPanel.ParentBackground := False; FPanel.ParentBackground := False;
FPanel.Color := GetThemeColor(clWindow); FPanel.Color := GetThemeColor(clWindow);
//FPanel.BevelKind := bkFlat; //FPanel.BevelKind := bkFlat;
FPanel.BevelOuter := bvNone; FPanel.BevelOuter := bvRaised;
FPanel.DoubleBuffered := True; // Avoid flicker? FPanel.DoubleBuffered := True; // Avoid flicker?
FMainControl := FPanel; FMainControl := FPanel;
@ -1624,7 +1624,7 @@ begin
FTreeSelect.Header.Columns.Add; FTreeSelect.Header.Columns.Add;
FTreeSelect.Parent := FParentForm; FTreeSelect.Parent := FParentForm;
FTreeSelect.TextMargin := 0; FTreeSelect.TextMargin := 0;
FTreeSelect.BorderStyle := bsNone; //FTreeSelect.BorderStyle := bsNone;
//FTreeSelect.BevelKind := bkFlat; //FTreeSelect.BevelKind := bkFlat;
//FTreeSelect.BevelInner := bvNone; //FTreeSelect.BevelInner := bvNone;
FTreeSelect.IncrementalSearch := isAll; FTreeSelect.IncrementalSearch := isAll;