Blame | Last modification | View Log | RSS feed
ß ,a °¨:^ñ <pMain.pas£h: rMain.dfmh:dRegistryÈCÒï f TRegistryOÇ×?g
.TRegistry6UJ"gTRegistry.CreateLÅcgTRegistry.SetRootKeyEÅcgTRegistry.OpenKeyReadOnly^ÅcgTRegistry.ValueExistsnÅcgTRegistry.ReadBoolaÅcgTRegistry.CloseKeyOÅcgTRegistry.OpenKey]ÅcgTRegistry.WriteBoolqÅccdLevelFunctions^ñ f
TFieldType ~¡fTFieldPropertiesÛïz£fTLevelArrayÑíÿgftEmptyZ1óIgftGreen[1óIgftYellow\1óIgftRed]1óIgftLockedX1óIgftLockedWithTabY1óIgAllowDiagonalMovesev8gLevelStringToLevelArrayï.cdMMSystemÈCÒï g PlaySoundvºö=g SND_ASYNCæàÝg
SND_NOWAITf1ìÝgSND_RESOURCElä]cdFormsÈCÒï fTFormè±IfTCloseActionà%¢g.TFormïu$,gTCustomForm.AlignControlsmgaÈgTCustomForm.CreateParamspgaÈgTCustomForm.CreateWindowHandleqgaÈgTCustomForm.CreateWndrgaÈgTCustomForm.DefinePropertiestgaÈgTCustomForm.DestroyWindowHandleugaÈgTCustomForm.DoCreatewgaÈgTCustomForm.DoDestroyxgaÈgTCustomForm.GetClientRect{gaÈgTCustomForm.GetFloating}gaÈgTCustomForm.LoadedgaÈgTCustomForm.NotificationgaÈgTCustomForm.PaintWindowgaÈgTCustomForm.QueryInterfacegaÈgTCustomForm.ReadState gaÈgTCustomForm.SetParentBiDiModegaÈgTCustomForm.SetParentgaÈgTCustomForm.UpdateActionsgaÈgTCustomForm.ValidateRenamegaÈgTCustomForm.WndProcgaÈgTCustomForm.ResizinggaÈgTCustomForm.CreateÇgaÈgTCustomForm.CreateNewÈgaÈgTCustomForm.DestroyÉgaÈgTCustomForm.AfterConstructionÊgaÈgTCustomForm.BeforeDestructionËgaÈgTCustomForm.CloseQueryÍgaÈgTCustomForm.DefaultHandlerÎgaÈgTCustomForm.SetFocusÚgaÈgTCustomForm.SetFocusedControlÛgaÈgTCustomForm.ShowModalÝgaÈgTCustomForm.
WantChildKeyÞgaÈg%TScrollingWinControl.AdjustClientRect¸(#g&TScrollingWinControl.AutoScrollEnabledº(#g%TScrollingWinControl.AutoScrollInView»(#gTCustomForm.CloseÌgaÈgTCustomForm.SetClientWidth(gaÈgTCustomForm.SetClientHeight'gaÈgScreeni gTScreen.GetWidthfU)gTScreen.GetHeightfU)cdExtCtrlsÈCÒï fTPanel fTImageóû9fTTimerutOg.TPanelôyôg.TTimervç1gTTimer.SetEnabled8bsg.TImageÚûg TImage.Createø¾v]gTImage.SetCenterí¾v]gTImage.SetTransparentð¾v]gTCustomPanel.Create+ïòùgTCustomPanel.SetBevelInnerïòùgTCustomPanel.SetBevelOuterïòùcdComCtrlsÈCÒï f
TStatusBar 6g.TStatusBar®¨jgTStatusPanels.GetItemR¼ÝgTStatusPanel.SetText
¬ÖgTStatusPanel.SetWidth¡
¬ÖcdControlsÈCÒï f
TDragStateÏÉ7gTWinControl.AssignToê.¯gTWinControl.CanAutoSizeê.¯gTWinControl.CanResizeê.¯gTWinControl.ConstrainedResizeê.¯gTWinControl.CreateHandleê.¯g#TWinControl.CustomAlignInsertBeforeê.¯gTWinControl.CustomAlignPositionê.¯gTWinControl.DestroyWnd£ê.¯gTWinControl.GetClientOrigin³ê.¯gTWinControl.GetControlExtentsµê.¯gTWinControl.GetDeviceContext¶ê.¯gTWinControl.SetParentBackgroundÏê.¯gTWinControl.ShowControlÑê.¯gTWinControl.Invalidateë.¯gTWinControl.Repaintë.¯gTWinControl.SetBoundsë.¯gTWinControl.Update ë.¯gTControl.GetAction6`)gTControl.GetDragImages<`)gTControl.GetEnabled=`)g!TControl.GetFloatingDockSiteClass?`)gTControl.SetAutoSizeN`)gTControl.SetDragModeO`)gTControl.SetEnabledP`)gTControl.SetNameQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)gTControl.SetWidthô `)gTControl.SetHeightæ `)gTControl.SetLeftê `)gTControl.SetTopò `)f TDragMode¾gdmAutomaticê2?gdmManualé2?f TBevelCut æTg bvLoweredß©ZýgTControl.SetColorâ `)gmrOkæàÝgTControl.SetV
isibleó `)gTControl.GetClientWidthÇ `)gTControl.GetClientHeightÆ `)gTControl.GetTextÊ `)cdMenusÈCÒï f TMainMenu#ÁîÄf TMenuItem« g
.TMainMenu
Oa§g
.TMenuItemþÿgTMenuItem.SetEnabledðÌyAgTMenuItem.SetCheckedíÌyAcdStdCtrlsÈCÒï cdDialogsÈCÒï gShowMessage«¨Ê¨cdGraphicsÈCÒï fTPictureGigTPicture.GetBitmap<,CgTBitmap.LoadFromResourceNameø;ÍjcdClassesÈCÒï fTStringListÌæ~8gTComponent.UpdateRegistryòìgTComponent.WriteStateòìgTComponent.SafeCallExceptionªòìgTPersistent.Assign§N`f
TComponenttËÉg.TStringList³tñcdSysUtilsÈCÒï gFormatùÕðùcdWindowsÈCÒï fTPointõfªÿgHKEY_CURRENT_USERO¿cdSysInitÈCÒï g HInstanceF<cdSystemÈCÒï fBooleanW~8fTObject¼©_fInteger¶¨§ f
AnsiStringÔÿ×fStringÔÿ×gTObject.DispatchÀGgTObject.NewInstanceÂGgTObject.FreeInstanceÃGgLow gHigh g @DynArrayHighEóagAssigned gTObject.FreeGg SetLength g@DynArrayAddRefEóag@DynArraySetLengthEóag@DynArrayClearxB)²g@HandleFinallyEóagFalse¯¹òàgTrue°¹òàg@LStrClrѨ}µg@AsClassФgExit g LoadResString!ãg @LStrArrayClrzY´gInc gBreak f PAnsiCharruggLength g@DynArrayLengthEóagRound g@ROUNDEóag@DynArrayAsgEóag @CallDynaInstEóag@LStrAddRefö³jg@LStrAsg4µgTObject.Create¬Gg@FinalizeArrayBB´¼ce Constants^ñ g RES_EMPTYú£çg RES_GREENq÷"Ig
RES_YELLOWo×ßgRES_RED;=ðgMET_SHAPE_MARGINèàÝgMET_FIELD_SIZE
àÝgMET_FIELD_SPACEèàÝgMET_HALFTAB_SIZEùàÝgLNG_TIMEc~vgLNG_STONES_REMOVEDc~vg
LNG_POINTSc~vgLNG_JUMP_LOGc~vgRES_JUMPÃzg
RES_FINISHHïgMET_OUTER_MARGINíàÝgMET_PERCENT_PNL_TIMEɬågMET_PERCENT_PNL_STONES»ågLNG_LVL_INVALID_NO_JUMPc~vgREG_KEY(Ûtg REG_SOUNDð"çceHelp^ñ gHelpForm{#Hce HighScore^ñ g HighScoreForm>_ÿgTHighScoreForm.Execute3¼ÓµceHistory^ñ gHistoryForm÷0¤xce Functions^ñ gExtractFileNameWithoutExtxÝgSecondsToTimeStringÌgReadFilexÝceChoice^ñ gLevelChoicer(õÓgTLevelChoice.SelectedLevelg É÷ceFinish^ñ g
FinishForm1/Å¥gTFinishForm.Execute+ÉgTFinishForm.SaveSettings*ÉceAbout^ñ gAboutBox¤º*(c4Mainiif@c4Windows c4SysUtils c4Classes ec4Graphics Uc4Dialogs Mc4StdCtrls Ic4Menus -c4Controls ¾c4ComCtrls ²c4ExtCtrls c4Forms <c4MMSystem 2c4LevelFunctions c4Registry c*TFieldõr4%fsError tý6 %fsLocked
tý6 %fsAvailabletý6 %fsStonetý6 *TFieldState±Êî6*.1ÿÿÿÿ8*TPlayGroundMatrixöÊÉ:*.3ÿÿÿÿ<&
.TMainFormõÒè>