9 b Gj¥T#ä ErrListþÙ? <rErrList.dfmo4MpErrList.paso4M 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 g@UStrCatÔB¯,f TDateTimekKSgInc 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ÉgFormatDateTime¢ÆZGRpgNowk¦ëgDateTimeToStringzQcdVariants 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~Ù7vgSetKeyinRect_NewÀcÄgSetKeyinRect_NewÇÞ÷ÝgConvertToBWS+cdEnImgScr fTImageScrollBox~úWg.TImageScrollBoxòQØ©gTImageScrollBox.SetFileName}ðgTImageScrollBox.CreateðgTImageScrollBox.LoadFromFileðgTImageScrollBox.GetGraphicbðcdmpsBarco fTMpsBarcodeinfÀ=½cdBarCodesFinder cdEnMisc fTImageFormatÅ¿gifBlackWhite>icdEnDiGrph fTDibGraphicæ9
¥gTDibGraphic.GetXDotsPerInch,Z=cdLogFile fTLogFileD°'g .TLogFile'WgTLogFile.LogToFilekÐ<ceCB_IMGPSScanImp gCh_WriteNote¶egErrIndexÿÂg
|
RejectCase¶eceTypes fTPointçØfTRectuÿÁc5ErrList _¸Ïc5System c5SysInit Bc5Windows Dc5Messages Tc5SysUtils \c5Variants jc5Classes lc5Graphics c5Controls ¢c5Forms úc5Dialogs c5OleCtrls µc5Menus ¹c5StdCtrls ½c5Buttons Ùc5ComCtrls åc5ExtCtrls c5inifiles =c5iisUnit Qc5iis_ImageProcess ]c5EnImgScr uc5mpsBarco c5BarcodesFinder c5EnMisc c5EnDiGrph ©c5LogFile µc& .TErrlistForm åIÏVb *TErrlistForm vñd ErrlistFormæ Ü
|
dÑ7.2F f 5CB_IMGPSScanImp Åc(TErrlistForm.WMHotKey u Xhd!Self d"Msg ca dÿ(TErrlistForm.NoteBtClick S Zhd!Self d!Sender cm dÿ(TErrlistForm.Panel4Resize U ¨hd!Self d!Sender cy dÿ(TErrlistForm.RejectBtClick W áhd!Selff dø!Sender Sf ð i c
dÿ(TErrlistForm.Button1Click Y !hd!Self d!Sender c dÿ(TErrlistForm.DeleteBtClick P !hd!Self d!Sender inif Pø Sf ð S1f è i
|
c¥ dÿ(TErrlistForm.EnforceBtClick X hd!Self d!Sender inif Pð Sf è S1f à i idxf
|
ø Ingnore cÁ dÿ(TErrlistForm.ErrListLVClick N Yhd!Self d!Sender cå dÿ(TErrlistForm.ErrListLVKeyUp R 4hd!Self d !Sender "Key !Shift& |