mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-28 04:13:51 +02:00
27 lines
681 B
ObjectPascal
27 lines
681 B
ObjectPascal
unit LazMsgWorker;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// LazUtils
|
|
System.UITypes;
|
|
|
|
type
|
|
TLazMessageWorker = function(const aCaption, aMsg: string;
|
|
DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;
|
|
const HelpKeyword: string = ''): Integer of object;
|
|
TLazQuestionWorker = function(const aCaption, aMsg: string;
|
|
DlgType: TMsgDlgType; Buttons: array of const;
|
|
const HelpKeyword: string = ''): Integer of object;
|
|
|
|
var // set by the IDE
|
|
LazMessageWorker: TLazMessageWorker = nil;
|
|
LazQuestionWorker: TLazQuestionWorker = nil;
|
|
|
|
implementation
|
|
|
|
end.
|
|
|