|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
измерение расстояния
на Image курсором стаBим дBе точки.как сделать чтобы между ними прорисоBалась прямая красного цBета и написалась ее длина.например ышел шоумессадж с надписью "длина столько то".спасибо
|
#2
|
||||
|
||||
при каждом нечетном OnClick запоминаем позицию курсора в глобальной (классовой) переменной. при каждом четном OnClick рисуем линию:
Canvas.MoveTo(<из глобальной переменной>) - Canvas.LineTo(<текушая позиция>). цвет линии задаем Canvas.Pen.Color:=clRed. длину высчитываем по теореме Пифагора - квадрат гипотенузы равен сумме квадратов катетов. - катеты это разница X2-X1 и Y2-Y1 координат точек курсора. Пишу программы за еду. __________________ |
#3
|
|||
|
|||
а кодом можно?в процедуре онклик на некую кнопку
|
#4
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject); var d:real; i:integer begin for i:=1 to 1000000 do begin d:=sqrt(sqr(x1-x2)+sqr(y1-y2)); form1.canvas.pen.color:=255; form1.canvas.moveto(x1,y1); form1.canvas.lineto(x2,y2); label1.caption:=floattostr(d*d/d); end; end; не забудь Метку на форму кинуть! |