- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我试图绘制一个非自定义的(我的意思是,只是创建默认表单类的实例,而不是我可以创建的派生类的实例)System.Windows.Forms.Form
在 F# 中。
我创建了一个自定义表单,但我不需要也不想要这样一个新的复杂结构,所以我删除了它,它大大简化了代码;太多了,以至于它停下来显示图像。
问题一定出在我创建的用于绘制的函数中,即在另一个 F# 项目中。我创建它(函数 conect
)以按提供的顺序连接点,这与 System.Drawing.Graphics.DrawLines
不同,以其他顺序在点之间画线为什么还没有注意到(可能是从右到左,从上到下,正如点所表示的那样)。
Programa.fs相关代码片段:
let pen = new Pen(brush = Brushes.Black, width = 1.0f)
let original =
([|new PointF(50.0f, 50.0f); new PointF(100.0f, 50.0f)|])
use form1 = new Form(Width = 400, Height = 400, Text = "Fractais (Teste - Windows Forms)")
form1.Paint.Add(
fun e -> // (1)
original
|> List.ofArray
|> Base.applyFractal 1uy Base.fractalFunc1
|> Base.conect e.Graphics pen)
如果在 lambda 表达式中而不是写入的是 e.Graphics.DrawLines(pen, original)
,它将在列表中的点之间绘制一条简单的线。
这是解决方案中 Base.fs 中的麻烦制造者方法:
let conect (gr:Graphics) (pen:Pen) (points:PointF list) =
let rec usefulFunc (gr:Graphics) (pen:Pen) (points:PointF list) prevPoint =
match points with
| [] -> ()
| point :: remainings ->
gr.DrawLine (pen, prevPoint, point)
usefulFunc gr caneta remainings.Tail remainings.Head
usefulFunc gr pen points.Tail points.Head
以及调用的(来自表单初始化片段)和相关方法的签名,在 Base.fsi 中(我可以给你所有完整的方法实现,但这会占用很多空间,这可能是为了你已经成为一个需要阅读的长问题):
val fractalFunc1 : points:PointF list -> PointF list
val applyFractal : stepNumber:byte -> fractalFunc:(PointF list -> PointF list) -> points:PointF list -> PointF list
val conect : gr:Graphics -> pen:Pen -> points:PointF list -> unit
对于这个具体问题,我的搜索结果是没有。我想知道如何使函数 conect
工作。
提前致谢。
最佳答案
您在连接中有一个错误。
fUtil gr caneta resto.Tail resto.Head
应该是
fUtil gr caneta resto ponto
您已经在 match 语句中匹配了头部和尾部。
下面的代码为我画了一条线。我不需要做太多修改。
open System.Drawing
open System.Windows.Forms
let caneta = new Pen(brush = Brushes.Black, width = 1.0f)
let original =
([|new PointF(50.0f, 50.0f); new PointF(100.0f, 50.0f)|])
let form1 = new Form(Width = 400, Height = 400, Text = "Fractais (Teste - Windows Forms)")
let conectar (gr:Graphics) (caneta:Pen) (pontos:PointF list) =
let rec fUtil (gr:Graphics) (caneta:Pen) (pontos:PointF list) pontoAnt =
match pontos with
| [] -> ()
| ponto :: resto ->
gr.DrawLine (caneta, pontoAnt, ponto)
fUtil gr caneta resto ponto
fUtil gr caneta pontos.Tail pontos.Head
form1.Paint.Add(
fun e -> // (1)
original
|> List.ofArray
//|> aplicFractal 1uy Base.funcFractal1
|> conectar e.Graphics caneta)
form1.Show()
Application.Run(form1)
关于winforms - 在 F# 中绘制 Windows 窗体,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/15253829/
对于一个科学实验,我写了一个turtle.py ,它会打开一个 800x480 的窗口并绘制一个缓慢增长的黑点。 turtle.py以 C:\Users\kaza>python C:\Users\ka
我开发了一个 swing 应用程序,但每次运行应用程序时都会打开一个新窗口。我希望如果一个窗口已经打开,则其他窗口不允许打开。 最佳答案 Here是一个 Java 单一应用实例的例子: A singl
有没有办法检测主进程中 Electron 的结构? process.platform 似乎也在 x64 机器上返回 win32,我没有在文档中找到任何获取架构的选项。 最佳答案 你试过 process
public short[] HanningWindow(short[] signal_in ,int pos ,int size) { for (int i= pos; i < pos+si
我有一个具有这些属性的 Electron 窗口: mainWindow = new BrowserWindow({ width: 800, height: 600, title: "Aqu
我有一个 Ubuntu 工作站,我正在尝试引导一个 Windows 节点。 Windows 节点在端口 2222 上打开了 ssh。我一直在关注 http://docs.opscode.com/plu
我是一名优秀的程序员,十分优秀!