FastReport VCL是用于 Delphi、C++ Builder、RAD Studio 和 Lazarus 的報告和文檔創建 VCL 庫。它提供了可視化模板設計器，可以訪問 30 多種格式，并可以部署到云、網站、電子郵件和打印中。

立即點擊下載FastReport VCL v6.9最新版

FastReport 有大量的組件，可以放在報表設計頁面上。它們是：文本、圖片、線條、幾何圖形、OLE、Rich、條碼、圖表等。您也可以編寫自己的自定義組件，然后將其附加到FastReport。

在 FastReport 中定義了幾個類，從中繼承了組件。有關更多詳細信息，請參閱“ FastReport 類層次結構”一章。這個TfrxView類是我們最感興趣的，因為大多數報表組件都是從它繼承而來的。

至少應該有基本類中Draw定義的方法TfrxReportComponent。

procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); virtual;

ScaleX 和 ScaleY 參數分別定義 X 軸和 Y 軸上的對象縮放。這些參數在 100% 縮放時等于 1，如果用戶在設計器或預覽窗口中修改縮放，則這些參數可能會有所不同。OffsetX 和 OffsetY 參數通過 X 軸和 Y 軸進行點位移。因此，當考慮這些參數時，左上角坐標如下：

X := Round(AbsLeft * ScaleX + OffsetX);

procedure BeginDraw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); virtual;

還有兩種為TfrxView類中的對象繪制背景和框架的方法。

    procedure DrawBackground;
    procedure DrawFrame;

讓我們檢查創建一個將顯示箭頭的組件。

type
  TfrxArrowView = class(TfrxView)
  public
    { we should override only two methods }
    procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
    class function GetDescription: String; override;
  published
    { Place required properties into the published section }
    property BrushStyle;
    property Color;
    property Frame;
  end;

class function TfrxArrowView.GetDescription: String;
begin
  { component description will be displayed next to its icon in toolbar }
  Result := 'Arrow object';
end;

procedure TfrxArrowView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended);
begin
  { call this method to perform coordinates transformation }
  BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  with Canvas do
  begin
    { set colors }
    Brush.Color := Color;
    Brush.Style := BrushStyle;
    Pen.Width := FFrameWidth;
    Pen.Color := Frame.Color;
    { draw arrow }
    Polygon(
      [Point(FX, FY + FDY div 4),
      Point(FX + FDX * 38 div 60, FY + FDY div 4),
      Point(FX + FDX * 38 div 60, FY),
      Point(FX1, FY + FDY div 2),
      Point(FX + FDX * 38 div 60, FY1),
      Point(FX + FDX * 38 div 60, FY + FDY * 3 div 4),
      Point(FX, FY + FDY * 3 div 4)]);
  end;
end;

{ registration }
var
  Bmp: TBitmap;
initialization
  Bmp := TBitmap.Create;
  Bmp.LoadFromResourceName(hInstance, 'frxArrowView');
  frxObjects.RegisterObject(TfrxArrowView, Bmp);

finalization
  { delete component from list of available ones }
  frxObjects.Unregister(TfrxArrowView);
  Bmp.Free;

end.

該組件可以通過基本類中聲明的DataSet和DataField屬性連接到 DB 字段TfrxView。此外，該組件具有Expression可放置表達式的屬性。一旦計算出來，結果將被放入Checked屬性中。如果Checked屬性等于“True” ，則此組件顯示一個叉號。您可以在下方看到組件的初始聲明文本（最重要的部分）。

  TfrxCheckBoxView = class(TfrxView)
  private
    FChecked: Boolean;
    FExpression: String;
    procedure DrawCheck(ARect: TRect);
  public
    procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
    procedure GetData; override;
  published
    property Checked: Boolean read FChecked write FChecked default True;
    property DataField;
    property DataSet;
    property Expression: String read FExpression write FExpression;
  end;

procedure TfrxCheckBoxView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended);
begin
  BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  DrawBackground;
  DrawCheck(Rect(FX, FY, FX1, FY1));
  DrawFrame;
end;

procedure TfrxCheckBoxView.GetData;
begin
  inherited;
  if IsDataField then
    FChecked := DataSet.Value[DataField]
  else if FExpression <> '' then
    FChecked := Report.Calc(FExpression);
end;

如果您對 FastReport 感興趣，歡迎加入 FastReport QQ 交流群：702295239

還想要更多嗎？您可以點擊閱讀【FastReport報表2021最新資源盤點】，查找需要的教程資源。上是FastReport .NET慧正在網火熱銷售中！>>查看價格詳情