Есть StringGrid размером 20х20. На форме видно 10х10. Рисую кусочки схемы в каждой ячейку (Canvas.MoveTj и LineTo). НО!!!
при прокрутку Грида нарисованное стирается.
ВОПРОС: Как сделать, чтобы нарисованное изображение оставалось при прокрутке?
Размеры ячеек, их количество менять НЕЛЬЗЯ.

Михаил, а вы где рисуете? Рисуйте в обработчике события OnDrawCell

Код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); var  bit: TBitmap; begin  bit:=TBitmap.Create;  bit.LoadFromFile('c:\1.BMP');  Rect:= Form1.StringGrid1.CellRect(3, 3);  Form1.StringGrid1.Canvas.Brush.Bitmap:= bit;  Form1.StringGrid1.Canvas.FillRect(Rect); end;

а вот и пример, только, конечно про загрузку картинки в обработчике Фокс пошутил ;)

не-е-е-е... картинка не пойдёт.

Проясняю ситуацию:
StringGrid должен представлять собой большую принципиальную электросхему, собираемую их "кирпичиков" - отдельных элементов, которые выбираются из меню и ставятся в определённую ячейку.
Так вот, как только я начинаю её (схему, Грид) прокручивать, то, что было нарисовано уходит за край, а при обратной прокрутке стирается.
А она нужна мне ЦЕЛИКОМ!!!!

Ох! вроде пояснил, ЧЕГО я хочу!

не, не понятно!

Фоксик тебе пример привел, как рисовать в одной ячейки и чтобы оно не стиралось! так смотри что у тебя в какой ячейки и рисуй свои "кирпичики"! Все верно!

Я же писал в первом сообщении-вопросе: я рисую LineTo, Ellipse и MoveTo !
а ячкйка выбирается (становится активной) щелчком мышки, по которому в ней И ДОЛЖЕН ПОЯВИТЬСЯ ФРАГМЕНТ СХЕМЫ.

ты должен хранить в ячейке (например, в массиве Objects,
или в самом тексте Cells) информацию о том, какой элемент
схемы в какой ячейке рисуется, и использовать эту информацию
при рисовании ячейки.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
bmpIdx: Integer;
bmp: TBitmap;
begin
bmpIdx := (Sender as TStringGrid).Objects[ACol, ARow];
bmp := МассивЭлементовСхемыСозданныйЗаранее[bmpIdx];
(Sender as TStringGrid).Canvas.Draw(Rect.X, Rect.Y, bmp);
end;

Какая разница как вы рисуете, вам просто НУЖНО рисовать в этом обработчике события и все!!!

если рисуешь LineTo и тп,
сделай абстрактный объект

TElem = class
public
procedure Draw(Canvas: TCanvas; Rect: TRect); virtual; abstract;
end;

от него напиши кучу наследников для разных элементов схемы.

При клике на ячейку заноси в
(Sender as TStringGrid).Objects[ACol, ARow]
нужный объект (создай или возьми из пула),

а при рисовании ячейки дай ему себя нарисовать:

Код

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var elem: TElem; begin   elem := TElem((Sender as TStringGrid).Objects[ACol, ARow]);   if elem <> nil then     elem.Draw( (Sender as TStringGrid).Canvas, Rect); end;

Ну потом при закрытии не забудь уничтожить эти объекты