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 default length/set in parentheses when user selects a datatype for a procedure parameter. Fixes issue #1698.

Browse Source
This commit is contained in:
Ansgar Becker
2010-02-17 08:36:59 +00:00
parent 787005186d
commit 526a4c5424
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/routine_editor.pas
View File

@ -341,6 +341,7 @@ var
VT: TVirtualStringTree; VT: TVirtualStringTree;
EnumEditor: TEnumEditorLink; EnumEditor: TEnumEditorLink;
i: Integer; i: Integer;
Datatype: String;
begin begin
VT := Sender as TVirtualStringTree; VT := Sender as TVirtualStringTree;
if Column = 1 then if Column = 1 then
@ -349,8 +350,12 @@ begin
EnumEditor := TEnumEditorLink.Create(VT); EnumEditor := TEnumEditorLink.Create(VT);
EnumEditor.AllowCustomText := True; EnumEditor.AllowCustomText := True;
EnumEditor.ValueList := TStringList.Create; EnumEditor.ValueList := TStringList.Create;
for i:=Low(Datatypes) to High(Datatypes) do for i:=Low(Datatypes) to High(Datatypes) do begin
EnumEditor.ValueList.Add(Datatypes[i].Name); Datatype := Datatypes[i].Name;
if Datatypes[i].RequiresLength then
Datatype := Datatype + '(' + Datatypes[i].DefLengthSet + ')';
EnumEditor.ValueList.Add(Datatype);
end;
EditLink := EnumEditor; EditLink := EnumEditor;
end else if Column = 3 then begin end else if Column = 3 then begin
EnumEditor := TEnumEditorLink.Create(VT); EnumEditor := TEnumEditorLink.Create(VT);