RB loads this from the RBuilder ini file. However, you can force RB to show the toolbar by using the Designer's OnShowEvent,
uses ppDsgner, ppTB97x;
procedure TmyEndUserSolution.ppDesigner1Show(Sender: TObject); var lToolbar: TppToolbar; liToolbar: Integer; begin
{get visible floating toolbars} for liToolbar := 0 to TppDesignerWindow(ppDesigner1.Form).ToolbarManager.ToolbarCount-1 do begin lToolbar := TppToolbar(TppDesignerWindow(ppDesigner1.Form).ToolbarManager.Toolbars[liToo lbar]);
if (lToolbar.Name = 'DataTree') then lToolbar.Visible := True; end;
Comments
the toolbar by using the Designer's OnShowEvent,
uses
ppDsgner, ppTB97x;
procedure TmyEndUserSolution.ppDesigner1Show(Sender: TObject);
var
lToolbar: TppToolbar;
liToolbar: Integer;
begin
{get visible floating toolbars}
for liToolbar := 0 to
TppDesignerWindow(ppDesigner1.Form).ToolbarManager.ToolbarCount-1 do
begin
lToolbar :=
TppToolbar(TppDesignerWindow(ppDesigner1.Form).ToolbarManager.Toolbars[liToo
lbar]);
if (lToolbar.Name = 'DataTree') then
lToolbar.Visible := True;
end;
TppDesignerWindow(ppDesigner1.Form).ToolbarManager.ShowFloatingToolWindows;
end;
Cheers,
Jim Bennett
Digital Metaphors
http://www.digital-metaphors.com
info@digital-metaphors.com