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

LazReport, fix List index (-1) out of bounds on undoing pen object inserts, issue #26506

Browse Source 
git-svn-id: trunk@46137 -
This commit is contained in:
jesus 2014-09-06 05:41:36 +00:00
parent 4b8e6daa2f
commit 8a7aef4759
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/lazreport/source/lr_desgn.pas
View File

@ -1999,8 +1999,10 @@ begin
t.dy := -t.dy; if Abs(t.dy) > Abs(t.dx) then t.y := OldRect.Bottom; t.dy := -t.dy; if Abs(t.dy) > Abs(t.dx) then t.y := OldRect.Bottom;
end; end;
t.Selected := True; t.Selected := True;
t.BeginUpdate;
t.FrameWidth := LastLineWidth; t.FrameWidth := LastLineWidth;
t.FrameColor := LastFrameColor; t.FrameColor := LastFrameColor;
t.EndUpdate;
TfrDesignerForm(frDesigner).SelNum := 1; TfrDesignerForm(frDesigner).SelNum := 1;
NPRedrawViewCheckBand(t); NPRedrawViewCheckBand(t);
FDesigner.SelectionChanged; FDesigner.SelectionChanged;