1 Тема від Stanislav Stecenko Востаннє редагувалося Stanislav Stecenko (16.08.2015 01:08:22)

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Тема: Delphi xe7 Timage підтримка форматів

При додавані на форму таких компонеттів як
Timage і TOpenPictureDialog
TOpenPictureDialog.Filter=
All (*.gif;*.cur;*.pcx;*.ani;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wmf)|*.gif;*.cur;*.pcx;*.ani;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.tif;*.tiff;*.ico;*.emf;*.wmf|CompuServe GIF Image (*.gif)|*.gif|Cursor files (*.cur)|*.cur|PCX Image (*.pcx)|*.pcx|ANI Image (*.ani)|*.ani|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (*.png)|*.png|Bitmaps (*.bmp)|*.bmp|TIFF Images (*.tif)|*.tif|TIFF Images (*.tiff)|*.tiff|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf
ну коли я визиваю діалогове фікно то мені доступні тільки bmp,ico  но не png, jpeg,...

procedure TForm1.imgADblClick(Sender: TObject);
var
  img_:TImage;
begin
  img_:= Sender as TImage;
  if img_.Hint <> '' then
    dlgOpenPic1.FileName := img_.Hint;
  if dlgOpenPic1.Execute then
    begin
      img_.Picture.LoadFromFile(dlgOpenPic1.FileName);
      img_.Hint:= dlgOpenPic1.FileName;
    end;
end;