6e34bc00fa
GraphABCLinux Поправил иконку PABCHealth Изменения в LightPT.pas Цветной вывод в окне вывода (только для Windows) Console.OutputEncoding := new System.Text.UTF8Encoding(false); в __RedirectIOMode.pas чтобы в Linux нормально выводилось
11 lines
302 B
ObjectPascal
11 lines
302 B
ObjectPascal
// Иллюстрация прозрачности
|
|
uses GraphABCLinux;
|
|
|
|
begin
|
|
for var Transparency:=0 to 255 do
|
|
begin
|
|
Brush.Color := ARGB(Transparency,Random(256),Random(256),Random(256));
|
|
FillCircle(Random(Window.Width),Random(Window.Height),Random(20,60));
|
|
sleep(100);
|
|
end;
|
|
end. |