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

Only make first part of data type to uppercase, not the part in parentheses. See http://www.heidisql.com/forum.php?t=17845

Browse Source
This commit is contained in:
Ansgar Becker
2015-02-22 17:06:43 +00:00
parent 0283ac935c
commit 285007f9ad
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/routine_editor.pas
View File

@@ -4,7 +4,7 @@ interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SynEdit, SynMemo, StdCtrls,
ComCtrls, ToolWin, VirtualTrees,
ComCtrls, ToolWin, VirtualTrees, SynRegExpr,
dbconnection, helpers, gnugettext, Vcl.Menus;
type
@@ -360,11 +360,22 @@ procedure TfrmRoutineEditor.listParametersNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: String);
var
Param: TRoutineParam;
rx: TRegExpr;
begin
Param := Parameters[Node.Index];
case Column of
1: Param.Name := NewText;
2: Param.Datatype := UpperCase(NewText);
2: begin
rx := TRegExpr.Create;
rx.ModifierG := True;
rx.Expression := '^(\w+)(.*)$';
if rx.Exec(NewText) then
NewText := UpperCase(rx.Match[1]) + rx.Match[2]
else
NewText := UpperCase(NewText);
rx.Free;
Param.Datatype := NewText;
end;
3: Param.Context := NewText;
end;
Modification(Sender);