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

FPReport designer: Fix adding report variables on some widgetsets. Issue #38140.

Browse Source 
git-svn-id: trunk@64753 -
This commit is contained in:
juha 2021-03-05 22:32:59 +00:00
parent ca2323fd5e
commit 64d868d252
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpreport/design/frmfpreportvariables.pp
View File

@ -364,7 +364,9 @@ begin
// This can raise an exception. Catch it, and restore old name // This can raise an exception. Catch it, and restore old name
try try
FCurrentVariable.Name:=EName.Text; FCurrentVariable.Name:=EName.Text;
LBVariables.Sorted:=False;
LBVariables.Items[FCurrentIndex]:=FCurrentVariable.Name; LBVariables.Items[FCurrentIndex]:=FCurrentVariable.Name;
LBVariables.Sorted:=True;
except except
On E : Exception do On E : Exception do
begin begin