Question

Помогите пожалуйста , нужна ваша помощь в GraphABC ))

Answer 1

uses
  GraphABC;

var
  aColor: array[1..9] of Color :=
  (clBlack, clRed, clGreen, clBlue, clPink, clCyan, clBrown, clMagenta, clGray);
  i: integer;

procedure ColorShift();
var
  i: integer;
  t: color;
begin
  t := aColor[9];
  for i := 8 downto 1 do aColor[i + 1] := aColor[i];
  aColor[1] := t
end;

begin
  SetWindowSize(800, 600);
  repeat
    for i := 1 to 9 do
    begin
      SetPenColor(aColor[i]);
      DrawEllipse(200 + 25 * (i - 1), 100, 600 - 25 * (i - 1), 500);
    end;
    ColorShift;
    Sleep(500);
    ClearWindow
  until false
end.

Answer 2

Pascal.ABC.Net

Answer 3

Скорее всего, Вас посетили глюки. У меня же работает, Уточняю версию: 2.2 сборка 795 (24.10.2014)

Answer 4

Поскольку Pascal.ABC свободно распространяемый, качайте последнюю версию прямо с их сайта.

Answer 5

вы добрый человек, добра вам )))