n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/gr6.pas

23 строки501 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

uses GraphABC;

var pp: Picture;

begin
  CenterWindow;
  Brush.Color := clLightBlue;
  Rectangle(10,10,WindowWidth - 10,WindowHeight - 10);
  pp := new Picture('1.bmp');
  pp.Draw(40,20);
  pp.Transparent := True;
  pp.Draw(190,20);
  pp.TransparentColor := clWhite;
  pp.Draw(340,20);
  pp.TransparentColor := pp.GetPixel(70,70);
  pp.Draw(490,20);
  pp.Transparent := False;
  pp.Draw(40,250);
  pp.TransparentColor := clBlack;
  pp.Draw(190,250);
  pp.Transparent := True;
  pp.Draw(340,250);
end.