Просмотр исходного кода

* fixed bug: buffer overflow when exporting TGA files

master
Bergmann89 12 лет назад
Родитель
Сommit
669392448a
1 измененных файлов: 1 добавлений и 1 удалений
  1. +1
    -1
      glBitmap.pas

+ 1
- 1
glBitmap.pas Просмотреть файл

@@ -4630,7 +4630,7 @@ var
begin
PixelSize := fPixelSize;

for Idx := 0 to Height * Width do begin
for Idx := 1 to Height * Width do begin
Temp := pByteArray(pTemp)^[2];
pByteArray(pTemp)^[2] := pByteArray(pTemp)^[0];
pByteArray(pTemp)^[0] := Temp;


Загрузка…
Отмена
Сохранить