Почему не вставляется изображение из файла в Image?

Question

[DeeUs]

Здравствуйте!
На форме расположены OpenPictureDialog и Image
у OpenPictureDialog добавил фильтр Images (*.png;*.jpg;*.jpeg;*.bmp) и указал его в FilterIndex
Почему не вставляется изображение из файла в Image? (мб оно и вставляется, но на форме его не видно. Как кстати это проверить?)

код кнопки Открыть файл

procedure TForm1.N14Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    //memo2.Lines.Add(OpenPictureDialog1.FileName); // проверил имя файла - корректное
    ScrollBox1.HorzScrollBar.Range:=Image1.Picture.Width;
    ScrollBox1.VertScrollBar.Range:=Image1.Picture.Height;
    Image1.Width:=Image1.Picture.Width;
    Image1.Height:= Image1.Picture.Height;
    EsPaintBox1.Width:=Image1.Picture.Width;
    EsPaintBox1.Height:= Image1.Picture.Height;
    ShowWindow(Application.Handle, SW_NORMAL);
    Application.ShowMainForm := true;
    Form1.AlphaBlend := false;
    Form1.AlphaBlendValue := 255;
    TrayIcon1.Visible := true;
    SpeedButton10.Enabled:=true;
    SpeedButton11.Enabled:=true;
    SpeedButton7.Enabled:=true;
    SpeedButton17.Enabled:=true;
    SpeedButton18.Enabled:=true;
    Form1.Visible := True;// Делаем видимой форму приложения
    Form1.WindowState := wsMaximized;//wsNormal; // Разворачиваем
  end;
end;

Answer 1

[Hemul GM]

1. У OpenPictureDialog1 есть опция - файл должен существовать, так что можно убрать второе условие
2. Код рабочий, смотрите что не так с картинкой, либо с тем, где и как вы располагаете Image1

В дизайнере попробуй выбрать нужную картинку и посмотреть как это всё отображается. И ещё не забудь указать модуль Vcl.Imaging.jpeg в uses, иначе jpeg может не загружаться (так же и с png - Vcl.Imaging.pngimage)

Comments

[DeeUs]

В дизайнере попробуй выбрать нужную картинку и посмотреть как это всё отображается

Не совсем понял о чем речь.

[Hemul GM]

DeeUs, в дизайнере открой форму и в свойствах картинки (Image1) выбери Picture

[Hemul GM]

DeeUs,

unit Unit14;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs, Vcl.ExtDlgs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Imaging.jpeg, Vcl.Imaging.pngimage;

type
  TForm14 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute(Handle) then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    Image1.Width := Image1.Picture.Width;
    Image1.Height := Image1.Picture.Height;
  end;
end;

end.

[Hemul GM]

DeeUs, Пример

[DeeUs]

Hemul GM, Спасибо за пример!
на нем все норм работает

в дизайнере открой форму и в свойствах картинки (Image1) выбери Picture

изображение вставилось и отображается

какое то темное колдунство блин))
почему у меня то не работает по нормальному?
причем когда я делаю скрин экрана (эт другая кнопка скрин заносится в битмап с помощью CopyRect) все норм отображается.

Вот так картинка встала на место.

if OpenPictureDialog1.Execute then begin
    JPG := TJPEGImage.Create;
    JPG.LoadFromFile (OpenPictureDialog1.FileName);
    Image1.Picture.Bitmap.Assign (JPG);
    JPG.Free;
  end;

Придется, видимо, таким макаром для каждого формата прописать и определять формат на входе.

[Hemul GM]

DeeUs, модули добавил, которые я сказал?

[DeeUs]

Hemul GM, Ну у меня подключены JPEG и pngimage, если о них речь.
Вот на всякий все, что подключены:

uses
  MainModule, Winapi.Windows, Winapi.Messages, System.Types, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.AppEvnts, Registry,
  Vcl.ToolWin, Vcl.ComCtrls, Vcl.StdCtrls, System.ImageList, Vcl.ImgList,
  Vcl.Samples.Spin, Vcl.Buttons, JPEG, pngimage, Clipbrd, Vcl.ExtDlgs, math,
  ES.BaseControls, ES.PaintBox, Vcl.ActnMan, Vcl.ActnCtrls, ES.Layouts, xpstyleActnCtrls, IdMultipartFormData,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdHashMessageDigest, IdSSLOpenSSL, IdSSL,
  IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, System.Net.URLClient,
  System.Net.HttpClient, System.Net.HttpClientComponent, ES.Images, Vcl.XPMan, ShellAPI, System.Hash,
  IdAntiFreezeBase, IdAntiFreeze;