У меня не работает DrawBitmap

[Steepe_Hare]

Рисует черный квадрат, а битмап не виден(

    if OpenDialog1.Execute then
    begin
      MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]);
      MyRect := TRectF.Create(50, 30, 65, 45);
      Image1.Bitmap.Canvas.BeginScene;
      Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 1);
      Image1.Bitmap.Canvas.EndScene;
      MyBitmap.Free;
    end;

 

Изменено 19 октября, 2016 пользователем Steepe_Hare

[Alexander]

Проверьте, что загружается в MyBitmap. Например, через savetofile. Или весь Image1 чёрный? 

[Steepe_Hare]

18 минут назад, Alexander сказал:

Проверьте, что загружается в MyBitmap. Например, через savetofile. Или весь Image1 чёрный? 

Ошибку дает при сохранении:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EBitmapSavingFailed with message 'Saving bitmap failed.'.
---------------------------
Break   Continue   Help   
---------------------------

 

[Steepe_Hare]

Но выбранный bmp-файл корректен и просматривается в Проводнике

[Кривяков Виталий]

Добрый день!

Image1.Bitmap

Скорее всего он у вас имеет нулевые размеры, попробуйте перед 

Image1.Bitmap.Canvas.BeginScene;

указать Image1.Bitmap.SetSize(X,Y);

[Steepe_Hare]

20 минут назад, Кривяков Виталий сказал:

Добрый день!

Image1.Bitmap

Скорее всего он у вас имеет нулевые размеры, попробуйте перед 

Image1.Bitmap.Canvas.BeginScene;

указать Image1.Bitmap.SetSize(X,Y);

Не помогло. Такое ощущение, что MyBitmap не все bmp-файлы принимает

[Кривяков Виталий]

Если битмап не секретный, то выложите его сюда.

[Brovin Yaroslav]

В следующий раз, просто прикрепите проект, с минимальным кодом для воспроизведения проблемы. Это сэкономит кучу времени и скорее всего сразу даст вам ответ.

[Steepe_Hare]

32 минуты назад, Кривяков Виталий сказал:

Если битмап не секретный, то выложите его сюда.

Вот он, 70 на 70 (в zip-файле)

    if OpenDialog1.Execute then
    begin
      // Image1.Bitmap.SetSize(Round(Image1.Width), Round(Image1.Height));
      MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]);
      MyRect := TRectF.Create(50, 30, 120, 100);
      Image1.Bitmap.Canvas.BeginScene;
      Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyRect, MyRect, 1);
      Image1.Bitmap.Canvas.EndScene;
      MyBitmap.Free;
    end;

 

 

golub.zip

[Brovin Yaroslav]

Я вам в предыдущей ветке отвечал про Image.Bitmap. А вы продолжаете делать ту же самую ошибку.

 

[Steepe_Hare]

20 минут назад, Brovin Yaroslav сказал:

Я вам в предыдущей ветке отвечал про Image.Bitmap. А вы продолжаете делать ту же самую ошибку.

 

Так теперь у меня Image1.Bitmap не пустой, в него загружена в дизайн-тайме картинка (фон). Но DrawBitmap не рисует голубя из bmp-файла, то есть рисует, но некорректно

[Brovin Yaroslav]

Повторюсь, Проект?

[Steepe_Hare]

20 минут назад, Brovin Yaroslav сказал:

Повторюсь, Проект?

Вот. Спасибо заранее

03.zip

[Brovin Yaroslav]

Все ясно. У вас ошибка. Посмотрите внимательно на параметры функции Canvas.DrawBitmap.

• Первый прямоугольник - это область из битмапа, которую вы будите рисовать.
• Второй прямоугольник - это область на канве, куда вы будите выводить часть битмапа.

Вот так будет правильно:

Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyBitmap.BoundsF, MyRect, 1);

P.S. В следующие такие вопросы обязательно прикрепляйте ваш проект. Это сэкономит кучу времени на ненужные вопросы.

[Rusland]

Ну все правильно. Картинка 70 на 70, часть картинки черная, а Rect с размерами TRectF.Create(50, 30, 120, 100);

Изменено 19 октября, 2016 пользователем Rusland

[Steepe_Hare]

3 часа назад, Brovin Yaroslav сказал:

Все ясно. У вас ошибка. Посмотрите внимательно на параметры функции Canvas.DrawBitmap.

• Первый прямоугольник - это область из битмапа, которую вы будите рисовать.
• Второй прямоугольник - это область на канве, куда вы будите выводить часть битмапа.

Вот так будет правильно:

Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyBitmap.BoundsF, MyRect, 1);

P.S. В следующие такие вопросы обязательно прикрепляйте ваш проект. Это сэкономит кучу времени на ненужные вопросы.

 

Спасибо за ответ. А почему картинка с голубем получается вытянутой по высоте?

procedure TForm1.Button1Click(Sender: TObject);
var
  MyBitmap: TBitmap;
  MyRect: TRectF;
begin
  if OpenDialog1.Execute then
  begin
    MyBitmap := TBitmap.CreateFromFile(OpenDialog1.Files[0]);
    MyRect := TRectF.Create(TPointF.Create(100, 100),
      TPointF.Create(100 + MyBitmap.Width, 100 + MyBitmap.Height));

    Image1.Bitmap.Canvas.BeginScene;

    Image1.Bitmap.Canvas.DrawBitmap(MyBitmap, MyBitmap.BoundsF, MyRect, 1);

    Image1.Bitmap.Canvas.EndScene;
    MyBitmap.Free;

  end;
end;

 

 

Изменено 19 октября, 2016 пользователем Steepe_Hare

[Brovin Yaroslav]

Бывает полезно залезть в справку и почитать, что делает тот или иной метод: FMX.Graphics.TCanvas.DrawBitmap

 

[Steepe_Hare]

16 минут назад, Brovin Yaroslav сказал:

Бывает полезно залезть в справку и почитать, что делает тот или иной метод: FMX.Graphics.TCanvas.DrawBitmap

 

Я справку не покидаю в последнее время, если честно.  Мне хотелось бы, чтобы DrawBitmap вывел на канвасе картинку такой, какая она есть, без scale и без вытягивания. Это возможно?

[Brovin Yaroslav]

5 минут назад, Steepe_Hare сказал:

Я справку не покидаю в последнее время, если честно.  Мне хотелось бы, чтобы DrawBitmap вывел на канвасе картинку такой, какая она есть, без scale и без вытягивания. Это возможно?

Наверное, нужно указать такие размеры, чтобы SrcRect и DstRect имели одинаковые размеры ;-)

[Steepe_Hare]

14 минут назад, Brovin Yaroslav сказал:

Наверное, нужно указать такие размеры, чтобы SrcRect и DstRect имели одинаковые размеры ;-)

Я и пытаюсь так

Разве MyBitmap.BoundsF и MyRect := TRectF.Create(TPointF.Create(100, 100), TPointF.Create(100 + MyBitmap.Width, 100 + MyBitmap.Height)) имеют разные размеры?