rm_grped.pas

来自「进销存·完整的·有数据库的·非常完整·只得参考」· PAS 代码 · 共 102 行

{*****************************************}
{                                         }
{         Report Machine v2.0             }
{            Group band editor            }
{                                         }
{*****************************************}

unit RM_grped;

interface

{$I RM.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, RM_Class, RM_Const, ExtCtrls, Buttons;

type
  TRMGroupEditorForm = class(TForm)
    btnOK: TButton;
    btnCancel: TButton;
    GB1: TGroupBox;
    Edit1: TEdit;
    btnExpr: TSpeedButton;
    procedure btnExprClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure Localize;
  public
    { Public declarations }
    procedure ShowEditor(View: TRMView);
    procedure ShowTagEditor(t: TRMView);
  end;

implementation

uses RM_Utils, RM_DlgExpr;

{$R *.DFM}

procedure TRMGroupEditorForm.Localize;
begin
	Font.Name := RMLoadStr(SRMDefaultFontName);
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
  Font.Charset := StrToInt(RMLoadStr(SCharset));

  GB1.Caption := RMLoadStr(rmRes + 491);
  btnExpr.Hint := RMLoadStr(rmRes + 492);
  btnOK.Caption := RMLoadStr(SOk);
  btnCancel.Caption := RMLoadStr(SCancel);
end;

procedure TRMGroupEditorForm.ShowTagEditor(t: TRMView);
begin
	Caption := 'Object Tag';
  Edit1.Text := t.Tag;
  if ShowModal = mrOk then
  begin
    RMDesigner.BeforeChange;
    t.Tag := Edit1.Text;
  end;
end;

procedure TRMGroupEditorForm.ShowEditor(View: TRMView);
begin
  Caption := RMLoadStr(rmRes + 490);
  Edit1.Text := (View as TRMBandView).GroupCondition;
  if ShowModal = mrOk then
  begin
    RMDesigner.BeforeChange;
    (View as TRMBandView).GroupCondition := Edit1.Text;
  end;
end;

procedure TRMGroupEditorForm.btnExprClick(Sender: TObject);
var
  expr: string;
begin
  expr := '';
  if RM_DlgExpr.RMGetExpression('', expr, nil) then
  begin
		if expr <> '' then
    	Edit1.Text := expr;
  end;
end;

procedure TRMGroupEditorForm.FormCreate(Sender: TObject);
begin
	Localize;
end;

procedure TRMGroupEditorForm.FormShow(Sender: TObject);
begin
  Edit1.SelectAll;
end;

end.