paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 07:30:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix verb execution

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-28 14:55:32 +02:00
parent 77c1d9b1f2
commit c1e69fee44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/sqldbrest/reglazsqldbrest.pp
View File

@ -522,7 +522,7 @@ end;
procedure TSQLDBRestSchemaComponentEditor.ExecuteVerb(Index: Integer);
Const
idxSave = 2;
idxSave = 1;
Var
FN : UTF8String;
@ -536,7 +536,7 @@ begin
begin
FN:=Component.Name+'.json';
if GetFileName(FN, Format(SJSONFilesFilter, [allFilesMask]), Index=idxSave) then
if idxSave=2 then
if idxSave=Index then
S.SaveToFile(FN)
else
begin