VPF::Смена св-в Canvas - Форум программистов

Borland_Delphi_6

Дата 9.1.2005, 12:35 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

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

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

<Spawn>

Дата 11.1.2005, 06:13 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Код


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;

Это сообщение отредактировал(а) <Spawn> - 11.1.2005, 06:16

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Borland_Delphi_6

Дата 16.1.2005, 21:28 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

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

Спасибо!

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »