Go to most recent revision | Blame | Last modification | View Log | RSS feed
ß # °¨:^ñ <p
Choice.pasYh: r
Choice.dfm¸h:dExtCtrlsÈCÒï fTImageóû9g.TImageÚûcdMenusÈCÒï f
TPopupMenu *Ñf TMenuItem« g.TPopupMenuð·
´g
.TMenuItemþÿgTMenuItem.SetEnabledðÌyAcdComCtrlsÈCÒï f TListView *Åf TListItem¦jfTItemChangeJq g
.TListViewô§gTCustomListView.GetSelected.gxYgctState¤HgTListItems.Addxer´gTListItem.SetCaptionLgTListItem.SetImageLcdImgListÈCÒï cdStdCtrlsÈCÒï fTButton7êÈef TGroupBoxº!Îýg.TButtonx;Hg
.TGroupBox¡¯@àcdDialogsÈCÒï gShowMessage«¨Ê¨cdFormsÈCÒï fTFormè±Ig.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.W
antChildKeyÞgaÈg%TScrollingWinControl.AdjustClientRect¸(#g&TScrollingWinControl.AutoScrollEnabledº(#g%TScrollingWinControl.AutoScrollInView»(#gApplicationö0ϤgTApplication.GetExeName£ÈcdControlsÈCÒï f
TImageList RVgTWinControl.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`)g.TImageList¦Ä8gmrOkæàÝgmrCancelçàÝgTControl.GetClientWidthÇ `)gTControl.SetWidthô `)gTControl.SetLeftê `)gTControl.SetHeightæ `)gTControl.GetClientHeightÆ `)gTControl.SetTopò `)cdGraphicsÈCÒï cdCl
assesÈCÒï gTComponent.UpdateRegistryòìgTComponent.WriteStateòìgTComponent.SafeCallExceptionªòìgTPersistent.Assign§N`cdSysUtilsÈCÒï gFormatùÕðùf
TSearchRec LÀg FindFirstX©èg faAnyFile$àÝgFindNextA¶
g FindClose%ç´gForceDirectories°üêgExtractFilePathxÝcdMessagesÈCÒï cdWindowsÈCÒï cdSysInitÈCÒï cdSystemÈCÒï fTObject¼©_fStringÔÿ×f
AnsiStringÔÿ×gTObject.DispatchÀGgTObject.NewInstanceÂGgTObject.FreeInstanceÃGgAssigned gTrue°¹òàgExit g @LStrArrayClrzY´g@HandleFinallyEóagCopy gLength g@LStrLenÌg @LStrCopyEóag@InitializeRecord¹9g @LStrCat3Eóag@LStrClrѨ}µg@FinalizeRecord¹9fInteger¶¨§ gRound g@ROUNDEóag LoadResString!ãg@LStrCatEóace Constants^ñ gLVL_FILE<w¹gLVL_EXT=gxgLVL_PATHNqRégMET_PREVIEW_SIZE_RATIOUµågLNG_COULD_NOT_CREATE_DIRc~vceLevelFunctions^ñ gCheckLevelIntegrityh>|ÆfTLevelError³ °gleNone6~XgDrawLevelPreview§¦ó§gGetLevelType8Tü?f
TLevelType?ìJg
ltStandard¿¾g
ltDiagonal¿¾gltError¿¾ce Functions^ñ gReadFilexÝg
ClearImage±ï¹çc4Choiceiif@c4Windows öc4Messages ôc4SysUtils âc4Classes Øc4Graphics Öc4Controls c4Forms :c4Dialogs 6c4StdCtrls ,c4ImgList *c4ComCtrls c4Menus
c4ExtCtrls c& .TLevelChoiceKPN¶$ *TLevelChoicedÂÛÓ& LevelChoiceær(õÓ&J .2f( 4 Functions c4LevelFunctions qc4 Constants Yc(TLevelChoice.SelectedLevelg É÷ !Self&#Resultc(TLevelChoice.PlayBtnClick^ É÷ 1*!Self&!Sender LevelStringføc(TLevelChoice.CancelBtnClick_ É÷ *!Self&