Subversion Repositories jumper

ßÖ °¨˜:^ñ˜–<p
HighScore.pas5´g:r
HighScore.dfm*´g:dStdCtrlsÈCÒïfTButton7êÈeg.TButtonx;HcdComCtrlsÈCÒïfTPageControl§õ1f	TTabSheet$Ó5Íf	TListView
	*Åf	TListItem‰¦jg
.TPageControl©5hg

.TTabSheeta¨¯g

.TListViewô–œ§gTCustomListView.SetSortTypeHgxYf	TSortTypeV›ÍgstNone®DB«gTListItems.Addxer´gTListItem.SetCaptionL”ŽgstText°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.Notification€gaÈgTCustomForm.PaintWindow‚gaÈgTCustomForm.QueryInterface„gaÈgTCustomForm.ReadState…gaÈgTCustomForm.SetParentBiDiModeˆgaÈgTCustomForm.SetParentŠgaÈgTCustomForm.UpdateActions‹gaÈgTCustomForm.ValidateRenamegaÈgTCustomForm.WndProcgaÈgTCustomForm.ResizinggaÈ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È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.SetNameQ†`)gTControl.SetBiDiModeU†`)gTControl.InitiateAction”†`)cdGraphicsÈCÒïcdClassesÈCÒïgTComponent.UpdateRegistryŽŽòìgTComponent.WriteState’ŽòìgTComponent.SafeCallExceptionªŽòìgTPersistent.Assign§N`fTStringListÌæ~8cdSysUtilsÈCÒïgStrToIntDef$‘gIntToStri5ŽgFormatùÕðùg

FileExists°üêg

DeleteFile°üêcdMessagesÈCÒïcdWindowsÈCÒïcdSysInitÈCÒïcdSystemÈCÒïfTObject¼„©_fInteger¶¨§
f

AnsiStringÔÿ×fStringÔÿ×gTObject.DispatchÀG—ƒgTObject.NewInstanceÂG—ƒgTObject.FreeInstanceÃG—ƒgExitg
@LStrArrayClrzYœ´g@HandleFinallyEóa‚gRoundg@LStrAddRefö³jg@ROUNDEóa‚fTextFile•Ãç²g

AssignFileg@Assignì˜jtgResetg

@ResetTextR#µDgEofg@EofTextw)ågReadlng@ReadLStringÑÄg@ReadLnrɳØg	CloseFileg@CloseR#µDg@_IOTestEóa‚g@LStrClrѨ}µg@LStrAsgƒ4µce	Constants^ñ˜gJNL_SEP’÷pgJNL_FILEX(ce	Functions^ñ˜gExplode/â³c4	HighScore€iif@c4WindowsÊc4MessagesÈc4SysUtils¼c4Classes°c4Graphics®c4Controlsvc4Forms(c4Dialogs&c4ComCtrls

