TfpgMimeDataBase: introduced a new raw Data property. Returns data as variant

1 files changed, 15 insertions, 0 deletions

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;