Go to most recent revision | Blame | Last modification | View Log | RSS feed
# ° v¹â6‚×0ù
LevOptions– <rLevOptions.DFMg{+5pLevOptions.pask{+5 dSystem fTObject|ê®ìfChar#»šgTObject.Dispatchµ
Ä„gTObject.NewInstance·
Ä„gTObject.FreeInstance¸
Ä„gTruevÉšøgFalsesÉšøfstring¶+{Ÿf
AnsiString¶+{Ÿg@LStrClr\ª«>g@HandleFinallyé`pÅcdSysInit cdWindows cdMessages cdSysUtils gIntToStrñF¬gStrToIntrÅöcdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqcdGraphics cdControls gTWinControl.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.Set
AutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetTextq×ïYgTControl.GetTextE×ïYcdForms fTForm!€³5g.TFormT‘‡gTCustomForm.AlignControls~C)gTCustomForm.CreateParams~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.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCusto
mForm.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)cdDialogs cdStdCtrls fTButtonä«IÝf TGroupBox¶¥l0fTLabelÝ^L€fTEditPõøœg.TButtonÇ'/g
.TGroupBox™yJ‚g.TLabelÀ2*Òg.TEdit3ÉÖîgTScrollBar.SetMax2=cdExtCtrls fTPanelë§ g.TPanelÎ{~qcdSpin cdComCtrls fTUpDown£•²f
TUDBtnTypeŒXæŸg.TUpDownüvsgTCustomUpDown.SetPositionsHlgTCustomUpDown.GetPositionsHlceLevMain gMainForm£Ý·f TMainForms=Ä·gTMainForm.AnzeigeActé]ÙOceDXClass gTCustomDXTimer.SetEnabledÀ#c5
LevOptions€ _¸ŽÏc5System c5SysInit c5Windows c5Messages c5SysUtils "c5Classes (c5Graphics 2c5Controls 4c5Forms tc5Dialogs Æc5StdCtrls Èc5ExtCtrls Üc5Spin âc5ComCtrls äc&.TLevelForm€ qîq *
TLevelFormˆ Ê LevelFormæ Ø* @7.2F 5LevMain ðc(TLevelForm.Aktualisieren€ ÿ½%¸ B˜"!Self cœI (TLevelForm.ElPopupButton1Click€ ø½%¸ pˆ"!Self !Sender cœQ (TLevelForm.ElPopupButton2Click€ ù½%¸ ˆ"!Self !Sender cœ] (TLevelForm.FormHide€ ú½%¸ *ˆ"!Self !Sender cœi (TLevelForm.FormShow€ û½%¸ *ˆ"!Self !Sender cœu (TLevelForm.GroesseClick€ ü½%¸ ¶ˆ"!Self !Sender !Button cœ (TLevelForm.GroesseEdtKeyPress€ ý½%¸ *ˆ"!Self !Sender "Key cœ‘ (TLevelForm.GroesseEdtChange€ þ½%¸ ´ˆ"!Self !Sender cœ¡ (Finalization€ é`pÅ \!"