9 ^] ¬¶ÞJ#ä ErrListþÙ? <rErrList.dfmk¦ÞJpErrList.pas¨¶ÞJ 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 @UStrCatNé`pÅ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$ágIntToStrè±XzgFormatÉcdVariants cdClasses fTShiftState£cìfTStringListá§
ägTComponent.UpdateRegistryÙ§TgTComponent.WriteStateݧTgTComponent.SafeCallExceptionö§TgTPersistent.Assignòg°Çg.TStringListÄ{c6gTStringList.Create È|fTStringsl
|
©f
|
TComponent
¼gTStrings.SetDelimiter¤*¾gTStrings.SetDelimitedText*¾gTComponent.FindComponentë§TcdGraphics fTGraphicQ\r/fTBrush·M ÀgTBrush.SetColorám5XfTPenìxE©g TPen.SetStyleZAf TPenStyleÂ×·gpsSolid;µg TPen.SetColorZAg TPen.SetWidthZAgTPen.SetModeZAfTPenModeÛgpmMask4.ncdControls 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#@ùgTControl.SetLeft@ùgTControl.SetTop"@ùgTControl.SetHeight@ù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×rfTShapeX¾Ég.TPanelÒz/g
|
.TSplitter1Ü;g.TTimerb«PÞgTTimer.SetEnabled©÷$g.TShape;§ig TShape.CreateÞÞ¯cdIniFiles fTIniFileñ`Ä\fTCustomIniFile²eôg .TIniFileÔ4¢®gTCustomIniFile.CreateDÒzcdIISUnit g_MsgÍV&gCM_Str2Rect_0cdIIS_ImageProcess g FindPointJQnÚgImageResize~Ù7vg FindPointÐåèügSetKeyinRect_New¤MNgSetKeyinRect_New(¶±¶gConvertToBWS+g ShowKeyinRect"cdEnImgScr fTImageScrollBoxz1Àg.TImageScrollBox]SgTImageScrollBox.SetFileNameãQÕgTImageScrollBox.CreateíQÕgTImageScrollBox.LoadFromFileñQÕgTImageScrollBox.GetGraphicËQÕcdmpsBarco fTMpsBarcodeinfÀ=½cdBarCodesFinder cdEnMisc fTImageFormatÅ¿gifBlackWhite>icdEnDiGrph fTDibGraphicæ9
¥gTDibGraphic.GetXDotsPerInch,Z=ceCB_IMGPSScanImp gCh_WriteNote¶egErrIndexÿÂg
|
RejectCase¶eceTypes fTPointçØfTRectuÿÁc5ErrList _¸Ïc5System c5SysInit >c5Windows @c5Messages Pc5SysUtils Xc5Variants `c5Classes bc5Graphics ~c5Controls c5Forms ðc5Dialogs c5OleCtrls ¡c5Menus ¥c5StdCtrls ©c5Buttons Åc5ComCtrls Ñc5ExtCtrls ýc5inifiles )c5iisUnit =c5iis_ImageProcess Ic5EnImgScr ic5mpsBarco
c5BarcodesFinder c5EnMisc c5EnDiGrph c& .TErrlistForm ¨×bS^ *TErrlistForm Å
` ErrlistFormæ Ói`Å7.2F b 5CB_IMGPSScanImp ©c(TErrlistForm.WMHotKey 7$ Xd`!Self `"Msg cA `ÿ(TErrlistForm.NoteBtClick $ Zd`!Self `!Sender cM `ÿ(TErrlistForm.Panel4Resize $ ¨d`!Self `!Sender cY `ÿ(TErrlistForm.RejectBtClick $ ád`!Selff `ø!Sender Sf ð i ce `ÿ(TErrlistForm.Button1Click $ !d`!Self `!Sender cy `ÿ(TErrlistForm.DeleteBtClick $ Ad`!Self `!Sender inif Nø Sf ð S1f è i
|
c
`ÿ(TErrlistForm.EnforceBtClick $ Q d`!Self `!Sender inif Nð Sf è S1f à i idxf
|
ø Ingnore c¡ `ÿ(TErrlistForm.ErrListLVClick $ Yd`!Self `!Sender cÅ `ÿ(TErrlistForm.ErrListLVKeyUp $ 4d`!Self ` !Sender "Key !Shift& |