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

fpspreadsheet: Introduce fpspreadsheet exceptions.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6043 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-10-26 08:11:58 +00:00
parent 7e7044bb6f
commit cc891712d0
20 changed files with 109 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/xlsescher.pas
View File

@ -300,7 +300,7 @@ procedure WriteMSOSpGrContainer(AStream: TStream; ASize: DWord);
implementation
uses
fpsutils;
fpstypes, fpsutils;
type
TsMSOHeader = packed record
@ -418,7 +418,7 @@ end;
procedure WriteMSOFdgRecord(AStream: TStream; ANumShapes, ADrawingID, ALastObjID: Word);
begin
if ADrawingID > $0FFE then
raise Exception.CreateFmt('[WriteMSOFdgRecord] Invalid drawing identifier $%.4x', [ADrawingID]);
raise EFpSpreadsheet.CreateFmt('[WriteMSOFdgRecord] Invalid drawing identifier $%.4x', [ADrawingID]);
WriteMSOHeader(AStream, MSO_ID_OFFICEART_FDG, 0, ADrawingID, 8);
AStream.WriteDWord(DWordToLE(ANumShapes));
AStream.WriteDWord(DWordToLE(ALastObjID));