captured.pas

用于开发税务票据管理的软件

unit captured;

interface

uses
  Windows, Messages, Controls, Classes, SysUtils, Graphics, Forms,
  StdCtrls, Buttons, ExtCtrls, Piece, Backdrop;

type
  TfrmCapturedPieces = class(TForm)
    lblCapturedByWhte: TLabel;
    lblCapturedByBlack: TLabel;
    btnOK: TBitBtn;
    pbxCapturedByWhite: TPaintBox;
    pbxCapturedByBlack: TPaintBox;
    lblAmountByWhite: TLabel;
    lblAmountByBlack: TLabel;
    Backdrop1: TBackdrop;
    lblNotice: TLabel;
    procedure pbxCapturedByWhitePaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure pbxCapturedByBlackPaint(Sender: TObject);
  private
    { Private declarations }
    Bmp: TBitmap;
  protected
    { Protected declarations }
    procedure WMEraseBkgnd(var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  frmCapturedPieces: TfrmCapturedPieces;

implementation

{$R *.DFM}

uses Main;

procedure TfrmCapturedPieces.WMEraseBkgnd(var Msg: TWMEraseBkgnd);
begin
  Msg.Result := 1;
end;

procedure TfrmCapturedPieces.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  inherited;
  if Msg.Result = HTCLIENT then
    Msg.Result := HTCAPTION;
end;

procedure TfrmCapturedPieces.pbxCapturedByWhitePaint(Sender: TObject);
//var
//  R: TRect;
begin
  Bmp.Canvas.FillRect( Bmp.Canvas.ClipRect );
  lblAmountByWhite.Caption := Format('Amount (%d)',
                          [frmMain.Chessboard1.DrawCapturedPieces(Bmp, cBlack, 8, 32, 32)]);

//  R := Bmp.Canvas.ClipRect;
//  Frame3d(Bmp.Canvas, R, RGB(140,140,140), RGB(212,208,200), 3);
  pbxCapturedByWhite.Canvas.Draw(0,0, Bmp);
end;

procedure TfrmCapturedPieces.pbxCapturedByBlackPaint(Sender: TObject);
//var
//  R: TRect;
begin
  Bmp.Canvas.FillRect( Bmp.Canvas.ClipRect );
  lblAmountByBlack.Caption := Format('Amount (%d)',
                            [frmMain.Chessboard1.DrawCapturedPieces(Bmp, cWhite, 8, 32, 32)]);
//  R := Bmp.Canvas.ClipRect;
//  Frame3d(Bmp.Canvas, R, RGB(140,140,140), RGB(212,208,200), 3);
  pbxCapturedByBlack.Canvas.Draw(0,0, Bmp);
end;

procedure TfrmCapturedPieces.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  Bmp.Width := pbxCapturedByWhite.Width;
  Bmp.Height := pbxCapturedByWhite.Height;
  Bmp.Canvas.Brush.Color := clWhite;
end;

procedure TfrmCapturedPieces.FormDestroy(Sender: TObject);
begin
  Bmp.Free;
end;

end.