Inno setup disable two buttons on the same page -

-

disable 2 buttons on same page tried several ways did not closer example not correct [button next = time] [button back= no time (only disable)] find error bound

 [code]  var  counter: integer;  timerid: integer;   type  ttimerproc = procedure(wnd: hwnd; msg: uint; timerid: uint_ptr;  systime: dword);   function wraptimerproc(callback: ttimerproc; paramcount: integer): longword;  external 'wrapcallback@files:innocallback.dll stdcall';  function settimer(hwnd: hwnd; nidevent, uelapse: uint;  lptimerfunc: uint): uint; external 'settimer@user32.dll stdcall';  function killtimer(hwnd: hwnd; uidevent: uint): bool;  external 'killtimer@user32.dll stdcall';   procedure ontimertick(wnd: hwnd; msg: uint; timerid: uint_ptr;  systime: dword);  begin  counter := counter - 1;   begin  counter := counter - 1;  if counter <= 0  begin  wizardform.nextbutton.enabled := true;  wizardform.nextbutton.caption := setupmessage(msgbuttoninstall);   if timerid <> 0   killtimer(0, timerid);  end  else  wizardform.nextbutton.caption := setupmessage(msgbuttoninstall) +        inttostr(counter);  end;  //  begin  wizardform.backbutton.enabled := true;  if timerid <> 0  begin  if killtimer(0, timerid)    timerid := 0;  end; end;  procedure disablenextbutton(timeout: integer); var timercallback: longword; begin counter := timeout; wizardform.nextbutton.enabled := false; wizardform.nextbutton.caption := setupmessage(msgbuttoninstall) + inttostr(counter);   timercallback := wraptimerproc(@ontimertick, 4); timerid := settimer(0, 0, 1000, timercallback); end;  procedure disablebackbutton(timeout: uint);  var timercallback: longword; begin wizardform.backbutton.enabled := false;   timercallback := wraptimerproc(@ontimertick, 4); timerid := settimer(0, 0, timeout, timercallback); end;  procedure curpagechanged5(curpageid: integer); begin   if curpageid = wpselecttasks   disablenextbutton(10); end;  procedure curpagechanged6(curpageid: integer); begin   if curpageid = wpselecttasks   disablebackbutton(5000); end;

to disable both buttons, next button , button specified time while next button have countdown timer caption, can use following modified script based on this post:

[setup] appname=my program appversion=1.5 defaultdirname={pf}\my program  [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy  [code] var   counter: integer;   timerid: integer;  type   ttimerproc = procedure(wnd: hwnd; msg: uint; timerid: uint_ptr;      systime: dword);  function wraptimerproc(callback: ttimerproc; paramcount: integer): longword;   external 'wrapcallback@files:innocallback.dll stdcall';     function settimer(hwnd: hwnd; nidevent, uelapse: uint;   lptimerfunc: uint): uint; external 'settimer@user32.dll stdcall'; function killtimer(hwnd: hwnd; uidevent: uint): bool;    external 'killtimer@user32.dll stdcall';   procedure ontimertick(wnd: hwnd; msg: uint; timerid: uint_ptr;    systime: dword); begin   counter := counter - 1;    if counter <= 0   begin     wizardform.backbutton.enabled := true;     wizardform.nextbutton.enabled := true;     wizardform.nextbutton.caption := setupmessage(msgbuttonnext);     if timerid <> 0        killtimer(0, timerid);   end   else     wizardform.nextbutton.caption := setupmessage(msgbuttonnext) +        inttostr(counter); end;  procedure disablenavigatebuttons(timeout: integer); var   timercallback: longword; begin   counter := timeout;   wizardform.backbutton.enabled := false;   wizardform.nextbutton.enabled := false;   wizardform.nextbutton.caption := setupmessage(msgbuttonnext) +      inttostr(counter);   timercallback := wraptimerproc(@ontimertick, 4);   timerid := settimer(0, 0, 1000, timercallback); end;  procedure curpagechanged(curpageid: integer); begin   if curpageid = wpselectdir     disablenavigatebuttons(5); end;

Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more