Measure/Frames/ProjectGLFme.pas

unit ProjectGLFme;

interface

uses
  ProjectGLDm,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, sdGridDBA, ZJGrid, dxBar;

type
  TProjectGLFrame = class(TFrame)
    zgProjectGL: TZJGrid;
    saProjectGL: TsdGridDBA;
    dxpmProjectGL: TdxBarPopupMenu;
    procedure zgProjectGLMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    FProjectGLData: TProjectGLData;
  public
    constructor Create(AProjectGLData: TProjectGLData);
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

{ TProjectGLFrame }

constructor TProjectGLFrame.Create(AProjectGLData: TProjectGLData);
begin
  inherited Create(nil);
  FProjectGLData := AProjectGLData;
  saProjectGL.DataView := FProjectGLData.sdvProjectGL;
end;

destructor TProjectGLFrame.Destroy;
begin
  inherited;
end;

procedure TProjectGLFrame.zgProjectGLMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxpmProjectGL.PopupFromCursorPos;
end;

end.