Auto-uppercase data types of routine parameters. Fixes issue #3497.

This commit is contained in:
Ansgar Becker
2014-03-10 04:01:30 +00:00
parent 23013f0499
commit 25b471be0e

View File

@ -360,7 +360,7 @@ begin
Param := Parameters[Node.Index];
case Column of
1: Param.Name := NewText;
2: Param.Datatype := NewText;
2: Param.Datatype := UpperCase(NewText);
3: Param.Context := NewText;
end;
Modification(Sender);