Measure/Frames/LeafXmjGlFme.pas

unit LeafXmjGlFme;

interface

uses
  LeafXmjGlDm,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, ComCtrls, ToolWin, sdGridDBA, ExtCtrls, ZJGrid;

type
  TLeafXmjGlFrame = class(TFrame)
    zgLeafXmj: TZJGrid;
    pnlGL: TPanel;
    saLeafXmj: TsdGridDBA;
    pnlTopTag: TPanel;
    tbTopTag: TToolBar;
    tobtnGL: TToolButton;
    xpm: TXPMenu;
    zgLeafXmjGL: TZJGrid;
    saLeafXmjGL: TsdGridDBA;
  private
    FLeafXmjGlData: TLeafXmjGlData;
  public
    constructor Create(ALeafXmjGlData: TLeafXmjGlData);
    destructor Destroy; override;

    procedure ResetViewControl;
  end;

implementation

uses
  ProjectData;

{$R *.dfm}

{ TLeafXmjGlFrame }

constructor TLeafXmjGlFrame.Create(ALeafXmjGlData: TLeafXmjGlData);
begin
  inherited Create(nil);
  FLeafXmjGlData := ALeafXmjGlData;
  saLeafXmj.DataView := ALeafXmjGlData.sdvLeafXmj;
  saLeafXmjGL.DataView := ALeafXmjGlData.sdvLeafXmjGL;
end;

destructor TLeafXmjGlFrame.Destroy;
begin
  inherited;
end;

procedure TLeafXmjGlFrame.ResetViewControl;
begin
  with TProjectData(FLeafXmjGlData.ProjectData) do
    saLeafXmjGL.Columns.ColumnByName('UsedQuantity').ReadOnly := StageDataReadOnly;
end;

end.