- procedure TfrmXY.DrawVertex(V: Tvertex);
- var
- r : TRect;
- begin
- r.Left :=ScrollBarZoomX.Position + Round(+v.fx *FZoom);
- r.Top :=ScrollBarZoomY.Position + Round(-v.fy *FZoom);
- r.Right := r.Left + Round(VerticesDraw.Size * 200);
- r.Bottom := r.Top +Round(VerticesDraw.Size * 200);
- FVertexList.AddObject(inttostr(r.Left)+','+inttostr(r.Top),TObject(V));
- FBackPuffer.Canvas.Brush.Color := v.DrawColor;
- FBackPuffer.Canvas.FillRect(r);
- end;