Fixed lil' bugs in tabs, & changed the way Writeln works @ windows.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@195 3f818213-9676-44b0-a9b4-5e4c4e03d09d

Projects/SAMufasaGUI/testunit.lfm

@@ -1,11 +1,11 @@
 object Form1: TForm1
-  Left = 274
+  Left = 223
   Height = 557
-  Top = 233
+  Top = 272
   Width = 731
   ActiveControl = ScriptPanel
   Caption = 'Action1'
-  ClientHeight = 532
+  ClientHeight = 537
   ClientWidth = 731
   Menu = MainMenu1
   OnClose = FormClose
@@ -165,8 +165,8 @@ object Form1: TForm1
   end
   object StatusBar: TStatusBar
     Left = 0
-    Height = 21
-    Top = 511
+    Height = 23
+    Top = 514
     Width = 731
     Panels = <    
       item
@@ -183,17 +183,17 @@ object Form1: TForm1
   end
   object PanelMemo: TPanel
     Left = 0
-    Height = 151
+    Height = 154
     Top = 360
     Width = 731
     Align = alBottom
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 151
+    ClientHeight = 154
     ClientWidth = 731
     TabOrder = 2
     object Memo1: TMemo
       Left = 1
-      Height = 149
+      Height = 152
       Top = 1
       Width = 729
       Align = alClient
@@ -250,7 +250,7 @@ object Form1: TForm1
       Visible = False
       object LabeledEditSearch: TLabeledEdit
         Left = 104
-        Height = 27
+        Height = 21
         Top = 6
         Width = 174
         AutoSelect = False
@@ -259,10 +259,10 @@ object Form1: TForm1
         EditLabel.AnchorSideTop.Side = asrCenter
         EditLabel.AnchorSideRight.Control = LabeledEditSearch
         EditLabel.AnchorSideBottom.Control = LabeledEditSearch
-        EditLabel.Left = 67
-        EditLabel.Height = 18
-        EditLabel.Top = 10
-        EditLabel.Width = 34
+        EditLabel.Left = 73
+        EditLabel.Height = 14
+        EditLabel.Top = 9
+        EditLabel.Width = 28
         EditLabel.Caption = 'Find: '
         EditLabel.ParentColor = False
         LabelPosition = lpLeft

Projects/SAMufasaGUI/testunit.pas

@@ -271,10 +271,15 @@ end;
 procedure formWriteln( S : String);
 
 begin
-  s := s + #10;
   DebugCriticalSection.Enter;
   try
+    {$ifdef MSWindows}
+    //Ha, we cán acces the debugmemo
+    Form1.Memo1.Lines.Add(s);
+    {$else}
+    s := s + MEOL;
     Form1.DebugStream:= Form1.DebugStream + s;
+    {$endif}
   finally
     DebugCriticalSection.Leave;
   end;
@@ -438,6 +443,7 @@ begin
     TB_SaveAll.Enabled:= false;
     MenuItemSaveAll.Enabled:= false;
   end;
+  RefreshTab;
 end;
 
 procedure TForm1.ClearTab(TabIndex: integer);
@@ -514,6 +520,11 @@ var
   Script : TScriptFrame;
   NewTab : integer;
 begin
+  if tabs.Count < 1 then
+  begin;
+    Writeln('Cannot refresh tab, since there are no tabs.');
+    exit;
+  end;
   NewTab := PageControl1.TabIndex;
   Tab := TMufasaTab(Tabs[Newtab]);
   Script := Tab.ScriptFrame;
@@ -682,6 +693,9 @@ begin
   { For writeln }
   SetLength(DebugStream, 0);
   DebugCriticalSection := syncobjs.TCriticalSection.Create;
+  {$ifdef mswindows}
+  DebugTimer.Enabled:= false;
+  {$endif}
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
@@ -733,6 +747,7 @@ begin
   begin
     ActionFindstartExecute(Sender);
     CurrScript.SynEdit.SetFocus;
+    key := 0;
   end;
 end;
 
@@ -741,6 +756,7 @@ begin
   if key = #13 then
   begin;
     DoSearch(true);
+    key := #0;
 //    LabeledEditSearch.SelStart:= Length(LabeledEditSearch.Text);
   end;
 end;
@@ -1072,6 +1088,7 @@ begin
   ScriptFrame := TScriptFrame.Create(Tabsheet);
   ScriptFrame.Parent := Tabsheet;
   ScriptFrame.Align:= alClient;
+
 end;
 
 constructor TMufasaTab.Create(Page: TPageControl);

Units/MMLCore/mufasatypes.pas

@@ -32,6 +32,7 @@ uses
   Classes, SysUtils,plugins;
 const
   DS = DirectorySeparator;
+  MEOL = {$ifdef MSWINDOWS}#13+{$endif}#10;
 
 type
   TRGB32 = packed record