home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.pascal.borland      Borland Pascal was actually pretty neat      2,978 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 1,492 of 2,978   
   Omega to All   
   rave barcode and labels problem Help   
   01 Apr 05 09:21:34   
   
   From: zeus@masterweb.it   
      
   I've this code write in delphi 7 and rave 5 but not work correctly   
   the report in report design have a databand div in 5 columns:   
   procedure TForm1.RvDataSetConnection1GetRow(   
      Connection: TRvCustomConnection);   
     var   
          pagerv : TRavePage;   
        rvRegion: TRaveRegion;   
      rvDBand: TRaveDataBand;   
      rvBar: TRaveEANBarCode;   
      rvText : TRaveText;   
      rvRect : TRaveRectangle;   
      rvBaseRep : TBaseReport;   
      testo:string;   
   begin   
   With RvProject1.ProjMan do   
   begin   
      pagerv := FindRaveComponent('Report1.Page1',nil) as TRavePage;   
      rvRegion := FindRaveComponent('Region1',pagerv) as TRaveRegion;   
      rvDBand := FindRaveComponent('DataBand1',pagerv) as TRaveDataBand;   
        if ( pagerv<>NIL) then   
            begin   
           rvText := TRaveText(pagerv.FindComponent('EANBarCode1'));   
           rvBar := FindRaveComponent('EANBarCode1',pagerv) as TRaveEANBarCode;   
           rvRect := FindRaveComponent('Rect1',pagerv) as TRaveRectangle;   
           if (rvText<>NIL) then begin   
               //rvText.Text:= '0000000000208';   
               //testo:=rvText.Text;   
               //messagedlg(IntToStr(rvDBand.CurrentColumn) +   
   rvText.Text,mtInformation,[mbOK],0);   
               if rvText.Text <> '000000000001' then begin   
                         //rvRect.FillColor := clWhite;   
      
      
                    rvRect.MoveBehind;   
                    //rvRect.MoveForward;   
                    //rvBar.BringToFront;   
                    //rvBar.MoveBehind;   
      
      
               end   
               else begin   
                   rvRect.BringToFront;   
               end;   
      
               end;   
           end;   
            end;   
   RvDataSetConnection1.DoNext;   
      
   end;   
      
   but only first time is execute this proc.   
   I want print barcode in labels starting from col and row particulary,   
   and i've found this method for remove from print the barcode not desire.   
   sorry for my english.   
      
   Omega   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca