Difference between revisions of "Clipboard"
From Free Pascal wiki
Jump to navigationJump to search (New page: =Image= ==Load from clipboard== <delphi>uses Clipbrd, LCLIntf, LCLType, ...; procedure LoadBitmapFromClipboard(Bitmap: TBitmap); begin if Clipboard.HasFormat(PredefinedClipboardFor...) |
|
(No difference)
|
Revision as of 12:01, 27 January 2012
Image
Load from clipboard
<delphi>uses
Clipbrd, LCLIntf, LCLType, ...;
procedure LoadBitmapFromClipboard(Bitmap: TBitmap); begin
if Clipboard.HasFormat(PredefinedClipboardFormat(pcfDelphiBitmap)) then Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfDelphiBitmap)); if Clipboard.HasFormat(PredefinedClipboardFormat(pcfBitmap)) then Bitmap.LoadFromClipboardFormat(PredefinedClipboardFormat(pcfBitmap));
end;</delphi>
Save to clipboard
<delphi>uses
Clipbrd, ...;
procedure SaveBitmapToClipboard(Bitmap: TBitmap); begin
Clipboard.Assign(Bitmap);
end;</delphi>