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

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

Изменение размеров TBitmap [Delphi, Windows]

Lotos ©   (2008-04-02 22:26:00) 

Здравствуйте, у меня такая ситуация: нужно передать в функцию TBitmap, чтобы она его отрисовала и вернула обратно. Делаю так


var
 shirina, vysota: word;

procedure Paint;
var
 PicFrac: TBitMap;
begin
 PicFrac.Create;
 ...
 PicFrac:=F_pic(PicFrac, False);
 ...
 PicFrac.Free;  
end;

function F_Pic(PicL: TBitmap; save: bool): TBitmap;
begin
 ...
 picL.Width:=shirina; //Ошибка: access violation at …: read of address...
 picL.Height:=vysota;
 ...
end;

Возникает ошибка. Значение переменных в этот момент:
picL.Empty=False (на сколько я понимаю, рисунок существует)
picL.Width=4223444
shirina=345
Подскажите, что я делаю не правильно?

---

Lotos   (2008-04-03 19:05:00) [1]

Спасибо. Книжку скачал.

---

Dimaxx   (2008-04-03 00:40:00) [2]

PicFrac: PBitMap;
PicFrac:=NewBitMap(X,Y);

---

Compiler   (2008-04-03 00:39:00) [3]


var
shirina, vysota: word;

procedure F_Pic(var PicL: PBitmap; save: bool);
begin

picL.Width:=shirina; //Ошибка: access violation at …: read of address...
picL.Height:=vysota;

end;

procedure Paint;
var
PicFrac: PBitMap;
begin
PicFrac:=NewBitmap(0,0);

F_pic(PicFrac, False);

PicFrac.Free;
end;

Качаем и читаем книгу об особенностях KOL. Очень интересно:)

---

Наверх