Merge Celluls in FR3

Comments

• Kellouche Algeria

  May 2011 edited 3:03PM

  Kellouche wrote: »

  Hi
  
  i would like realise a universel function for merging celluls, i have foud a part of code in FR4 forum, i have modified the code like this :
  

  procedure MasterData3OnBeforePrint(Sender: TfrxComponent);
  begin
    with Shape125.Frame do
      if LastUnite <> <FIBQ_Caract_Techniques."NOM_UNITE">
      then Typ := ftTop + ftLeft
      else Typ := ftLeft;
    LastUnite := <FIBQ_Caract_Techniques."NOM_UNITE">;
  end;
  

  
  but the celluls were not merged ! someone has an idea ?
  
  Edit : in the original code, the merge has effect on field's frame so i would like merge the shape's frame.

  
  I think "typ" has not efect on a shape ! does this a bug ?
• Mick.pl

  May 2011 edited 3:03PM

  Shape.Frame.LeftLine seems to be what you need instead of Frame.Typ.
  But it doesn't work in FR4 as well. The same is when you try tu set DropShadow of Shape.
  Yes, really it seems to be a bug.
  
  Change you Shape for 4 separated lines and make them Visible or not according to your need.
  
  Mick
  
• Kellouche Algeria

  May 2011 edited 3:03PM

  Mick.pl wrote: »

  Shape.Frame.LeftLine seems to be what you need instead of Frame.Typ.
  But it doesn't work in FR4 as well. The same is when you try tu set DropShadow of Shape.
  Yes, really it seems to be a bug.
  
  Change you Shape for 4 separated lines and make them Visible or not according to your need.
  
  Mick

  
  is this a unique solution because i have a lot of reports with cells to be merged
• Mick.pl

  May 2011 edited 3:03PM

  Sorry to say - I know no other solution for manipulating Shapes [img]style_emoticons/<#EMO_DIR#>/sad.gif" style="vertical-align:middle" emoid=":(" border="0" alt="sad.gif" /> Consider what will mean less work to you:[/img]1. change shapes to TfrxMemoView and get full control of TfrxMemoView.Frame
  
  2. create universal procedure which will receive Shape as parameter and
  a. will hide this Shape (Visible := false)
  b. will replace this Shape with 2-3 lines (left, bottom, etc) according to your need laying this lines in the same place as Shape.
  
  3. create universal procedure which will receive Shape as parameter and
  a. will hide this Shape (Visible := false)
  b. will create a TfrxMemoView on-fly and will lay it down in the same place (Left,Top,...) as the Shape param and will set this memo Send Back
  c. will operate on that MemoFrame.
  
  
  Mick
  
• Kellouche Algeria

  May 2011 edited 3:03PM

  Thanks Mick
  
  okay, I'll do as you suggest, with some light modifications.
• james cameron San Francisco

  June 2011 edited 3:03PM

  Mike your suggestion is nice for me and for every one thanks too & i will try it letter.