You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
altbodhi edited this page May 2, 2018
·
4 revisions
open System
open Eto.Forms
open Eto.Drawing
type MainForm () as this =
inherit Form()
let textBoxName = new TextBox()
let okButton = new Button(Text = "Ok")
do
this.Title <- "Задача"
okButton.Click.Add(fun e -> MessageBox.Show(textBoxName.Text) |> ignore)
let layout = new StackLayout(Orientation = Orientation.Vertical,HorizontalContentAlignment = HorizontalAlignment.Center,Spacing = 5,Padding = new Padding(10))
layout.Items.Add(new StackLayoutItem(new Label(Text = "Тема:")))
layout.Items.Add(new StackLayoutItem(textBoxName))
layout.Items.Add(new StackLayoutItem(okButton))
base.Content <- layout;