TextBox Styles (numeric, uppercase and lowercase) - Revision history

Deguix: Link to InstallOptions plug-in.

2005-12-03T06:11:18Z

â† Older revision		Revision as of 06:11, 3 December 2005
Line 2:		Line 2:

	== Description ==		== Description ==
	'''Requires:''' [[System plug-in]].		'''Requires:''' [[InstallOptions plug-in\|InstallOptions]] or [[InstallOptionsEx]] and [[System plug-in\|System]] plug-ins.

	Change how your textbox behaves by applying different styles. This works with standard and IO dialogs.		Change how your textbox behaves by applying different styles. This works with standard and IO dialogs.

Deguix: Corrected link to System plug-in.

2005-12-03T06:09:11Z

Corrected link to System plug-in.

â† Older revision		Revision as of 06:09, 3 December 2005
Line 2:		Line 2:

	== Description ==		== Description ==
	''Requires:'' [[System]] ~~plugin~~.		'''Requires:''' [[System plug-in]].

	Change how your textbox behaves by applying different styles. This works with standard and IO dialogs.		Change how your textbox behaves by applying different styles. This works with standard and IO dialogs.

ConversionBot: Adding new author and category links.

2005-06-24T13:56:46Z

Adding new author and category links.

â† Older revision		Revision as of 13:56, 24 June 2005
Line 1:		Line 1:
	{~~\|align=right~~		{{PageAuthor\|dselkirk}}
	~~\|<small>Author: [[~~{~~{ns:2}}:dselkirk~~\|dselkirk~~]] ([[{{ns:3}}:dselkirk\|talk]], [[{{ns:-1}~~}~~:Contributions/dselkirk\|contrib]])</small>~~
	\|}
	~~<br style="clear:both;">~~
	== Description ==		== Description ==
	''Requires:'' [[System]] plugin.		''Requires:'' [[System]] plugin.
Line 68:		Line 66:
	</highlight-nsis>		</highlight-nsis>

	[[~~{{ns:14}}~~:System Plugin Examples]]		[[Category:System Plugin Examples]]

ConversionBot: Added category links.

2005-04-30T21:36:06Z

Added category links.

â† Older revision		Revision as of 21:36, 30 April 2005
Line 67:		Line 67:
	SectionEnd		SectionEnd
	</highlight-nsis>		</highlight-nsis>

			[[{{ns:14}}:System Plugin Examples]]

ConversionBot: Updated author links.

2005-04-30T03:04:44Z

Updated author links.

@@ Line 1: / Line 1: @@
 == Description ==
 ''Requires:'' [[System]] plugin.
@@ Line 63: / Line 67: @@
 SectionEnd
 </highlight-nsis>

ConversionBot: Updated author and download links, and changed format of some pages.

2005-04-23T12:39:26Z

Updated author and download links, and changed format of some pages.

â† Older revision		Revision as of 12:39, 23 April 2005
Line 64:		Line 64:
	</highlight-nsis>		</highlight-nsis>

	Page author: dselkirk		Page author: [[User:dselkirk\|dselkirk]]

ConversionBot: Wikipedia python library

2005-04-09T20:21:06Z

Wikipedia python library

New page

== Description ==
''Requires:'' [[System]] plugin.

Change how your textbox behaves by applying different styles. This works with standard and IO dialogs.

== The Script ==
<highlight-nsis>
name "TextBox Styles"
outfile "test.exe"

Page custom test

!define NUMERIC 0x2000
!define LOWERCASE 0x10
!define UPPERCASE 0x8

!macro STYLE HWND STYLE
;retrieve current style
System::Call 'user32::GetWindowLongA(i ${HWND},i -16) i .r1'
;append provided style
IntOp $1 $1 | ${STYLE}
;apply new style
System::Call 'user32::SetWindowLongA(i ${HWND},i -16,i r1) n'
!macroend

;EXAMPLE

!macro ADDFIELD TYPE LEFT RIGHT TOP BOTTOM TEXT
Push $R0
ReadINIStr $R0 "$PLUGINSDIR\test.ini" "Settings" "NumFields"
IntOp $R0 $R0 + 1
WriteINIStr "$PLUGINSDIR\test.ini" "Settings" "NumFields" $R0
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Type" "${TYPE}"
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Left" ${LEFT}
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Right" ${RIGHT}
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Top" ${TOP}
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Bottom" ${BOTTOM}
WriteINIStr "$PLUGINSDIR\test.ini" "Field $R0" "Text" "${TEXT}"
Pop $R0
!macroend

Function test
InitPluginsDir
!insertmacro ADDFIELD "Label" 0 35 0 12 "Numeric"
!insertmacro ADDFIELD "Text" 40 100 0 12 ""
!insertmacro ADDFIELD "Label" 0 35 20 32 "Lowercase"
!insertmacro ADDFIELD "Text" 40 100 20 32 ""
!insertmacro ADDFIELD "Label" 0 35 40 52 "Uppercase"
!insertmacro ADDFIELD "Text" 40 100 40 52 ""
InstallOptions::initDialog /NOUNLOAD "$PLUGINSDIR\test.ini"
Pop $R0
GetDlgItem $R1 $R0 1201 ;1200 + Field number - 1
!insertmacro STYLE $R1 ${NUMERIC}
GetDlgItem $R1 $R0 1203 ;1200 + Field number - 1
!insertmacro STYLE $R1 ${LOWERCASE}
GetDlgItem $R1 $R0 1205 ;1200 + Field number - 1
!insertmacro STYLE $R1 ${UPPERCASE}
InstallOptions::show
Pop $R0
FunctionEnd

Section ""
SectionEnd
</highlight-nsis>

Page author: dselkirk