Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Смена св-в Canvas

Автор: Borland_Delphi_6 9.1.2005, 12:35

Можно ли сменить св-ва Canvas у Image, если в него загружен не Bitmap, а JPEG или еще какая ерундень? А то ругается, что "Can only modify an image if it contains a bitmap". Задача нарисовать текст на JPEG картинке.

Автор: <Spawn> 11.1.2005, 06:13

Код


uses ..., JPEG;

procedure TForm1.Button1Click(Sender: TObject);
var
  JPEG: TJPEGImage;
begin
  JPEG := TJPEGImage.Create;
  try
    JPEG.LoadFromFile('Work2.jpg');
    IMage1.Picture.Bitmap.Assign(JPEG);
  finally
    FreeAndNil(JPEG);
  end;
  //Если нужен прозрачный фон, то раскоментируй эту строчку
  //SetBkMode(Image1.Canvas.Handle, TRANSPARENT);
  Image1.Canvas.TextOut(10, 10, 'bla bla bla');
end;

Автор: Borland_Delphi_6 16.1.2005, 21:28

Вроде работает! smile

Спасибо!