Modify Text

Update font name in editor

  Private Sub FontNameSel_DropDownClosed(ByVal sender As System.Object,

               ByVal e As System.EventArgs) Handles FontNameSel.DropDownClosed

      If Not WpdllInt1 Is Nothing Then

       WpdllInt1.TextAttr.SetFontface(FontNameSel.Text)

       WpdllInt1.Focus()

      End If

  End Sub

Update font size in editor

  Private Sub FontSizeSel_Update(ByVal AndFocus As Boolean)

      If Not WpdllInt1 Is Nothing Then

          Try

       WpdllInt1.TextAttr.SetFontSize(Convert.ToSingle(FontSizeSel.Text))

       If AndFocus Then

               WpdllInt1.Focus()

       End If

       Catch ex As Exception

       End Try

      End If

  End Sub

  Private Sub FontSizeSel_TextChanged(ByVal sender As System.Object,

       ByVal e As System.EventArgs) Handles FontSizeSel.TextChanged

      FontSizeSel_Update(True)

  End Sub

  ' Update the size if user presses CR in combobox

  Private Sub FontSizeSel_KeyPress(ByVal sender As System.Object,

               ByVal e As System.Windows.Forms.KeyPressEventArgs)

               Handles FontSizeSel.KeyPress

      If e.KeyChar = Convert.ToChar(13) Then

          FontSizeSel_Update(False)

      End If

  End Sub