Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.11.01;
Скачать: CL | DM;

Вниз

Изменение размеров 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 вся ветка

Текущий архив: 2009.11.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
6-1209043050
tytus
2008-04-24 17:17
2009.11.01
NetWkstaUserGetInfo - как правильно использовать?


15-1251453095
@!!ex
2009-08-28 13:51
2009.11.01
Продолжается ли разработка средства Turbo Delphi Explorer?


15-1250698612
Cyrax
2009-08-19 20:16
2009.11.01
Раздаточный материал с фотографиями серых телефонов


15-1252153748
KilkennyCat
2009-09-05 16:29
2009.11.01
Неплохой ролик на тему запрета скайпа и ваще.


2-1252331505
noob_one
2009-09-07 17:51
2009.11.01
Кто-нибудь пользовался свойством Origin объекта Tfield?