paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 12:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Adds support for 999 comments in the begining of the file and fixes some typos

Browse Source 
git-svn-id: trunk@39628 -
This commit is contained in:
sekelsenmat 2012-12-23 10:48:27 +00:00
parent 14935d5913
commit 1de5a255f9
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpvectorial/dxfvectorialreader.pas
View File

@ -533,6 +533,11 @@ begin
begin begin
Exit; Exit;
end end
// Comments can be in the beginning of the file and start with 999
else if (IntSectionGroupCode = 999) then
begin
// nothing to be done, let it add the token
end
else else
begin begin
raise Exception.Create(Format( raise Exception.Create(Format(
@ -1991,6 +1996,7 @@ begin
for i := 0 to Tokenizer.Tokens.Count - 1 do for i := 0 to Tokenizer.Tokens.Count - 1 do
begin begin
CurToken := TDXFToken(Tokenizer.Tokens.Items[i]); CurToken := TDXFToken(Tokenizer.Tokens.Items[i]);
if (CurToken.Childs = nil) or (CurToken.Childs.Count=0) then Continue;
CurTokenFirstChild := TDXFToken(CurToken.Childs.Items[0]); CurTokenFirstChild := TDXFToken(CurToken.Childs.Items[0]);
if CurTokenFirstChild.StrValue = 'HEADER' then if CurTokenFirstChild.StrValue = 'HEADER' then

2
components/fpvectorial/fpvectorial.pas
View File

@ -2485,7 +2485,7 @@ end;
procedure TvBlock.CallbackDeleteElement(data, arg: pointer); procedure TvBlock.CallbackDeleteElement(data, arg: pointer);
begin begin
TvFormulaElement(data).Free; TvEntity(data).Free;
end; end;
constructor TvBlock.Create; constructor TvBlock.Create;