Code: Select all
TFarDialogItem = record
...
Param : record case byte of
0 : (Selected :TIntPtr);
1 : (ListItems :PFarList);
2 : (VBuf :PCharInfo);
3 : (Reserved0 :TIntPtr);
end;
Code: Select all
TFarApiMenu = function (
...
BreakCode :PIntPtrArray;
Code: Select all
TFarStdBSearch = procedure (Key :Pointer; Base :Pointer; NElem :size_t; Width :size_t; FCmp :TFarStdQSortFunc; UserParam :Pointer); stdcall;
Code: Select all
TFarStdBSearch = function(Key: Pointer; Base: Pointer; NElem :size_t; Width :size_t; FCmp :TFarStdQSortFunc; UserParam :Pointer): Pointer; stdcall;
Code: Select all
TFarStdItoa = function(Value :TIntPtr; Str :PFarChar; Radix :Integer) :PFarChar; stdcall;
Code: Select all
TFarStdItoa = function(Value: Integer; Str :PFarChar; Radix :Integer) :PFarChar; stdcall;
Code: Select all
TFarStdCopyToClipBoard = function(AType :Integer{FARCLIPBOARD_TYPE}; AData :PFarChar) :Boolean; stdcall;
Code: Select all
TFarStdCopyToClipBoard = function(AType :Integer{FARCLIPBOARD_TYPE}; AData :PFarChar): BOOL; stdcall;
Code: Select all
TFarStdGetPathRoot = function(Path :TFarChar; Root :PFarChar; DestSize :size_t) :size_t; stdcall;
Code: Select all
TFarStdGetPathRoot = function(Path :PFarChar; Root :PFarChar; DestSize :size_t) :size_t; stdcall;
Code: Select all
TFarFormatFileSize = function(Size :Int64; Width :TIntPtr; Flags :TFarFormatFileSizeFlags; Dest :PFarChar; DestSize :size_t) :size_t;
Code: Select all
TFarFormatFileSize = function(Size :Int64; Width :TIntPtr; Flags :TFarFormatFileSizeFlags; Dest :PFarChar; DestSize :size_t) :size_t; stdcall;
+ неописанные структуры, неполные структуры, неописанные константы.