Как уменьшить размер картинки в GraphABC

@Пс · Регистрация: 29.07.2018

Студворк — интернет-сервис помощи студентам

есть код от Puporev'a
как уменьшить размер картинки?

Pascal

uses   ABCObjects,GraphABC;
var p:PictureABC;
    speed:integer;
procedure KeyDown(Key:integer);
 begin
  case Key of
    VK_Left : p.Left:=p.Left - speed ;
    VK_Right : p.Left:=p.Left + speed ;
    VK_Up : p.Top:=p.Top - speed;
    VK_Down : p.Top:=p.Top + speed;
   end; 
 p.Move;
end;
 
begin
  p := PictureABC.Create(100, 100, '1.png');
  speed:=10;
  OnKeyDown := KeyDown;
end.

@Puporev · 06.04.2019, 19:47

Pascal

1 2	p.width:=p.width div 2; p.height:=p.height div 2;

Опции темы

Как уменьшить размер картинки в GraphABC

Решение