cmoney.~pas

来自「Delphi深度探索,Delphi深度探索（第二版）」· ~PAS 代码 · 共 68 行

{-----------------------------------------------------------------------------
 Unit Name: CMoney
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   演示Bold开发的基本功能
 History:
            2003-6-28 创建本单元  
-----------------------------------------------------------------------------}


unit CMoney;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BoldAFPDefault, StdCtrls, BoldSubscription, BoldHandles,
  BoldRootedHandles, BoldAbstractListHandle, BoldCursorHandle,
  BoldListHandle, ExtCtrls, BoldNavigatorDefs, BoldNavigator, Grids,
  BoldGrid, Menus;

type
  TFormMain = class(TForm)
    blhPerson: TBoldListHandle;
    lblPerson: TLabel;
    bnPerson: TBoldNavigator;
    bgPerson: TBoldGrid;
    lblAcct: TLabel;
    bnAcct: TBoldNavigator;
    bgAcct: TBoldGrid;
    blhAcct: TBoldListHandle;
    lblAll: TLabel;
    blhAll: TBoldListHandle;
    bnAll: TBoldNavigator;
    bgAll: TBoldGrid;
    pm1: TPopupMenu;
    miest1: TMenuItem;
    btn1: TButton;
    procedure bgAcctContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses CDataModule{, MoneyClasses};

{$R *.dfm}

procedure TFormMain.bgAcctContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  //if bgAcct.CurrentElement is TAcctItem then
  begin
    ShowMessage('test');
    //Canvas.Brush.Color:=clred;
    //Canvas.FillRect(Rect);
  end;
end;

end.