c4StdCtrlsc&.THighScoreForm€‡Xt*THighScoreFormˆ0ùå‘ 
HighScoreFormæ>_ÿ‘L .2f 4	Functionsc4	Constantsc(THighScoreForm.CompareDesc€+¼ÓµÝ"!Self!Sender!Item1

!Item2

!Data&"Compare& n1 n2c(THighScoreForm.Parse€0¼Óµ!

"!Self!JournalEntryfø res Datefð Namefè Scorefà SecondsfØ RemovedfÐ Total 	Remaining

 PPMfÈ 
.

 
.

 
.

 
.

c(THighScoreForm.ReadOutJournal€1¼Óµ"!Self 
ffÁø tmpføc(THighScoreForm.Execute€3¼ÓµÀ"!Self!	LevelNameføc(THighScoreForm.CompareAsc€,¼ÓµÝ"!Self!Sender!Item1

!Item2

!Data&"Compare& n1 n2c(THighScoreForm.CloseBtnClick€-¼Óµ"!Self!Senderc(THighScoreForm.ClearBtnClick€.¼Óµ!"!Self!Senderc(THighScoreForm.ClearLists€2¼Óµz"!Selfc(Finalization€Eóa‚\! "cž(	HighScore€!"cžþGÑ	FTU¡Qz©þ¼&,PageControlá,RemainingTabñ,TimeTab
,
RemainingList,ScoreTab!,PPMTab1,TimeListA,	ScoreListQ,PPMLista,CloseBtnq,ClearBtn-CompareDescîi-

CompareAscîé-
CloseBtnClickî
-
ClearBtnClickî,

FLevelName‘-Parseî-ReadOutJournalîÍ-

ClearListsî%-ExecuteîÝcD €ÿÿÿP@lå#L@
R
S(
$bøPageControlü
RemainingTab
TimeTab
RemainingList
ScoreTab
PPMTabTimeList	ScoreListPPMListCloseBtn ClearBtnCompareDesc

CompareAsc
CloseBtnClick
ClearBtnClickTHighScoreFormTHighScoreFormL^	HighScoreU‹ìjjSV‹Ù‹u3ÀUh¨dÿ0d‰ ‹C‹ÿRH|f‹F‹ÿRH|[Mü‹Cº
‹ÿS‹Eü3Òè‹ØMø‹Fº
‹0ÿV‹Eø3Òè;Ãu	‹E3҉ë;Ã}‹EÇ
ë	‹EÇÿÿÿÿ3ÀZYYd‰h¯EøºèÃéëë^[YY]ÂU‹ì¹jjIuùQSVW‰Uü‹Ø‹Eüè3ÀUhgdÿ0d‰ ‹Uü¸€è‹ðMø3ҋƋ8ÿWMôº
‹Æ‹8ÿWM຋Ƌ8ÿW‹Eà3Òè‰EðMܺ‹Æ‹8ÿW‹EÜ3Òè‰EìMغ‹Æ‹8ÿW‹EØ3Òè‰EèMÔº‹Æ‹0ÿV‹EÔ3Òè‹ø+}èÛEðÛEìÞùØ
„è‰Eä3ҋƒ苃‹€,è‹ð‹Uô‹Æè‹F‹Uø‹ÿQ8UЋÇè‹UЋF‹ÿQ8²‹ƒè3ҋƒ苃‹€,è‹ð‹Uô‹Æè‹F‹Uø‹ÿQ8ŰEðè‹ŰF‹ÿQ8²‹ƒè3ҋƒ苃‹€,è‹ð‹Uô‹Æè‹F‹Uø‹ÿQ8UȋEìè‹UȋF‹ÿQ8²‹ƒè3ҋƒ苃‹€,è‹ð‹Uô‹Æè‹F‹Uø‹ÿQ8UċEäè‹UċF‹ÿQ8²‹ƒè3ÀZYYd‰hnEĺèEôºèÃéëÞ_^[‹å]Ãÿÿÿÿ
|pBU‹ìÄ(þÿÿS3҉Uü‹Ø3ÀUhÝdÿ0d‰ ‹ÃèEüP‹ƒ$‰…(þÿÿƅ,þÿÿ•(þÿÿ3ɸôè‹Eüè„Àtl‹Uü…0þÿÿ荅0þÿÿèèë(Uü…0þÿÿ荅0þÿÿèè‹Uü‹Ã荅0þÿÿèè„Àtč…0þÿÿèè3ÀZYYd‰häEüèÃéëð[‹å]ÃÿÿÿÿJournal\%s.jnlU‹ìQS‰Uü‹Ø‹Eüè3ÀUhUdÿ0d‰ ƒ$‹Uüè‹Ãè‹Ã‹ÿ’ì3ÀZYYd‰h\EüèÃéëð[Y]ÃU‹ìjjSV‹Ù‹u3ÀUh¨dÿ0d‰ ‹C‹ÿRH|f‹F‹ÿRH|[Mü‹Cº
‹ÿS‹Eü3Òè‹ØMø‹Fº
‹0ÿV‹Eø3Òè;Ãu	‹E3҉ë;Ã}‹EÇÿÿÿÿë	‹EÇ
3ÀZYYd‰h¯EøºèÃéëë^[YY]ÂèÃU‹ìƒÄôS3ɉMü‹Ø3ÀUhadÿ0d‰ EüP‹ƒ$‰EôÆEøUô3ɸxè‹Eüè‹Ãè3ÀZYYd‰hhEüèÃéëð[‹å]ÃÿÿÿÿJournal\%s.jnlS‹Ø‹ƒ‹ÿ’Ø‹ƒ‹ÿ’Ø‹ƒ‹ÿ’Ø‹ƒ‹ÿ’Ø[ÃU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-
ÃmñQ
Q
Q
U
Q
Q
Q
,
¶
^
`
Ø
d
Ú
Ü
\
x
6
¸
B
D
J
¨
²
R
´
H
X
|
z
~
š
ˆ
>
Œ
œ
ž
@
 
¢
¤
¦
N
L
ª
T
¬
’
”
–
˜
n
.
€
0
2
4
‚
„
8
†
Š
F
Ž

f
p
r
V
:
<
P
Z
b
h
j
l
Ö
QÙ
i$
é"

(
F



U
U(
Q
*$i$
il¾8¾d
iàâ8æ



!l¾8¾8¾8¾&


è " "*À0" ",À0" ",À0" ",À0
ààâ@Í*
Í%H
Í

ÂÄ$îò

 úü

ö





Í	âLÝæ
Ý(
Í.
Ý	âé$
él¾8¾d
éàâ
t

$
B


ÂÆ%
	âL%z-
-
]
-â
]®fy

884V\8882

,&*&,&,&,x4>R$<ú

(Z@@N884V

8PH@`‘=’

0

½´

ÁÎ

Åè

É

“ŠªUUUUUU

U U"U$U&U(U*i0,`U,é40¥U0
64éU486ýU6U :><‚U"<Í@>-U$>%B@U&@ÝFDU(DYLmÞq^u^y`}``…d‰d‘•‚™†ˆ¡ˆ¥Š©Š­Š±ŠµŒ¹ŒÑÕ5Ù9áåíñ¡õ¡ù¥ý¥
¥­	­é!ý)
 -9”Œià0u8y8…œuœþ‰ÐyÐþ…Øþ‰Øþ…ê‰ê…òþ‰òþAxp2‘\™z™þ±±)þµ)

½
½©þµ©þÁ]Á	þŽÅiþÉÉÉþ‘¹	þÍ@aÑ>ÑÝþÝ@2á@á¸þéà0õ8ù8œõœþ	ÐùÐþØþ	Øþê	êòþ	òþ
@

þ@8Ðþ%@))vþ-  a