Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # Ûs v¹â6×0ù LevMain <r WindowsXP.res Pn3rLevMain.DFMa 95pLevMain.pasa 95 dSystem fTObject|ê®ìfInteger fÂfBooleanúefChar#»f |
2 | AnsiString¶+{gTObject.Dispatchµ |
||
3 | ÄgTObject.NewInstance· |
||
4 | ÄgTObject.FreeInstance¸ |
||
5 | Äfstring¶+{gTObject.SafeCallException² |
||
6 | ÄgTObject.AfterConstruction³ |
||
7 | ÄgTObject.BeforeDestruction´ |
||
8 | ÄgTObject.DefaultHandler¶ |
||
9 | Ä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 |
||
10 | ParamCount-¹{Zg |
||
11 | AssignFile g@AssignA#°ÀgReset g |
||
12 | @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¢ |
||
13 | ÄgAbs fByteµáfCardinalIÐáKgTObject.Create¡ |
||
14 | ÄgBreak gDec cdSysInit cdWindows fTRGBQuadóOOZf |
||
15 | tagRGBQUADóOOZfDWORDIÐáKgRGB-")@ý" gGetTickCountñöãcdMessages cdSysUtils g |
||
16 | FloatToStróÀ«gIntToStrñF¬gExtractFilePathÓ¢}Gg |
||
17 | 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.GetActionÄ×ï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)gTCustomForm.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 |
||
18 | MessageDlgãn~fTMsgDlgType²ÇnÇg mtWarning+qlZf |
||
19 | TMsgDlgBtn>aKPgmbOK½ |
||
20 | IãgmtConfirmation4qlZgmbYes· |
||
21 | IãgmbNoº |
||
22 | IãcdStdCtrls fTRadioButtonYÚ~&f |
||
23 | 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 |
||
24 | .TMainMenuHÉôg |
||
25 | .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_ã |
||
26 | ¬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_}gTCustomDXDraw.Create½~ø{gTCustomDXDraw.SetAutoSize§~ø{gTDXDrawDisplay.SetBitCountÇSûgTDXDrawDisplay.SetHeightÈSûgTDXDrawDisplay.SetWidthÉSûgTCustomDXDraw.SetOptions¬~ø{f TDXDrawOption«ü¿9g doAllowReboot*¦½ÌgdoWaitVBlank-¦½ÌgdoAllowPalette2560¦½ÌgdoCenter9¦½ÌgdoRetainedModeE¦½Ìg |
||
27 | 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 |
||
28 | TStatusBar¤Þ2fTUpDown£²f |
||
29 | 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 |
||
30 | SplashForm̺4ceLevSpeicherung gSpeicherungFormÞü°ÑceLevText gTextFormjÕ¿µceLevInfo gInfoFormÍ(ce LevSource g |
||
31 | SourceFormåRøfTSourceFormׯ8øgTSourceForm.AktualisierenÐMce |
||
32 | LevOptions g LevelFormØ* f |
||
33 | 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& |
||
34 | .TMainForm V¢ l * TMainForm s=Ä·n MainFormæ £Ý·nÁ%FCompVersion Üy2 |
||
35 | ÿÿÿÿ 1.0 7.2F p 5 LevSplash Åc5LevSpeicherung Íc5LevText Õc5LevInfo Ýc5 LevSource åc5 |
||
36 | LevOptions õc% FileError |
||
37 |