Графика в Delphi

[AlexDn]

Нужно сделать небольшой чертёж в делфи.. с графикой раньше вообще не работал /только в паскале/, подскажите плиз, какой компонент нужно использовать, чтобы в нём нарисовать несколько линий..?

[Sparkman]

Сообщение от AlexDn

Нужно сделать небольшой чертёж в делфи.. с графикой раньше вообще не работал /только в паскале/, подскажите плиз, какой компонент нужно использовать, чтобы в нём нарисовать несколько линий..?

Image из вкладки Advanced..

А так, на Canvas'е можно рисовать хоть на каком компоненте, единственный минус такого рисования - при потере фокуса канва затирается, а Image - нет.

[AlexDn]

из вкладки Additional, насколько я понял..? и как там реализовать хоть что-то?
image1.line(30,30,60,60);..?

[Sparkman]

Сообщение от AlexDn

из вкладки Additional, насколько я понял..? и как там реализовать хоть что-то?
image1.line(30,30,60,60);..?

Да, Additional.. Реализовывать как? За основу возмите положение курсора мыши, если вы ей хотите рисовать.

ПС: чем вас AutoCAD не устраивает?

[AlexDn]

Нет, мне нужно рисовать по координатам, что-то вроде чертежа от результатов..

[SERG1980]

image1.Canvas.MoveTo(30,30);//откуда будем рисовать
image1.Canvas.LineTo(60,30);// куда будем рисовать
end;

[AlexDn]

Спасибо всем уже начал понемногу разбираться..)

[DomiNick]

У Canvas есть "перо"... По умолчанию оно в точке (0,0)...
При вызове LineTo() рисуется линия от точки где перо до указанной в LineTo()... Причём после этого перо перемещается в конечную точку (указанную в LineTo())...

[Ins]

Сообщение от Sparkman

Image из вкладки Advanced..

А так, на Canvas'е можно рисовать хоть на каком компоненте, единственный минус такого рисования - при потере фокуса канва затирается, а Image - нет.

Потому что рисовать нужно в положенных для этого местах, а именно - в событии OnPaint. Можно рисовать непосредственно на форме или использовать компонент TPaintBox. НЕ НУЖНО использовать TImage, он предназначен совсем не для этого и жрет кучу ресурсов. TImage - это компонент не для рисования, а для показа картинок (TPicture)

[DeKot]

Что бы не зависеть от потери фокуса, следует рисовать "в памяти", т.е на созданном объекте типа TBitMap (он имеет Canvas). А затем выводить рисунок на форму (в таймере или по каком либо событию).

var  Buffer: TBitMap;
begin
  Buffer:= TBitMap.Create; // создаем объект с канвой
  Buffer.Width:= 750;
  Buffer.Height:= 1050;  // размеры листа формата А4
  Buffer.Canvas.MoveTo(50,50);  // начало рисования
  Buffer.Canvas.LineTo(50,250);  // вертикальная линия в 200 пикс.
  Buffer.canvas.Rectangle(100,100,200,200);  //  рисуем квадрат
     <  и т.д. >
end;

// вывод рисунка на форму
Form1.Canvas.Draw(0,0,Buffer);