SetSupportedFormats - set all supported formats at once.
Source position: clipbrd.pp line 225
public function TClipboard.SetSupportedFormats( |
AFormatCount: Integer; |
FormatList: PClipboardFormat |
):Boolean; |
SetSupportedFormats sets all supported formats at once All data will be empty. This procedure is useful if setting the OnRequest event to put the data on the fly.
Example: Using the PrimarySelection from synedit.pp.
procedure TCustomSynEdit.AcquirePrimarySelection; var FormatList: TClipboardFormat; begin if (not SelAvail) or (PrimarySelection.OnRequest=@PrimarySelectionRequest) then exit; FormatList:=CF_TEXT; PrimarySelection.SetSupportedFormats(1,@FormatList); PrimarySelection.OnRequest:=@PrimarySelectionRequest; end;