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

[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]

Я брал из 7-го Турбо Паскаля - формат один и тот же...
Если надо - забирай:  fonts.rar ( 71.69 килобайт ) Кол-во скачиваний: 314

что такое SetTextJustify?

Устанавливает выравнивание текста. То что я привел - говорит компилятору, что точка, координаты которой задаешь в OutTextXY, будет левой (LeftText) верхней (TopText) точкой выводимого текста, то есть, весь текст пойдет от нее вправо и вниз. А вот для того, чтобы пропускать между строками, напечатанными разными шрифтами одинаковое расстояние, пользуемся TextHeight, которая выдаст высоту переданной ей буквы (обычно передают "W", как самую высокую) для текущего шрифта...

[compiler]

вот моя менюшка...

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

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;
	SetBkColor(blue); 	
	ClearDevice;
	
	k:=round ((GetMaxY / 50));
	x1:=round (GetMaxX*(1 / 3));
	x2:=round (GetMaxX*(2/3));
	SetTextStyle(TSCRFont, HorizDir,3);  
	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 (  round( ((x2+x1-Length(menuText(i)))/2 )), (y1+y2) 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;
		if ch=Up then dec(select)//тут надо будет дописать, что б не уходили меньше 1...
			else if ch=Down then inc(select);
				C:=GetColor;
		SetColor(GetBkColor);
		Rectangle(X1-10,Y1-10,X2+10,Y2+10);
		SetColor©;
		writeln('ro',select);
	until (ch <> Esc);
	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. 

проблема основная -- что-то с циклом отрисовки нового выбора пользователя(прямоугольник новый не отрисовывается)
проблемма второстепенная -- текст выводится не в центр
что делать?