mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-08 19:18:19 +02:00
lcl: fixed compile with fpc 3.3.1
This commit is contained in:
parent
0f4eb93052
commit
bcd4138db4
@ -60,6 +60,10 @@ const
|
||||
mrNoToAll = System.UITypes.mrNoToAll;
|
||||
mrYesToAll= System.UITypes.mrYesToAll;
|
||||
mrClose = System.UITypes.mrClose;
|
||||
{$IF FPC_FULLVERSION>30300}
|
||||
mrContinue= System.UITypes.mrContinue;
|
||||
mrTryAgain= System.UITypes.mrTryAgain;
|
||||
{$ENDIF}
|
||||
mrLast = System.UITypes.mrLast;
|
||||
|
||||
//function GetModalResultStr(ModalResult: TModalResult): ShortString;
|
||||
|
@ -988,9 +988,22 @@ const
|
||||
cLabelSpacing = 10; // distance between icon & label
|
||||
|
||||
DialogResult : Array[mrNone..mrLast] of Longint = (
|
||||
-1, idButtonOK, idButtonCancel, idButtonAbort, idButtonRetry,
|
||||
idButtonIgnore, idButtonYes,idButtonNo, idButtonAll, idButtonNoToAll,
|
||||
idButtonYesToAll,idButtonClose);
|
||||
-1, // mrNone
|
||||
idButtonOK,
|
||||
idButtonCancel,
|
||||
idButtonAbort,
|
||||
idButtonRetry,
|
||||
idButtonIgnore,
|
||||
idButtonYes,
|
||||
idButtonNo,
|
||||
idButtonAll,
|
||||
idButtonNoToAll,
|
||||
idButtonYesToAll,
|
||||
{$IF FPC_FULLVERSION>30300}
|
||||
idButtonContinue,
|
||||
idButtonTryAgain,
|
||||
{$ENDIF}
|
||||
idButtonClose);
|
||||
|
||||
|
||||
DialogButtonKind : Array[idButtonOK..idButtonNoToAll] of TBitBtnKind = (
|
||||
|
@ -1830,6 +1830,8 @@ const
|
||||
idButtonOpen = idButtonBase + 13;
|
||||
idButtonSave = idButtonBase + 14;
|
||||
idButtonShield = idButtonBase + 15;
|
||||
idButtonContinue = idButtonBase + 16;
|
||||
idButtonTryAgain = idButtonBase + 17;
|
||||
|
||||
idDialogBase = $FF;
|
||||
idDialogWarning = idDialogBase + 1;
|
||||
|
Loading…
Reference in New Issue
Block a user