VPF::Трансформация Graphics32. - Форум программистов

Matematik

Дата 8.4.2008, 21:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Для трансформации битмапа использую библиотеку http://graphics32.org
Фон получается черный. Как его изменить?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  bmp1 : TBitmap32;
  bmp2 : TBitmap32;
  tt   : TAffineTransformation;
  r    : TRect;
begin
  bmp1 := TBitmap32.Create;
  bmp2 := TBitmap32.Create;
  tt   := TAffineTransformation.Create;
  try
    bmp1.LoadFromFile('1.bmp');
    Image1.Picture.Assign(bmp1);
    tt.Clear;
    tt.Scale(1.01, 1.01); // увеличить
    tt.Rotate(0,0,10);   // повернуть
    tt.SrcRect := FloatRect(0,0,bmp1.Width-1, bmp1.Height-1);
    r := tt.GetTransformedBounds(FloatRect(0,0,bmp1.Width-1, bmp1.Height-1)); // размер новой картинки
    tt.Translate(-1*r.Left, -1*r.Top); //переместить
    bmp2.SetSize(r.Right-r.Left, r.Bottom-r.Top);

    GR32_Transforms.Transform(bmp2, bmp1, tt{, Rect(0,0,bmp1.Width-1, bmp1.Height-1)}); //***
    Image2.Picture.Assign(bmp2);
  finally
    tt.Free;
    bmp1.Free;
    bmp2.Free;
  end;
end;

Matematik

Дата 9.4.2008, 10:15 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

"Утро вечера мудреннее" (народная пословица)

Код


bmp1.OuterColor := clGreen32;

This property specifies the color returned by PixelS property when reading the pixel with coordinates that lie outside the bitmap. The default value is $00000000, which corresponds to a fully transparent black. It is also used when performing linear transformations of a bitmap. http://graphics32.org/documentation/Docs/U.../OuterColor.htm

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