Gn2

f TComboBox.#fTButtonBf TRadioButton!g.TLabelrg.TEditi[{*g .TComboBox g.TButtonD.g .TRadioButton{gTCustomComboBox.SetItemIndex~.gTCustomComboBox.GetItemIndexv.cdDialogs-If TFontDialog f TSaveDialogtf TPrintDialogULg .TFontDialogxg .TSaveDialogKg .TPrintDialog5f TOpenOptionvgofOverwritePromptcgTOpenDialog.GetFileName<"g ShowMessagecdForms-IfTForm)f TCloseAction.g.TFormQgTCustomForm.AlignControls@gTCustomForm.CreateParams@gTCustomForm.CreateWindowHandle@gTCustomForm.CreateWnd@gTCustomForm.DefineProperties@gTCustomForm.DestroyWindowHandle@gTCustomForm.DoCreate@gTCustomForm.DoDestroy@gTCustomForm.GetClientRect@gTCustomForm.GetFloating@gTCustomForm.Loaded@gTCustomForm.Notification@gTCustomForm.PaintWindow@gTCustomForm.QueryInterface@gTCustomForm.ReadState@gTCustomForm.SetParentBiDiMode@gTCustomForm.SetParent@gTCustomForm.UpdateActions@gTCustomForm.ValidateRename@gTCustomForm.WndProc@gTCustomForm.Resizing@gTCustomForm.CreateԐ@gTCustomForm.CreateNewՐ@gTCustomForm.Destroy֐@gTCustomForm.AfterConstructionא@gTCustomForm.BeforeDestructionؐ@gTCustomForm.CloseQueryڐ@gTCustomForm.DefaultHandlerې@gTCustomForm.SetFocus@gTCustomForm.SetFocusedControl@gTCustomForm.ShowModal@gTCustomForm.WantChildKey@g%TScrollingWinControl.AdjustClientRect9Eg&TScrollingWinControl.AutoScrollEnabled;Eg%TScrollingWinControl.AutoScrollInView?gTWinControl.GetControlExtents@?gTWinControl.GetDeviceContextA?gTWinControl.ShowControl[?gTWinControl.Invalidate?gTWinControl.Repaint?gTWinControl.SetBounds?gTWinControl.Update?gTControl.GetDragImages)gTControl.GetEnabled)g!TControl.GetFloatingDockSiteClass)gTControl.SetDragMode)gTControl.SetEnabled)gTControl.SetName)gTControl.SetBiDiMode)gTControl.InitiateAction)gTControl.SetTextt)gTControl.GetTextO)cdGraphics-IfTFontfTPicture]F' g .TPicture/gTPicture.Createa -gTPicture.GetBitmapR -gTCanvas.StretchDraw܀g TFont.GetSizeo6gTCanvas.TextOut܀gTBitmap.FreeImage3рg.TFontg TFont.Createo6g TFont.SetSizeo6g TFont.SetNameo6gTFont.SetStyleo6gTFont.GetStyleo6f TFontStyleyxrgfsBold#gfsItalic#g TFont.GetNameo6fTBitmap\cdClasses-IgTComponent.UpdateRegistryW9gTComponent.WriteStateW9gTComponent.SafeCallExceptionW9gTPersistent.AssignõmcdSysUtils-Ig FileExists Ut7g StrToFloatmgIntToStrJ 7cdMessages-IcdWindows-IfTRectg GetDeviceCapsGg LOGPIXELSX EСcdSysInit-IcdSystem-IfTObject! GgTObject.Dispatch kgTObject.NewInstance kgTObject.FreeInstance kfInteger|ofString8f AnsiString8gTruncg TObject.Free kg @LStrAddRefX,Tdg@TRUNCX,Tdg @LStrArrayClrX,Tdg@HandleFinallyX,TdfTextFileFMgGetDirg@LGetDir,g AssignFileg@Assignf gResetg @ResetText+UgReadlng @ReadLStringX,Tdg@ReadLnX,Tdg CloseFileg@CloseX,TdgLengthg@LStrLen?g @LStrCat3X,Tdg@_IOTestX,Tdg @LStrFromWStr㣂*g @WStrArrayClr¿fSingle~XgValg@ValLongX,Tdf WideStringg @WStrFromLStr WFg@WStrClrg@LStrClrg@HandleAnyExceptionX,Tdg @DoneExceptX,TdgTrue1ogFalse1ofPCharjg@LStrAsgX,Tdg @LStrToPCharX,Tdg@WStrFromPCharigExitg@LStrFromPChargRewriteg @RewritText+UgWritelng@Write0LStringX,Tdg@WriteLnX,Tdc&.TForm1?!LD*TForm1PVJ`F Form1^c`FA pScalexo6E pScaleyo6I iScalexo6M iScaleyo6Q font1*U SRectU2Y pick@ ,] .2fH( dibujabitmapJ!xf:!yf:!x2f:!y2f: !nombref:!describef: mapa, mapa2, rectangulof2 rec2f2 a6 b6 cf6 d6c(TForm1.FormCreateg8 J!SelfF!Sender4 ii6 jj6 Stempf: archf< diref: lineaf:c(TForm1.DoBarcodeh8 J!SelfF ii6 jjf6 Stempf: ftf>c(TForm1.SourceChangei8ZJ!SelfF!Sender4c(TForm1.CodeTypeChangej8 J!SelfF!Sender4c(TForm1.Button1Clickk8.J!SelfF!Sender4c(TForm1.Button2Clickl8J!SelfF!Sender4c(TForm1.dWidthChangem8 J!SelfF!Sender4c(TForm1.dHeightChangen8 J!SelfF!Sender4c(TForm1.Button3Clicko8 J!SelfF!Sender4c(TForm1.Button4Clickp8AJ!SelfF!Sender4 ii6 jj6 Rectf2 pic2, ftf>c(TForm1.RadioButton1Clickq8J!SelfF!Sender4c(TForm1.RadioButton2Clickr8J!SelfF!Sender4c(TForm1.Button5Clicks8J!SelfF!Sender4c(TForm1.Button6Clickt8J!SelfF!Sender4 psBc(TForm1.Button7Clicku8J!SelfF!Sender4c(TForm1.DBNavigator1Clickv8aJ!SelfF!Sender4!Button c(TForm1.BitBtn1Clickw8 J!SelfF !Sender4 diref: BitMap0 psfB if6 j6 facxf6 facyf6 sepa6 cuentaf6c(TForm1.FormClosex8J!SelfF!Sender4"Action( archf< diref: lineaF:c(TForm1.EditClaveChangey8J!SelfF!Sender4c(TForm1.BitBtn2Clickz8$J!SelfF!Sender4c(TForm1.FormShow{8J!SelfF!Sender4 archf< diref:c( FinalizationX,Td\! Jc(barra!JcGFQF<& p,Label1A ,SourceQ ,Label2a ,CodeTypeq ,Label3 ,dHeight ,dWidth ,Button1 ,Button2 ,Label4 ,Widlabel ,Button3 ,Image1 ,Button4 ,Units! , RadioButton11 , RadioButton2A ,Button5Q ,Button6a , FontDialog1q ,Button7 , SaveDialog1 , Axbarcode1 , EditClave ,TablaInventario , DataSource1 , DBNavigator1 ,DBText1 ,BitBtn1 , ImagenBarra ,Label5! ,Label61 ,ColuA ,RengQ ,Label7a ,Label8q ,Num_Eti ,BitBtn2 , Impresora" - FormCreate-- DoBarcodeQ- SourceChangei-CodeTypeChangeu- Button1Click- Button2Click- dWidthChange- dHeightChange- Button3Click- Button4Click-RadioButton1Click-RadioButton2Click- Button5Click- Button6Click- Button7Click-DBNavigator1Click- BitBtn1Click-- FormClose]-EditClaveChangey- BitBtn2Click-FormShowcDH@lfL,q l'Label1SourceLabel2CodeTypeLabel3dHeightdWidthButton1Button2Label4WidlabelButton3Image1Button4Units  RadioButton1 RadioButton2Button5Button6 FontDialog1 Button7$ SaveDialog1( Axbarcode1, EditClave0 TablaInventario4 DataSource18 DBNavigator1< DBText1@ BitBtn1D ImagenBarraHLabel5LLabel6PColuTRengXLabel7\Label8`Num_Etid BitBtn2h Impresora FormCreate DoBarcode SourceChangeCodeTypeChange Button1Click Button2Click dWidthChange dHeightChange Button3Click Button4ClickRadioButton1ClickRadioButton2Click Button5Click Button6Click Button7ClickDBNavigator1Click BitBtn1Click FormCloseEditClaveChange BitBtn2ClickFormShowTForm1TForm1LVbarraUSVWMUEEEEEE E3Uhd0d }} E ؋U QHEEEEEu}UUE3E3EԋR,E؋R EE5EUKEP@ U+ЃRU Y3ZYYdhEE_^[] @USV3ɉ $MMM3Uhd0d U3$U$ U ((U((UPU((UT(000QX&(ЋDjXPijXPip4i333ҋ(E3UQ4F֋(EE}3ZYYdhE^[] \barras.cnfclpro_iU3QQQQQQQSV3Uhgd0d 3ҋUEU}uuE$!(U苃EU}uwt6~`κ(uE$"(/3ɺ(uE$"(Ⱥ(UEEUM'(&((f"(]M5t!(]M5tE55E JRt3ZYYdhnEEEE^[]BUSVW3Uhd0d 3ZYYd _^[]S؋([Ë(SVW؋&("($ $5!($ $5D$D$t$t$ D$D$OT$_^[BSغ4D[Widthmm.Sغ4H[ X unit sizemilsU3QQQQSVؾ3Uhd0d  (ЋM (UEU(ft  (ft @PQR<PPQUUEM (Ⱥ (t(3ɺ(t (3ɺ (3ZYYdhEEE^[]UjjSV3Uhd0d $FTFX$F\Fl0$R Q Q  Q b$l $l JF L F Hu F NQ U UQDU UQT $j&ne  p pz}&hy$f.r(r.r(rQi !6" * :@ !!   ,UY}&h\ b\ !6-X- --]@F L F P* F R* F P- >@-  <(*F N:F N- !n]N] -]]"5 a"Y"  a"Y"  aQ a]  !>y(yy(Y4y  ,UY}&h y  y !r$jQ-]&]"5= aEI a(UF  8U"Y"},h   Q a  ! ! uH    @*jl LH << BX:(&(&&B(B T<"6F6 $ $ >$:: <*2(,(.<~  :       $(,((,  <  L@4PVV & P2*$*$r*20z 4LX*l62 dd:>4  bbH XX2<PLvf  ~LH <FXYFy  " $&(*,.0246 8":$<&>(@*B,D.F0H2J4L6N8P:R<T>V@XBZD\F^H`JbLdNf-jhQPhQlj-RjinlTlupnVnrp5XptrUZrvtu\txv^vzx`x|zbz~|!d|~=f~Yhj!l5n-Yp]5ry}tvx  !%)15Q9Y=]AaEeIiMiU=Y5]9a=eAmqy=}#\5U=u !c=#EY  !!%5)515Y9a=eAiEmImMqQqUqYuae5i5m=qAuA}}LUhp2  ! )1=!I)m -019}999e999= 9 = 1 Q80U<YYY}YqY5YUi p@u@yy @*@@ @ @ (pB -M@T@T@ 0@`02   @!4! -p1l UIUUIU1UUI1 IU1]@qabay@0pR}<}@ @pR~  a