Go to most recent revision | Blame | Last modification | View Log | RSS feed
# Ûs v¹â6×0ù LevMain <r WindowsXP.res Pn3rLevMain.DFMa 95pLevMain.pasa 95 dSystem fTObject|ê®ìfInteger fÂfBooleanúefChar#»f
AnsiString¶+{gTObject.Dispatchµ
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
Äfstring¶+{gTObject.SafeCallException²
ÄgTObject.AfterConstruction³
ÄgTObject.BeforeDestruction´
ÄgTObject.DefaultHandler¶
Äg @LStrCat3é`pÅg@LStrClr\ª«>g@HandleFinallyé`pÅgTrunc gTruevÉøg@TRUNCé`pÅg @LStrCatNé`pÅg @LStrArrayClrüg@ClassCreateçVÃg@AfterConstructionKfTextFiles¾gFalsesÉøgParamStrrÅögLength g@LStrLenrÅX[û gCopy g @LStrCopyé`pÅgInc g
ParamCount-¹{Zg
AssignFile g@AssignA#°ÀgReset g
@ResetTextðË gReadln g@ReadLString¹g@ReadLnÈg CloseFile g@CloseðË gExit fPLongintËÉg@LStrAsgÔg@LStrCmpé`pÅg@LStrCaté`pÅg@_IOTesté`pÅgTObject.Free¢
ÄgAbs fByteµáfCardinalIÐáKgTObject.Create¡
ÄgBreak gDec cdSysInit cdWindows fTRGBQuadóOOZf
tagRGBQUADóOOZfDWORDIÐáKgRGB-")@ý" gGetTickCountñöãcdMessages cdSysUtils g
FloatToStróÀ«gIntToStrñF¬gExtractFilePathÓ¢}Gg
FileExists'h'&gSleeprFßjgBeepé`pÅgStrToIntrÅöcdClasses fTShiftState cìfTStringsegTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTStringListôkPg.TStringList×dI¢cdGraphics gclBlackÂa9fTPicture"tëgTPicture.LoadFromFile_gTFont.SetColor/ÜgclBtnShadowòa6gclWindowTextÚa6cdControls fTMouseButtonùå½lgTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint<¾ßgTWinControl.SetBounds<¾ßgTWinControl.Update<¾ßgTControl.Get
ActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetLeftj×ïYgTControl.SetTopr×ïYgTControl.SetWidtht×ïYgTControl.SetHeightf×ïYgTControl.SetColorb×ïYgTControl.SetParentShowHinto×ïYgTControl.SetShowHintn×ïYgTWinControl.SetTabOrder²;¾ßgTControl.SetTextq×ïYgmbLeftr»ÿgmbRightu»ÿgmrYes¾}ç1gTControl.GetTextE×ïYcdForms fTCloseAction¿¬þgTCustomForm.AlignControls~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCusto
mForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.CreateNewu~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocus~C)gTCustomForm.SetFocusedControl~C)gTCustomForm.ShowModal~C)gTCustomForm.WantChildKey~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgTCustomForm.Closey~C)gTCustomForm.SetVisibleÓ}C)fTCustomFormI].gTCustomForm.Hide~C)cdMMSystem cdDialogs gShowMessageÞg
MessageDlgãn~fTMsgDlgType²ÇnÇg mtWarning+qlZf
TMsgDlgBtn>aKPgmbOK½
IãgmtConfirmation4qlZgmbYes·
IãgmbNoº
IãcdStdCtrls fTRadioButtonYÚ~&f
TScrollBar lçfTLabelÝ^LfTEditPõøfTScrollCodex¹Àg .TRadioButton<®\xg.TScrollBarãðI9g.TLabelÀ2*Òg.TEdit3ÉÖîgTScrollBar.SetPosition4=cdExtCtrls fTBevel£È¢ZfTPanelë§ fTImage|}5g.TBevel¬g.TPanelÎ{~qg.TImage_Q]cdMenus f TMainMenu të¢f TMenuItem1g
.TMainMenuHÉôg
.TMenuItemópëcdDIB gRGBQuad/i¢cdDXClass fTDXFormÿýífTDXTimer°î®âg.TDXFormâÑËagTDXForm.CreateParams'¨gTDXForm.Create(¨gTDXForm.Destroy)¨fTCustomDXTimerY óg .TDXTimerÂ4gTCustomDXTimer.CreateÀ#gTCustomDXTimer.SetIntervalÀ#gTCustomDXTimer.SetActiveOnlyÀ#gTCustomDXTimer.SetEnabledÀ#cdDXSprite fTDXSpriteEngineÏäñpfTBackgroundSprite|-ZfTSprite=d]ßg.TBackgroundSprite_ã
¬gTBackgroundSprite.DoDraw/BògTBackgroundSprite.GetBoundsRect®/BògTBackgroundSprite.TestCollision¯/BògTBackgroundSprite.Create°/BògTBackgroundSprite.Destroy±/BògTSprite.DoCollisionzrwfTImageSpriteßÂ5÷g .TImageSpriteÂIgTImageSprite.DoDrawãJgTImageSprite.GetBoundsRectãJgTImageSprite.TestCollisionãJgTSprite.DestroyrwgTSprite.DeadrwgTImageSprite.CreateãJfTCustomDXSpriteEnginedg.TDXSpriteEngine²¸ÏÂgTCustomDXSpriteEngine.Create>± gTCustomDXSpriteEngine.SetDXDraw>± gTCustomDXSpriteEngine.Move>± gTCustomDXSpriteEngine.Dead>± gTCustomDXSpriteEngine.Draw>± gTBackgroundSprite.SetMapSize²/BògTSprite.SetZyrwg TSprite.ClearrwcdDXDraws fTDXImageListãâ$fTDXDraw#+fTPictureCollectionÝ4ýçgTPictureCollection.LoadFromFileUg!TPictureCollection.MakeColorTableUf TCustomDXDrawK^ããgTCustomDXDraw.UpdatePaletteÇ~ø{gTCustomDXDraw.InitializeÂ~ø{gTPictureCollection.Find UgTPictureCollectionItem.GetWidth$tcg TPictureCollectionItem.GetHeighttcg.TDXDraw_}gTCustomDXD
raw.Create½~ø{gTCustomDXDraw.SetAutoSize§~ø{gTDXDrawDisplay.SetBitCountÇSûgTDXDrawDisplay.SetHeightÈSûgTDXDrawDisplay.SetWidthÉSûgTCustomDXDraw.SetOptions¬~ø{f TDXDrawOption«ü¿9g doAllowReboot*¦½ÌgdoWaitVBlank-¦½ÌgdoAllowPalette2560¦½ÌgdoCenter9¦½ÌgdoRetainedModeE¦½Ìg
doHardwareH¦½ÌgdoSelectDriverK¦½ÌfTCustomDXImageList°CØ×g .TDXImageListú¶ÀvgTCustomDXImageList.CreateÛcíogTCustomDXImageList.SetDXDrawØcíogTCustomDXDraw.GetCanDraw¢~ø{fTDirectDrawSurface.X[£gTDirectDrawSurface.Fillxp;gTCustomDXDraw.FlipÁ~ø{gTDirectDrawSurface.ColorMatchyxp;g$TCustomDXDraw.GetCanPaletteAnimation£~ø{cdDXSounds cdSpin cdComCtrls f
TStatusBar¤Þ2fTUpDown£²f
TUDBtnTypeXæg.TStatusBarU¼g.TUpDownüvsgTCustomUpDown.SetPositionsHlgTCustomUpDown.GetPositionsHlgTCustomStatusBar.SetSimpleTextæ7·cd PJVersionInfo fTPJVersionInfo»áåg.TPJVersionInfoµÃ]gTPJVersionInfo.Create÷û£gTPJVersionInfo.SetFileNameåû£g%TPJVersionInfo.GetStringFileInfoByIdxïû£ce LevSplash g
SplashForm̺4ceLevSpeicherung gSpeicherungFormÞü°ÑceLevText gTextFormjÕ¿µceLevInfo gInfoFormÍ(ce LevSource g
SourceFormåRøfTSourceFormׯ8øgTSourceForm.AktualisierenÐMce
LevOptions g LevelFormØ* f
TLevelFormÊ gTLevelForm.Aktualisierenÿ½%¸c5LevMain _¸Ïc5System c5SysInit rc5Windows tc5Messages c5SysUtils c5Classes c5Graphics ¤c5Controls ²c5Forms c5MMSystem µc5Dialogs ¹c5StdCtrls ác5ExtCtrls c5Menus )c5DIB =c5DXClass Ec5DXSprite yc5DXDraws íc5DXSounds c5Spin c5ComCtrls c5 PjVersionInfo c&
.TMainForm V¢ l * TMainForm s=Ä·n MainFormæ £Ý·nÁ%FCompVersion Üy2
ÿÿÿÿ 1.0 7.2F p 5 LevSplash Åc5LevSpeicherung Íc5LevText Õc5LevInfo Ýc5 LevSource åc5
LevOptions õc% FileError