Programming Tool Box

home *** CD-ROM | disk | FTP | other *** search

/ Programming Tool Box / SIMS_2.iso / vb_code1 / my_mem / myset.frm (.txt) < prev

Wrap

Visual Basic Form | 1992-01-27 | 7KB | 172 lines

Myset Settings Form1 FrameX Horizontal Squares OptionH8 OptionH10 OptionH12 OptionH14 OptionH16 , OptionH18 CmdOK FrameY Vertical Squares OptionV6 OptionV8 OptionV10 FrameSquare Square Size (pixels) ) OptionP32 * OptionP40 + OptionP48 # CmdCancel Cancel FrameTime &Unmatched Pairs Stay Visible (seconds) OptionS1 OptionS2 OptionS3 OptionS4 OptionS5 CheckScore Save Best Score FrameSave Save Settings to: OptionSaveNo Don't Save OptionSaveWIN Save to WIN.INI OptionSaveMy Save to MyMemory.INI OptionSaveWEP Save to ENTPACK.INI TempX TempYx TempTime TempFile TempScore TempSquare CmdOK_Click MousePointer HOURGLASS NumberXSquares? NumberYSquaresS SquareSize SquareStatusArray SquareSceneArray ResizeMyMemoryForm[ InitFieldo SaveFileChange SetTimer SaveFile SelectSaveFileMyg IniFile SelectMy SelectSaveFileWEP SelectWEP SelectSaveFileWIN SelectWIN SaveScore DEFAULT MySet CmdCancel_ClickB OptionH10_Click ReCheckValidYU OptionH12_Clickh OptionH14_Click{ OptionH16_Click OptionH18_Click OptionH8_Click OptionS1_Click OptionS2_Click OptionS3_Click OptionS4_Click OptionS5_Click= OptionSaveMy_Click CheckScore2 Enabled Value CHECKED} OptionSaveNo_Click SelectSaveFileNo FALSE UNCHECKED OptionSaveWEP_Click OptionSaveWIN_Click OptionV10_Click OptionV6_Click OptionV8_Click CheckScore_Click OptionP32_Click ReCheckValid, OptionP40_Click OptionP48_Click ScreenPixelSizeX OptionH18 OptionH16 OptionH14 OptionH12 FieldY FormLabel FormHeader TwipsPerPixel ScreenPixelSizeY OptionV10 OptionV8 OptionV6j CmdOK_Click Hide Form first so we don't paint screen twice MySet.Hides Tell player to waitw One or Both X and Y Values may have changedi see if X size has changed See if Y has changed See if Square size has changed redimension the arrays Resize form Initialize Field and display Indicate Setup has Changed see if timer value has changed see if ini file has changedg Indicate change to save score CmdCancel_Click OptionH10_Click OptionH12_Click OptionH14_Click OptionH16_Click OptionH18_Click OptionH8_Click OptionS1_Click OptionS2_Click OptionS3_Click OptionS4_Click OptionS5_Click OptionSaveMy_Click OptionSaveNo_Click OptionSaveWEP_Click OptionSaveWIN_Click OptionV10_Click OptionV6_Click OptionV8_Click CheckScore_Click OptionP32_Click OptionP40_Click OptionP48_Click ReCheckValid recheck X values to see which are valid with square size Check option for 18 squares across If item selected reduce to next lower selectionu Check option for 16 squares across If item selected reduce to next lower selectionu Check option for 14 squares across If item selected reduce to next lower selectionu this routine assumes minimum X pixel size of 640 so it doesn't check options using less than 14 squares across ( 12 * 48 = 576 which is less than 640)t ReCheckValidY Check option for 10 squares down If item selected reduce to next lower selections Check option for 8 squares down If item selected reduce to next lower selections