Графический редактор. Некоторые трудности.

[Count of Toscany]

Ой, а я подумал, что ты имел ввиду типо вообще в программе не использовать Имейдж или Пейнт Бокс, а только канву. А это касалось только рисования в памяти))

А как насчёт открытия разных типов файлов? По - моему нужно определять расширение и загружать файл в наперёд заготовленную переменную такого же типа. Но, я что-то не могу найти такой пример, с определением расширения.

[Stilet]

А это касалось только рисования в памяти))

Да. Именно так.

А как насчёт открытия разных типов файлов?

Чпег ты подключил, значит нужно не TBitmap использовать а уже TJpegImage.
По поводу GIF ниче не скажу.

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

По поводу GIF ниче не скажу.

GIF состоит из нескольких изображений, его надо открывать разбивать на фреймы и выбирать фрейм для рисования, или рисовать на всех сразу(сколько фреймов столько и буфферов), всем кроме рисования занимается TGIFImage,
Работу с png делает TPNGImage.

[Count of Toscany]

Кароче, сделал так.

var
  Form1: TForm1;
  bmp: TBitmap;
  jpeg: TJpegImage;
  gif: TGifImage;



procedure TForm1.N2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
  begin
  If ExtractFileExt(OpenPictureDialog1.FileName)='.bmp' then
    begin
    bmp.LoadFromFile (OpenPictureDialog1.FileName);
    Image1.Width:=bmp.Width;
    Image1.Height:=bmp.Height;
    Form1.Image1.Canvas.Draw(0,0,bmp);
    end;

  if ExtractFileExt(OpenPictureDialog1.FileName)='.jpg' then
    begin
    jpeg.LoadFromFile(OpenPictureDialog1.FileName);
    Image1.Width:=jpeg.Width;
    Image1.Height:=jpeg.Height;
    Form1.Image1.Canvas.Draw(0,0,jpeg);
    end;

  if ExtractFileExt(OpenPictureDialog1.FileName)='.gif' then
    begin
    gif.LoadFromFile(OpenPictureDialog1.FileName);
    Image1.Width:=gif.Width;
    Image1.Height:=gif.Height;
    Form1.Image1.Canvas.Draw(0,0,gif);
    end;
  end;
end;

Работает, но хотел бы узнать не слишком навороченно ли это? Можно сделать проще?

[s-andriano]

Работает, но хотел бы узнать не слишком навороченно ли это? Можно сделать проще?

На самом деле это только скелет.
Нужно добавлять обработку ошибок.

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

На самом деле это только скелет.
Нужно добавлять обработку ошибок.

и приводить все в нижний либо верхний регистр. Иначе при сравнении .GIF и .gif будут проблемы.

[Count of Toscany]

Всё понял, мужики. Ща буду доделывать.

Ещё вопрос)) При сохранении файлов, как сделать так, чтобы расширение файла создавалось в зависимости от выбраного фильтра? Можно ли определить каждому фильтру своё расширение?

Реализовал рисование прямоугольника и эллипса таким способом, как в пэинте( при нажатии и движении мыши фигура растягивается и стягивается), используя свойство Pen.Mode со значением pmNotXor при нажатии и движении, и pmCopy при отпускании. так вот, прямоугольник рисуется норм, а вот эллипс появляется только при отпускании кнопки мыши, когда мышь двигается его не видно. Для обоих инструментов весь код одинаковый, кроме методов рисования. Должно ли так быть, или всё же эллипс должен тоже рисоваться при движении мыши?