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

Issue #2131: add grid editor links unit

Browse Source
This commit is contained in:
Ansgar Becker
2025-04-21 20:40:14 +02:00
parent a4daba9b00
commit ed8c248efa
9 changed files with 1932 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/routine_editor.pas
View File

@ -96,7 +96,7 @@ type
implementation
uses main, dbstructures, dbstructures.mysql;
uses main, dbstructures, dbstructures.mysql, grideditlinks;
{$R *.lfm}
@ -389,14 +389,14 @@ procedure TfrmRoutineEditor.listParametersCreateEditor(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
var
VT: TLazVirtualStringTree;
//EnumEditor: TEnumEditorLink;
EnumEditor: TEnumEditorLink;
Datatype: String;
DBDatatype: TDBDatatype;
begin
VT := Sender as TLazVirtualStringTree;
if Column = 1 then
EditLink := TStringEditLink.Create
{else if Column = 2 then begin
else if Column = 2 then begin
EnumEditor := TEnumEditorLink.Create(VT, True, nil);
EnumEditor.AllowCustomText := True;
EnumEditor.ValueList := TStringList.Create;
@ -414,7 +414,7 @@ begin
EnumEditor.ValueList.Add('OUT');
EnumEditor.ValueList.Add('INOUT');
EditLink := EnumEditor;
end;}
end;
end;