После какого то время работы программы вылетает ошибка EOutofResource, есть подозрения на отрисовку диаграмм:
есть:

FBufBitmap: TBitmap;
FCanvas: TControlCanvas;

На FBufBitmap происходит отрисовка диагрыммы потом выполняется копирование изображения с FBufBitmap на FCanvas:
procedure TbtkInternalGantt.PaintWindow(DC: HDC);
var
    ps: TPaintStruct;
begin
  //FCanvas.Lock;
  try
   ....

    FCanvas.Handle := DC;
    try
      TControlCanvas(FCanvas).UpdateTextFlags;
      Paint; 
      //BeginPaint(FCanvas.Handle, ps);
       FCanvas.CopyRect(FBufBitmap.Canvas.ClipRect, FBufBitmap.Canvas, FBufBitmap.Canvas.ClipRect);
      //EndPaint(FCanvas.Handle, ps);
    finally
      FCanvas.Handle := 0;
    end;
  finally
    //FCanvas.Unlock;
  end;
end;

Заметил странность что при отрисовки счетчик объектов GDI сильно увеличивается, а на 10000 валится с ошибкой, на FCanvas.Handle := DC; понятно почему, но особенно сильно счетчик прыгает вверх на каждой из перечисленных ниже строк, и обратно не возвращается:
      //BeginPaint(FCanvas.Handle, ps);
       FCanvas.CopyRect(FBufBitmap.Canvas.ClipRect, FBufBitmap.Canvas, FBufBitmap.Canvas.ClipRect);
      //EndPaint(FCanvas.Handle, ps);

Такое поведение нормально, может что то делаю не так?

Это сообщение отредактировал(а) cemick - 19.5.2009, 12:30