diff --git a/Projects/Simba/about.pas b/Projects/Simba/about.pas index 9a2a30b..2d6838d 100644 --- a/Projects/Simba/about.pas +++ b/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.Enabled := False; end; procedure TAboutForm.OkButtonClick(Sender: TObject); diff --git a/Projects/Simba/debugimage.pas b/Projects/Simba/debugimage.pas index f96ab0c..a103a26 100644 --- a/Projects/Simba/debugimage.pas +++ b/Projects/Simba/debugimage.pas @@ -110,6 +110,7 @@ begin Width := DispSize.x; Height := DispSize.y; end; + FormStyle := fsStayOnTop; end; initialization diff --git a/Projects/Simba/framefunctionlist.lfm b/Projects/Simba/framefunctionlist.lfm index b419ecc..f74beb5 100644 --- a/Projects/Simba/framefunctionlist.lfm +++ b/Projects/Simba/framefunctionlist.lfm @@ -12,11 +12,11 @@ object FunctionListFrame: TFunctionListFrame DesignTop = 200 object FunctionList: TTreeView Left = 0 - Height = 483 - Top = 18 + Height = 479 + 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 - Top = 501 + Height = 23 + 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 diff --git a/Projects/Simba/updateform.pas b/Projects/Simba/updateform.pas index c38d1bd..1f3566b 100644 --- a/Projects/Simba/updateform.pas +++ b/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;