Многоуровневое рисование.

[Alex Cones]

Нашел наконец таки рабочую функу поворота, подтесал е под себя.

procedure DrawRotated(Var T: TTexture; Angle: Real);
var
  TempDC: HDC;
  BmpSize: SIZE;
  Radians: Real;
  Points: array[0..2] of TPoint;
  Xc, Yc: Integer;
  LastDC : HDC;
begin

  TempDC := CreateCompatibleDC(Warehouse.Buffer.DC);
  SelectObject(TempDC, T.Bitmap);
  Radians := Angle * Pi / 180;

  //Находим центр.
  Xc := (T.Width div 2);
  Yc := (T.Height div 2);

  //Считаем координаты.
  Points[0].X := Round((-Xc) * Cos(Radians) - (-Yc) * Sin(Radians) + Xc);
  Points[0].Y := Round((-Yc) * Cos(Radians) + (-Xc) * Sin(Radians) + Yc);

  Points[1].X := Round((T.Width - Xc) * Cos(Radians) - (-Yc) * Sin(Radians) + Xc);
  Points[1].Y := Round((-Yc) * Cos(Radians) + (T.Width - Xc) * Sin(Radians) + Yc);

  Points[2].X := Round((-Xc) * Cos(Radians) - (T.Height - Yc) * Sin(Radians) + Xc);
  Points[2].Y := Round((T.Height - Yc) * cos(Radians) + (-Xc) * Sin(Radians) + Yc);

  //Выводим.
  PlgBlt(Warehouse.Buffer.DC, Points, TempDC, 0, 0, T.Width, T.Height, 0, 0, 0);

  DeleteDC(TempDC);
end;

Есть проблема - Розовый цвет на форме выставлен прозрачным и я картинки с таким цветом отриссовываю через TransparentBlt. А тут картинка с розовым сразу рисуется на экран. Как мне всунуть здесь TransparentBlt?

[BOBAH13]

Хм. Попробуйте этот параметр

hbmMask [in]
A handle to an optional monochrome bitmap that is used to mask the colors of the source rectangle.

UPD:

Хм... Создавать еще один битмап по контуру розового цвета?

А что вы удивляетесь? Это ведь не я придумал, MSDN так гласит.

[Alex Cones]

Хм... Создавать еще один битмап по контуру розового цвета?

Сделал вот так, работает, но может что-то не так?

PlgBlt(TempDC, Points, TempDC, 0, 0, T.Width, T.Height, 0, 0, 0);
  TransparentBlt(Warehouse.Buffer.DC, 0, 0, T.Width, T.Height, TempDC, 0, 0, T.Width, T.Height, $FF00FF);