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

TValueListEditor: fix DeleteRow Issue #0034208

Browse Source 
git-svn-id: branches/fixes_2_0@59070 -
This commit is contained in:
mattias 2018-09-19 09:08:50 +00:00
parent 70c4ffef23
commit 507604a0df
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/valedit.pas
View File

@ -151,6 +151,7 @@ type
procedure ShowColumnTitles;
procedure AdjustRowCount; virtual;
procedure ColRowExchanged(IsColumn: Boolean; index, WithIndex: Integer); override;
procedure ColRowDeleted(IsColumn: Boolean; index: Integer); override;
procedure DefineCellsProperty(Filer: TFiler); override;
procedure InvalidateCachedRow;
procedure GetAutoFillColumnInfo(const Index: Integer; var aMin,aMax,aPriority: Integer); override;
@ -770,9 +771,8 @@ end;
procedure TValueListEditor.DeleteRow(Index: Integer);
begin
Index := Index - FixedRows;
//If we have only one row, it may be empty and we cannot remove
if not ((Index = 0) and (Strings.Count = 0)) then Strings.Delete(Index);
if not ((Index - FixedRows = 0) and (Strings.Count = 0)) then inherited DeleteRow(Index) ;
end;
procedure TValueListEditor.DeleteCol(Index: Integer);
@ -1122,6 +1122,13 @@ begin
inherited ColRowExchanged(IsColumn, index, WithIndex);
end;
procedure TValueListEditor.ColRowDeleted(IsColumn: Boolean; index: Integer);
begin
EditorMode := False;
Strings.Delete(Index-FixedRows);
inherited ColRowDeleted(IsColumn, index);
end;
procedure TValueListEditor.DefineCellsProperty(Filer: TFiler);
begin
end;