pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Less warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5741 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-02-09 18:44:58 +00:00
parent ebb9b428ea
commit d3f2c24886
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2757,12 +2757,12 @@ begin
ExtractFromCell(Worksheet.ActiveCellRow, Worksheet.ActiveCellCol);
end;
ftRow:
if (([lniRow] * AChangedItems <> []) and (PtrInt(AData) = Worksheet.ActiveCellRow)) or
if (([lniRow] * AChangedItems <> []) and ({%H-}PtrUInt(AData) = Worksheet.ActiveCellRow)) or
(lniSelection in AChangedItems)
then
ExtractFromRow(Worksheet.ActiveCellRow);
ftCol:
if (([lniCol] * AChangedItems <> []) and (PtrInt(AData) = Worksheet.ActiveCellCol)) or
if (([lniCol] * AChangedItems <> []) and ({%H-}PtrUInt(AData) = Worksheet.ActiveCellCol)) or
(lniSelection in AChangedItems)
then
ExtractFromCol(Worksheet.ActiveCellCol);