Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | ß ,a °¨:^ñ <pMain.pas£h: rMain.dfmh:dRegistryÈCÒï f TRegistryOÇ×?g |
2 | .TRegistry6UJ"gTRegistry.CreateLÅcgTRegistry.SetRootKeyEÅcgTRegistry.OpenKeyReadOnly^ÅcgTRegistry.ValueExistsnÅcgTRegistry.ReadBoolaÅcgTRegistry.CloseKeyOÅcgTRegistry.OpenKey]ÅcgTRegistry.WriteBoolqÅccdLevelFunctions^ñ f |
||
3 | TFieldType ~¡fTFieldPropertiesÛïz£fTLevelArrayÑíÿgftEmptyZ1óIgftGreen[1óIgftYellow\1óIgftRed]1óIgftLockedX1óIgftLockedWithTabY1óIgAllowDiagonalMovesev8gLevelStringToLevelArrayï.cdMMSystemÈCÒï g PlaySoundvºö=g SND_ASYNCæàÝg |
||
4 | 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 |
||
5 | TStatusBar 6g.TStatusBar®¨jgTStatusPanels.GetItemR¼ÝgTStatusPanel.SetText |
||
6 | ¬ÖgTStatusPanel.SetWidth¡ |
||
7 | ¬ÖcdControlsÈCÒï f |
||
8 | 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.SetVisibleó `)gTControl.GetClientWidthÇ `)gTControl.GetClientHeightÆ `)gTControl.GetTextÊ `)cdMenusÈCÒï f TMainMenu#ÁîÄf TMenuItem« g |
||
9 | .TMainMenu |
||
10 | Oa§g |
||
11 | .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 |
||
12 | TComponenttËÉg.TStringList³tñcdSysUtilsÈCÒï gFormatùÕðùcdWindowsÈCÒï fTPointõfªÿgHKEY_CURRENT_USERO¿cdSysInitÈCÒï g HInstanceF<cdSystemÈCÒï fBooleanW~8fTObject¼©_fInteger¶¨§ f |
||
13 | 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 |
||
14 | RES_YELLOWo×ßgRES_RED;=ðgMET_SHAPE_MARGINèàÝgMET_FIELD_SIZE |
||
15 | àÝgMET_FIELD_SPACEèàÝgMET_HALFTAB_SIZEùàÝgLNG_TIMEc~vgLNG_STONES_REMOVEDc~vg |
||
16 | LNG_POINTSc~vgLNG_JUMP_LOGc~vgRES_JUMPÃzg |
||
17 | 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 |
||
18 | 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 |
||
19 | tý6 %fsAvailabletý6 %fsStonetý6 *TFieldState±Êî6*.1ÿÿÿÿ8*TPlayGroundMatrixöÊÉ:*.3ÿÿÿÿ<& |
||
20 | .TMainFormõÒè> |