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

TValueListEditor: implement IsEmptyRow.

Browse Source 
git-svn-id: trunk@40519 -
This commit is contained in:
bart 2013-03-09 14:59:41 +00:00
parent c9725d844b
commit f368c819e0
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lcl/valedit.pas
View File

@ -168,6 +168,8 @@ type
procedure InsertColRow(IsColumn: boolean; index: integer);
function InsertRow(const KeyName, Value: string; Append: Boolean): Integer;
procedure ExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);
function IsEmptyRow: Boolean; {Delphi compatible function}
function IsEmptyRow(aRow: Integer): Boolean; {This for makes more sense to me}
procedure MoveColRow(IsColumn: Boolean; FromIndex, ToIndex: Integer);
property FixedRows: Integer read GetFixedRows write SetFixedRows default 1;
@ -804,6 +806,28 @@ begin
else
Raise EGridException.CreateFmt(rsVLEInvalidRowColOperation,['ExchangeColRow',' on columns']);
end;
function TValueListEditor.IsEmptyRow: Boolean;
{As per help text on Embarcadero: the function does not have a parameter for row, so assume current one?}
begin
Result := IsEmptyRow(Row);
end;
function TValueListEditor.IsEmptyRow(aRow: Integer): Boolean;
begin
if (Strings.Count = 0) and (aRow - FixedRows = 0) then
//special case: we have just one row, and it is empty
begin
Result := True;
end
else if (aRow = 0) and (FixedRows = 0) then
begin
Result := ((inherited GetCells(0,0)) = EmptyStr) and ((inherited GetCells(1,0)) = EmptyStr);
end
else
begin
Result := Strings.Strings[aRow - FixedRows] = EmptyStr;
end;
end;
procedure TValueListEditor.MoveColRow(IsColumn: Boolean; FromIndex,
ToIndex: Integer);