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.TFormTgTCustomForm.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Ý^LfTEditPõøg.TButtonÇ'/g
.TGroupBoxyJg.TLabelÀ2*Òg.TEdit3ÉÖîgTScrollBar.SetMax2=cdExtCtrls fTPanelë§ g.TPanelÎ{~qcdSpin cdComCtrls fTUpDown£²f
TUDBtnTypeXæ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 cI (TLevelForm.ElPopupButton1Click ø½%¸ p"!Self !Sender cQ (TLevelForm.ElPopupButton2Click ù½%¸ "!Self !Sender c] (TLevelForm.FormHide ú½%¸ *"!Self !Sender ci (TLevelForm.FormShow û½%¸ *"!Self !Sender cu (TLevelForm.GroesseClick ü½%¸ ¶"!Self !Sender !Button c (TLevelForm.GroesseEdtKeyPress ý½%¸ *"!Self !Sender "Key c (TLevelForm.GroesseEdtChange þ½%¸ ´"!Self !Sender c¡ (Finalization é`pÅ \!"