TRVAControlPanel.OnChoosePicture

Using this event you can provide your own user interface for opening a picture.

type
  TRVChoosePictureEvent = procedure(Sender: TObject;
    Editor: TCustomRichViewEdit;
    OwnerObject: TObject; const DialogTitle: TRVALocString;
    out FileName: TRVUnicodeString;
    out Graphic: TGraphic; var DoDefault: Boolean) of object;

    property OnChoosePicture: TRVChoosePictureEvent;

This event is called in the following cases:

Picture for...	Called by the action	OwnerObject parameter
New picture item	TrvActionInsertPicture	nil
Existing picture item	TrvActionItemProperties	Picture item (TrvGraphicItemInfo or inherited)
Document background	TrvActionBackground	Editor (inherited from TCustomRichViewEdit)
Table background	TrvActionItemProperties TrvActionTableProperties	Table (TRVTableItemInfo or inherited)
Table cell background	TrvActionItemProperties TrvActionTableProperties	Table (TRVTableItemInfo or inherited)
List marker picture	TrvActionParaList	List level (TRVListLevel)

Input parameters:

Sender – the action that called the event

Editor – the target editor

OwnerObject depends on the action, see the table above.

DialogTitle – a suggested dialog title (if it is an empty string, a default dialog title must be used)

DoDefault = True

Input parameters:

Graphic – chosen picture; if the user canceled the selection, it must be nil.

FileName – file name (or another picture identifier). Depending on settings, it may be stored in the item.

DoDefault:

- if True, the action must perform the default way of picture choosing (using TOpenPicture dialog); in this case, Graphic must be nil;

- if False, and Graphic is not nil, the action must assign Graphic to the item. If Graphic is nil, the action should do nothing.