Изменение размеров TBitmap

← →
Lotos © (2008-04-02 22:26) [0]

Здравствуйте, у меня такая ситуация: нужно передать в функцию 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
Подскажите, что я делаю не правильно?

← →
Compiler © (2008-04-03 00:39) [1]

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. Очень интересно:)

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

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

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

Изменение размеров TBitmap Найти похожие ветки