moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 10:42:20 -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; PageControl1.OnCloseTabClicked:=ActionCloseTab.OnExecute;
Tabs := TList.Create; Tabs := TList.Create;
AddTab;//Give it alteast 1 tab ;-). AddTab;//Give it alteast 1 tab ;-).
FunctionListShown(True); //Show this function list bitch!
Window := TMWindow.Create; Window := TMWindow.Create;
Picker := TMColorPicker.Create(Window); Picker := TMColorPicker.Create(Window);
Selector := TMWindowSelector.Create(Window); Selector := TMWindowSelector.Create(Window);
@ -1119,6 +1120,7 @@ begin
{$ifdef mswindows} {$ifdef mswindows}
DebugTimer.Enabled:= false; DebugTimer.Enabled:= false;
{$endif} {$endif}
// Ed // Ed
end; end;
@ -1470,8 +1472,9 @@ begin
Splitter1.Show; Splitter1.Show;
frmFunctionList.Show; frmFunctionList.Show;
end else frmFunctionList.Parent.Show; end else frmFunctionList.Parent.Show;
if editSearchList.CanFocus then if Self.Visible then
editSearchList.SetFocus; if editSearchList.CanFocus then
editSearchList.SetFocus;
//Lets load up this Script tree! //Lets load up this Script tree!
frmFunctionList.LoadScriptTree(CurrScript.SynEdit.text); frmFunctionList.LoadScriptTree(CurrScript.SynEdit.text);
end else begin end else begin