[Mp3]

хочу создать треугольник на форме и чтобы он крутился благодаря скрол бару....пока создал ток треугольник и то он не работает...

form1.Canvas.MoveTo(50,0);
form1.Canvas.LineTo(0,50);
form1.Canvas.LineTo(100,50);
form1.Canvas.LineTo(50,0);

но почему то треугольник не чертиться =(
подскажите в чем ошибка
я записываю код в Form1....

[Bargest]

Попробуй записать по событию onPaint.

[Mp3]

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

(50,0)

чтобы программа считывала высоту и ширину формы а потом рисовала...я могу ошибаться %)

[Bargest]

Удивился. Только что проверил.

Код:

1 2 3 4 5 6 7

procedure TForm4.FormPaint(Sender:TObject); begin    Canvas.MoveTo(50,0);   Canvas.LineTo(0,50);   Canvas.LineTo(100,50);   Canvas.LineTo(50,0); end;

Ну и разумеется это привязано к событию onPaint. Работает.

чтобы программа считывала высоту и ширину формы а потом рисовала

Эти параметры в пикселях. (50,0) это 50 пикселей по X и 0 по Y относительно левого верхнего угла формы.

[Mp3]

а как его привязать к ScrollBar' у чтобы когда поварачиваю в разные стороны треугольник крутился

[Bargest]

У TScrollBar'а есть свойство Position. Можно поставить Min в 0, Max в 360 и считывать Position, считая его углом, после чего пересчитывать координаты вершин в зависимости от этого угла.

[angvelem]

Глянь этот топик.

[Mp3]

не очень помогло=(
ушел спать...может завтра до чего нить додумаюсь

[angvelem]

Смотри внимательно, там полный ответ на твой вопрос. Более точная ссылка.

[Mp3]

чуть подправил код который мне дали

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComCtrls, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     ScrollBar1: TScrollBar;     procedure Scrollbar1Change(Sender: TObject);     procedure FormCreate(Sender: TObject);     private     { Private declarations }       procedure DrawRect;   public     { Public declarations }   end;   var   Form1: TForm1;   x0, y0,z0       : Integer;   cosa, sina   : Double;   RectCooOrg,   RectCooLast  : array[0..2] of TPoint;   const   pi2 = 2 * pi;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin   x0 := Image1.Width div 2;       y0 := Image1.Height div 2;     z0 := Image1.Height div 2;       RectCooOrg[0].X :=  -150;   RectCooOrg[0].Y := - 75;   RectCooOrg[1].X := -150;   RectCooOrg[1].Y :=  75;   RectCooOrg[2].X := 150;   RectCooOrg[2].Y := -75;   RectCooOrg[2].Z := 150;   RectCooOrg[2].z := -75;     RectCooLast := RectCooOrg; cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * scrollbar1.Position / 360);     DrawRect; end;   procedure TForm1.Scrollbar1Change(Sender: TObject); begin cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * Scrollbar1.Position / 360);     DrawRect; end;   procedure TForm1.DrawRect; var   I : Integer; begin   Image1.Canvas.Pen.Color := clLime;     for I := 0 to 4 do   begin     RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0);     RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0);   end; Image1.Canvas.Polyline(RectCooLast); end;   end.

Админ: учимся корректно пользоваться тегами!

я хоть в правильно направление иду?

[nixel]

как минимум ошибка в

Код:

1 2 3 4 5

for I := 0 to 4 do begin RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0); RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0); end;

ибо массив у тебя RectCooLast : array[0..2] of TPoint;
работоспособность в целом не проверял.

z0 нигде не используется.

[angvelem]

ТС забыл исправить с прямоугольника на треугольник:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var   RectCooOrg,   RectCooLast : array[0..3] of TPoint; ...     RectCooOrg[0].X := -150;   RectCooOrg[0].Y := - 75;   RectCooOrg[1].X := -150;   RectCooOrg[1].Y := 75;   RectCooOrg[2].X := 150;   RectCooOrg[2].Y := -75;   RectCooOrg[3].X := -150;   RectCooOrg[3].Y := -75; ...   for I := 0 to 3 do   begin     RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0);     RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0);   end;   Image1.Canvas.Polyline(RectCooLast);

[Mp3]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComCtrls, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     ScrollBar1: TScrollBar;     procedure Scrollbar1Change(Sender: TObject);     procedure FormCreate(Sender: TObject);     private     { Private declarations }       procedure DrawRect;   public     { Public declarations }   end;   var   Form1: TForm1;   x0, y0      : Integer;   cosa, sina   : Double;   RectCooOrg,   RectCooLast  : array[0..3] of TPoint;   const   pi2 = 2 * pi;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin   x0 := Image1.Width div 2;   y0 := Image1.Height div 2;   RectCooOrg[0].X := -120;   RectCooOrg[0].Y := 65;   RectCooOrg[1].X := 120;   RectCooOrg[1].Y := 65;   RectCooOrg[2].X := 10;   RectCooOrg[2].Y := -120;   RectCooOrg[3].X := -120;   RectCooOrg[3].Y := 65;       RectCooLast := RectCooOrg; cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * scrollbar1.Position / 360);     DrawRect; end;   procedure TForm1.Scrollbar1Change(Sender: TObject); begin cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * Scrollbar1.Position / 360);     DrawRect; end;   procedure TForm1.DrawRect; var   I : Integer; begin   Image1.Canvas.Pen.Color := clblack;     for I := 0 to 3 do   begin   RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0);     RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0);   end;   Image1.Canvas.Polyline(RectCooLast); end;   end.

Админ: учимся корректно пользоваться тегами!

все работает но как всегда чет не до конца,когда запускаю программу треугольник вращается...но назад как вращается не видно...потому что он уже закрашен.....не подскажите что делать???
вот как это выглядит
линии накладываются друг на друга%)
как можно это исправить?

[angvelem]

Пропустил команду

имеется:

Код:

1 2 3 4 5 6 7

procedure TForm1.Scrollbar1Change(Sender: TObject); begin   cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * Scrollbar1.Position / 360);     DrawRect; end;

должно:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Scrollbar1Change(Sender: TObject); begin <font color="Blue">  Image1.Canvas.FillRect(Rect(0, 0, Width, Height));</font>   cosa := cos(pi2 * Scrollbar1.Position / 360);   sina := sin(pi2 * Scrollbar1.Position / 360);     DrawRect; end;

[Mp3]

все работает=)
спасибо большое))