From 043da045da95a198e4fcff3a64f8e48eba6882fe Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 23 Sep 2010 16:13:17 +0200
Subject: TfpgMimeDataBase: introduced a new raw Data property. Returns data as
 variant

---
 src/corelib/fpg_base.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src')

diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index b80e297f..fb8ecdd1 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -653,6 +653,7 @@ type
     procedure   Clear;
     function    HasFormat(const AMimeType: TfpgString): boolean;
     function    Formats: TStrings;
+    function    GetData(const AMimeType: TfpgString): Variant;
     procedure   SetData(const AMimeType: TfpgString; const AData: Variant);
     property    urls: TList read Geturls write Seturls;
     property    Text: TfpgString read GetText write SetText;
@@ -2910,6 +2911,20 @@ begin
   end;
 end;
 
+function TfpgMimeDataBase.GetData(const AMimeType: TfpgString): Variant;
+var
+  i: integer;
+begin
+  for i := 0 to FDataList.Count-1 do
+  begin
+    if TfpgMimeDataStruct(FDataList[i]).format = AMimeType then
+    begin
+      Result := TfpgMimeDataStruct(FDataList[i]).data;
+      break;
+    end;
+  end;
+end;
+
 procedure TfpgMimeDataBase.SetData(const AMimeType: TfpgString; const AData: Variant);
 var
   i: integer;
-- 
cgit v1.2.3-70-g09d2