Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
2-1253022950
kostyl_kostyl
2009-09-15 17:55
2009.11.01
Не пойму почему ошибка при SetLetngth


3-1229078488
Nik
2008-12-12 13:41
2009.11.01
отпределить тип колонки


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


4-1220776855
Дмитрий Белькевич
2008-09-07 12:40
2009.11.01
Количество записанных байт на жесикий


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский