Prevent query memo height being reduced to 0 pixels, which makes it non resizable for some reason. Fixes issue #1147.

This commit is contained in:
Ansgar Becker
2009-11-16 19:16:45 +00:00
parent ef5fbe225a
commit bb5c3f40da
2 changed files with 2 additions and 0 deletions

View File

@@ -1231,6 +1231,7 @@ object MainForm: TMainForm
Height = 4
Cursor = crSizeNS
Align = alTop
AutoSnap = False
ResizeStyle = rsUpdate
end
object LabelResultinfo: TLabel

View File

@@ -8451,6 +8451,7 @@ begin
QueryTab.spltQuery.Height := spltQuery.Height;
QueryTab.spltQuery.Cursor := spltQuery.Cursor;
QueryTab.spltQuery.ResizeStyle := spltQuery.ResizeStyle;
QueryTab.spltQuery.AutoSnap := spltQuery.AutoSnap;
QueryTab.LabelResultInfo := TLabel.Create(QueryTab.TabSheet);
QueryTab.LabelResultInfo.Parent := QueryTab.TabSheet;