[Lazarus] what is function header problem ?

FreeMan freeman35 at delphiturkiye.com
Wed May 28 16:06:24 CEST 2014


I'm trying port some code, I get this error. IDE code complied is work, 
rename tool working.
what is wrong?
Thank you
Kubuntu 14.04 x64, fpc svn r27818 lazarus svn r45213

/comp/asg.pas(100,10) Error: function header doesn't match the previous 
declaration 
"DrawEx(TCanvas;AnsiString;TRect;TCustomImageList;LongInt;LongInt;LongInt;LongInt;LongInt;Boolean;Boolean;Boolean;Boolean;Boolean;Boolean;Boolean;Boolean;Double;TGraphicsColor;TGraphicsColor;TGraphicsColor;TGraphicsColor;var 
AnsiString;var AnsiString;var A"

this is function implementation:

function DrawEx(Canvas: TCanvas; s: string; fr: TRect; FImages: 
TCustomImageList; XPos
   , YPos, FocusLink, HoverLink, ShadowOffset: Integer; CheckHotSpot, 
CheckHeight
   , Print, Selected, Blink, HoverStyle, WordWrap
   , Down: Boolean; ResFactor: Double; URLColor, HoverColor, HoverFontColor
   , ShadowColor: TColor; var AnchorVal, StripVal, FocusAnchor
   , AnchorHint: string; var XSize, YSize, HyperLinks
   , MouseLink: Integer; var HoverRect, ControlRect: TRect; var CID, CV
   , CT: string; ic: THTMLPictureCache; pc: TPictureContainer; 
WinHandle: THandle): Boolean;
begin
//
end;








More information about the Lazarus mailing list