delphi canvas

Ответ от Gennady[гуру]
Доброго времени суток.
Начнем с того, что Canvas не метод, а свойство некоторых графических объектов, в частности, TImage и TPaintBox.
Не знаю, поможет ли, но вот куски из работающей программы. Рисование происходит на канве TPaintBox.
procedure TSFAWindow.DrawCurve;
const
CurvName : array[1..4] of String = ('S-компонента','P-компонента','Среднее','');
var
i, j : Integer;
begin
j := 1;
GetRelXY;
while Result[j] <> nil do begin
with PaintBox1.Canvas do begin
Pen.Color := SFAColors[j+2]; // установим цвет кривой
CalcXY(Result[j], 0); // найдем начало кривой
MoveTo(X+PlotLeft, Y+PlotTop); // установим позицию пера
for i:=1 to Result[j].Count-1 do begin // для всех точек
CalcXY(Result[j], i); // считаем положение
LineTo(X+PlotLeft, Y+PlotTop); // проводим линию
end;
Font.Color := SFAColors[j+2]; // цвет типа кривой
TextOut(PlotLeft + (j-1)* 120, PlotBottom + 25, CurvName[j]);
end;
Inc(j); // переход к следующему графику
end;
end;
procedure TSFAWindow.GetRelXY;
begin
xRel := (PlotRight - PlotLeft)/(CurrBorder.xMax - CurrBorder.xMin);
yRel := (PlotBottom - PlotTop)/(CurrBorder.yMax-CurrBorder.yMin);
end;
procedure TSFAWindow.CalcXY(C: TCurveData; Index : Integer);
var
P : TCurvePoint;
begin
P := C[Index];
x := Round((P.Arg - CurrBorder.xMin)*xRel);
y := Round((-P.Func + CurrBorder.yMax)*yRel);
end;
Метод GetRelXY; определяет масшабные коэффициенты по горизонтали и вертикали. CalcXY, вычисляет координаты в системе отсчета канвы. Структура CurrBorder содержит минимальные и максимальные значения аргумента и функции. В массиве Result передаются значения аргументов и функций кривой.
Если кратко резюмировать все вышеприведенное, то свойство Canvas имеет методы MoiveTo(X,Y) и LineTo(X,Y) которые позиционируют указатель в точку с координатами X и Y и проводят линию до соответствующей точки. А вообще, если ознакомитесь с методами TCanvas в справке, то найдете массу интересного.
Удачи!