paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 18:38:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Now BLOCK and INSERT already started to work together

Browse Source 
git-svn-id: trunk@39025 -
This commit is contained in:
sekelsenmat 2012-10-09 14:50:23 +00:00
parent 1ce12a8760
commit c74a28fe63
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
components/fpvectorial/fpvectorial.pas
View File

@ -491,15 +491,21 @@ type
function GetNextEntity: TvEntity;
procedure AddEntity(AEntity: TvEntity);
procedure Clear;
//
// Never add a Render() procedure to TvBlock, because blocks are invisible!
end;
{@@
A "Insert" inserts a block into the drawing in the specified position
}
{ TvInsert }
TvInsert = class(TvEntity)
public
Block: TvBlock; // The block to be inserted
procedure Render(ADest: TFPCustomCanvas; ADestX: Integer = 0;
ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0); override;
end;
{ TvVectorialDocument }
@ -2255,6 +2261,31 @@ begin
FElements.Clear;
end;
{ TvInsert }
procedure TvInsert.Render(ADest: TFPCustomCanvas; ADestX: Integer;
ADestY: Integer; AMulX: Double; AMulY: Double);
var
lEntity: TvEntity;
begin
inherited Render(ADest, ADestX, ADestY, AMulX, AMulY);
if Block = nil then Exit;
lEntity := Block.GetFirstEntity();
while lEntity <> nil do
begin
// Alter the position of the elements to consider the positioning of the BLOCK and of the INSERT
lEntity.X := lEntity.X + Block.X + X;
lEntity.Y := lEntity.Y + Block.Y + Y;
// Render
lEntity.Render(ADest, ADestX, ADestY, AMulX, AMuly);
// Change them back
lEntity.X := lEntity.X - Block.X - X;
lEntity.Y := lEntity.Y - Block.Y - Y;
lEntity := Block.GetNextEntity();
end;
end;
{ TvVectorialPage }
procedure TvVectorialPage.ClearTmpPath;