Minimize the borders of the new data type selector, they should not be too thick for an inplace editor. (Only applies for Windows XP without theming)

This commit is contained in:
Ansgar Becker
2009-07-08 20:48:17 +00:00
parent a1ab1d8a9a
commit ce42e054ff

View File

@@ -1474,6 +1474,9 @@ begin
FTreeSelect.Header.Columns.Add;
FTreeSelect.Parent := ParentControl;
FTreeSelect.TextMargin := 0;
FTreeSelect.BorderStyle := bsNone;
FTreeSelect.BevelKind := bkFlat;
FTreeSelect.BevelInner := bvNone;
FTreeSelect.RootNodeCount := Length(DatatypeCategories);
FTreeSelect.OnGetText := DoTreeSelectGetText;
FTreeSelect.OnInitNode := DoTreeSelectInitNode;