opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix bug #814 Query Tab Splitter

Browse Source
This commit is contained in:
Ansgar Becker
2008-10-20 22:36:17 +00:00
parent 27783f402f
commit 7ed97b3fe2
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/childwin.dfm
View File

@@ -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

20
source/childwin.pas
View File

@@ -454,6 +454,10 @@ type
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 @@ begin
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.