究查 | 歷程 | 原始
Hong-Dell\Hong
2022-11-08 ef8675b8cf493c2b08c428b8f9f5e35a5c52e51c 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

9Cq4M#äŸDocCopyþÙ?–<rDocCopy.dfmo4MpDocCopy.paso4MdSystemfTObject»<úÎgTObject.Equalsô\ggTObject.GetHashCodeõ\ggTObject.ToStringö\ggTObject.Dispatchú\ggTObject.NewInstanceü\ggTObject.FreeInstanceý\gg@HandleFinallyé`pÅcdSysInitcdWindowsgPostMessageÐU«gWA_CLICKACTIVE²}ç1cdMessagesgWM_ACTIVATE¾}ç1cdSysUtilscdVariantscdClassesgTComponent.UpdateRegistryÙ§šTgTComponent.WriteStateݧšTgTComponent.SafeCallExceptionö§šTgTPersistent.Assignòg°ÇcdGraphicscdControlsgTWinControl.AssignToāgTWinControl.CanAutoSizeɁgTWinControl.CanResizeʁgTWinControl.ConstrainedResizégTWinControl.CreateHandleρg#TWinControl.CustomAlignInsertBeforeӁgTWinControl.CustomAlignPositionԁgTWinControl.DestroyWnd؁g!TWinControl.DockReplaceDockClientہgTWinControl.GetClientOriginègTWinControl.GetControlExtentsêgTWinControl.GetDeviceContextëgTWinControl.SetParentBackground‚g#TWinControl.SetParentDoubleBuffered‚gTWinControl.ShowControl‚g+TWinControl.UpdateControlOriginalParentSize‚gTWinControl.InvalidateG‚gTWinControl.RepaintM‚gTWinControl.SetBoundsP‚gTWinControl.UpdateS‚gTControl.GetActionv@ùgTControl.GetEnabled|@ùg!TControl.GetFloatingDockSiteClass~@ùgTControl.SetAutoSize‘@ùgTControl.SetDragMode’@ùgTControl.SetEnabled“@ùgTControl.SetName”@ùgTControl.SetBiDiMode—@ùgTControl.GetDragImagesŸ@ùgTControl.InitiateActionÚ@ùgmrOk¯}ç1gTWinControl.GetHandleMgmrCancel²}ç1cdFormsfTFormåèš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.CreatešHɍgTCustomForm.CreateNew›HɍgTCustomForm.DestroyœHɍgTCustomForm.CloseQueryžHɍgTCustomForm.DefaultHandlerŸHɍgTCustomForm.SetFocus­HɍgTCustomForm.SetFocusedControl®HɍgTCustomForm.ShowModal°HɍgTCustomForm.WantChildKey±HɍgTCustomForm.AfterConstruction³HɍgTCustomForm.BeforeDestruction´Hɍg%TScrollingWinControl.AdjustClientRect|„a˜g&TScrollingWinControl.AutoScrollEnabled~„a˜g%TScrollingWinControl.AutoScrollInView„a˜g.TFormȼßëcdDialogscdStdCtrlsf    TGroupBox© &€fTButtonÇC€ëg


.TGroupBoxŒôÒg.TButtonª^=cdCheckLstf TCheckListBox鮍mg.TCheckListBox̂k¿cdExtCtrlsfTPanel þœÝf    TSplitterN^8g.TPanelÒz/g


.TSplitter1Ü;Šc5DocCopy€_¸ŽÏc5Systemc5SysInitc5Windowsc5Messagesc5SysUtils"c5Variants$c5Classes&c5Graphics0c5Controls2c5Formsvc5DialogsÆc5StdCtrlsÈc5CheckLstÒc5ExtCtrlsØc& .TDocCopyForm€à=›‹*TDocCopyFormˆýi½9 DocCopyFormæÐÖ9<7.2F(TDocCopyForm.CopyBtClick€+ŠÒш!Self!Sendercœÿ(TDocCopyForm.FormCreate€-ŠÒÑ0ˆ!Self!Sendercœÿ(TDocCopyForm.CancelBtClick€,ŠÒш!Self!Sendercœ)ÿ(Finalization€é`pÅ\!cž(DocCopy€!cžþGA    FL„ˆ    þØ&,Panel1


á œ9ÿ,    Splitter1


ñ œ=ÿ,


CopyFromGB


œAÿ, CheckListBox1


 


œEÿ,CopyToGB


!œIÿ, CheckListBox2


 


1œMÿ,Panel2


AœQÿ,CopyBt


QœUÿ,CancelBt


aœYÿ.CopyBtClick


舜]ÿ. CancelBtClick


è)ˆœaÿ.


FormCreate


舜eÿcD€ÿÿÿ @liX`ô-¤    :xPanel1|    Splitter1€


CopyFromGB„ CheckListBox1ˆCopyToGBŒ CheckListBox2Panel2”CopyBt˜CancelBtCopyBtClick CancelBtClick


FormCreateTDocCopyFormTDocCopyFormXlDocCopyǀ¤ÃS‹Øjjj‹ÃèPè[Ãǀ¤ÃU‹ì3ÀUh%dÿ0d‰ ÿ3ÀZYYd‰h,Ãéëø]Ã-ÃmÜ Ä


,º¼°¬4‚.’–h( *¦¨86:\FŒJ^Ž`˜bdfœšj¢lnTVXZ¾z<|~€>@„†BDH”LNPR²À¤ˆŠžª®´¶¸Y$)(<ÞàÎÖÐ$x r)55 5  LÙ    &^‘h’ “2>


 "$&*(H(),*\*.,R,    <H!%R-1\5f” @þ@!!,þ)@--þ5  a