Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

Из хелпа в Д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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.032 c