unit Mypaintbox;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Grids, ExtCtrls, FGL;


type
  TMyPB = class(TPaintBox)
  private
    x, y: Integer;
    binnum: Integer;
[COLOR="Yellow"] procedure Mypaint(Sender: TObject);[/COLOR]
  public
    constructor Create(AOwner: TComponent); overload;
    constructor Create(AOwner: TComponent; TLeft,TTop,TWidth,THeight: Integer; xco,yco: Integer; bin: Integer; bincolor: TColor); overload;
    destructor Destroy; override;
end;




implementation



////////////////////////////////////////////////////////////////////////////////
constructor TMyPB.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;


////////////////////////////////////////////////////////////////////////////////
constructor TMyPB.Create(AOwner: TComponent; TLeft,TTop,TWidth,THeight: Integer; xco,yco: Integer; bin: Integer; bincolor: TColor);
begin
  inherited Create(AOwner);
  Left :=TLeft;
  Top :=TTop;
  Width :=TWidth;
  Height :=THeight;
  Color :=bincolor;
  x :=xco;
  y :=yco;
[COLOR="Yellow"] OnPaint :=Mypaint;[/COLOR]
end;


////////////////////////////////////////////////////////////////////////////////
destructor TMyPB.Destroy;
begin
  inherited Destroy;
end;


////////////////////////////////////////////////////////////////////////////////
procedure TMyPB.Mypaint(Sender: TObject);
begin
  TMyPB(Sender).Canvas.FillRect(TMyPB(Sender).Canvas.ClipRect);
end;


end.