Проблема с отрисовкой в PaintBox Делфи

[VSemV]

Идея такая -- отрисовываю всё что надо в BitMap и вывожу его на PaintBox. Всё что надо -- это фон и круги, с координатами из БД. Если добавлять записи в БД, добавляются круги. А если, допустим, удалить все записи из базы, то круги всё-равно останутся(надо, чтоб удалялись!)..
Понятно, что что-то как-то надо очищать, но вроде всё и так должно перерисовываться.. Как я понял, OnPaint перерисовывает PaintBox каждый раз заново.

var
  map: TBitMap;
  mapbmp: TBitMap;  // грузится из файла
.....

procedure TForm1.PaintBox1Paint(Sender: TObject);
var i: integer;
begin
//собственно всё рисую в map.. фон
  map:=mapbmp;  //есть подозрения, что что-то не так здесь:)

//из бд в map рисуются круги..
  if Nodes.Active then  
    if Nodes.RecordCount>0 then
      for i:=0 to Nodes.RecordCount do begin
        Nodes.RecNo:=i;
        map.Canvas.Ellipse(Nodes['Коорд_X']-2,Nodes['Коорд_Y']-2,Nodes['Коорд_X']+2,Nodes['Коорд_Y']+2);
      end;


  dRect:=Bounds(0,0,PaintBox1.Width,PaintBox1.Height);
  sRect:=Rect(mappos.x,mappos.y,mappos.x+PaintBox1.Width,mappos.y+PaintBox1.Height);

//map на PaintBox
  PaintBox1.Canvas.CopyRect(dRect,map.Canvas,sRect);
end;

[Stilet]

Попробуй вставить

PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);

В начало обработчика.
Вот в нагрузку пример:

var    ax,ay:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
 PaintBox1.Canvas.Ellipse(ax-10,ay-10,ax+10,ay+10);
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 ax:=x;ay:=y;
 PaintBox1.Repaint;
end;

[VSemV]

Не.. Всё так же, только ещё мельтешение появилось при промотке изображения.. помоему тут как-то надо очищать map..

map:=mapbmp;

ака

bitmap:=bitmap;

что делает? копирует изображение или копирует адрес на изображение?


ps если отрисовывать прямо на paintBox -- всё нормально только мельтешение, даже если DoubleBuffered:= True; прописать..

[Stilet]

Скорее копирует все а не олько изображение.

[VSemV]

Ну эт понятно.. просто никаких других вариантов не могу придумать) А если бы они после присвоения стали бы ссылаться на один и тот же диапазон памяти, всё стало бы просто и понятно и можно было бы с чистой совестью идти искать другие способы А так, пара строчек кода, а не работает..

[Stilet]

Помоему ты просто запарился...
Почему обязательно все отрисовывать на промежуточном битмапе, а не сразу на Паинтбоксе?

[VSemV]

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

ps если отрисовывать прямо на paintBox -- всё нормально только мельтешение, даже если DoubleBuffered:= True; прописать..

просто это будет типа векторная карта.. и узлы грузятся из БД.. Если узлов будет >1к? всё будет ну очень некрасиво мигать при перерисовке.. щас попробую всё отрисовать в левый paintBox и оттуда копировать если и это не прокатит, будет грустно

[VSemV]

Вобщем решил тем, что рисую в имейдж, потом вывожу в paintbox.. причем, если рисовать сразу из того bitmap'a, который грузится из файла, то выводится криво присваиваю его другому bitmap'y и рисую из него -- всё нормально.. Бред.. но теперь работает