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

LazUtils: deprecate UITypes and alias its types only for FPC 3.2.0 and up

Browse Source 
git-svn-id: trunk@65235 -
This commit is contained in:
maxim 2021-06-14 21:13:09 +00:00
parent fe94a1906a
commit b0c766a26d
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/lazutils/uitypes.pas
View File

@ -1,4 +1,6 @@
unit UITypes deprecated 'Use System.UITypes instead (available since FPC 3.2.0)'; unit UITypes
{$IF FPC_FULLVERSION >= 30200}
deprecated 'Use System.UITypes instead (available since FPC 3.2.0)';
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -52,6 +54,40 @@ const
mrYesToAll = System.UITypes.mrYesToAll; mrYesToAll = System.UITypes.mrYesToAll;
mrClose = System.UITypes.mrClose; mrClose = System.UITypes.mrClose;
mrLast = System.UITypes.mrLast; mrLast = System.UITypes.mrLast;
{$ELSE}
;
{$mode objfpc}{$H+}
interface
type
// Message dialog related
TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,
mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
TMsgDlgButtons = set of TMsgDlgBtn;
// ModalResult
TModalResult = low(Integer)..high(Integer);
PModalResult = ^TModalResult;
const
// Used for ModalResult
mrNone = 0;
mrOK = mrNone + 1;
mrCancel = mrNone + 2;
mrAbort = mrNone + 3;
mrRetry = mrNone + 4;
mrIgnore = mrNone + 5;
mrYes = mrNone + 6;
mrNo = mrNone + 7;
mrAll = mrNone + 8;
mrNoToAll = mrNone + 9;
mrYesToAll = mrNone + 10;
mrClose = mrNone + 11;
mrLast = mrClose;
{$ENDIF}
// String representation of ModalResult values // String representation of ModalResult values
ModalResultStr: array[mrNone..mrLast] of shortstring = ( ModalResultStr: array[mrNone..mrLast] of shortstring = (