calc.pas

这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信息等。

unit calc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxCalc, Menus, dxCntner,shellapi;

type
  Tcalcf = class(TForm)
    MainMenu1: TMainMenu;
    miEdit: TMenuItem;
    miCopy: TMenuItem;
    miPaste: TMenuItem;
    miView: TMenuItem;
    miStandard: TMenuItem;
    miFlat: TMenuItem;
    miExtraFlat: TMenuItem;
    N1: TMenuItem;
    miShowButtonFrame: TMenuItem;
    miShowFocusRect: TMenuItem;
    N2: TMenuItem;
    miBeepOnError: TMenuItem;
    dxCalcDisplay: TdxCalcDisplay;
    dxCalculator: TdxCalculator;
    procedure miCopyClick(Sender: TObject);
    procedure miPasteClick(Sender: TObject);
    procedure miStandardClick(Sender: TObject);
    procedure miShowButtonFrameClick(Sender: TObject);
    procedure miShowFocusRectClick(Sender: TObject);
    procedure miBeepOnErrorClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  calcf: Tcalcf;

implementation

{$R *.DFM}

procedure Tcalcf.miCopyClick(Sender: TObject);
begin
  dxCalculator.CopyToClipboard;
end;

procedure Tcalcf.miPasteClick(Sender: TObject);
begin
  dxCalculator.PasteFromClipboard;
end;

procedure Tcalcf.miStandardClick(Sender: TObject);
begin
  if Sender is TMenuItem then
  if TMenuItem(Sender) = miStandard then dxCalculator.ButtonStyle := bsStandard;
  if TMenuItem(Sender) = miFlat then  dxCalculator.ButtonStyle := bsFlat;
  if TMenuItem(Sender) = miExtraFlat then dxCalculator.ButtonStyle := bsExtraFlat;
  TMenuItem(Sender).Checked := True;
end;

procedure Tcalcf.miShowButtonFrameClick(Sender: TObject);
begin
   dxCalculator.ShowButtonFrame := not dxCalculator.ShowButtonFrame;
   miShowButtonFrame.Checked := dxCalculator.ShowButtonFrame;
end;

procedure Tcalcf.miShowFocusRectClick(Sender: TObject);
begin
   dxCalculator.ShowFocusRect := not dxCalculator.ShowFocusRect;
   miShowFocusRect.Checked := dxCalculator.ShowFocusRect;
end;

procedure Tcalcf.miBeepOnErrorClick(Sender: TObject);
begin
   dxCalculator.BeepOnError := not dxCalculator.BeepOnError;
   miBeepOnError.Checked := dxCalculator.BeepOnError;
end;

procedure Tcalcf.FormCreate(Sender: TObject);
begin
   {set MenuItems}
   left:=2;
   top:=70;
   miBeepOnError.Checked := dxCalculator.BeepOnError;
   miShowButtonFrame.Checked := dxCalculator.ShowButtonFrame;
   miShowFocusRect.Checked := dxCalculator.ShowFocusRect;
   case dxCalculator.ButtonStyle of
     bsStandard : miStandard.Checked := True;
     bsFlat : miFlat.Checked := True;
     bsExtraFlat : miExtraFlat.Checked := True;
   end;
   dxCalculator.ShowButtonFrame := not dxCalculator.ShowButtonFrame;
   miShowButtonFrame.Checked := dxCalculator.ShowButtonFrame;
end;

procedure Tcalcf.FormDestroy(Sender: TObject);
begin
  calcf:=nil;
end;

procedure Tcalcf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

end.