Ошибки в PluginW.pas

Место, где разработчики плагинов могут поделиться своим опытом.
Post Reply
Dec
Posts: 29
Joined: Wed 14 Jul, 2010 08:59
Been thanked: 1 time

Ошибки в PluginW.pas

Post by Dec » Mon 14 Aug, 2017 14:27

Возможно, кому либо пригодится.

Code: Select all

  TFarDialogItem = record
    ...
    Param : record case byte of
      0 : (Selected :TIntPtr);
      1 : (ListItems :PFarList);
      2 : (VBuf :PCharInfo);
      3 : (Reserved0 :TIntPtr);
    end;
VBuf должен иметь тип PFarCharInfo, структура FarCharInfo не описана.

Code: Select all

  TFarApiMenu = function (
    ...
    BreakCode :PIntPtrArray;
Не особо принципиально, но должен быть тип PIntPtr.

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;

+ неописанные структуры, неполные структуры, неописанные константы.

Post Reply

Return to “Разработка плагинов”