paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add TTouchTracking for Delphi compatibility

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-14 14:38:05 +01:00
parent 2d9ef694dd
commit 2b0d98bf2c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/system.uitypes.pp
View File

@ -661,6 +661,8 @@ const
Type Type
TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase); TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase);
TTouchTracking = set of (ttVertical, ttHorizontal);
// Forms // Forms
TWindowState = (wsNormal, wsMinimized, wsMaximized, wsFullScreen); TWindowState = (wsNormal, wsMinimized, wsMaximized, wsFullScreen);