треугольник на форме и чтобы он крутился благодаря скрол бару (на Delphi)

[Rin]

ScrollBar1.min=0, ScrollBar1.max=360. Если хочешь работать с графикой, не учи, а старайся понимать матан! Тут как раз используется матрица поворота.

var //глобальная переменная
  mas:array[0..2,0..1] of integer=((-50,-50),
                                  (-50,50),
                                  (50,0));

procedure TForm1.ScrollBar1Change(Sender: TObject);
const z=70;
begin
  repaint;
  with Canvas do
  begin
    moveTo(round(mas[0,0]*cos(ScrollBar1.Position/z))-
           round(mas[0,1]*sin(ScrollBar1.Position/z))+width div 2,
           round(mas[0,0]*sin(ScrollBar1.Position/z))+
           round(mas[0,1]*cos(ScrollBar1.Position/z))+height div 2);
    LineTo(round(mas[1,0]*cos(ScrollBar1.Position/z))-
           round(mas[1,1]*sin(ScrollBar1.Position/z))+width div 2,
           round(mas[1,0]*sin(ScrollBar1.Position/z))+
           round(mas[1,1]*cos(ScrollBar1.Position/z))+height div 2);
    LineTo(round(mas[2,0]*cos(ScrollBar1.Position/z))-
           round(mas[2,1]*sin(ScrollBar1.Position/z))+width div 2,
           round(mas[2,0]*sin(ScrollBar1.Position/z))+
           round(mas[2,1]*cos(ScrollBar1.Position/z))+height div 2);
    LineTo(round(mas[0,0]*cos(ScrollBar1.Position/z))-
           round(mas[0,1]*sin(ScrollBar1.Position/z))+width div 2,
           round(mas[0,0]*sin(ScrollBar1.Position/z))+
           round(mas[0,1]*cos(ScrollBar1.Position/z))+height div 2);
  end;
end;