texte Put et chiffres dans les zones

Question

Utilisation FastReport, comment puis-je mettre Text et Numbers la base de données dans des boîtes comme:

|_|_|_|_|_|_|_|_|_|_| 

Alors "Sami" il devient:

et la même pour les nombres aussi, j'essaye de le faire avec TfrxLineView mais j'échoue.

Answer 1

prendre la voie facile:

• Goutte 4 TfrxMemoView composant dans votre rapport (ou que vous avez besoin) comme:

• En OnPreview cas de votre rapport, définissez votre code par exemple:

  procedure TForm1.frxReport1Preview(Sender: TObject); 
  var Str : WideString; I : Integer; Mem : TfrxMemoView; 
  begin 
      Str := 'Sami'; // Or get it from query/table (database) 
  
      // Find the TFrxMemoView Component and set in it the String you want 
      for I := 1 to 4 do 
      begin 
       Mem := frxReport1.FindObject('M'+IntToStr(I)) as TfrxMemoView; 
       Mem.Text := Str[I]; 
      end; 
      end; 
  

• Le résultat sera:

Mise à jour:

Vous peut également le faire par programme en tant que:

var RT : TfrxBand; 
    Mem : array [1..100] of TfrxMemoView ; 
    i : Byte; 
    Name : WideString; 
begin 
    // Find the band 
    RT := frxReport1.FindObject('RT') as TfrxBand; 
    // Set the String 
    Name := 'DELPHI FAST REPORT'; 
    for I := 1 to Length(Name) do 
    begin 
     Mem[i] := TfrxMemoView.Create(RT); 
     Mem[i].Text := Name[i]; 
     Mem[i].Font.Style := [fsBold]; 
     Mem[i].Frame.Width := 2; 
     Mem[i].Height := 20; 
     Mem[i].AutoWidth := False; 
     Mem[i].HAlign := haCenter; 
     Mem[i].Frame.Typ := [ftLeft , ftBottom , ftRight]; 
     Mem[i].Width := 20; 
     if i =1 then 
     Mem[i].Left := 0 
      else 
      Mem[i].Left := Mem[i-1].Left + 5 + 15; 
    end; 
    frxReport1.ShowReport(); 
end; 

Le résultat est:

Answer 2

Il n'y a aucun contrôle prêt à l'emploi pour afficher les caractères dans les boîtes comme vous le demandez. Par conséquent, vous devez peindre vous-même sur la toile que vous choisissez.

Voici un exemple de la façon de le faire dans un TPaintBox, pbText est ici un champ de chaîne de la forme de démonstration, et contient le texte à afficher dans la boîte de peinture:

procedure TForm17.PaintBox1Paint(Sender: TObject);var 
    i, n, x, y: integer; 
    siz: TSize; 
    pb: TPaintBox; 
begin 
    n := 10; // character cells 
    pb := Sender as TPaintBox; 
    siz := pb.Canvas.TextExtent('Wp'); 

    // draw character cells 
    x := 4; y := siz.cy+2; 
    for i := 0 to n do 
    begin 
    pb.Canvas.MoveTo(i * siz.cx + x, 0); 
    pb.Canvas.LineTo(i * siz.cx + x, y); 
    end; 
    pb.Canvas.MoveTo(x, y); 
    pb.Canvas.LineTo(n * siz.cx + 4, y); 

    // draw characters horizontally in center of box 
    for i := 1 to Length(pbText) do 
    begin 
    x := (4 + (i-1)*siz.cx + (siz.cx - pb.Canvas.TextWidth(pbText[i])) div 2); 
    y := 0; 
    pb.Canvas.TextOut(x, y, UpperCase(pbText[i])); // force upcase 
// pb.Canvas.TextOut(x, y, pbText[i]);   // or don't 
    end; 
end; 

Et pour l'utiliser

procedure TForm17.Button1Click(Sender: TObject); 
begin 
    pbText := 'Sami Wiim'; 
    PaintBox1.Invalidate; 
end; 

Answer 3

Très simple et et un peu laid méthode pour le faire.

1. Dans le rapport rapide:

-place un objet texte comme celui-ci: [TEST_STR];

-set style de texte à Souligné;

2.In fonction Delphi

-faire pour convertir une chaîne en chaîne formatée. Par exemple:

entrée

: SAMI

sortie: | S | A | M | I |

-En cas OnGetValue de FastReport appeler cette fonction:

procedure TMainForm.frxReport1GetValue(const VarName: string; 
    var Value: Variant); 
begin 
    if VarName = 'TEST_STR' then Value := MyFunctionToFormatStr('SAMI'); 

end; 

C'est tout.

Le regard de résultat comme: