Поворот картинки

[delphin100]

Такая задача возникла.
Есть картинка загруженная из файла как её повернуть по часовой (можно и против часовой) на указанное количество градусов.
Нужно для часов. Если есть другие идеи тогда подскажите как стрелки красивее линий сделать.
А также как рисовать вместо точки шаблон из файла (как бы печать ставить). Всем заранее спасибо

[Карась]

Неделю назад давал ссылки которые нашёл поисков...

В поиск.

[delphin100]

Тогда вторая часть вопроса что там

как рисовать на имадже загруженную картинку

[mutabor]

во внешний поиск - исходник часов(циферблат, стрелки) на дельфи(Delphi)

как рисовать на имидже здесь на форуме уйма информации, также здесь же где-то есть как повернуть битмап на заданный угол

[B_N]

mutabor, на форуме, к сожалению, очень неоптимальный и громоздкий способ попиксельного поворота картинок и/или переворачивания/отражения картинок. SetWorldTransform позволяет делать всё это за пару строк,причем с любыми графическими объектами, а StretchBlt переворачивает картинки простой сменой знаков. Могу предложить маленький кусочек, который всё, что рисуется в окне поворачивает на полрадиана, а картинку ещё и зеркально отражает вокруг одной из осей.

	case WM_PAINT:
		{
			HBRUSH		hbrOldBrush;
			INT			nOldBkMode;
			XFORM		xf;
			HDC			hMemDC;
			COLORREF	clrOld;
			float		rad_angle = -0.5;
			
			hdc = BeginPaint(hWnd, &ps);
			hMemDC = CreateCompatibleDC(hdc);
			
			SelectObject(hMemDC, hBmp);

			xf.eM11 = cos(rad_angle);
			xf.eM12 = sin(rad_angle);
			xf.eM21 = -xf.eM12;
			xf.eM22 = xf.eM11;
			xf.eDx = 200;
			xf.eDy = 200;

			SetGraphicsMode(hdc, GM_ADVANCED);
			SetWorldTransform(hdc, &xf);

			Rectangle(hdc, 0, 0, 300, 100);
			StretchBlt(hdc, 0, 100, 240, 360, hMemDC, 240, 0, -240, 360, SRCCOPY);

			nOldBkMode = SetBkMode(hdc, TRANSPARENT);
			clrOld = SetTextColor(hdc, 0);
			TabbedTextOut(hdc, 102,102,"Test\tText", 9, 0, NULL, 0);
			SetTextColor(hdc, RGB(255, 255, 63));
			TabbedTextOut(hdc, 100,100,"Test\tText", 9, 0, NULL, 0);
			SetTextColor(hdc, clrOld);
			SetBkMode(hdc, nOldBkMode);

			hbrOldBrush = (HBRUSH)SelectObject(hdc, GetSysColorBrush(COLOR_GRADIENTACTIVECAPTION));
			Ellipse(hdc, 0, 0, 300, 100);
			SelectObject(hdc, hbrOldBrush);

			DeleteDC(hMemDC);
			EndPaint(hWnd, &ps);
		}

[Ins]

Windows поддерживает афинные преобразования координат, так что задача решается достаточно тривиально:

procedure DrawRotatedBitmap(Bitmap: TBitmap; Dest: TCanvas; X, Y: Integer;
  Angle: Single);
var
  Matrix: TXForm;
begin
  // Разрешаем афинные преобразования
  SetGraphicsMode(Dest.Handle, GM_ADVANCED);
  // Устанавливаем матрицу для смещения на (X, Y)
  Matrix.eM11 := 1;
  Matrix.eM12 := 0;
  Matrix.eM21 := 0;
  Matrix.eM22 := 1;
  Matrix.eDx := X;
  Matrix.eDy := Y;
  SetWorldTransform(Dest.Handle, Matrix);
  // Устанавливаем матрицу поворота
  Matrix.eM11 := Cos(Angle);
  Matrix.eM12 := Sin(Angle);
  Matrix.eM21 := -Sin(Angle);
  Matrix.eM22 := Cos(Angle);
  Matrix.eDx := 0;
  Matrix.eDy := 0;
  ModifyWorldTransform(Dest.Handle, Matrix, MWT_LEFTMULTIPLY);
  // Выводим изображение
  Dest.Draw(0, 0, Bitmap);
  // Восстанавливаем систему координат
  ModifyWorldTransform(Dest.Handle, Matrix, MWT_IDENTITY);
end;