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

Merges changes from fpc trunk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1803 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2011-08-16 16:02:19 +00:00
parent 1e9af50ca1
commit 432fd2d3dd
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
View File

@ -64,7 +64,7 @@ type
{@@
Font orientation is measured in degrees and uses the
same direction as the LCL TFont.orientation, which is counter-clockwise.
Zero is the normal, horizontal, orientation.
Zero is the normal, horizontal, orientation, directed to the right.
}
Orientation: Double;
end;
@ -172,10 +172,7 @@ type
end;
{@@
TvText represents a text in memory.
At the moment fonts are unsupported, only simple texts
up to 255 chars are supported.
TvText represents a text entity.
}
TvText = class(TvEntity)
public
@ -266,8 +263,8 @@ type
procedure ClearTmpPath();
procedure AppendSegmentToTmpPath(ASegment: TPathSegment);
public
Name: string;
Width, Height: Double; // in millimeters
Name: string;
{ Base methods }
constructor Create;
destructor Destroy; override;
@ -580,7 +577,7 @@ end;
Should be followed by zero or more calls to AddPointToPath
and by a call to EndPath to effectively add the data.
@see StartPath, AddPointToPath
@see EndPath, AddPointToPath
}
procedure TvVectorialDocument.StartPath(AX, AY: Double);
var
@ -991,7 +988,7 @@ end;
{@@
Reads the document from a file.
Any current contents will be removed.
Any current contents in this object will be removed.
}
procedure TvVectorialDocument.ReadFromFile(AFileName: string;
AFormat: TvVectorialFormat);
@ -1009,7 +1006,7 @@ begin
end;
{@@
Reads the document from a file. A variant that auto-detects the format from the extension.
Reads the document from a file. A variant that auto-detects the format from the extension and other factors.
}
procedure TvVectorialDocument.ReadFromFile(AFileName: string);
var
@ -1022,7 +1019,7 @@ end;
{@@
Reads the document from a stream.
Any current contents will be removed.
Any current contents in this object will be removed.
}
procedure TvVectorialDocument.ReadFromStream(AStream: TStream;
AFormat: TvVectorialFormat);