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

3
source/routine_editor.pas
View File

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