Hide console by default & make disguise change the name of the application as well.
This commit is contained in:
parent
01b382134d
commit
bb5f00fab7
|
@ -1248,8 +1248,8 @@ begin
|
||||||
CreateSetting('LastConfig/MainForm/Position','');
|
CreateSetting('LastConfig/MainForm/Position','');
|
||||||
CreateSetting('LastConfig/MainForm/State','Normal');
|
CreateSetting('LastConfig/MainForm/State','Normal');
|
||||||
{$ifdef MSWindows}
|
{$ifdef MSWindows}
|
||||||
CreateSetting('LastConfig/Console/Visible','True');
|
CreateSetting('LastConfig/Console/Visible','False');
|
||||||
ShowConsole(True);
|
ShowConsole(False);
|
||||||
{$endif}
|
{$endif}
|
||||||
CreateSetting('Settings/Tray/AlwaysVisible', 'True');
|
CreateSetting('Settings/Tray/AlwaysVisible', 'True');
|
||||||
if not DirectoryExists(IncludePath) then
|
if not DirectoryExists(IncludePath) then
|
||||||
|
@ -2986,7 +2986,7 @@ begin
|
||||||
with FormCallBackData do
|
with FormCallBackData do
|
||||||
case Cmd of
|
case Cmd of
|
||||||
m_Status: StatusBar.Panels[Panel_General].Text:= PChar(data);
|
m_Status: StatusBar.Panels[Panel_General].Text:= PChar(data);
|
||||||
m_Disguise: Self.Caption:= Pchar(Data);
|
m_Disguise: begin Self.Caption:= Pchar(Data); Application.Title:= PChar(Data); end;
|
||||||
m_DisplayDebugImgWindow: DebugImgForm.ShowDebugImgForm(ppoint(data)^);
|
m_DisplayDebugImgWindow: DebugImgForm.ShowDebugImgForm(ppoint(data)^);
|
||||||
m_DrawBitmapDebugImg: DebugImgForm.DrawBitmap(TMufasaBitmap(data));
|
m_DrawBitmapDebugImg: DebugImgForm.DrawBitmap(TMufasaBitmap(data));
|
||||||
m_GetDebugBitmap : DebugImgForm.GetDebugImage(TMufasaBitmap(data));
|
m_GetDebugBitmap : DebugImgForm.GetDebugImage(TMufasaBitmap(data));
|
||||||
|
@ -3060,6 +3060,7 @@ end;
|
||||||
|
|
||||||
procedure TSimbaForm.UpdateTitle;
|
procedure TSimbaForm.UpdateTitle;
|
||||||
begin
|
begin
|
||||||
|
Application.Title:= PChar('Simba');
|
||||||
if CurrScript.ScriptChanged then
|
if CurrScript.ScriptChanged then
|
||||||
begin;
|
begin;
|
||||||
CurrTab.TabSheet.Caption:= CurrScript.ScriptName + '*';
|
CurrTab.TabSheet.Caption:= CurrScript.ScriptName + '*';
|
||||||
|
|
Loading…
Reference in New Issue