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

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

Так:

procedure text;
var	i:integer;
begin
  i := 100;
  settextjustify(lefttext, toptext);

  SetTextStyle(DefaultFont, HorizDir,2); OutTextXY (100,i+10, 'TEXT');
  inc(i, textheight('W'));
  SetTextStyle(TriplexFont, HorizDir,2); OutTextXY (100,i+10, 'TEXT');
  inc(i, textheight('W'));
  SetTextStyle(TSCRFont, HorizDir,2);    OutTextXY (100,i+10, 'TEXT');
  inc(i, textheight('W'));
  SetTextStyle(LCOMFont, HorizDir,2);    OutTextXY (100,i+10, 'TEXT');
  inc(i, textheight('W'));
  SetTextStyle(ScriptFont, HorizDir,2);  OutTextXY (100,i+10, 'TEXT');
  inc(i, textheight('W')); // <--- Не обязательно
end;

и все CHR-файлы либо в одной папке с программой, либо переведены в PP файлы с помощью подобной команды:

BIN2OBJ -c LittFontProc LITT.CHR>LITT.PP

, и подключены к программе через {$i имя файла}... У меня все работает по первому варианту.

[compiler]

что такое SetTextJustify?

и все CHR-файлы

А где они?