/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphWPF/Flip.pas
19 строк
333 B
Mikhalkovich Stanislav
WPFObjects:
15 апр 2021, 12:28
15 апр 2021, 12:28
52dd8e5
Код
Авторство
О чём код?
uses GraphWPF,Timers; begin var b := new Bitmap('m1.png'); b.ScaleX := 0.5; b.ScaleY := 0.5; var b1 := b.Clone; b1.FlipVertical; OnDrawFrame := dt -> begin DrawImage(100,100,b); DrawImage(300,100,b1); end; var t := new Timer(500); t.TimerProc := procedure -> b.FlipHorizontal; t.Start; end.