opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add splitter on procedure editor. See http://www.heidisql.com/forum.php?t=21106

Browse Source
This commit is contained in:
Ansgar Becker
2016-04-13 17:27:40 +00:00
parent 527eed1bc4
commit ac8d6bb560
2 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/routine_editor.dfm
View File

@ -10,7 +10,7 @@ object frmRoutineEditor: TfrmRoutineEditor
object lblSQLcode: TLabel
AlignWithMargins = True
Left = 3
Top = 175
Top = 183
Width = 600
Height = 13
Align = alTop
@ -27,6 +27,15 @@ object frmRoutineEditor: TfrmRoutineEditor
Caption = 'You have no privilege to this routine.'
Visible = False
end
object spltTop: TSplitter
Left = 0
Top = 172
Width = 606
Height = 8
Cursor = crSizeNS
Align = alTop
ResizeStyle = rsUpdate
end
object btnSave: TButton
Left = 165
Top = 455
@ -62,9 +71,9 @@ object frmRoutineEditor: TfrmRoutineEditor
object SynMemoBody: TSynMemo
AlignWithMargins = True
Left = 3
Top = 194
Top = 202
Width = 600
Height = 250
Height = 242
Margins.Bottom = 40
SingleLineMode = False
Align = alClient
@ -110,8 +119,9 @@ object frmRoutineEditor: TfrmRoutineEditor
Top = 3
Width = 600
Height = 166
ActivePage = tabCreateCode
ActivePage = tabOptions
Align = alTop
Constraints.MinHeight = 166
Images = MainForm.ImageListMain
TabOrder = 0
object tabOptions: TTabSheet

3
source/routine_editor.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SynEdit, SynMemo, StdCtrls,
ComCtrls, ToolWin, VirtualTrees, SynRegExpr,
dbconnection, helpers, gnugettext, Vcl.Menus;
dbconnection, helpers, gnugettext, Vcl.Menus, Vcl.ExtCtrls;
type
TFrame = TDBObjectEditor;
@ -48,6 +48,7 @@ type
Selectall1: TMenuItem;
Copy1: TMenuItem;
Saveastextfile1: TMenuItem;
spltTop: TSplitter;
procedure comboTypeSelect(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnHelpClick(Sender: TObject);