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

Added http://villavu.com/forum/showthread.php?t=62348

Browse Source
This commit is contained in:
Raymond 2011-02-17 19:41:24 +01:00
parent 25ad9b2dd5
commit 01b382134d
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/simbaunit.lfm
View File

@ -15,7 +15,7 @@ object SimbaForm: TSimbaForm
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
OnHide = doOnHide OnHide = doOnHide
OnShortCut = FormShortCuts OnShortCut = FormShortCuts
LCLVersion = '0.9.29' LCLVersion = '0.9.31'
Visible = True Visible = True
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0

4
Projects/Simba/simbaunit.pas
View File

@ -3063,9 +3063,11 @@ begin
if CurrScript.ScriptChanged then if CurrScript.ScriptChanged then
begin; begin;
CurrTab.TabSheet.Caption:= CurrScript.ScriptName + '*'; CurrTab.TabSheet.Caption:= CurrScript.ScriptName + '*';
Self.Caption := Format(WindowTitle,[CurrScript.ScriptName + '*']) Self.Caption := Format(WindowTitle,[CurrScript.ScriptName + '*']);
ActionSaveScript.Enabled:= True;
end else end else
begin; begin;
ActionSaveScript.Enabled:= False;
CurrTab.TabSheet.Caption:= CurrScript.ScriptName; CurrTab.TabSheet.Caption:= CurrScript.ScriptName;
Self.Caption := Format(WindowTitle,[CurrScript.ScriptName]); Self.Caption := Format(WindowTitle,[CurrScript.ScriptName]);
end; end;