Форум: "KOL";
Текущий архив: 2009.11.01;
Скачать: [xml.tar.bz2];
ВнизИзменение размеров 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);
← →
Lotos © (2008-04-03 19:05) [3]Спасибо. Книжку скачал.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2009.11.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c