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