/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/ABCObjects/gr_PictureScale.pas
37 строк
784 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Свойства ScaleX и ScaleY класса PictureABC uses ABCObjects,GraphABC; const delay = 2; var p: PictureABC; begin Window.Title := 'Движение и масштабирование рисунка по горизонтали'; SetWindowSize(640,260); p := PictureABC.Create(100,100,'demo.bmp'); while True do begin for var x:=100 to 450 do begin Sleep(delay); p.MoveOn(1,0); end; for var i:=100 downto -100 do begin Sleep(delay); var w := p.Width; p.ScaleX := i/100; p.MoveOn(w - p.Width,0); end; for var x:=450 downto 100 do begin Sleep(delay); p.MoveOn(-1,0); end; for var i:=-100 to 100 do begin Sleep(delay); p.ScaleX:=i/100; end; end; end.