FiveTech Software tech support forums

1. code : procedure Picture1OnBeforePrint(Sender: TfrxComponent); begin if callhbfunc('file',['.\sub\'+trim(<masterdata."imgid">)+'.jpg']) then TfrxPictureView(page1.FindObject('picture1')).Picture.LoadFromFile('.\sub\'+trim(<masterdata."imgid">)+'.jpg') ...

... in the report, i put a image control and in the event OnBeforePrint of de Page indicated the following: Page1OnBeforePrint procedure (Sender : TfrxComponent ) ; begin   if length ( < Logo_Empresa > ) < > 0 then          Picture1.LoadFromFile ( < Logo_Empresa > ) ;   end; <Logo_empresa> ...

1. code : procedure Picture1OnBeforePrint(Sender: TfrxComponent); begin if callhbfunc('file',['.\sub\'+trim(<masterdata."imgid">)+'.jpg']) then TfrxPictureView(page1.FindObject('picture1')).Picture.LoadFromFile('.\sub\'+trim(<masterdata."imgid">)+'.jpg') ...

... close the "picture" windows--left tribution table--event Picture1OnBeforePrint 2.2). code: procedure Picture1OnBeforePrint(Sender: TfrxComponent); begin callhbfunc('fr3img',['.\sub\'+vartostr(<masterdata."imgid">)+'.jpg']) ; // this selft defined prg function to ...

... 004 4.1 ... I want write a procedure , put an event to qtya column as onAfterprint skipOnAfterPrint() like : procedure skipOnAfterPrint(Sender: TfrxComponent); begin xxx.skip(1) end; begin end. What is xxx ? Thanks ! Shuming Wang

ruben, :TfxReport (Clase principal del reporte) Evento OnStartReport procedure OnStartReport(Sender: TfrxComponent); begin oPicture1.FileLink:= <cImagen> end; suponiendo que oPicture1 es el objeto de tu imagen, sino lo puedes resolver buscame por skype. salu2, Ariel.

... el número del grupo. Por lo tanto, nuestro script se verá como sigue: esto es lo que estoy haciendo: procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent); begin if then Lista.Add(FloatToStr(SUM(<masterQuery."SALDO">,MasterData1))); Inc(i); { if (Copy(<masterQuery."SALDO">, ...

... object named 'picture1' and place on a cell of masterdata, and close picturex dialog. 2. code area : procedure Picture1OnBeforePrint(Sender: TfrxComponent); begin callhbfunc('myfunc') ; // this selft defined prg function to load current row jpg into private 'myvar' LoadImageFromHbVar(Picture1,'myvar'); ...

... cell edit as [<picture1>] 3.the cell event onbeforeprint as ReportHOnStartReport 4.code as: procedure ReportHOnStartReport(Sender: TfrxComponent); begin LoadImageFromHbVar(Picture1, ‘MyVar’); end; begin end. Run time error : undeclared identifiey: picture1 if 4. code as: procedure ...

... your sample code and I keep getting an error when trying to print until I add another BEGIN END statement. procedure F_GroupFooter1(Sender: TfrxComponent); begin GroupFooter1.Visible := <Invoice."tax"> > 0; end; with the above I get a message: 'BEGIN' expected In the following ...

... will be one less. Thanks, Randal Hallo Rendal, I think you can do it with the ONBeforePrint Event: PascalScript procedure F_GroupFooter1(Sender: TfrxComponent); begin GroupFooter1.Visible := <TestLogischeVariable> ; // not empty or whatever you want or pass a variable like I do it here ...

Hallo Randal, I think you can do it with the ONBeforePrint Event: PascalScript procedure F_GroupFooter1(Sender: TfrxComponent); begin GroupFooter1.Visible := <TestLogischeVariable> ; // not empty or whatever you want or pass a variable like I do it here end; What I also do ...

... of Memo to smActualHeight - Set MINIMUM HEIGHT for memo. if memo field can be empty then write event: procedure Child1OnBeforePrint(Sender: TfrxComponent); begin Child1.Visible := <table."memofield"> <> ''; end; http://www.atzwanger-software.com/fr/FRmemo1.jpg ...