Точки соединённые линиями

[Konerld]

Нужно написать программу
ставишь мышку в нужное место нажимаешь кнопку - появляется точка, ставишь в другое место нажимаешь появляется ещё точка попутно соединяясь с предыдущей (прямой линией).
Потом в дальнейшем хотелось бы, чтобы координаты точек можно было менять (например мышкой перетащить точку в другое место) и прямые линии тоже менялись (следовали за точками).

Программу писать не прошу (хочется самому попробовать).
Я прошу совета какой компонент для данного рисования ипользовать практичней и не особо сложно, ну и соответственно как для этого самого компонента для начала точки проставлять (код) ?

заранее спасибо

наверно я сложно загнул

вроде бы я определился с компонентов Tshape

подскажите плиз как можно по точкам с помощью мышки построить треугольник
а затем перетягивая вершины мышкой менять форму фигуры?

ps для Delphi

[DomiNick]

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

перетягивая вершины мышкой менять форму фигуры

Мне бы тоже было интересно почитать варианты и предложения...

Должно быть примерно так как во вложении..?
(Прога не моя - нашёл в сети...)

[Stilet]

Мне бы тоже было интересно почитать варианты и предложения...

Ах так. Вот тогда мое предложение:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure Label1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormDblClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   pan: array of TPanel;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var t:TPoint;
begin

end;

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
  TPanel(sender).Perform(WM_SYSCOMMAND, $F012, 0);
  FormPaint(self);
end;

procedure TForm1.FormDblClick(Sender: TObject);
var   t:TPoint;
begin
setlength(pan,length(pan)+1);
pan[high(pan)]:=TPanel.Create(self);
with pan[high(pan)] do begin
 Parent:=self;
 width:=10;Height:=10;
 Color:=Clred;
 t:=ScreenToClient(Mouse.CursorPos);
 top:=t.y;left:=t.x;
 visible:=true;
 OnMouseDown:=Panel1MouseDown;
end;
Paint;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
with Canvas do begin
FillRect(ClipRect);
if high(pan)<1 then exit;
  moveto(pan[0].Left,pan[0].Top);
  for i:=low(pan) to high(pan) do begin
   lineto(pan[i].Left,pan[i].Top);
  end;
   lineto(pan[0].Left,pan[0].Top);

end;  
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
FormPaint(self);
end;

end.

Запусти прогу и дважды покликай по форме этак раз 5 - получиш пентограмму (хе хе).
Маркеры можно мышой тягать, соответственно фигура будет перерисовыватся.

Тут подмарафетить прожку и будет отличный чертежник.

[Konerld]

DomiNick
шикааарно
ток гдебы исходник найти

Stilet
спасибо что откликнулись
можно немножео поподробней что делает эта прога?
или что нужно ещё добавить на фрму итп?
просто у меня при компиляции открывается голая форма и при нажатиях ничего не происходит

[DomiNick]

Хм... Интересная прога получилась...
А Вы смотрели вложение? Там оно мгновенно периресовывается...
Да ещё и Снежинку Коха крутит и масштабирует.....

А когда я геометрические фракталы делал жутко висло всё...
И кажется там для точек брали TShape формой stCircle...

дважды покликай по форме этак раз 5 - получиш пентограмму

Ну если точнее - пентакль...
Настоящую пентаграмму замучаешься строить...

[alex_fcsm]

В свое время(когда учился) делал прогу по рисованию "резиновых"(размеры которых меняешь пока не нарисовал их) примитивов:точка,окружность, прямоугольник,отрезок. Все что было нужно:Paintbox, почитать про режимы рисования в нем(использовал pmNotXor - закрашивает) и 3 события от мышки(Move,Up,Down) и обрабатывать какая кнопка нажата.

[DomiNick]

Хм... А для чего там вообще TLabel и отчего он не прорисовывается...

...и код пустой:

procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var t:TPoint;
begin

end;

Новое для меня: Low(pan) и High(pan) - я так понимаю первый и последний элементы массива..?
Тогда может вместо "For i:=Low(pan) To High(pan) Do" можно просто "For i:=0 To High(pan) Do"..?

[Konerld]

А можно как-то exe'шник раскодировать Делюфийский на команды?

DomiNick
ты откуда ту прогу достал (во вложении) ?
может там исходник можно нарыть

[Stilet]

можно немножео поподробней что делает эта прога?
или что нужно ещё добавить на фрму итп?

Ну создаеш прогу, копипастиш код, и устанавливаеш в свойствах события для формы:MouseMove, FormPaint и остальные...

А Вы смотрели вложение?

Это ты мне? Смотрел, понравилось, но на скорую руку как сам понимаеш, такое не сделаеш - потому представил что успел. Дальше фантазия автора.