paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 14:11:32 +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', 'mrNoToAll',
'mrYesToAll', 'mrYesToAll',
'mrClose' 'mrClose'
{$IF FPC_FULLVERSION>30300} {$IF FPC_FULLVERSION>=30203}
, ,
'mrContinue', 'mrContinue',
'mrTryAgain' 'mrTryAgain'

16
lcl/controls.pp
View File

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

2
lcl/dialogs.pp
View File

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