paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

amiga units: datatypes library unit improved

Browse Source 
git-svn-id: trunk@38987 -
This commit is contained in:
marcus 2018-05-13 16:38:14 +00:00
parent 76e3b28297
commit ae01ff2bf3
2 changed files with 798 additions and 1191 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1973
packages/amunits/src/coreunits/datatypes.pas
View File

File diff suppressed because it is too large Load Diff

16
packages/arosunits/src/datatypes.pas
View File

@ -1,8 +1,8 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2014 by Free Pascal development team
Copyright (c) 2018 by Free Pascal development team
asl.library functions
datatypes.library functions
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -385,13 +385,13 @@ type
dtg_AttrList: PTagItem; // Additional attributes
end;
//* DTM_TRIGGER */
// DTM_TRIGGER
PdtTrigger = ^TdtTrigger;
TdtTrigger = record
MethodID : ULONG;
dtt_GInfo : PGadgetInfo;
dtt_Function : ULONG;
dtt_Data : APTR;
MethodID: PtrUInt;
dtt_GInfo: PGadgetInfo;
dtt_Function: LongWord;
dtt_Data: APTR;
end;
const
@ -481,7 +481,7 @@ const
const
PICTUREDTCLASS = 'picture.datatype';
Type
type
PBitMapHeader = ^TBitMapHeader;
TBitMapHeader = record
bmh_Width: Word;