неожиданный рисунок Опции

[compiler]

Добрый день!
есть программка которая должна отрисовывать 5 прямоугольников в вертикальном положении через небольшое расстаяние, но она не работает:(

uses Graph;
function init:integer;
var
	grDriver: Integer;
	grMode: Integer;
begin
	grDriver := Detect;
	InitGraph(grDriver, grMode, '');
	init := GraphResult;
end;

procedure dr;
var
	i:integer;
	x1,x2,y1,y2,k:integer;
begin
	ClearViewPort;
	k:=round ((GetMaxY / 200));//отступ
	x2:=round (GetMaxX*(2/3));
	x1:=round (GetMaxX*(1 / 3));
        for i:=1 to 5 do begin
		y1:=round ((GetMaxY / 9)*(1+i) -k);
		y2:=round ((GetMaxY/9)*(1+ 2*i ));
		Rectangle(X1,Y1,X2,Y2);
	end;
end;

begin
	if init = grOk then begin 
			Dr;
			Readln;
			CloseGraph;  
	end; 
end. 

на скрине видно что отступы между прямоугольниками пропадают, и откуда-то берется шестой прямоугольник...
помогите...

Сообщение отредактировано: compiler - 11.07.2007 18:51

[volvo]

Так?

uses Graph,crt;

const
  max_items = 6;

function menuText(i: integer): string;
const
  a: array[1 .. max_items] of string = (
    'New', 'last', 'Record', 'level', 'Rules', 'exit'
  );
begin
  menuText:=a[i];
end;

function init:integer;
var
  grDriver, grMode: smallint; // <--- Для FPC
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  init := GraphResult;
end;

procedure dr;
var
  i:integer;
  x1,x2,y1,y2,k:integer;
begin
  ClearViewPort;
  SetBkColor(blue);
  ClearDevice;

  k:=round ((GetMaxY / 50));
  x1:=round (GetMaxX*(1 / 3));
  x2:=round (GetMaxX*(2/3));
  SetTextStyle(TSCRFont, HorizDir,3);
  settextjustify(centertext, centertext);

  for i:=1 to 6 do begin
    y1:=round ((GetMaxY / 10)*(i+1) +k);
    y2:=round ((GetMaxY/10)*(i+2) );
    Rectangle(X1,Y1,X2,Y2);
    outtextxy(x1 + ((x2 - x1) div 2), y1 + ((y2 - y1) div 2), menuText(i));
  end;
end;

function UserEnter():integer;
var
  select:integer;
  ch:char;
  x1,x2,y1,y2,k:integer;
  C:word;
const
  Up = #72;
  Down = #80;
  Esc =#27;
begin
  k:=round ((GetMaxY / 50));
  select:=1;
  repeat
    x1:=round (GetMaxX*(1 / 3));
    x2:=round (GetMaxX*(2/3));
    y1:=round ((GetMaxY / 10)*(select+1) +k);
    y2:=round ((GetMaxY/10)*(select+2) );
    Rectangle(X1-10,Y1-10,X2+10,Y2+10);
    ch:=ReadKey;
    case ch of
      #0:
        case readkey of
          Up:
            if select > 1 then dec(select);
  	Down:
            if select < max_items then inc(select);
        end;
      Esc:
        break;
    end;

    C:=GetColor;
    SetColor(GetBkColor);
    Rectangle(X1-10,Y1-10,X2+10,Y2+10);
    SetColor©;
    writeln('ro',select);
  until false;
  writeln('re',select);
  UserEnter:=select;
end;

begin
  if init = grOk then begin
    Dr;
    UserEnter();
    {
    case UserEnter() of
      1 : New
      2 : last;
      3 : Record;
      4 : level;
      5 : Rules;
      6 : exit;
    end;
    }
    Readln;
    CloseGraph;
  end;
end.

[compiler]

Так?

...outtextxy(x1 + ((x2 - x1) div 2), y1 + ((y2 - y1) div 2), menuText(i));...

ага, только есть вопрос... к вот этому x1 + ((x2 - x1) div 2)
ведь round( ((x2+x1-Length(menuText(i))*ширина символа)/2 )) тоесть (х2 - х1) -- длина всего прямоугольника, (Length( menuText(i) )*ширина символа) -- ширина строки(далее L), тогда (х2 - х1)-L--<<остаток>>, делем на 2 и получаем левый остаток. Но и x1 + ((x2 - x1) div 2) выводит посредине, почему?