paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 16:57:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Adds support for subpart selection and also for elements which know how to paint themselves

Browse Source 
git-svn-id: trunk@33181 -
This commit is contained in:
sekelsenmat 2011-10-30 17:04:55 +00:00
parent c7cd777175
commit ebffc9ce4a
2 changed files with 26 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpvectorial/fpvectorial.pas
View File

@ -162,13 +162,18 @@ type
constructor Create; virtual;
procedure CalculateBoundingBox(var ALeft, ATop, ARight, ABottom: Double); virtual;
procedure ExpandBoundingBox(var ALeft, ATop, ARight, ABottom: Double);
function TryToSelect(APos: TPoint): TvFindEntityResult; virtual;
{@@ ASubpart is only valid if this routine returns vfrSubpartFound }
function TryToSelect(APos: TPoint; var ASubpart: Cardinal): TvFindEntityResult; virtual;
procedure Translate(ADeltaX, ADeltaY: Integer); virtual;
procedure TransladeSubpart(ADeltaX, ADeltaY: Integer; ASubpart: Cardinal); virtual;
procedure Render(ADest: TFPCustomCanvas; ADestX: Integer = 0;
ADestY: Integer = 0; AMulX: Double = 1.0; AMulY: Double = 1.0); virtual;
end;
TvClipMode = (vcmNonzeroWindingRule, vcmEvenOddRule);
TPath = class(TvEntity)
public
Len: Integer;
Points: TPathSegment; // Beginning of the double-linked list
PointsEnd: TPathSegment;// End of the double-linked list
@ -194,7 +199,7 @@ type
Font: TvFont;
constructor Create; override;
destructor Destroy; override;
function TryToSelect(APos: TPoint): TvFindEntityResult; override;
function TryToSelect(APos: TPoint; var ASubpart: Cardinal): TvFindEntityResult; override;
end;
{@@
@ -577,6 +582,7 @@ function TvVectorialPage.FindAndSelectEntity(Pos: TPoint): TvFindEntityResult;
var
lEntity: TvEntity;
i: Integer;
lSubpart: Cardinal;
begin
Result := vfrNotFound;
@ -584,7 +590,7 @@ begin
begin
lEntity := GetEntity(i);
Result := lEntity.TryToSelect(Pos);
Result := lEntity.TryToSelect(Pos, lSubpart);
if Result <> vfrNotFound then
begin
@ -900,7 +906,7 @@ begin
inherited Destroy;
end;
function TvText.TryToSelect(APos: TPoint): TvFindEntityResult;
function TvText.TryToSelect(APos: TPoint; var ASubpart: Cardinal): TvFindEntityResult;
var
lProximityFactor: Integer;
begin
@ -940,7 +946,7 @@ begin
if lBottom > ABottom then ABottom := lBottom;
end;
function TvEntity.TryToSelect(APos: TPoint): TvFindEntityResult;
function TvEntity.TryToSelect(APos: TPoint; var ASubpart: Cardinal): TvFindEntityResult;
begin
Result := vfrNotFound;
end;
@ -951,6 +957,18 @@ begin
Y := Y + ADeltaY;
end;
procedure TvEntity.TransladeSubpart(ADeltaX, ADeltaY: Integer;
ASubpart: Cardinal);
begin
end;
procedure TvEntity.Render(ADest: TFPCustomCanvas; ADestX: Integer;
ADestY: Integer; AMulX: Double; AMulY: Double);
begin
end;
{ TvEllipse }
procedure TvEllipse.CalculateBoundingRectangle;

4
components/fpvectorial/fpvtocanvas.pas
View File

@ -540,7 +540,9 @@ begin
ADest.TextOut(CoordToCanvasX(CurDim.DimensionRight.X), CoordToCanvasY(CurDim.DimensionRight.Y), 'DR');
ADest.TextOut(CoordToCanvasX(CurDim.DimensionLeft.X), CoordToCanvasY(CurDim.DimensionLeft.Y), 'DL');
ADest.TextOut(CoordToCanvasX(CurDim.BaseLeft.X), CoordToCanvasY(CurDim.BaseLeft.Y), 'BL');}
end;
end
else
CurEntity.Render(ADest, ADestX, ADestY, AMulX, AMulY);
end;
procedure DrawFPVTextToCanvas(ASource: TvVectorialPage; CurText: TvText;