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