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...)
 
m (clipboard moved to Clipboard)
(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>