A bit belatedly, but my FireMonkey TClipboard and TMacPreferencesIniFile implementations are now compiling with XE4 (thanks goes to Ken Schafer for prodding me in the case of the former). See my post from nearly a year ago for the details:
http://delphihaven.wordpress.com/2012/07/27/fmx-tclipboard-and-tmacpreferencesinifile/
With respect to TClipboard, I’ve also done the following:
- Added a cfPNG TClipboardFormat identifier (this is the same as cfBitmap on OS X).
- Fixed a bad assumption about bitmap pitches on Windows that was causing issues for some people.
- Switched to using CF_DIBV5 internally when reading or writing bitmaps on Windows.
- When assigning to a bitmap, cfPNG is now looked for first (this makes things works better with MS Word), and correspondingly, HasFormat(cfBitmap) now also checks for cfPNG as a special case.
- On Windows again, when a source bitmap includes transparency, the outputted DIB has this transparency removed, however at the same time a PNG representation is added that maintains the original alpha channel.
- For both Windows and OS X, added GetFormats and GetFormatName methods. Where the former returns an array of TClipboardFormat, the latter converts a TClipboardFormat to a string:
procedure TfrmClipboardDemo.btnListClick(Sender: TObject);
var
Format: TClipboardFormat;
S: string;
begin
for Format in Clipboard.GetFormats do
S := S + sLineBreak + Clipboard.GetFormatName(Format);
if S = '' then
S := 'Nothing is currently on the clipboard.'
else
S := 'The following formats are on the clipboard:' + S;
MessageDlg(S, TMsgDlgType.mtInformation, [TMsgDlgBtn.mbOK], 0)
end;
This is the result when I copy a word on a webpage in Safari:
As this example hints at, it’s better to use Apple’s ‘UTI’ format for custom clipboard identifiers on OS X (e.g. com.mycompany.formatname, though ultimately just something.something, or something.something.something, etc.). While things still work if you don’t, failing to do so will lead the OS to allocate a parallel ‘dynamic’ UTI for you (e.g. dyn.a1oad0fg1bber13hthat600s0nand0nand0n). As such, I’ve tweaked the demo accordingly – click the ‘Copy as Custom Clipboard Format’ button then the ‘List’ one, and you get this:
