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

IdeDebugger: fix frame for editing Value-Converter

Browse Source
This commit is contained in:
Martin 2024-02-10 20:58:30 +01:00
parent 5892e97e99
commit a7e4fabecc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/idedebugger/idedbgvalueconvertersettingsframe.pas
View File

@ -89,6 +89,7 @@ begin
obj.Name := AName; obj.Name := AName;
// obj.MatchKinds := obj.Converter.GetSupportedKinds; // obj.MatchKinds := obj.Converter.GetSupportedKinds;
FValConvList.Add(obj); FValConvList.Add(obj);
FValConvList.Changed := True;
FillList; FillList;
lstConverters.ItemIndex := lstConverters.Count-1; lstConverters.ItemIndex := lstConverters.Count-1;
@ -106,6 +107,7 @@ begin
if (i < 0) or (i >= FValConvList.Count-1) then if (i < 0) or (i >= FValConvList.Count-1) then
exit; exit;
FValConvList.Move(i, i+1); FValConvList.Move(i, i+1);
FValConvList.Changed := True;
FillList; FillList;
lstConverters.ItemIndex := i+1; lstConverters.ItemIndex := i+1;
@ -120,6 +122,7 @@ begin
FCurConvConf := nil; FCurConvConf := nil;
i := lstConverters.ItemIndex; i := lstConverters.ItemIndex;
FValConvList.Delete(i); FValConvList.Delete(i);
FValConvList.Changed := True;
FillList; FillList;
if i >= lstConverters.Count then if i >= lstConverters.Count then
@ -138,6 +141,7 @@ begin
if (i < 1) or (i > FValConvList.Count-1) then if (i < 1) or (i > FValConvList.Count-1) then
exit; exit;
FValConvList.Move(i, i-1); FValConvList.Move(i, i-1);
FValConvList.Changed := True;
FillList; FillList;
lstConverters.ItemIndex := i-1; lstConverters.ItemIndex := i-1;