View Single Post
  #11  
Old 24-04-2013, 12:45
altef_4's Avatar
altef_4 altef_4 is offline
Registered User
 
Join Date: Mar 2012
Location: Ukraine
Posts: 361
Thanks: 248
Thanked 1,022 Times in 239 Posts
altef_4 is on a distinguished road
Quote:
Originally Posted by Andre Jesus View Post
Hi.
Can you please verify?

The error is:
Line 191:
Column 109:
comma (',') expected.

Code:
with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,Left-8,Top-8,Width 10,Height 10,ExpandConstant('{tmp}\button.png'),18,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFontColor(hNextBtn,$FFFFFF,$00FFFF,$0000FF,$000000);
BtnSetFont(hNextBtn,ButtonFont.Handle);
//The error is the line below.
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(sndPlaySound(ExpandConstant('{tmp}\soundfx.wav'),$0001);,1));
BtnSetEvent(hNextBtn,BtnMouseEnterEventID,WrapBtnCallback(sndPlaySound(ExpandConstant('{tmp}\soundfx.wav'),$0001);,1));
Width:=0;
Height:=0;
end;
i know, this question not for me, but part of code with error is totally wrong,
wrapbtncallback(@function_which_will_be_executed_on_event,1),

BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallba ck(@WizardFormBtnClick,1));BtnSetEvent(hNextBtn,Bt nMouseEnterEventID,WrapBtnCallback(@WizardFormBtnO nMouseEnter,1));
Reply With Quote