From a5555df407901d88c451515ad67e2345e9c10be9 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 22 Jun 2011 12:35:17 +0000
Subject: [PATCH] fpvectorial: adds an entity to contain raster images

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1717 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpvviewer/fpvectorialsrc/fpvectorial.pas    | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas b/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
index 6eb3bd78e..6f15cec8d 100644
--- a/applications/fpvviewer/fpvectorialsrc/fpvectorial.pas
+++ b/applications/fpvviewer/fpvectorialsrc/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;