Почему моя форма Windows в F # использует минимальную ширину?

Question

Я пытаюсь создать в основном изображение 100x100 на экране без рамки или набора инструментов, но по какой-то причине минимальный размер установлен на 150, похоже. Я попытался использовать form.MinimumSize <- new Size(100, 100), и он ничего не делает.

Вот полный код.

open System
open System.Drawing
open System.Windows.Forms

let form = new Form()

form.Width <- 100
form.Height <- 100

form.FormBorderStyle <- System.Windows.Forms.FormBorderStyle.None
form.StartPosition <- FormStartPosition.CenterScreen

let picture = new PictureBox(SizeMode = PictureBoxSizeMode.AutoSize)
let bitmap = new Bitmap(100, 100)

for x in 0 .. 99 do
    for y in 0 .. 99 do
        bitmap.SetPixel(x, y, Color.Red)

picture.Image <- bitmap

form.Controls.Add(picture)

[<STAThread>]
Application.Run(form)

Answer 1

Похоже, вам нужно установить Width после установки стиля рамки и после того, как форма станет видимой. Следующее помогает мне:

let form = new Form()

form.FormBorderStyle <- System.Windows.Forms.FormBorderStyle.None
form.StartPosition <- FormStartPosition.CenterScreen

let picture = new PictureBox(SizeMode = PictureBoxSizeMode.AutoSize)
let bitmap = new Bitmap(100, 100)
for x in 0 .. 99 do
    for y in 0 .. 99 do
        bitmap.SetPixel(x, y, Color.Red)
picture.Image <- bitmap

form.Controls.Add(picture)
form.Show()

form.Width <- 100
form.Height <- 100