Как в Image.Picture.Bitmap загрузить и отмаштабировать bmp jpg pnp картинки?

[XerSon]

Сообщение от Sibedir

В чем конкретно некорректность?

Размеры TImage значально, до загрузки:

Image.Height := 160;
Image.Width := 280;

после выполнения функции:

Image.Height := ~180;
Image.Width := ~300;

победил так:

var
  Pic: TPicture;
begin
  if OpenPictureDialog.Execute then
  begin
    Pic := TPicture.Create;
    try
      try
        Pic.LoadFromFile(OpenPictureDialog.FileName);
        Image.Picture.Bitmap.Assign(Pic.Graphic);
        FitBestSize(Image);
        Image.Height := 160;
        Image.Width := 280;
      finally
        Pic.Free;
      end;
    except
      on E: EInvalidGraphic do
        ShowMessage('Ошибка загрузки');
      on E: EConvertError do
        ShowMessage('Ошибка конвертирования');
    else
      ShowMessage('Прочие ошибки: ' + #13 + Exception(ExceptObject).Message);
    end;
  end;
end;

[Sibedir]

Зачем тогда нкжен FitBestSize(Image);

[XerSon]

Сообщение от Sibedir

Зачем тогда нкжен FitBestSize(Image);

Заметьте, не я его предложил!
а нужен он, чтобы отмаштабировать картинку по ширине и высоте, без него в Image грузится только часть картинки!

[Sibedir]

В инспекторе объектов назначте Image1.Stretch и Image1.Proportional = True.

Заметьте, не я его предложил!

Прежде чам создавать говнокод потрудитесь вдуматься, что вы себе копируете в программу.

[XerSon]

Сообщение от Sibedir

В инспекторе объектов назначте Image1.Stretch и Image1.Proportional = True.

Сами то проверяли? Результат тот же!

Сообщение от Sibedir

Прежде чам создавать говнокод потрудитесь вдуматься, что вы себе копируете в программу.

А вот это уже Аполитично! ...и он не мной создан, он мной воспроизведён, опять же заметьте, мною там только добавлено FitBestSize(Image); Так что не стоит так утверждать!

[Sibedir]

1. Вы хоть поняли, что делает FitBestSize?
2.

Сами то проверяли? Результат тот же!

Проверял что? Вы толком объясните, что хотите увидеть. А то подогнали размер имеджа под форму, потом опять его к старому размеру вернули. Зачем? Что вы пытаетесь сделать? Скажите, картинку каких размеров вы грузите, и что хотите получить в итоге.
3.

А вот это уже Аполитично!

Ни чего личного. Просто знайте: принцип copy-paste приводить к созданию говнокода.
4. img_project.zip

[XerSon]

Легенда:

Image.Width := 280;
Image.Height := 160;

при загрузке в Image одного из графических форматов -

Pic.LoadFromFile(OpenPictureDialog.FileName);

не изменяя размеры Image, нужно конвертировать его в BitMap

Image.Picture.Bitmap.Assign(Pic.Graphic);

и загрузить в

 Image.Picture.Bitmap

отмаштабировать под размер клиентской области

FitBestSize(Image);

производим какие то действия с Bitmap'ом и сохраняем его только в Jpeg

Jpg.Assign(Image.Picture.Bitmap);
Jpg.SaveToFile(ChangeFileExt(SavePictureDialog.FileName, '.jpg'));

с размерами 280x160

Ваша рекомендация с В инспекторе объектов назначте Image1.Stretch и Image1.Proportional = True.

Растягивает клиентскую область Image, а мне этого не надо!!!

[Sibedir]

У Image нет клиентской области. Это так к стати. Но я вас понял тем не менее.

Я просил назвать габариты исходной картинки. Как если бы вы ее в ACDSee просматривали. Там 280х160 или 2800х1600.

[XerSon]

4. img_project.zip

Ну и? размеры Image становятся 260х180 - А должны быть 280х160

Об этом я писал еще выше!!!

Не зависимо от размера загружаемого изображения(1х1 или 1024х768), Image должен быть:

Image.Width := 280;
Image.Height := 160;

[grafgrial]

что то я не понимаю! если загружать изображение (1х1 или 1024х768) то происходит потеря основы самой картинки (другими словами она растягивается или сжимается).
Вам это нужно?

p.s. Более точный вопрос... Вам как нужно (пример оба рисунка 160*280)?
1) способом
01.jpg
2) способом
02.jpg