Граф. редактор, редактируемое изображение и канва

[Человек_Борща]

Доброго времени суток!

В разрабатываемом проекте требуется создать некий редактор, который позволит поверх изображения bmp, png, jpg накладывать текст в нужное место.

Собственно не сложно:
Ткнул кнопку "Текст" появился TLabel и бегает за мышкой, пока не будет MouseDown в рабочей области, как только шлёпнулся, то там и рисуется текст.

+/- пара таймеров.

Проблема гораздо раньше:
В роли рабочей области, что лучше всего применить TPaintBox или TImage?


Далее, у TBitmap, TPNGImage, TJPEGImage общее 1 - Canvas.
Загружается пикча, по расширению смотрится тип изображения, и пикча лезет в соотв. тип переменой. Далее надо в рабочей области отобразить это изображение, собственно КАК?

[Пепел Феникса]

вообще я считаю что там лучше подходит пейнтбокс.

2)заведите битмап для реального рисунка, и в него уже копируйте изображение из файла.

[Rin]

Собственно, вот, опытный образец. при сохранинии в SaveDialog нужно вписывать расширение файла, то есть не "1", а "1.jpg"/"1.png"/"1.bmp".
Ну, доработаете. Просто было интересно, как сделать, а уж на тонкостях не заморачивался.

[Человек_Борща]

Пепел Феникса, да так и сделано =)

Но как в этот Bitmap загрузить jpg, png?

procedure TPrintTemplate.LoadImageFromFile(aFile: string);
var
  sFile, sExt: string;
begin
  sFile := aFile;
  if not FileExists(sFile) then
    Exit;

  sExt := ExtractFileExt(LowerCase(sFile));
  if (sExt = '.bmp') then
    fImgType := isBMP;
  case fImgType of
    isBMP:
      begin
        fBitmap.LoadFromFile(sFile);
        if Assigned(fWorkArea) then
        fWorkArea.Canvas.Draw(0,0,fBitmap);
      end;
  end;
  fCanvas := fBitmap.Canvas;
  fImgSrc := sFile;
end;

Rin, благодарю, может у вас найдется ответ =)

[Stilet]

как в этот Bitmap загрузить jpg

http://delphiworld.narod.ru/_all_articles_.html
Раздел JPEG - [14]

png?

Предложу использовать GDI+. Хотя не в курсе есть ли в последних Делфи работа с PNG

[Аватар]

GIFImage pngimage для Д7 найти в сети, для более новых возможно в составе уже есть

[Rin]

Сделал так: при загрузке изображения анализируется расширение,
потом переводится в bmp и грузится в TImage.

  
uses pngimage, JPEG;

   procedure JPG2BMP(const what_your_name:string);
   procedure PNG2BMP(const what_your_name:string);

var

  jpeg: TJPEGImage;
  bmp:  TBitmap;
  png: TPNGImage;
...................
procedure TForm1.JPG2BMP(const what_your_name: string);
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100; {Default Value}
    jpeg.LoadFromFile(what_your_name);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      Image1.Picture.Assign(bmp);
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

procedure Tform1.PNG2BMP(const what_your_name: string);
begin
  png := TPNGImage.create;
  try
    png.loadfromfile(what_your_name);
    bmp := tbitmap.create;
    try
      bmp.assign(png);
      Image1.Picture.Assign(bmp);
      finally
      bmp.free;
    end;
    finally
    png.free;
   end;
 end;

Когда сохраняем, анализируем, в каком расширении мы сохраняем и, если что, переводим в нужный нам формат:

   procedure BMP2JPG(const what_your_name:string);
   procedure BMP2PNG(const what_your_name:string);
.........
procedure TForm1.BMP2JPG(const what_your_name: string);
begin
  JPEG := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
    bmp.Assign(Image1.Picture.Bitmap);
    JPEG.Assign(Bmp);
    JPEG.SaveToFile(what_your_name);
  finally
    JPEG.Free;
    Bmp.Free;
  end;
end;

procedure Tform1.BMP2PNG(const what_your_name: string);
begin
 bmp := tbitmap.create;
 try
   bmp.Assign(Image1.Picture.Bitmap);
   png := TPNGImage.create;
   try
     png.assign(bmp);
     png.savetofile(what_your_name);
     finally
     png.free;
   end;
   finally
   bmp.free;
 end;
end;

В приложенном архиве есть все, что нужно для работы с PNG.

[kangreon]

Дабы избежать ошибок определения типа файлов, я в своем проекте использовал анализ сигнатуры файла, а не расширение. Сразу избавит от лишних проблем. Таблицу сигнатур легко составить путем перебора файлов. Сейчас уже не помню, но вроде 5 байт хватало для определения всех основных форматов файлов.
Исходник не привожу к.т. он вероятно утерян.

[Человек_Борща]

kangreon, в моём случае будет достаточно и расширения =)

[Rin]

Rin, благодарю, может у вас найдется ответ =)

Разобрались?