pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 if sheet <> nil then begin
FCurrRow := sheet.ActiveCellRow; FCurrRow := sheet.ActiveCellRow;
FCurrCol := sheet.ActiveCellCol; FCurrCol := sheet.ActiveCellCol;
{ cell := sheet.FindCell(FCurrRow, FCurrCol);
cell := sheet.FindCell(sheet.ActiveCellRow, sheet.ActiveCellCol);
if cell <> nil then begin
FCurrRow := cell^.Row;
FCurrCol := cell^.Col;
end;
}
end; end;
end; end;
@@ -3133,7 +3127,6 @@ end;
procedure TsSpreadsheetInspector.ListenerNotification( procedure TsSpreadsheetInspector.ListenerNotification(
AChangedItems: TsNotificationItems; AData: Pointer = nil); AChangedItems: TsNotificationItems; AData: Pointer = nil);
begin begin
// Unused(AData);
case FMode of case FMode of
imWorkbook: imWorkbook:
if ([lniWorkbook, lniWorksheet]*AChangedItems <> []) then if ([lniWorkbook, lniWorksheet]*AChangedItems <> []) then