Permalink
Browse files

DebugImage always on top, Search box hint, Disable update button once…

… successfully updated
  • Loading branch information...
Bentzilla
Bentzilla committed Jul 31, 2011
1 parent b301172 commit f3a2f82425ed7e318e8fd3b2d5f131d7dfee53e2
View
@@ -65,6 +65,7 @@ procedure TAboutForm.FormCreate(Sender: TObject);
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);
@@ -110,6 +110,7 @@ procedure TDebugImgForm.ShowDebugImgForm(DispSize : TPoint);
Width := DispSize.x;
Height := DispSize.y;
end;
+ FormStyle := fsStayOnTop;
end;
initialization
@@ -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
@@ -251,7 +251,8 @@ procedure TSimbaUpdateForm.PerformUpdate;
end;
end;
FDone := True;
- Self.UpdateButton.Caption := 'Update!';
+ Self.UpdateButton.Caption := 'Updated!';
+ Self.UpdateButton.Enabled := False;
Self.CloseButton.Enabled := true;
FUpdating:= false;
end;

0 comments on commit f3a2f82

Please sign in to comment.