Какие Вы знаете программы для проектирования домов, комнат, квартир, планов для домов и квартир?

Николай Сидоренко: не могу ничего сказать по поводу archicad, ни разу не пользовался им)

Как осуществить поворот на заданных угол изображения?

bobrovskyserg: Хорошо, спасибо огромное за помощь, буду пытаться довести всё до ума)

Как осуществить поворот на заданных угол изображения?

bobrovskyserg:
Спасибо огромное за то, что помогаете мне!)
Как я понял, я должен создать новую процедуру для создания рисунка, но все стандартные moveto и lineto заменить на ваши процедуры, а значения синусов и косинусов просто задать с помощью const? тогда получается каждая линия, которая будет рисоваться будет повёрнута на какой-то угол?

Как осуществить поворот на заданных угол изображения?

Да, я уже понял что менял только начальную точку рисунка...но как сделать так, чтобы точки вращались вокруг центра x0,y0 у меня даже мыслей нет..

Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Mercury13: В таком случае можно программно запретить пользователю растягивать и сворачивать окно, только закрывать. Так как пока что не умею вручную отлаживать все процессы с прорисовкой, буду юзать такую систему)

Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Mercury13: Так и делал, всё в порядке)

Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Mercury13: Поменял 0.01 на константу
Сейчас попробовал свернуть, развернуть, уменьшить и увеличить окно экзешника программы, всё работает исправно, график к счастью остаётся на своём месте:)
Стоит windows 8.1
Спасибо ещё раз за помощь)

Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Dimentre:

Как убрать линию, соединяющую (0,0) и начало графика ln(x) Tcanvas?

Спасибо за помощь!)
По поводу пункта 4, в тот момент, когда пытался нарисовать графики даже не задумывался о буферизации:) т.к. графики всегда отпечатывались без мерцаний...
Решил проблему по тупому и можно сказать подгоном
вот код:

procedure TForm1.Button5Click(Sender: TObject);
const mash=25;
Var x0,y0:integer;
x,y:real;
begin
x0:=image2.Width div 2;
y0:=image2.Height div 2;
// рисуем ось
image2.canvas.pen.color:=clgray;
image2.canvas.pen.width:=2;
image2.Canvas.MoveTo(x0,0);
image2.Canvas.LineTo(x0,clientheight);
image2.canvas.moveto(0,y0);
image2.Canvas.lineto(clientwidth,y0);
//рисуем график
image2.Canvas.Pen.Color:=clred;
x:=0;
y:=0;
image2.canvas.moveto(trunc(x0)+1,trunc(y0)+100);
repeat
x:=x+0.01;
if x <= 0 then
y := 0
else
y:=-ln(x);
image2.canvas.lineto(trunc(x*mash)+x0,trunc(y*mash)+y0);
until x>=50;
end;