udm.pas

象棋源码

unit Udm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, Menus, ImgList, ExtCtrls;

type
  TDm = class(TDataModule)
    Timer1: TTimer;
    ImageList1: TImageList;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ColorDialog1: TColorDialog;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dm: TDm;

implementation

uses all, main;

{$R *.DFM}

procedure TDm.Timer1Timer(Sender: TObject);
var
  i, j: integer;
  chess: Tbitmap;
begin
  try
    if candraw then
    begin
      for i := 1 to 8 do begin
        for j := 1 to 8 do begin
          if ichess[i, j] = black then chess := blackchess
          else if ichess[i, j] = white then chess := whitechess
          else chess := nonechess;
          printchess(i, j, chess);
        end; end;
      if showhintflag = true then mainfrm.myshowhint;
      if (irol <> 0) and (irow <> 0) then locate(irol, irow, clred);
      candraw := false;
      timer1.Enabled := false;
    end;
  except
    showmessage('Can not draw!');
  end;
end;

end.