<< 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;