Skip to content
Permalink
Browse files

Fix bug #814 Query Tab Splitter

  • Loading branch information
ansgarbecker committed Oct 20, 2008
1 parent 27783f4 commit 7ed97b3fe2f989b19bd282ae00c64de8e7b4871d
Showing with 22 additions and 0 deletions.
  1. +2 −0 source/childwin.dfm
  2. +20 −0 source/childwin.pas
@@ -1007,6 +1007,7 @@ object MDIChild: TMDIChild
BevelOuter = bvNone
Constraints.MinHeight = 10
TabOrder = 0
OnCanResize = pnlQueryMemoCanResize
object spltQueryHelpers: TSplitter
Left = 332
Top = 0
@@ -1078,6 +1079,7 @@ object MDIChild: TMDIChild
Align = alRight
BevelOuter = bvNone
TabOrder = 1
OnCanResize = pnlQueryHelpersCanResize
object tabsetQueryHelpers: TTabSet
Left = 0
Top = 72
@@ -454,6 +454,10 @@ TMDIChild = class(TForm)
var Allowed: Boolean);
procedure GridFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex);
procedure pnlQueryHelpersCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure pnlQueryMemoCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);

private
uptime : Integer;
@@ -6622,4 +6626,20 @@ procedure TMDIChild.FocusGridCol(Grid: TBaseVirtualTree; Column: TColumnIndex);
end;


procedure TMDIChild.pnlQueryHelpersCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
// Ensure minimum width for query helpers while resizing
Resize := NewWidth >= 20;
end;


procedure TMDIChild.pnlQueryMemoCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
// Ensure visibility of query memo while resizing
Resize := NewWidth >= pnlQueryHelpers.Width + spltQueryHelpers.Width + 40;
end;


end.

0 comments on commit 7ed97b3

Please sign in to comment.
You can’t perform that action at this time.