update state field

git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@5213 212acab6-be3b-0410-9dea-997c60f758d6

Contrib/nsDialogs/InstallOptions.nsi

@@ -4,7 +4,7 @@
 Name "nsDialogs IO"
 OutFile "nsDialogs IO.exe"
 
-Page custom nsDialogsIO
+Page custom nsDialogsIO UpdateINIState
 Page instfiles
 
 XPStyle on
@@ -29,4 +29,18 @@ Function nsDialogsIO
 FunctionEnd
 
 Section
+
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 2" "State"
+  DetailPrint "Install X=$0"
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 3" "State"
+  DetailPrint "Install Y=$0"
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 4" "State"
+  DetailPrint "Install Z=$0"
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 5" "State"
+  DetailPrint "File=$0"
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 6" "State"
+  DetailPrint "Dir=$0"
+  ReadINIStr $0 "$PLUGINSDIR\io.ini" "Field 8" "State"
+  DetailPrint "Info=$0"
+
 SectionEnd

Contrib/nsDialogs/nsDialogs.nsh

@@ -354,6 +354,24 @@ Function CreateDialogFromINI
 
 FunctionEnd
 
+Function UpdateINIState
+
+	${DEBUG} "Updating INI state"
+
+	ReadINIStr $R0 $0 Settings NumFields
+
+	${DEBUG} "NumField = $R0"
+
+	${For} $R1 1 $R0
+		ReadINIStr $R2 $0 "Field $R1" HWND
+		${DEBUG} "  HWND = $R2"
+		System::Call user32::GetWindowText(iR2,t.R2,i${NSIS_MAX_STRLEN})
+		${DEBUG} "  Window text = $R2"
+		WriteINIStr $0 "Field $R1" STATE $R2
+	${Next}
+
+FunctionEnd
+
 Function FileRequest
 
 	IntOp $R5 $R5 - 15