9 yO |1J#ä ErrListþÙ? <rErrList.dfmÙY^CpErrList.pas|1J dSystem fTObject»<úÎfInteger fÂfBooleanúefWordNùf UnicodeStringOª]ÏfstringOª]ÏgTObject.Equalsô\ggTObject.GetHashCodeõ\ggTObject.ToStringö\ggTObject.Dispatchú\ggTObject.NewInstanceü\ggTObject.FreeInstanceý\ggTruevÉøgFalsesÉøgExit gTObject.Freeá\gg @UStrCat3²î g@HandleFinallyé`pÅg @UStrArrayClrüg@UStrClr\ª«>g@UStrAsgÔB¯,f
|
WideStringä úf PWideCharçèÙúgOrd gInc gDec g@UStrAddRefÙI§ßcdSysInit cdWindows fTPointçØg GlobalAddAtom5'ÏLgRegisterHotKeyÕa¦gMOD_CONTROL²}ç1gPostMessageÐU«gWA_CLICKACTIVE²}ç1fTRectuÿÁcdMessages f TWMHotKeyíãÈg WM_HOTKEYcûò1gWM_ACTIVATE¾}ç1cdSysUtils g
|
FileExists$ágFormatÉcdVariants cdClasses fTShiftState£cìfTStringListá§
ägTComponent.UpdateRegistryÙ§TgTComponent.WriteStateݧTgTComponent.SafeCallExceptionö§TgTPersistent.Assignòg°Çg.TStringListÄ{c6gTStringList.Create È|fTStringsl
|
©gTStrings.SetDelimiter¤*¾gTStrings.SetDelimitedText*¾cdGraphics cdControls fTMouseButtonùå½lgTWinControl.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²}ç1fTControlwü*agTControl.SetWidth$@ùgmrOk¯}ç1gmbRightu»ÿgTWinControl.GetHandleMgTControl.SetTextO@ùgTControl.SetVisible#@ùcdForms 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 g
|
MessageDlgÎ%0ÖfTMsgDlgType²ÇnÇgmtConfirmation4qlZf
|
TMsgDlgBtnUaKPgmbYesÎ
|
IãgmbCancel×
|
IãgShowMessage
JücdOleCtrls cdMenus cdStdCtrls f TGroupBox© &fTLabel½¿ ÄfTButtonÇCëg
|
.TGroupBoxôÒg.TLabel ~g.TButtonª^=cdButtons fTBitBtnåg.TBitBtnÿgê6cdComCtrls f TListViewÖ_®¿f TListItemÑíÿHg
|
.TListView¹3f
|
TListItems4ÞngTListItems.GetCounta'ógTListItems.GetItemc'ógTListItems.Deleten'ófTCustomListViewägTCustomListView.GetSelected))ù«gTListItem.GetIndexácdExtCtrls fTPanel þÝf TSplitterN^8fTTimer×rg.TPanelÒz/g
|
.TSplitter1Ü;g.TTimerb«PÞgTTimer.SetEnabled©÷$cdIniFiles fTIniFileñ`Ä\fTCustomIniFile²eôg .TIniFileÔ4¢®gTCustomIniFile.CreateDÒzcdIISUnit g_MsgÍV&gCM_Str2Rect_0cdIIS_ImageProcess g FindPointJQnÚg FindPointÐåèüg ShowKeyinRect"cdEnImgScr fTImageScrollBoxz1Àg.TImageScrollBox]SgTImageScrollBox.SetFileNameãQÕgTImageScrollBox.LoadFromFileñQÕgTImageScrollBox.GetGraphicËQÕcdmpsBarco fTMpsBarcodeinfÀ=½cdBarCodesFinder ceCB_IMGPSScanImp gCh_WriteNote¶egErrIndexÿÂg
|
RejectCase¶eceEnDiGrph fTDibGraphicæ9
¥gTDibGraphic.GetXDotsPerInch,Z=c5ErrList _¸Ïc5System c5SysInit <c5Windows >c5Messages Nc5SysUtils Vc5Variants \c5Classes ^c5Graphics vc5Controls xc5Forms Êc5Dialogs 5c5OleCtrls Uc5Menus Yc5StdCtrls ]c5Buttons yc5ComCtrls
c5ExtCtrls ±c5inifiles Ñc5iisUnit åc5iis_ImageProcess ñc5EnImgScr c5mpsBarco c5BarcodesFinder !c& .TErrlistForm Þ©FJ *TErrlistForm ûÕh´L ErrlistFormæ <´L7.2F N 5CB_IMGPSScanImp %c(TErrlistForm.WMHotKey bö}L XPL!Self L"Msg cµ Lÿ(TErrlistForm.NoteBtClick Jö}L ZPL!Self L!Sender cÁ Lÿ(TErrlistForm.Panel4Resize Lö}L ¨PL!Self L!Sender cÍ Lÿ(TErrlistForm.RejectBtClick Nö}L áPL!Selff Lø!Sender Sf ð i cÙ Lÿ(TErrlistForm.DeleteBtClick Gö}L APL!Self L!Sender inif @ø Sf ð S1f è i
|
cí Lÿ(TErrlistForm.EnforceBtClick Oö}L Q PL!Self L!Sender inif @ð Sf è S1f à i idxf
|
ø Ingnore c Lÿ(TErrlistForm.ErrListLVClick Eö}L YPL!Self L!Sender c- Lÿ(TErrlistForm.ErrListLVKeyUp Iö}L 4PL!Self L !Sender "Key !Shift& |