Clipboard

From Free Pascal wiki
Revision as of 11:58, 27 January 2012 by Chronos (talk | contribs) (New page: =Image= ==Load from clipboard== <delphi>uses Clipbrd, LCLIntf, LCLType, ...; procedure LoadBitmapFromClipboard(Bitmap: TBitmap); begin if Clipboard.HasFormat(PredefinedClipboardFor...)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

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>