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

Merged revision(s) 64605 #ac3fae6d99 from trunk:

Browse Source 
TValueListEditor: raise an exception when setting RowCount < FixedRows.
........

git-svn-id: branches/fixes_2_0@64620 -
This commit is contained in:
maxim 2021-02-18 22:34:26 +00:00
parent 65acd97bcd
commit 77ecaa0856
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/valedit.pas
View File

@ -6,7 +6,8 @@ interface
uses
ContNrs, SysUtils, Classes, Variants,
LazUtf8, Controls, StdCtrls, Grids, LResources, Dialogs, LCLType;
LazUtf8, Controls, StdCtrls, Grids, LResources, Dialogs, LCLType,
LCLStrConsts;
type
@ -1350,6 +1351,8 @@ begin
//debugln('TValueListEditor.SetRowCount: AValue=',DbgS(AValue));
OldValue := inherited RowCount;
if OldValue = AValue then Exit;
if FixedRows > AValue then
Raise EGridException.Create(rsFixedRowsTooBig);
NewCount := AValue - FixedRows;
if (NewCount > Strings.Count) then
begin