moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-21 16:55:01 -05:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
Bentzilla 2011-07-31 11:28:09 -04:00 committed by Merlijn Wajer
parent 26a627e7b5
commit 9eee19a3af
4 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Projects/Simba/about.pas
View File

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

1
Projects/Simba/debugimage.pas
View File

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

16
Projects/Simba/framefunctionlist.lfm
View File

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

3
Projects/Simba/updateform.pas
View File

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