# Gambas Form File 3.0

{ Form Form
  MoveScaled(0,0,64,12)
  Arrangement = Arrange.Fill
  { !DrawingArea1 DrawingArea
    MoveScaled(2,4,51,7)
    #Public = True
    Expand = True
    { !TextBox1 TextBox
      MoveScaled(8,1,38,5)
      #Public = True
    }
    { !Label1 Label
      MoveScaled(1,2,13,3)
      #Public = True
      AutoResize = True
    }
  }
}

Export
Inherits UserControl

Public Const _Properties As String = "*,Text,LabelText"
Public Const _Group As String = "Form"
Public Const _Size As String = "150,36"

Property Text As String
Property LabelText As String
Private Obs As Observer
Private F As FLabeledTextBox

Public Sub _new()
  
  Obs = New Observer(Me) As "Event"
  F = New FLabeledTextBox
  F.SetText(Me.Name)
End

Private Function Text_Read() As String
  Return F.GetText()
End

Private Sub Text_Write(Value As String)
  F.SetText(Value)
End

Private Function LabelText_Read() As String
  Return F.GetLabelText()
End

Private Sub LabelText_Write(Value As String)
  F.SetLabelText(Value)
End

Private $LabelText As String
Private $Text As String

Public Sub SetText(Value As String)
  $Text = Value
  Me.TextBox1.Text = Value
  Me.DrawingArea1.Refresh()
End

Public Function GetText() As String
  Return $Text
End

Public Sub SetLabelText(Value As String)
  $LabelText = Value
  Me.Label1.Text = Value
  Me.DrawingArea1.Refresh()
End

Public Function GetLabelText() As String
  Return $LabelText
End

Public Sub DrawingArea1_Draw()
  Me.Label1.Refresh
  Me.TextBox1.Refresh
  Paint.Begin(Me.DrawingArea1)
  Paint.End

End