Fixed: no longer causes full-screen FSX to lose focus
This commit is contained in:
parent
dfc9255585
commit
717d2a0724
@ -8,6 +8,7 @@ object MainForm: TMainForm
|
||||
ClientHeight = 548
|
||||
ClientWidth = 466
|
||||
Color = clBtnFace
|
||||
DefaultMonitor = dmDesktop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
|
@ -827,7 +827,7 @@ end;
|
||||
|
||||
procedure TMainForm.CMRestart(var Msg: TMessage);
|
||||
begin
|
||||
ShellExecute(0, 'open', PChar(App.FileName), '/restart', PChar(App.Path), SW_SHOWMINNOACTIVE);
|
||||
ShellExecute(0, 'open', PChar(App.FileName), '/restart', PChar(App.Path), SW_SHOWNOACTIVATE);
|
||||
Close;
|
||||
end;
|
||||
|
||||
|
@ -3,6 +3,7 @@ program G940LEDControl;
|
||||
uses
|
||||
Forms,
|
||||
SysUtils,
|
||||
Windows,
|
||||
X2UtSingleInstance,
|
||||
MainFrm in 'Forms\MainFrm.pas' {MainForm},
|
||||
LogiJoystickDLL in '..\Shared\LogiJoystickDLL.pas',
|
||||
@ -61,7 +62,12 @@ begin
|
||||
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.ShowMainForm := not isRestarting;
|
||||
Application.Title := 'G940 LED Control';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
|
||||
if isRestarting then
|
||||
MainForm.Visible := True;
|
||||
|
||||
Application.Run;
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user