Unit 'Clipbrd' Package
[Overview][Types][Classes][Procedures and functions][Index] [#lcl]

TClipboard.SetSupportedFormats

SetSupportedFormats - set all supported formats at once.

Declaration

Source position: clipbrd.pp line 225

public function TClipboard.SetSupportedFormats(

  AFormatCount: Integer;

  FormatList: PClipboardFormat

):Boolean;

Description

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;