From 2441911aa7b51251ac4c7c76cc27ea7941cc1315 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@idefix.freepascal.org>
Date: Wed, 22 Jun 2011 12:35:57 +0000
Subject: [PATCH] fpvectorial: adds an entity to contain raster images

git-svn-id: trunk@17794 -
---
 packages/fpvectorial/src/fpvectorial.pas | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/packages/fpvectorial/src/fpvectorial.pas b/packages/fpvectorial/src/fpvectorial.pas
index 6eb3bd78e1..6f15cec8de 100644
--- a/packages/fpvectorial/src/fpvectorial.pas
+++ b/packages/fpvectorial/src/fpvectorial.pas
@@ -227,6 +227,23 @@ type
     BaseLeft, BaseRight, DimensionLeft, DimensionRight: T3DPoint;
   end;
 
+  {@@
+   Vectorial images can contain raster images inside them and this entity
+   represents this.
+
+   If the Width and Height differ from the same data in the image, then
+   the raster image will be stretched.
+
+   Note that TFPCustomImage does not implement a storage, so the property
+   RasterImage should be filled with either a FPImage.TFPMemoryImage or with
+   a TLazIntfImage. The property RasterImage might be nil.
+  }
+  TvRasterImage = class(TvEntity)
+  public
+    RasterImage: TFPCustomImage;
+    Top, Left, Width, Height: Double;
+  end;
+
 type
 
   TvCustomVectorialWriter = class;