Пишу games mahgong, и пытаюсь загрузить много Bitmap-ов в память

← →
Tea_pot (2002-11-01 12:28) [0]

Выдает сообщение что недостаточно памяти для выполнения команды,
как быть?

← →
han_malign © (2002-11-01 12:53) [1]

Это что же за Bitmap-ы, если виртуальной памяти не хватает.
З.Ы. Вероятнее всего не хватает не памяти, а ресурсов(на handle-ы HBitmap), практикуется объединение всех картинок одинакового размера в одну и выдергивание нужной из нужного места в большой, на этом принципе реализован TImageList - копай его, или как сделано в RXLib:
procedure AssignBitmapCell(Source: TGraphic; Dest: TBitmap; Cols, Rows, Index: Integer); var CellWidth, CellHeight: Integer; begin if (Source <> nil) and (Dest <> nil) then begin if Cols <= 0 then Cols := 1; if Rows <= 0 then Rows := 1; if Index < 0 then Index := 0; CellWidth := Source.Width div Cols; CellHeight := Source.Height div Rows; with Dest do begin Width := CellWidth; Height := CellHeight; end; if Source is TBitmap then begin Dest.Canvas.CopyRect(Bounds(0, 0, CellWidth, CellHeight), TBitmap(Source).Canvas, Bounds((Index mod Cols) * CellWidth, (Index div Cols) * CellHeight, CellWidth, CellHeight)); end else begin Dest.Canvas.Brush.Color := clSilver; Dest.Canvas.FillRect(Bounds(0, 0, CellWidth, CellHeight)); Dest.Canvas.Draw(-(Index mod Cols) * CellWidth, -(Index div Cols) * CellHeight, Source); end; end; end;
(c)RxLib

← →
Tea_pot (2002-11-01 13:01) [2]

Вон в чем дело!Спасибо большое!

Пишу games mahgong, и пытаюсь загрузить много Bitmap-ов в память Найти похожие ветки