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

Вниз

Из хелпа в Д7   Найти похожие ветки 

 
Igor_thief   (2005-07-13 15:29) [0]

Вот нашел такой пример-пример
procedure TForm1.Button1Click(Sender: TObject);

// This example shows drawing directly to the BitMap
var
 x,y : Integer;
 BitMap : TBitMap;
 P : PByteArray;
begin
 BitMap := TBitMap.create;
 try
   // On Windows replace MyBitmap.png with a full pathname such as
   // C:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp
   BitMap.LoadFromFile("MyBitmap.png");
   for y := 0 to BitMap.Height -1 do
   begin
     P := BitMap.ScanLine[y];

     for x := 0 to BitMap.Width -1 do
       P[x] := y;
   end;
   Canvas.Draw(0,0,BitMap);
 finally
   BitMap.Free;
 end;
end;


Они грузят пнг в битмап, а у меня при этом выдается ошибка. Что за прикол?


 
Alexander Panov ©   (2005-07-13 15:32) [1]

Ищи ошибку в 17-й строке.


 
Kolan ©   (2005-07-13 15:33) [2]

Твоя ошибка это прикол...
PS
Если есть ошибка то её надо приводить...


 
Igor_thief   (2005-07-13 15:37) [3]

Kolan ©   (13.07.05 15:33) [2]
Пишет что Bitmap Image is not valid при попытке загрузки картинки в битмап.


 
Kolan ©   (2005-07-13 15:44) [4]


> BitMap.LoadFromFile("MyBitmap.png");

Сдесь? А оно Valid?

PS
Если есть ошибка то её надо приводить... и указывать где она возникает...



Страницы: 1 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.024 c
6-1113992960
zorik
2005-04-20 14:29
2005.07.31
Как узнать значение параметра (cgi-приложение)


1-1121330036
AGGRESSOR
2005-07-14 12:33
2005.07.31
PAGE FAULT IN NONPAGED AREA


3-1119533893
Alex17
2005-06-23 17:38
2005.07.31
Как заменить символ


3-1118916600
А
2005-06-16 14:10
2005.07.31
Как после ClientDataSet.Open отобразить все данные в DBGrid?


4-1116501708
-Игорь-
2005-05-19 15:21
2005.07.31
запуск внешних программ с ожиданием ее завершения