Zum Inhalt springen

Gambas: Tabelle: Wiki-Tabelle Form2.class

Aus Wikibooks
' Gambas class file

PUBLIC SUB Form_Open()
  ME.Border = Window.Resizable
  ME.W = 500
  ME.H = 400
  ME.Center
  ME.Text = "Zelle bearbeiten"
  
  TextArea1.Text = Form1.$sText
  TextArea1.Pos = TextArea1.Length
END

PUBLIC SUB Form_Resize()
  btnOK.Move(ME.W - 158, ME.H - 40, 150, 32)
  btnCancel.Move(ME.W - 316, ME.H - 40, 150, 32)
  cbBR.Move(8, ME.H - 76, 400, 28)
  TextArea1.Move(8, 8, ME.W - 16, ME.H - 84)
END

PUBLIC SUB btnOK_Click()
  IF cbBR.Value = TRUE THEN TextArea1.Text = Replace(TextArea1.Text, "\n", "<br/ >")

  Form1.$sText = TextArea1.Text
  ME.Close
END

PUBLIC SUB btnCancel_Click()
  ME.Close
END