moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

Show the function list default :-)

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@346 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-12-26 16:20:46 +00:00
parent fed81fb976
commit dd79c05b39
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Projects/SAMufasaGUI/testunit.pas
View File

@ -1106,6 +1106,7 @@ begin
PageControl1.OnCloseTabClicked:=ActionCloseTab.OnExecute;
Tabs := TList.Create;
AddTab;//Give it alteast 1 tab ;-).
FunctionListShown(True); //Show this function list bitch!
Window := TMWindow.Create;
Picker := TMColorPicker.Create(Window);
Selector := TMWindowSelector.Create(Window);
@ -1119,6 +1120,7 @@ begin
{$ifdef mswindows}
DebugTimer.Enabled:= false;
{$endif}
// Ed
end;
@ -1470,8 +1472,9 @@ begin
Splitter1.Show;
frmFunctionList.Show;
end else frmFunctionList.Parent.Show;
if editSearchList.CanFocus then
editSearchList.SetFocus;
if Self.Visible then
if editSearchList.CanFocus then
editSearchList.SetFocus;
//Lets load up this Script tree!
frmFunctionList.LoadScriptTree(CurrScript.SynEdit.text);
end else begin