Go to most recent revision | Blame | Last modification | View Log | RSS feed
ß Ö °¨:^ñ <p HighScore.pas5´g: r HighScore.dfm*´g:dStdCtrlsÈCÒï fTButton7êÈeg.TButtonx;HcdComCtrlsÈCÒï fTPageControl§õ1f TTabSheet$Ó5Íf TListView *Åf TListItem¦jg .TPageControl©5hg
.TTabSheeta¨¯g
.TListViewô§gTCustomListView.SetSortTypeHgxYf TSortTypeVÍgstNone®DB«gTListItems.Addxer´gTListItem.SetCaptionLgstText°DB«cdDialogsÈCÒï 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Èg
TCustomForm.SetFocusÚgaÈgTCustomForm.SetFocusedControlÛgaÈgTCustomForm.ShowModalÝgaÈgTCustomForm.WantChildKeyÞgaÈg%TScrollingWinControl.AdjustClientRect¸(#g&TScrollingWinControl.AutoScrollEnabledº(#g%TScrollingWinControl.AutoScrollInView»(#gTCustomForm.CloseÌgaÈcdControlsÈCÒï gTWinControl.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.SetNam
eQ`)gTControl.SetBiDiModeU`)gTControl.InitiateAction`)cdGraphicsÈCÒï cdClassesÈCÒï gTComponent.UpdateRegistryòìgTComponent.WriteStateòìgTComponent.SafeCallExceptionªòìgTPersistent.Assign§N`fTStringListÌæ~8cdSysUtilsÈCÒï gStrToIntDef$gIntToStri5gFormatùÕðùg
FileExists°üêg
DeleteFile°üêcdMessagesÈCÒï cdWindowsÈCÒï cdSysInitÈCÒï cdSystemÈCÒï fTObject¼©_fInteger¶¨§ f
AnsiStringÔÿ×fStringÔÿ×gTObject.DispatchÀGgTObject.NewInstanceÂGgTObject.FreeInstanceÃGgExit g @LStrArrayClrzY´g@HandleFinallyEóagRound g@LStrAddRefö³jg@ROUNDEóafTextFileÃç²g
AssignFile g@AssignìjtgReset g
@ResetTextR#µDgEof g@EofTextw)ågReadln g@ReadLStringÑÄg@ReadLnrɳØg CloseFile g@CloseR#µDg@_IOTestEóag@LStrClrѨ}µg@LStrAsg4µce Constants^ñ gJNL_SEP÷pgJNL_FILEX(ce Functions^ñ gExplode/â³c4 HighScoreiif@c4Windows Êc4Messages Èc4SysUtils ¼c4Classes °c4Graphics ®c4Controls vc4Forms (c4Dialogs &c4ComCtrls
c4StdCtrls c&.THighScoreFormXt *THighScoreForm0ùå HighScoreFormæ>_ÿL .2f 4 Functions c4 Constants c(THighScoreForm.CompareDesc+¼Óµ Ý"!Self !Sender!Item1
!Item2
!Data&"Compare& n1 n2 c(THighScoreForm.Parse0¼Óµ !
"!Self!JournalEntryfø res Datefð Namefè Scorefà SecondsfØ RemovedfÐ Total Remaining
PPMfÈ .
.
.
.
c(THighScoreForm.ReadOutJournal1¼Óµ "!Self ffÁø tmpføc(THighScoreForm.Execute3¼Óµ À"!Self! LevelNameføc(THighScoreForm.CompareAsc,¼Óµ Ý"!Self !Sender!Item1
!Item2
!Data&"Compare& n1 n2 c(THighScoreForm.CloseBtnClick-¼Óµ "!Self !Senderc(THighScoreForm.ClearBtnClick.¼Óµ !"!Self!Senderc(THighScoreForm.ClearLists2¼Óµ z"!Selfc(FinalizationEóa \! "c( HighScore !"cþG Ñ FTU ¡Qz©þ¼&