paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 11:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed compile with fpc 3.3.1

Browse Source
This commit is contained in:
mattias 2023-11-02 18:24:36 +01:00
parent 0f4eb93052
commit bcd4138db4
3 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -60,6 +60,10 @@ const
mrNoToAll = System.UITypes.mrNoToAll; mrNoToAll = System.UITypes.mrNoToAll;
mrYesToAll= System.UITypes.mrYesToAll; mrYesToAll= System.UITypes.mrYesToAll;
mrClose = System.UITypes.mrClose; mrClose = System.UITypes.mrClose;
{$IF FPC_FULLVERSION>30300}
mrContinue= System.UITypes.mrContinue;
mrTryAgain= System.UITypes.mrTryAgain;
{$ENDIF}
mrLast = System.UITypes.mrLast; mrLast = System.UITypes.mrLast;
//function GetModalResultStr(ModalResult: TModalResult): ShortString; //function GetModalResultStr(ModalResult: TModalResult): ShortString;

19
lcl/dialogs.pp
View File

@ -988,9 +988,22 @@ const
cLabelSpacing = 10; // distance between icon & label cLabelSpacing = 10; // distance between icon & label
DialogResult : Array[mrNone..mrLast] of Longint = ( DialogResult : Array[mrNone..mrLast] of Longint = (
-1, idButtonOK, idButtonCancel, idButtonAbort, idButtonRetry, -1, // mrNone
idButtonIgnore, idButtonYes,idButtonNo, idButtonAll, idButtonNoToAll, idButtonOK,
idButtonYesToAll,idButtonClose); idButtonCancel,
idButtonAbort,
idButtonRetry,
idButtonIgnore,
idButtonYes,
idButtonNo,
idButtonAll,
idButtonNoToAll,
idButtonYesToAll,
{$IF FPC_FULLVERSION>30300}
idButtonContinue,
idButtonTryAgain,
{$ENDIF}
idButtonClose);
DialogButtonKind : Array[idButtonOK..idButtonNoToAll] of TBitBtnKind = ( DialogButtonKind : Array[idButtonOK..idButtonNoToAll] of TBitBtnKind = (

2
lcl/lcltype.pp
View File

@ -1830,6 +1830,8 @@ const
idButtonOpen = idButtonBase + 13; idButtonOpen = idButtonBase + 13;
idButtonSave = idButtonBase + 14; idButtonSave = idButtonBase + 14;
idButtonShield = idButtonBase + 15; idButtonShield = idButtonBase + 15;
idButtonContinue = idButtonBase + 16;
idButtonTryAgain = idButtonBase + 17;
idDialogBase = $FF; idDialogBase = $FF;
idDialogWarning = idDialogBase + 1; idDialogWarning = idDialogBase + 1;