Looks like the button's ShowHint property is always false in the preview class. This has been fixed for the next maintenance release. In the meantime, you can create and register your own descendent of TppCustomPreview, just like our TppPreview class in ppPreview.pas. The TppPreview class knows about the buttons, so internal to this class you'll need to set the ShowHint property to True.
It's actually there is an easier way to get it to work. Just create a TppPreview descendent and override the BeforePreview and set ToolBar.ShowHint to true.
type
TppMyPreview = class(TppPreview) public procedure BeforePreview; override;
Comments
class. This has been fixed for the next maintenance release. In the
meantime, you can create and register your own descendent of
TppCustomPreview, just like our TppPreview class in ppPreview.pas. The
TppPreview class knows about the buttons, so internal to this class you'll
need to set the ShowHint property to True.
Cheers,
Jim Bennett
Digital Metaphors
http://www.digital-metaphors.com
info@digital-metaphors.com
TppPreview descendent and override the BeforePreview and set
ToolBar.ShowHint to true.
type
TppMyPreview = class(TppPreview)
public
procedure BeforePreview; override;
end;
implementation
procedure TppMyPreview.BeforePreview;
begin
inherited BeforePreview;
Toolbar.ShowHint := True;
end;
initialization
TppPreviewPlugIn.Register(TppMyPreview);
finalization
TppPreviewPlugIn.UnRegister(TppMyPreview);
Cheers,
Jim Bennett
Digital Metaphors
http://www.digital-metaphors.com
info@digital-metaphors.com
The only way I've been able to do it is to make the changed to a saved copy
of ppPreview.pas.
Mitch Mullins
button.
http://www.digital-metaphors.com/tips/PreviewPlugin.zip
Cheers,
Jim Bennett
Digital Metaphors
http://www.digital-metaphors.com
info@digital-metaphors.com