Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];
Вниз
Как нарисовать стрелку Найти похожие ветки
← →
hgd (2004-04-11 11:09) [0]Кто знает как нарисовать стрелку на форме например от Edit1 до Edit2 соединив их углы.
← →
Maxud © (2004-04-11 11:18) [1]
procedure TForm1.FormPaint(Sender: TObject);
Только координаты меняй :)
begin
with Canvas do
begin
Pen.Width := 6;
Pen.Color := clBlue;
MoveTo(10, 320);
LineTo(100, 320);
MoveTo(80, 300);
LineTo(100, 320);
LineTo(80, 340);
end;
end;
← →
default © (2004-04-11 12:52) [2]// рисует стрелку с заданными параметрами
// X_Line, Y_Line - координаты "неподвижного" конца линии стрелки;
// Length_Line, Length_Arrow - длина линии и бокового ребра стрелки;
// Angle_Line, Angle_Arrow - углы между линией стрелки и горизонтальной
// осью и между линией стрелки и боковым ребром стрелки;
// IsAllTriangle - если True, то "подвижные" концы боковых рёбер стрелки
// соединяются отрезком прямой(и не рисуется высота равнобедренного треугольника стрелки);
// DrawSurface - поверхность на которой будет рисоваться стрелка
procedure DrawArrow(X_Line, Y_Line, Length_Line, Length_Arrow: Integer;
Angle_Line, Angle_Arrow: Extended;
IsAllTriangle: Boolean; DrawSurface: TCanvas);
var
XB, YB, XE, YE, XM, YM: Integer;
begin
XB := Round(X_Line + Cos(Angle_Line) * Length_Line);
YB := Round(Y_Line - Sin(Angle_Line) * Length_Line);
XM := Round(XB - Cos(Angle_Arrow - Angle_Line) * Length_Arrow);
YM := Round(YB - Sin(Angle_Arrow - Angle_Line) * Length_Arrow);
XE := Round(XB + Sin(Angle_Arrow + Angle_Line - Pi / 2) * Length_Arrow);
YE := Round(YB + Cos(Angle_Arrow + Angle_Line - Pi / 2) * Length_Arrow);
DrawSurface.MoveTo(X_Line, Y_Line);
if IsAllTriangle then begin
DrawSurface.LineTo(Round((XM + XE) / 2), Round((YM + YE) / 2));
DrawSurface.MoveTo(XB, YB);
end else DrawSurface.LineTo(XB, YB);
DrawSurface.LineTo(XM, YM);
if IsAllTriangle then DrawSurface.LineTo(XE, YE) else
DrawSurface.MoveTo(XE, YE);
DrawSurface.LineTo(XB, YB)
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.032 c