paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 05:09:31 +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

1743
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. 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, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -385,13 +385,13 @@ type
dtg_AttrList: PTagItem; // Additional attributes dtg_AttrList: PTagItem; // Additional attributes
end; end;
//* DTM_TRIGGER */ // DTM_TRIGGER
PdtTrigger = ^TdtTrigger; PdtTrigger = ^TdtTrigger;
TdtTrigger = record TdtTrigger = record
MethodID : ULONG; MethodID: PtrUInt;
dtt_GInfo : PGadgetInfo; dtt_GInfo: PGadgetInfo;
dtt_Function : ULONG; dtt_Function: LongWord;
dtt_Data : APTR; dtt_Data: APTR;
end; end;
const const
@ -481,7 +481,7 @@ const
const const
PICTUREDTCLASS = 'picture.datatype'; PICTUREDTCLASS = 'picture.datatype';
Type type
PBitMapHeader = ^TBitMapHeader; PBitMapHeader = ^TBitMapHeader;
TBitMapHeader = record TBitMapHeader = record
bmh_Width: Word; bmh_Width: Word;