paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:20:55 +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); procedure TSQLDBRestSchemaComponentEditor.ExecuteVerb(Index: Integer);
Const Const
idxSave = 2; idxSave = 1;
Var Var
FN : UTF8String; FN : UTF8String;
@ -536,7 +536,7 @@ begin
begin begin
FN:=Component.Name+'.json'; FN:=Component.Name+'.json';
if GetFileName(FN, Format(SJSONFilesFilter, [allFilesMask]), Index=idxSave) then if GetFileName(FN, Format(SJSONFilesFilter, [allFilesMask]), Index=idxSave) then
if idxSave=2 then if idxSave=Index then
S.SaveToFile(FN) S.SaveToFile(FN)
else else
begin begin