diff options
-rw-r--r-- | src/corelib/fpg_base.pas | 15 |
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; |