buttonc.pas

类似文明的游戏源代码。

unit ButtonC;

interface

uses
  ButtonBase,
  WinProcs, Classes, Graphics;

type
  TButtonC = class(TButtonBase)
    constructor Create(aOwner: TComponent); override;
  private
    FIndex: integer;
    procedure SetIndex(x: integer);
  published
    property Visible;
    property ButtonIndex: integer read FIndex write SetIndex;
    property OnClick;
  protected
    procedure Paint; override;
  end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TButtonC]);
end;

constructor TButtonC.Create;
begin
inherited Create(aOwner);
ShowHint:=true;
SetBounds(0,0,12,12);
end;

procedure TButtonC.Paint;
begin
with Canvas do
  if FGraphic<>nil then
    BitBlt(Canvas.Handle,0,0,12,12,FGraphic.Canvas.Handle,
      229-26*(FIndex mod 2)+13*Byte(FDown),215+13*(FIndex div 2),SRCCOPY)
  else begin Brush.Color:=$0000FF; FrameRect(Rect(0,0,12,12)) end
end;

procedure TButtonC.SetIndex(x: integer);
begin
FIndex:=x;
Invalidate
end;

end.