Merge branch 'cts-rework' into cts-3

Projects/Simba/about.pas

@@ -65,6 +65,7 @@ begin
   AboutMemo.Lines.Add(format('You are currently using version: %d',[SimbaUnit.SimbaVersion]));
   AboutMemo.Lines.Add('');
   AboutMemo.Lines.Add('Please report bugs at: http://bugs.villavu.com/');
+  AboutMemo.ReadOnly:= True;
 end;
 
 procedure TAboutForm.OkButtonClick(Sender: TObject);

Projects/Simba/debugimage.pas

@@ -110,6 +110,7 @@ begin
     Width := DispSize.x;
     Height := DispSize.y;
   end;
+  FormStyle := fsStayOnTop;
 end;
 
 initialization

Projects/Simba/framefunctionlist.lfm

@@ -12,11 +12,11 @@ object FunctionListFrame: TFunctionListFrame
   DesignTop = 200
   object FunctionList: TTreeView
     Left = 0
-    Height = 483
+    Height = 479
-    Top = 18
+    Top = 20
     Width = 182
     Align = alClient
-    DefaultItemHeight = 15
+    DefaultItemHeight = 17
     ReadOnly = True
     ScrollBars = ssAutoBoth
     TabOrder = 0
@@ -28,16 +28,19 @@ object FunctionListFrame: TFunctionListFrame
   end
   object editSearchList: TEdit
     Left = 0
-    Height = 21
+    Height = 23
-    Top = 501
+    Hint = 'Search ...'
+    Top = 499
     Width = 182
     Align = alBottom
     OnChange = editSearchListChange
+    ParentShowHint = False
+    ShowHint = True
     TabOrder = 1
   end
   object FunctionListLabel: TLabel
     Left = 2
-    Height = 14
+    Height = 16
     Top = 2
     Width = 178
     Align = alTop
@@ -55,7 +58,6 @@ object FunctionListFrame: TFunctionListFrame
     Top = 2
     Width = 16
     Anchors = [akTop, akRight]
-    Color = clBtnFace
     Flat = True
     Glyph.Data = {
       36090000424D3609000000000000360000002800000018000000180000000100

Projects/Simba/updateform.pas

@@ -251,7 +251,8 @@ begin
     end;
   end;
   FDone := True;
-  Self.UpdateButton.Caption := 'Update!';
+  Self.UpdateButton.Caption := 'Updated!';
+  Self.UpdateButton.Enabled := False;
   Self.CloseButton.Enabled := true;
   FUpdating:= false;
 end;