TCanvas

← →
Alexander_spb (2003-12-29 20:07) [0]

Уважаемые Мастара!!! Требуется Ваша помощь.
Не могу на канве в цикле высветить пиксель с заданными координатами. MoveTo, LineTo не помогают. В хелпах вычитал о
DrawPoint, но когда ее использую компилятор выдае ошибку, что
неизвестный идентификатор. Заранее благодарю.

← →
Stilgar (2003-12-29 20:17) [1]

for I:=0 to Width-1 do
begin
Canvas.Pixels[I,100]:=clRed;
Application.ProcessMessages;
end;
Canvas.Pixels - это двумерный массив пикселей канвы

← →
Alexander_spb (2003-12-29 20:28) [2]

Большое спасибо все заработало. И все-таки почему не работает
MoveTo, LineTo?

← →
Stilgar (2003-12-29 20:39) [3]

Код можно? Наверное потому что LineTo рисует на одну точку короче (прикол от дяди Билла). Но все же код.

← →
Alexander_spb (2003-12-29 20:52) [4]

try
Step:=StrToInt(edStep.Text);
Interval:=Count*Step;
For i:=(X0-Interval) to (X0+Interval) do
begin
Buffer:=(i-X0)/step;
Func:=MyFunc(Buffer);
X:=Round((Buffer*step)+X0);
Y:=Round((Step*(-Func)))+Y0;
if (Y>0) and (X>0) and (Y<500) and (X<500) then
begin
Pb.Canvas.MoveTo(X,Y));
Pb.Canvas.LineTo(X,Y);
Memo.Lines.Add(FloatToStr(X) + " "+ FloatToStr(Y));
end;
end;
//ShowMessage(IntToStr(Countmin));
except
ShowMessage("

← →
Stilgar (2003-12-29 20:58) [5]

Pb.Canvas.MoveTo(X,Y));
Pb.Canvas.LineTo(X+1,Y+1);
{или LineTo(X-1,Y) (и т.д.) - если не изменяет память, это не важно}

← →
Alexander_spb (2003-12-29 21:03) [6]

Ты совершенно прав... Такой номер проходит.
А что можешь сказать по поводу DrawPoint

← →
Stilgar (2003-12-29 21:19) [7]

А это слабо:)
Есть предположение, что Borland объявил, но написать забыл.
Или Метод убрал, а про хелп забыл.
С кем не бывает.

← →
Бином Ньютоныч (2003-12-29 21:27) [8]

Эт для CLX

TCanvas Найти похожие ветки