Графика - PascalABC.NET (24875)

uses graphABC;
 
type
   PianoButtonClass=class
     private
     
       PositionX,PositionY:integer;
       SizeW,SizeH:integer;
       ButtonColor:Color;
       
       Freak: integer;

   public
   
     procedure Draw();
     begin
       setBrushColor(ButtonColor);
       fillRectangle(PositionX,PositionY,PositionX+SizeW,PositionY+SizeH);
       drawRectangle(PositionX,PositionY,PositionX+SizeW,PositionY+SizeH);
     end;
     
     function isMouse(mx:integer; my:integer):boolean;
     begin
       result:=(
         (mx>=PositionX)
          AND
         (mx<=PositionX+SizeW)
          AND
         (my>=PositionY)
          AND
          (my<=PositionY+SizeH)
          
       );
     end;
     
     function GetFreak():integer;
     begin
       result:= Freak;
     end;
     constructor Create(px:integer; py:integer; sw:integer;sh:integer;c:color;f:integer);
     begin
       PositionX:px;
       PositionY:py;
       SyzeW:=sw;
       SizeH:=sh;
       ButtonColor:=c;
       Freak:=f;
     end;
 end;    
begin
  var btn: PianoButtonClass:=new PianoButtonClass(30,30,50,40,color.Black,440);
 
  btn.Draw();
end.