mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
f1ac6dce5b
Adds a {%H-} prefix to a few where the compiler is complaining wrongly.
Note: {%H-} affects just the IDE, not the command line.
55 lines
894 B
ObjectPascal
55 lines
894 B
ObjectPascal
unit crashdialog;
|
|
|
|
{$mode ObjFPC}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
|
|
|
|
type
|
|
|
|
{ TfrmCrashDialog }
|
|
|
|
TfrmCrashDialog = class(TForm)
|
|
btnIgnore: TButton;
|
|
btnAbort: TButton;
|
|
btnCopy: TButton;
|
|
lblHeader: TLabel;
|
|
memoDetails: TMemo;
|
|
procedure btnCopyClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
|
|
public
|
|
procedure SetDetails(AValue: String);
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TfrmCrashDialog }
|
|
|
|
procedure TfrmCrashDialog.btnCopyClick(Sender: TObject);
|
|
begin
|
|
memoDetails.CopyToClipboard;
|
|
btnCopy.Caption := btnCopy.Caption + ' ' + '✓';
|
|
// enable timer which resets the button caption?
|
|
end;
|
|
|
|
procedure TfrmCrashDialog.FormShow(Sender: TObject);
|
|
begin
|
|
btnCopy.SetFocus;
|
|
end;
|
|
|
|
procedure TfrmCrashDialog.SetDetails(AValue: String);
|
|
begin
|
|
memoDetails.Text := AValue;
|
|
end;
|
|
|
|
|
|
end.
|
|
|