Move data between ListBoxes: Difference between revisions

From NSIS Wiki
Jump to navigationJump to search
(penis enlargement drugs)
m (Protected "Move data between ListBoxes" ([edit=autoconfirmed] (expires 17:59, 26 October 2011 (UTC)) [move=autoconfirmed] (expires 17:59, 26 October 2011 (UTC))))
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
[http://male-extra-reviewed.com/category/penis-enlargement penis enlargement medicine]
{{PageAuthor|Jan}}
== Description ==
A custom page using nsDialogs to move (or copy) data between controls, in this case two listboxes


There are many online training videos, such as penis penis exercise [http://forum.vat-experts.info/index.php?action=profile;u=73307  best penis enlargement pills] that programs.I strongly recommended to carry out these training videos that option to run the Jelqing exercise to avoid damage to your penis. It is always better to have a good knowledge of the product must use it.Penis Extender works on the same principle Jelqing exercise, but the mechanism of the two products are slightly different.
[[File:ListeBoxes.jpg]]


Pills When the right product - in fact, they work much better than any of the programs called "physical", filler or other questionable products on the market.  The most preferred option is the use of so-called penis enlargement (or male enhancement) pills. [http://tat-auto.ru/forum/index.php?action=profile;u=41515  pills penis enlargement] If you have a series of TV commercials (smiling Bob ...), you also know some of the advertised products. Ancient writings tell us that exercises were used as the expansion in front of thousands of years means penis. However revealed only recently serious medical studies and clinical trials, increase penis exercises really penis length and girth.  
== Function ==
<highlight-nsis>OutFile listboxes.exe


Also gave the same studies that the increase in penis size is not the only benefit of the penis exercises.Some benefits of these exercises (also male enhancement exercises) are increasing your ability to work harder and longer erection (as you are no longer in a position in bed ) to produce modified, increasing the volume of semen, if your penis enlargement capsules overall sexual control and performance, and of course make your penis larger ejaculate. All these effects can improve your life, imagine how confident you would be if you want your penis is longer than average and you take enough time in bed with your partner happy know. This can be achieved if you follow him program.
;Includes
!include nsDialogs.nsh
!include LogicLib.nsh


;Definitions
!define MOVE_BUTTONS
!define COPY_BUTTONS


Indeed, there are some methods that have been tested and shown that they actually affect the growth of the penis. So I said it once, I'll say again, that a thousand times. If you want to get a bigger penis, make sure you use your imagination and combine various methods you will be on hand. If you are unsure of what you want, you can always ask a friend who knows, or even doctors. Both products increase blood flow to the penile tissue and cause them to proliferate, leading to an enlargement of the penis. A penis extender can help you get harder erections with an increase in sexual desire and also because of increased blood flow to the penis, helping it to have the sexual stamina, so that the problem of premature ejaculation and you will get a big penis and male in a few weeks. The only difference is that the mechanism of penile extenders working in the outer part of the penis, increasing the size helps. You be just one click away from a perfect [http://talesofbast.talkthis.com/profile.php?mode=viewprofile&u=26912  pills for penis enlargement] sex life with a big penis the natural desire of every woman in six, many men in the world would want a bigger penis -.? longer, wider and stronger penis There are hundreds (maybe thousands) of products 'improvement' and technicians in the market today, as we know it really works I have the time to start I really believe that effective research methods to obtain inches (forget the rest, severe) is.
;Variables
Var Dialog
Var ListBox_left
Var ListBox_right
!ifdef MOVE_BUTTONS
  Var Button_MoveRight
  Var Button_MoveLeft
!endif ;MOVE_BUTTONS
!ifdef COPY_BUTTONS
  Var Button_CopyRight
  Var Button_CopyLeft
!endif ;COPY_BUTTONS


http://skieagle.sionc.biz/msgboard/index.php?action=profile;u=46659
;Pages
http://suga-mama.net/board/index.php?action=profile;u=40440
Page custom nsDialogsPage
http://forumvig.cdu-gevelsberg.de/index.php?action=profile;u=63059
Page InstFiles
http://ypaypal.com/Victims/index.php?action=profile;u=63538
http://www.naypyidawforum.com/forum/index.php?action=profile;u=309
http://bilgipolis.com/pnu/index.php?action=profile;u=1558
http://crazydategirl.com/index.php?action=profile;u=8955
http://dog-channel.tv/forum/index.php?action=profile;u=35213
http://condok9.com/smf/index.php?action=profile;u=51739
http://www.ourhouserunnethover.com/askgaryforum/profile.php?id=784
http://thewritersnews.com/discuss/index.php?action=profile;u=41314
http://satserv.ru/forum/index.php?s=a57262918945009b2d467584ada98fc9&showuser=85531
http://intertech.ba/forum/index.php?action=profile;u=27270
http://Ibewlocal291.org/information/forum/index.php?action=profile;u=46653
http://www.edurmu.org/smf/index.php?action=profile;u=32044
http://thx138.net/smf/index.php?action=profile;u=17588
http://it247msps.com/smf/index.php?action=profile;u=6347
http://www.poshypattie.com/forum/index.php?action=profile;u=18002
http://www.adeduline.org/DF/profile.php?mode=viewprofile&u=72502
http://maarofthailand.talkthis.com/profile.php?mode=viewprofile&u=3777
http://wlmtools.altervista.org/forum/index.php?action=profile;u=1997
http://www.airjesus.com/phpBB2/profile.php?mode=viewprofile&u=130144
http://www.kidneyfoundationbd.com/forum/memberlist.php?mode=viewprofile&u=126347
http://uptodatearticles.com/forum/index.php?action=profile;u=1679
http://www.endourology.gr/forum/profile.php?mode=viewprofile&u=81555
http://icanputt.com/forum/profile.php?mode=viewprofile&u=83629
http://shestov.com/fbben/profile.php?mode=viewprofile&u=79747
http://thebrux.com.br/forum/index.php?action=profile;u=7807
http://forest.talkthis.com/profile.php?mode=viewprofile&u=2796
http://forums.sigmapiasu.com/profile.php?mode=viewprofile&u=145707


;Functions
Function nsDialogsPage


Some men [http://male-extra-reviewed.com/does-male-extra-really-work male extra pills] love the rock, because they know that they know the other person feel uncomfortable and throw them out of balance. This puts male extra penis enlargement  them under control. What should a woman do if this list? It is recommended that they recognize this trick and then hung tough and refused to be influenced. Or they can detect the packet in the verbal non-verbal, said: "It is a powerful approach is," I do not get it right now read how you are wondering about what I say, what you think. " a man know that he her. Keep in the eye, known widely for its aphrodisiac properties grenade unique. In fact, supplemented with high-end technologies to process organic food extract even type, freshness and goodness of the pomegranate is guaranteed. Granted, it is to eat really hard and drink, how many hand grenades for a day, but commented on the color booster will tell you how easy it is to supplements is to consume as pomegranate. Painting a male extra enhancer is a dietary supplement known that could actually increase the size of the penis of the man.
nsDialogs::Create /NOUNLOAD 1018
Pop $Dialog
 
${If} $Dialog == error
Abort
${EndIf}
 
${NSD_CreateListBox} 0 5% 33% 90% " "
Pop $ListBox_left
 
;dummy data
${NSD_LB_AddString} $ListBox_left "111"
${NSD_LB_AddString} $ListBox_left "222"
${NSD_LB_AddString} $ListBox_left "333"
 
${NSD_CreateListBox} 66% 5% 33% 90% " "
Pop $ListBox_right
;more dummy data
${NSD_LB_AddString} $ListBox_right "AAA"
${NSD_LB_AddString} $ListBox_right "BBB"
${NSD_LB_AddString} $ListBox_right "CCC"
  !ifdef MOVE_BUTTONS
${NSD_CreateButton} 50% 40% 10% 20 "->"
Pop $Button_MoveRight
GetFunctionAddress $0 OnClick_MoveRight
${NSD_OnClick} $Button_MoveRight OnClick_MoveRight
${NSD_CreateButton} 40% 40% 10% 20 "<-"
Pop $Button_MoveLeft
GetFunctionAddress $0 OnClick_MoveLeft
${NSD_OnClick} $Button_MoveLeft OnClick_MoveLeft
  !endif ;MOVE_BUTTONS
  !ifdef COPY_BUTTONS
${NSD_CreateButton} 50% 50% 10% 20 ">>"
Pop $Button_CopyRight
GetFunctionAddress $0 OnClick_CopyRight
${NSD_OnClick} $Button_CopyRight OnClick_CopyRight
${NSD_CreateButton} 40% 50% 10% 20 "<<"
Pop $Button_CopyLeft
GetFunctionAddress $0 OnClick_CopyLeft
${NSD_OnClick} $Button_CopyLeft OnClick_CopyLeft
  !endif ;COPY_BUTTONS
 
nsDialogs::Show
 
FunctionEnd
 
!ifdef MOVE_BUTTONS
  Function OnClick_MoveRight
Pop $R0
SendMessage $ListBox_left ${LB_GETCURSEL} 0 0 $0
${If} $0 >= 0
System::Call user32::SendMessage(i$ListBox_left,i${LB_GETTEXT},i$0,t.r1)
${NSD_LB_AddString} $ListBox_right "$1"
SendMessage $ListBox_left ${LB_DELETESTRING} $0 `STR:$1`
${EndIf}
  FunctionEnd
 
  Function OnClick_MoveLeft
Pop $R0
SendMessage $ListBox_right ${LB_GETCURSEL} 0 0 $0
${If} $0 >= 0
System::Call user32::SendMessage(i$ListBox_right,i${LB_GETTEXT},i$0,t.r1)
${NSD_LB_AddString} $ListBox_left "$1"
SendMessage $ListBox_right ${LB_DELETESTRING} $0 `STR:$1`
${EndIf}
  FunctionEnd
!endif ;MOVE_BUTTONS
 
!ifdef COPY_BUTTONS
  Function OnClick_CopyRight
Pop $R0
SendMessage $ListBox_left ${LB_GETCURSEL} 0 0 $0
${If} $0 >= 0
System::Call user32::SendMessage(i$ListBox_left,i${LB_GETTEXT},i$0,t.r1)
${NSD_LB_AddString} $ListBox_right "$1"
${EndIf} 
  FunctionEnd
 
  Function OnClick_CopyLeft
Pop $R0
SendMessage $ListBox_right ${LB_GETCURSEL} 0 0 $0
${If} $0 >= 0
System::Call user32::SendMessage(i$ListBox_right,i${LB_GETTEXT},i$0,t.r1)
${NSD_LB_AddString} $ListBox_left "$1"
${EndIf}
  FunctionEnd
!endif ;COPY_BUTTONS
 
;Section
Section
Quit
SectionEnd</highlight-nsis>
 
[[Category:Code Examples]] [[Category:nsDialogs Examples]]

Latest revision as of 17:59, 26 October 2010

Author: Jan (talk, contrib)


Description

A custom page using nsDialogs to move (or copy) data between controls, in this case two listboxes

ListeBoxes.jpg

Function

OutFile listboxes.exe
 
;Includes
!include nsDialogs.nsh
!include LogicLib.nsh
 
;Definitions
!define MOVE_BUTTONS
!define COPY_BUTTONS
 
;Variables
Var Dialog
Var ListBox_left
Var ListBox_right
!ifdef MOVE_BUTTONS
  Var Button_MoveRight
  Var Button_MoveLeft
!endif ;MOVE_BUTTONS
!ifdef COPY_BUTTONS
  Var Button_CopyRight
  Var Button_CopyLeft
!endif ;COPY_BUTTONS
 
;Pages
Page custom nsDialogsPage
Page InstFiles
 
;Functions
Function nsDialogsPage
 
	nsDialogs::Create /NOUNLOAD 1018
	Pop $Dialog
 
	${If} $Dialog == error
		Abort
	${EndIf}
 
	${NSD_CreateListBox} 0 5% 33% 90% " "
	Pop $ListBox_left
 
	;dummy data
	${NSD_LB_AddString} $ListBox_left "111"
	${NSD_LB_AddString} $ListBox_left "222"
	${NSD_LB_AddString} $ListBox_left "333"
 
	${NSD_CreateListBox} 66% 5% 33% 90% " "
	Pop $ListBox_right
 
	;more dummy data
	${NSD_LB_AddString} $ListBox_right "AAA"
	${NSD_LB_AddString} $ListBox_right "BBB"
	${NSD_LB_AddString} $ListBox_right "CCC"
 
  !ifdef MOVE_BUTTONS
	${NSD_CreateButton} 50% 40% 10% 20 "->"
	Pop $Button_MoveRight
	GetFunctionAddress $0 OnClick_MoveRight
	${NSD_OnClick} $Button_MoveRight OnClick_MoveRight
 
	${NSD_CreateButton} 40% 40% 10% 20 "<-"
	Pop $Button_MoveLeft
	GetFunctionAddress $0 OnClick_MoveLeft
	${NSD_OnClick} $Button_MoveLeft OnClick_MoveLeft
  !endif ;MOVE_BUTTONS	
 
  !ifdef COPY_BUTTONS
	${NSD_CreateButton} 50% 50% 10% 20 ">>"
	Pop $Button_CopyRight
	GetFunctionAddress $0 OnClick_CopyRight
	${NSD_OnClick} $Button_CopyRight OnClick_CopyRight
 
	${NSD_CreateButton} 40% 50% 10% 20 "<<"
	Pop $Button_CopyLeft
	GetFunctionAddress $0 OnClick_CopyLeft
	${NSD_OnClick} $Button_CopyLeft OnClick_CopyLeft
  !endif ;COPY_BUTTONS
 
	nsDialogs::Show

FunctionEnd
 
!ifdef MOVE_BUTTONS
  Function OnClick_MoveRight
	Pop $R0
	SendMessage $ListBox_left ${LB_GETCURSEL} 0 0 $0
	${If} $0 >= 0
		System::Call user32::SendMessage(i$ListBox_left,i${LB_GETTEXT},i$0,t.r1)
		${NSD_LB_AddString} $ListBox_right "$1"
		SendMessage $ListBox_left ${LB_DELETESTRING} $0 `STR:$1`
	${EndIf}
  FunctionEnd
 
  Function OnClick_MoveLeft
	Pop $R0
	SendMessage $ListBox_right ${LB_GETCURSEL} 0 0 $0
	${If} $0 >= 0
		System::Call user32::SendMessage(i$ListBox_right,i${LB_GETTEXT},i$0,t.r1)
		${NSD_LB_AddString} $ListBox_left "$1"
		SendMessage $ListBox_right ${LB_DELETESTRING} $0 `STR:$1`
	${EndIf}
  FunctionEnd
!endif ;MOVE_BUTTONS
 
!ifdef COPY_BUTTONS
  Function OnClick_CopyRight
	Pop $R0
	SendMessage $ListBox_left ${LB_GETCURSEL} 0 0 $0
	${If} $0 >= 0
		System::Call user32::SendMessage(i$ListBox_left,i${LB_GETTEXT},i$0,t.r1)
		${NSD_LB_AddString} $ListBox_right "$1"
	${EndIf}  
  FunctionEnd
 
  Function OnClick_CopyLeft
	Pop $R0
	SendMessage $ListBox_right ${LB_GETCURSEL} 0 0 $0
	${If} $0 >= 0
		System::Call user32::SendMessage(i$ListBox_right,i${LB_GETTEXT},i$0,t.r1)
		${NSD_LB_AddString} $ListBox_left "$1"
	${EndIf}
  FunctionEnd
!endif ;COPY_BUTTONS
 
;Section
Section
	Quit
SectionEnd