Редактирование *.tga

[Yungo161]

задача такова: имеются изображения формата тга и их нужно редактировать. отображать желательно в TImage

вопрос таков: каким макаром эти тга файлы открыть, то бишь каким компонентом итп. и как их редактировать, записывая процесс на тимадж и потом сохранять опять же в тга формате

[Develop]

Вот тебе класс для работы с "*.TGA". Скажи спасибо автору - Tom Nuydens))
TGA2.rar

[Yungo161]

чувствую что вопрос идиотский, но все же...

Как этим пользоваться?

[Develop]

Как этим пользоваться?

No comments... xDD

P.S. Ну загрузка типа так, а дальше уже сам думай.

function LoadTGAImage(ImageName: string): TMemoryStream;
var tga: TTGAImage;
  ifmt, fmt: GLenum;
  ImageSize: integer;
begin
  tga := TTGAImage.Create;
  tga.LoadFromFile(ImageName);

  if tga.Header.ImageType = 2 then
  begin
    if tga.Header.ImgSpec.Depth = 24 then
    begin
      ifmt := GL_RGB8;
      tga.BGRtoRGB;
      fmt := GL_RGB;
      ImageSize:= tga.Header.ImgSpec.Width*tga.Header.ImgSpec.Height*3;
    end
    else begin
      ifmt := GL_RGBA8;
      tga.BGRtoRGB;
      fmt := GL_RGBA;
      ImageSize:= tga.Header.ImgSpec.Width*tga.Header.ImgSpec.Height*4;
    end;
  end
  else begin
    ifmt := GL_LUMINANCE8;
    fmt := GL_LUMINANCE;
    ImageSize:= tga.Header.ImgSpec.Width*tga.Header.ImgSpec.Height;
  end;

  // load to stream --------------------
  Result:= TMemoryStream.Create;
  Result.Position:= 0;
  //
  Result.Write(fmt, SizeOf(GLenum));
  Result.Write(tga.Header.ImgSpec.Width, SizeOf(Word));
  Result.Write(tga.Header.ImgSpec.Height, SizeOf(Word));
  Result.Write(ImageSize, SizeOf(integer));
  Result.Write(tga.Data^, ImageSize);

  // cleare
  tga.Free;
end;

[Yungo161]

спасибо... правда я имел виду что мне делать с TGA2.pas
я его скачал, открыл, что дальше?

зы. хотя думаю вы опередили мой следующий вопрос)