mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-06 00:45:32 +00:00
45 lines
1 KiB
ObjectPascal
45 lines
1 KiB
ObjectPascal
unit Sentry.Client.Test.SentryClientVclTestMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
|
|
|
|
type
|
|
TfrmSentryClientVclTestMain = class(TForm)
|
|
cmdSendEvent: TButton;
|
|
cmdCrashApp: TButton;
|
|
procedure cmdSendEventClick(Sender: TObject);
|
|
procedure cmdCrashAppClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmSentryClientVclTestMain: TfrmSentryClientVclTestMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Sentry.Client,
|
|
Keyman.System.KeymanSentryClient;
|
|
|
|
{$R *.dfm}
|
|
|
|
type
|
|
ETestVclError = class(Exception);
|
|
|
|
procedure TfrmSentryClientVclTestMain.cmdCrashAppClick(Sender: TObject);
|
|
begin
|
|
raise ETestVclError.Create('This ia a crash from the vcl test app');
|
|
end;
|
|
|
|
procedure TfrmSentryClientVclTestMain.cmdSendEventClick(Sender: TObject);
|
|
begin
|
|
TKeymanSentryClient.Client.MessageEvent(SENTRY_LEVEL_INFO, 'This is a message from the VCL test app');
|
|
end;
|
|
|
|
end.
|