PHP DM Gate v0.9 » Изменение размеров TBitmap <span class="vd">[Delphi, Windows]</span>

Lotos © (02.04.08 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 © (03.04.08 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 © (03.04.08 00:40) [2]

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

<Цитата>
Lotos © (03.04.08 19:05) [3]

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

<Цитата>