| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Tea_pot ©   (2002-11-01 12:28:00) 

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

---

Tea_pot   (2002-11-01 13:01:00) [1]

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

---

han_malign   (2002-11-01 12:53:00) [2]

Это что же за 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

---

Наверх