paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix SpreadsheetInspector not displaying cell properties and values any more.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5316 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-11-05 22:02:31 +00:00
parent eb29f677d7
commit f0d908f280
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
View File

@ -3071,13 +3071,7 @@ begin
if sheet <> nil then begin
FCurrRow := sheet.ActiveCellRow;
FCurrCol := sheet.ActiveCellCol;
{
cell := sheet.FindCell(sheet.ActiveCellRow, sheet.ActiveCellCol);
if cell <> nil then begin
FCurrRow := cell^.Row;
FCurrCol := cell^.Col;
end;
}
cell := sheet.FindCell(FCurrRow, FCurrCol);
end;
end;
@ -3133,7 +3127,6 @@ end;
procedure TsSpreadsheetInspector.ListenerNotification(
AChangedItems: TsNotificationItems; AData: Pointer = nil);
begin
// Unused(AData);
case FMode of
imWorkbook:
if ([lniWorkbook, lniWorksheet]*AChangedItems <> []) then