Altering Objects

Comments

• -=Den=-

  October 2005 edited 12:10AM

  wrote:

  1- What wrong with this code it seems to has no effect?!

  
  In MasterData1OnBeforePrint(Sender: TfrxComponent) event - sender can be only MasterData1.
  In SAFOnBeforePrint(Sender: TfrxComponent) event - sender can be only SAF.

  wrote:

  I have a MemoView its name 'SAF'. I want to alter it only.

  Try so:

  procedure SAFOnBeforePrint(Sender: TfrxComponent);
  begin
  SAF.left := SAF.left - SAF.width;
  end;
  

  wrote:

  2- How to change Engine.CurX of one band only?

  //--------Global varibles----                                                           
  var
   b1:integer;
   EngCurX:Extended;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
   if b1=0 then    
    begin
    EngCurX:=Engine.CurX;
    Engine.CurX := Engine.CurX + 50;
    b1:=1;
    end
   else
    if b1=1 then//restore position                                                                                     
    begin
    Engine.CurX:=EngCurX;
    b1:=3;//Don't call restore another                                                                                 
    end;
  end;
  
  //----main function-------                                                     
  begin
  b1:=0;
  end.
  
• khh

  October 2005 edited 12:10AM

  Thank you Den