|
@@ -1,7 +1,9 @@
|
|
|
unit UClipboard;
|
|
unit UClipboard;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$mode objfpc}{$H+}
|
|
|
-{$DEFINE DEBUG_CLIPBOARD}
|
|
|
|
|
|
|
+{$IFDEF DEBUG}
|
|
|
|
|
+ {$DEFINE DEBUG_CLIPBOARD}
|
|
|
|
|
+{$ENDIF}
|
|
|
|
|
|
|
|
{$DEFINE HTML_CLIPBOARD_FORMAT}
|
|
{$DEFINE HTML_CLIPBOARD_FORMAT}
|
|
|
{$IFDEF DARWIN}
|
|
{$IFDEF DARWIN}
|
|
@@ -388,7 +390,7 @@ begin
|
|
|
mime := moreMimeTypes[j];
|
|
mime := moreMimeTypes[j];
|
|
|
str += mime;
|
|
str += mime;
|
|
|
|
|
|
|
|
-{ stream := TMemoryStream.Create;
|
|
|
|
|
|
|
+ stream := TMemoryStream.Create;
|
|
|
Clipboard.GetFormat(Clipboard.Formats[i],Stream);
|
|
Clipboard.GetFormat(Clipboard.Formats[i],Stream);
|
|
|
|
|
|
|
|
str += '('+inttostr(stream.Size)+' bytes)';
|
|
str += '('+inttostr(stream.Size)+' bytes)';
|
|
@@ -418,7 +420,7 @@ begin
|
|
|
end;
|
|
end;
|
|
|
str += ']'+lineending;
|
|
str += ']'+lineending;
|
|
|
end;
|
|
end;
|
|
|
- stream.Free; }
|
|
|
|
|
|
|
+ stream.Free;
|
|
|
end;
|
|
end;
|
|
|
ShowMessage(str);
|
|
ShowMessage(str);
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
circular17