GitHub-Mirror
/
G940LEDControl
mirror of
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Fixed: no longer causes full-screen FSX to lose focus

This commit is contained in:
Mark van Renswoude 2015-06-24 19:36:56 +00:00
parent dfc9255585
commit 717d2a0724
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
G940LEDControl/Forms/MainFrm.dfm
View File

@ -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

2
G940LEDControl/Forms/MainFrm.pas
View File

@ -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;

6
G940LEDControl/G940LEDControl.dpr
View File

@ -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.