diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-22 17:25:30 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-28 10:57:21 +0200 |
| commit | 463bc1af0193395a5ce73fbe79f008f46e987194 (patch) | |
| tree | 1331752dfd46137c666f55a15dc454e017109fb9 | |
| parent | 93178a594eeac26ceb2d2b0a122f1c9124b2143b (diff) | |
| download | fpGUI-463bc1af0193395a5ce73fbe79f008f46e987194.tar.xz | |
GDI: Created a help function, GetFormatEtc, that sets up a TFormatEtc record
| -rw-r--r-- | src/corelib/gdi/fpg_oledragdrop.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas index 7bf2b997..0002c695 100644 --- a/src/corelib/gdi/fpg_oledragdrop.pas +++ b/src/corelib/gdi/fpg_oledragdrop.pas @@ -189,6 +189,7 @@ type function WindowsMimeLookup(const CFFormat: string): string;
function EnumDataToStringList(DataObj: IDataObject): TStringList;
+function GetFormatEtc(const CFFormat: DWORD): FORMATETC;
implementation
@@ -273,6 +274,15 @@ begin end;
end;
+function GetFormatEtc(const CFFormat: DWORD): FORMATETC;
+begin
+ Result.CfFormat := CFFormat;
+ Result.Ptd := nil;
+ Result.dwAspect := DVASPECT_CONTENT;
+ Result.lindex := -1;
+ Result.tymed := TYMED_HGLOBAL;
+end;
+
procedure DeepCopyFormatEtc(P1, P2: PFormatEtc);
begin
P2^ := P1^;
|