не мерцающая графика

[tebeen]

Здравствуйте!

Помогите, с таким вопросом, нужно рисовать графику. Но предыдущий опыт, показал, что если по нарисованному объекту провести другим окном, или убрать его за экран, то там всё стирается. Было это решено repaint`ом.

Вопрос есть ли компонент на котором нарисовал, и ничего не перерисовываешь (чтобы не тратить ресурсы ЦП)?

И еще, если есть такой, так чтобы он поддерживал модуль Graphics, включающий классы TCanvas, TPen, TBrush, TFont, TBitmap, TMetafile, TPicture и TIcon, который обеспечивает поддержку МНОГОПОТОЧНОСТИ.

[_Dmitry]

Попробуй Image, насколько помню он обладает всеми перечисленными свойствами

[mutabor]

(чтобы не тратить ресурсы ЦП)

а тот компонент будет каким нибудь волшебным способом перерисовываться, не тратя ресурсы?

TImage

[tebeen]

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

а тот компонент будет каким нибудь волшебным способом перерисовываться, не тратя ресурсы?

Ну, например, метафайлы и bmp, нельзя сказать, что равны.

А за TImage, Спасибо.

[tebeen]

У-УУУУ!

В потоках, при рисовании, компонент жутко мерцает, но это ерунда, главное рисунок сохраняется. А вот ошибку выдаёт "System Error. Code: 6. Неверный дескриптор"


constructor TDrawThread.Create(AForm: TForm; AImage: TImage; AColor: TColor);
begin
FColor := AColor;
FForm := AForm;
FImage := AImage;
inherited Create(False);
end;

вызывается так:

TDrawThread.Create(Self, Image1, ColorDialog1.Color)

Image1 - это правильно?

procedure TDrawThread.Execute;
begin
with FImage.Canvas do
begin
Lock; // lock canvas
// only one thread at a time can execute the following code:
Pen.Color := FColor;
MoveTo(P1.X, P1.Y);
LineTo(P2.X, P2.Y);
// after the next line executes, another thread will be allowed
// to enter the above code block
Unlock; // unlock canvas
end;
end;
end;

[Stilet]

А на TImage помоему рисовать так просто нельзя. Бери TPaintBox вместо него.

[tebeen]

Рисует, рисует. Только ошибка во время работы вылетает. После даже клавиатура отказала.

Теперь TPaintBox буду мучить..... Помучил...Затирается этот компонент..

Ошибка про дискриптор возникает, когда поток не останавливаешь, и пытаешься проект закрыть.

Но при рисовании на TImage сначало всё рисуется, а потом на какой-то тысячной линии (не важно, 10 или 500 тысячной линии, по-разному), изображение пропадает, совсем, как будто там ничего не было. Что это такое может быть.

Вот здесь http://www.kamelott.ru/virus/MTGraph.zip лежит пример от Стива и Ксавье. Здесь в потоках, рисуются линии на канву формы.

Попробовал так, сначала нарисовал 500000 линий в потоках на TImage,а потом сделал Image1.Visible:=True. Линии остались...? Похоже на ошибку при совместной работе потоков, и обновлением (repaint`ом) самого TImage.