9 Q ¦|1J#ä DocPrtþÙ? <r
|
DocPrt.dfm°Bp
|
DocPrt.pasÙYrB dSystem fTObject»<úÎgTObject.Equalsô\ggTObject.GetHashCodeõ\ggTObject.ToStringö\ggTObject.Dispatchú\ggTObject.NewInstanceü\ggTObject.FreeInstanceý\gfInteger fÂgFalsesÉøgTruevÉøg@HandleFinallyé`pÅcdSysInit cdWindows gPostMessageÐU«gWA_CLICKACTIVE²}ç1cdMessages gWM_ACTIVATE¾}ç1cdSysUtils cdVariants cdClasses gTComponent.UpdateRegistryÙ§TgTComponent.WriteStateݧTgTComponent.SafeCallExceptionö§TgTPersistent.Assignòg°ÇfTStringsl
|
©cdGraphics cdControls gTWinControl.AssignToÄgTWinControl.CanAutoSizeÉgTWinControl.CanResizeÊgTWinControl.ConstrainedResizeÌgTWinControl.CreateHandleÏg#TWinControl.CustomAlignInsertBeforeÓgTWinControl.CustomAlignPositionÔgTWinControl.DestroyWndØg!TWinControl.DockReplaceDockClientÛgTWinControl.GetClientOriginègTWinControl.GetControlExtentsêgTWinControl.GetDeviceContextëgTWinControl.SetParentBackgroundg#TWinControl.SetParentDoubleBufferedgTWinControl.ShowControlg+TWinControl.UpdateControlOriginalParentSizegTWinControl.InvalidateGgTWinControl.RepaintMgTWinControl.SetBoundsPgTWinControl.UpdateSgTControl.GetActionv@ùgTControl.GetEnabled|@ùg!TControl.GetFloatingDockSiteClass~@ùgTControl.SetAutoSize@ùgTControl.SetDragMode@ùgTControl.SetEnabled@ùgTControl.SetName@ùgTControl.SetBiDiMode@ùgTControl.GetDragImages@ùgTControl.InitiateActionÚ@ùfTCustomListControlîæcgmrCancel²}ç1gTWinControl.GetHandleMgmrOk¯}ç1cdForms fTFormåègTCustomForm.AlignControls6HÉgTCustomForm.CreateParams:HÉgTCustomForm.CreateWindowHandle;HÉgTCustomForm.CreateWnd<HÉgTCustomForm.DefineProperties>HÉgTCustomForm.DestroyHandle?HÉgTCustomForm.DestroyWindowHandle@HÉgTCustomForm.DoCreateBHÉgTCustomForm.DoDestroyCHÉgTCustomForm.GetClientRectHHÉgTCustomForm.GetFloatingIHÉgTCustomForm.LoadedMHÉgTCustomForm.NotificationNHÉgTCustomForm.PaintWindowPHÉgTCustomForm.ReadStateRHÉgTCustomForm.RequestAlignSHÉgTCustomForm.SetParentBiDiModeUHÉgTCustomForm.SetParentWHÉgTCustomForm.UpdateActionsXHÉgTCustomForm.ValidateRenameZHÉgTCustomForm.WndProc\HÉgTCustomForm.Resizing]HÉgTCustomForm.QueryInterfaceaHÉgTCustomForm.CreateHÉgTCustomForm.CreateNewHÉgTCustomForm.DestroyHÉgTCustomForm.CloseQueryHÉgTCustomForm.DefaultHandlerHÉgTCustomForm.SetFocusHÉgTCustomForm.SetFocusedControl®HÉgTCustomForm.ShowModal°HÉgTCustomForm.WantChildKey±HÉgTCustomForm.AfterConstruction³HÉgTCustomForm.BeforeDestruction´HÉg%TScrollingWinControl.AdjustClientRect|ag&TScrollingWinControl.AutoScrollEnabled~ag%TScrollingWinControl.AutoScrollInViewag.TFormȼßëcdDialogs cdStdCtrls f TGroupBox© &fTListBoxÇ
|
>g
|
.TGroupBoxôÒg .TListBoxªîçcdCheckLst f TCheckListBoxé®mg.TCheckListBoxÌk¿gTCheckListBox.SetCheckedÏ¢cdExtCtrls fTPanel þÝg.TPanelÒz/cdButtons fTBitBtnåg.TBitBtnÿgê6c5DocPrt _¸Ïc5System c5SysInit c5Windows c5Messages $c5SysUtils (c5Variants *c5Classes ,c5Graphics 8c5Controls :c5Forms c5Dialogs Ðc5StdCtrls Òc5CheckLst Üc5ExtCtrls äc5Buttons êc&.TPrintForm sy *
|
TPrintForm Î PrintFormæ µÎB7.2F (TPrintForm.CheckListBox1Click ÂͰf F!Self !Sender c1 ÿ(TPrintForm.EraseBtClick ¾Í°f n!Self
|
!Sender i c= ÿ(TPrintForm.ExitBtClick ¿Í°f !Self !Sender cM ÿ(TPrintForm.FormCreate ÃͰf 0!Self !Sender cY ÿ(TPrintForm.ListBox1Click ÁͰf F!Self !Sender ce ÿ(TPrintForm.PrtBtClick ÀͰf !Self !Sender cq ÿ(TPrintForm.SelecAllBtClick ½Í°f n!Self
|
!Sender i c} ÿ(Finalization é`pÅ \! c(DocPrt ! cþG
|
FF%
|
|