Go to most recent revision | Blame | Last modification | View Log | RSS feed
# J v¹â6‚×0ù LevInfo– <rLevInfo.DFMW{+5pLevInfo.pasZ{+5 dSystem fTObject|ê®ìgTObject.Dispatchµ
Ä„gTObject.NewInstance·
Ä„gTObject.FreeInstance¸
Ä„fstring¶+{Ÿf
AnsiString¶+{Ÿg @LStrCat3é`pÅg@LStrCaté`pÅg @LStrArrayClrüŸg@HandleFinallyé`pÅgFalsesÉšøgTruevÉšøf PAnsiChar“u½RfPChar“u½Rg @LStrCatNé`pÅg@LStrToPChar$ÉÇg@LStrClr\ª«>cdSysInit cdWindows gSW_SHOW»}ç1cdMessages cdSysUtils cdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqcdGraphics fTPicture"tëgTPicture.LoadFromFile_””ƒ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.SetAutoSizeÞ×ï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.Wn
dProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~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)gApplicationç_šcdDialogs cdStdCtrls fTButtonä«IÝfTLabelÝ^L€g.TButtonÇ'/g.TLabelÀ2*ÒcdShellAPI gShellExecuteˆÙcdExtCtrls fTImage|}5g.TImage_Q]‡ceLevMain gMainForm£Ý·ce PJVersionInfo g%TPJVersionInfo.GetStringFileInfoByIdxïû£ceDXClass gTCustomDXTimer.SetEnabledÀ#c5LevInfo€ _¸ŽÏc5System c5SysInit (c5Windows *c5Messages .c5SysUtils 0c5Classes 2c5Graphics <c5Controls Bc5Forms ‚c5Dialogs Öc5StdCtrls Øc5ShellAPI âc5ExtCtrls æc&
.TInfoForm€ ê:ín * TInfoFormˆ g InfoFormæ Í(>7.2F 5LevMain ìc(TInfoForm.ElPopupButton1Click€ 7‡$µ ˆ!Self !Sender cœ= (TInfoForm.FormCreate€ 8‡$µ ‘ˆ!Self !Sender cœI (TInfoForm.FormShow€ 9‡$µ *ˆ!Self !Sender cœU (TInfoForm.FormHide€ :‡$µ *ˆ!Self !Sender cœa (TInfoForm.URL2Click€ <‡$µ ш!Self !Sender cœm (TInfoForm.URL1Click€ ;‡$µ Qˆ!Self !Sender cœy (Finalization€ é`pÅ \! cž(LevInfo€ ! cžþG
FF- A)‘þÐ&