52dd8e5cf4
Objects.Reverse PictureWPF.CreateInvisible тип Direction и его статические свойства и методы (напр, Direction.Forward(obj: ObjectWPF) HideObjects, ShowObjects GraphWPF.pas type Bitmap с методами FlipHorizontal FlipVertical ScaleX ScaleY Clone DrawImage(x,y: real; b: Bitmap);
19 lines
333 B
ObjectPascal
19 lines
333 B
ObjectPascal
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. |