procedure TSTANDARDSTYLEMAINFORM.ShowFuncTree;
const
[B]cDefaultWidth = 200;[/B]
begin
if not FFuncTreeShowing then
begin
FFuncTreeShowing := True;
if FOldLeftPanelWidth < tbFuncTree.Width then
FOldLeftPanelWidth := cDefaultWidth;
pnlLeft.Width := FOldLeftPanelWidth;
spLeft.Visible := True;
end;
end;