fdutchuo
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Объяните, пожалуйста, почему у меня одни bmp файлы (24b) отображаются нормально, а другие как попало (цвета не совпадают). Вот код: var f:file; mas:array[1..3*1024] of char; x,y,numread,i:integer; ... // здесь я считываю размеры картинки ... seek(f,54); y:=bmpheight;x:=1;i:=0; repeat blockread(f,mas,sizeof(mas),numread); repeat form1.Canvas.Pixels[x,y]:=ord(mas[1+3*i])+ord(mas[2+3*i])*256+ord(mas[3+3*i])*256*256; x:=x+1;i:=i+1; if x>bmpwidth then begin x:=1;y:=y-1 end; until i=1024; i:=0; until numread=0; ... | Всего записей: 2 | Зарегистр. 15-08-2003 | Отправлено: 23:00 20-08-2003 | Исправлено: fdutchuo, 00:02 21-08-2003 |
|