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

Lazutils, LCL: fixed compilation with FPC 3.2.3

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-11-30 19:49:10 +03:00
parent 50c040a7f7
commit 028cd6f117
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/uitypes.pas
View File

@ -103,7 +103,7 @@ const
'mrNoToAll',
'mrYesToAll',
'mrClose'
{$IF FPC_FULLVERSION>30300}
{$IF FPC_FULLVERSION>=30203}
,
'mrContinue',
'mrTryAgain'

16
lcl/controls.pp
View File

@ -68,7 +68,7 @@ const
mrNoToAll = SysUITypes.mrNoToAll;
mrYesToAll= SysUITypes.mrYesToAll;
mrClose = SysUITypes.mrClose;
{$IF FPC_FULLVERSION>30300}
{$IF FPC_FULLVERSION>=30203}
mrContinue= SysUITypes.mrContinue;
mrTryAgain= SysUITypes.mrTryAgain;
{$ENDIF}
@ -179,7 +179,7 @@ type
TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient, alCustom);
TAlignSet = set of TAlign;
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
TAnchorKind = SysUITypes.TAnchorKind;
TAnchors = SysUITypes.TAnchors;
TAnchorSideReference = SysUITypes.TAnchorSideReference;
@ -190,7 +190,7 @@ type
{$ENDIF}
const
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
akLeft = SysUITypes.akLeft;
akTop = SysUITypes.akTop;
akRight = SysUITypes.akRight;
@ -222,14 +222,14 @@ type
TBevelCut = TGraphicsBevelCut;
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
TMouseButton = SysUITypes.TMouseButton;
{$ELSE}
TMouseButton = (mbLeft, mbRight, mbMiddle, mbExtra1, mbExtra2);
{$ENDIF}
const
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
mbLeft = SysUITypes.mbLeft;
mbRight = SysUITypes.mbRight;
mbMiddle = SysUITypes.mbMiddle;
@ -471,7 +471,7 @@ type
TDragObject = class;
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
TDragKind = SysUITypes.TDragKind;
TDragMode = SysUITypes.TDragMode;
TDragState = SysUITypes.TDragState;
@ -986,7 +986,7 @@ type
);
TControlAutoSizePhases = set of TControlAutoSizePhase;
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
TTabOrder = SysUITypes.TTabOrder;
{$ELSE}
TTabOrder = -1..32767;
@ -2788,7 +2788,7 @@ function CompareDataObjectWithLazAccessibleObject(o, ao: Pointer): Integer;
// register (called by the package initialization in design mode)
procedure Register;
{$IF FPC_FULLVERSION >= 30300}
{$IF FPC_FULLVERSION >= 30203}
const
dkDrag = SysUITypes.dkDrag;
dkDock = SysUITypes.dkDock;

2
lcl/dialogs.pp
View File

@ -819,7 +819,7 @@ const
idButtonAll,
idButtonNoToAll,
idButtonYesToAll,
{$IF FPC_FULLVERSION>30300}
{$IF FPC_FULLVERSION>=30203}
idButtonContinue,
idButtonTryAgain,
{$ENDIF}