Modify Text

[Top]  [Chapter]  [Previous]  [Next]

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

 


[modifytextineditor.htm]    Copyright © 2007 by WPCubed GmbH