paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 04:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: more adjustments of FPC version defines

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-11-30 20:16:48 +03:00
parent 72ea155588
commit e5831fc959
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/controls.pp
View File

@ -171,7 +171,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 = System.UITypes.TAnchorKind; TAnchorKind = System.UITypes.TAnchorKind;
TAnchors = System.UITypes.TAnchors; TAnchors = System.UITypes.TAnchors;
TAnchorSideReference = System.UITypes.TAnchorSideReference; TAnchorSideReference = System.UITypes.TAnchorSideReference;
@ -182,7 +182,7 @@ type
{$ENDIF} {$ENDIF}
const const
{$IF FPC_FULLVERSION >= 30300} {$IF FPC_FULLVERSION >= 30203}
akLeft = System.UITypes.akLeft; akLeft = System.UITypes.akLeft;
akTop = System.UITypes.akTop; akTop = System.UITypes.akTop;
akRight = System.UITypes.akRight; akRight = System.UITypes.akRight;
@ -214,14 +214,14 @@ type
TBevelCut = TGraphicsBevelCut; TBevelCut = TGraphicsBevelCut;
{$IF FPC_FULLVERSION >= 30300} {$IF FPC_FULLVERSION >= 30203}
TMouseButton = System.UITypes.TMouseButton; TMouseButton = System.UITypes.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 = System.UITypes.mbLeft; mbLeft = System.UITypes.mbLeft;
mbRight = System.UITypes.mbRight; mbRight = System.UITypes.mbRight;
mbMiddle = System.UITypes.mbMiddle; mbMiddle = System.UITypes.mbMiddle;
@ -463,7 +463,7 @@ type
TDragObject = class; TDragObject = class;
{$IF FPC_FULLVERSION >= 30300} {$IF FPC_FULLVERSION >= 30203}
TDragKind = System.UITypes.TDragKind; TDragKind = System.UITypes.TDragKind;
TDragMode = System.UITypes.TDragMode; TDragMode = System.UITypes.TDragMode;
TDragState = System.UITypes.TDragState; TDragState = System.UITypes.TDragState;
@ -978,7 +978,7 @@ type
); );
TControlAutoSizePhases = set of TControlAutoSizePhase; TControlAutoSizePhases = set of TControlAutoSizePhase;
{$IF FPC_FULLVERSION >= 30300} {$IF FPC_FULLVERSION >= 30203}
TTabOrder = System.UITypes.TTabOrder; TTabOrder = System.UITypes.TTabOrder;
{$ELSE} {$ELSE}
TTabOrder = -1..32767; TTabOrder = -1..32767;
@ -2780,7 +2780,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 = System.UITypes.dkDrag; dkDrag = System.UITypes.dkDrag;
dkDock = System.UITypes.dkDock; dkDock = System.UITypes.dkDock;