Линия не утолщается

[Иллидан]

Как сделать так, что-бы, если я два раз нарисовал линию через Canvas в Image1 в одном и том же месте не создавался эффект ее утолщения?

[eoln]

image1.Canvas.MoveTo(0,0);
image1.Canvas.LineTo(100,100);
Не вижу никакого утолщения при многократном повторе. Наверное координаты концов отличаются или режим рисования какой-нибудь используете?

[Иллидан]

Да нет, вроде, обычный. Я рисую квадраты методом Rectangle и когда их сторны совпадают происходит утолщение.

[Ntlegend]

рисуй квадрат как 4 линии.. указывая рпи этом их координаты.. немного мудрено, но если нормальным способом не оплучается делай так..

[AngelOfDeath]

У меня ничего не утолщается

with Image1 do
begin
Canvas.Rectangle(0,0,30,30);
Canvas.Rectangle(0,0,30,30);
end;

Попробуй Canvas.Polygon

Canvas.Polygon([Point(0,0),Point(100,0),Point(100,100),Point(0,100)]);

[eoln]

Если речь о разных прямоугольниках, которые расположены вплотную, то просто прямоугольник чертит стороны с внутренней стороны, поэтому надо смещать какие-нибудь 2 смежные стороны на 1 пиксель. Например так:

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
begin
  for i := 0 to 5 do for j := 0 to 5 do begin
  image1.Canvas.Rectangle(20*i,20*j, 20*i+20, 20*j+20)//утолщение
  end;
  application.MessageBox('','');
  image1.Canvas.Refresh;
  for i := 0 to 5 do for j := 0 to 5 do begin
  image1.Canvas.Rectangle(20*i,20*j, 20*i+20+1, 20*j+20+1)//норма
  end
end;