TIBIA forum :: Przegląd tematu

procedure TForm1.Button2Click(Sender: TObject);
begin
with canvas do
begin
pen.Color:=clred;
brush.color:=clred;
rectangle(50,50,clientWidth - 50,clientheight - 50);
pen.Color:=clWhite;
brush.color:=clWhite;
rectangle((clientWidth div 5)*2,clientheight div 5,(clientWidth div 5)*3,(clientheight div 5)*4);
pen.Color:=clWhite;
brush.color:=clWhite;
rectangle(clientWidth div 5,(clientheight div 5)*2,(clientWidth div 5)*4,(clientheight div 5)*3);
end;
end;