mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-06 08:55:34 +00:00
3a91c7d197
First part of addressing #10161 is to refactor the existing usage of the registry values into the common KeymanDeveloperOptions unit. This was mostly straightforward except for the changes to KeymanSentryClient, which happens to be the most important part of this particular fix.
34 lines
1.3 KiB
ObjectPascal
34 lines
1.3 KiB
ObjectPascal
program SentryClientVclTest;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Sentry.Client.Test.SentryClientVclTestMain in 'Sentry.Client.Test.SentryClientVclTestMain.pas' {frmSentryClientVclTestMain},
|
|
Sentry.Client in '..\Sentry.Client.pas',
|
|
sentry in '..\sentry.pas',
|
|
Sentry.Client.Vcl in '..\Sentry.Client.Vcl.pas',
|
|
Keyman.System.KeymanSentryClient in '..\..\..\general\Keyman.System.KeymanSentryClient.pas',
|
|
KeymanVersion in '..\..\..\general\KeymanVersion.pas',
|
|
KeymanPaths in '..\..\..\general\KeymanPaths.pas',
|
|
RegistryKeys in '..\..\..\general\RegistryKeys.pas',
|
|
DebugPaths in '..\..\..\general\DebugPaths.pas',
|
|
ErrorControlledRegistry in '..\..\..\vcl\ErrorControlledRegistry.pas',
|
|
utilexecute in '..\..\..\general\utilexecute.pas',
|
|
Unicode in '..\..\..\general\Unicode.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
TKeymanSentryClient.Start(TSentryClientVcl, kscpDesktop, '', [kscfCaptureExceptions, kscfShowUI, kscfTerminate]);
|
|
try
|
|
Application.Initialize;
|
|
Application.MainFormOnTaskbar := True;
|
|
Application.CreateForm(TfrmSentryClientVclTestMain, frmSentryClientVclTestMain);
|
|
Application.Run;
|
|
|
|
// This should be done before shutting down the exception manager
|
|
if Application.MainForm <> nil then
|
|
Application.MainForm.Free;
|
|
finally
|
|
TKeymanSentryClient.Stop;
|
|
end;
|
|
end.
|