TsrvActionThumbnails.OnExecuted

<< Click to display table of contents >>

TsrvActionThumbnails.OnExecuted

Occurs after the action links/unlinks PageScroll to TSRichViewEdit control.

property OnExecuted: TNotifyEvent;

Example:

procedure TForm3.srvActionThumbnails1Executed(Sender: TObject);

begin

  Splitter1.Visible := TsrvActionThumbnails(Sender).Checked;

  SRVPageScroll1.Visible := TsrvActionThumbnails(Sender).Checked;

end;