Add Font/-Size Selector

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

Now we add two comboboxes to the toolbar to change the font and font size of the text in TextDynamic.


Both liat can be initailized in the Lod event of the main form.


Private Sub WordsMDIParent1_Load(ByVal sender As System.Object,

      ByVal e As System.EventArgs) Handles MyBase.Load

      ' initialize font size combo




      ' initialize font name combo

       FontNameSel.DropDownStyle = ComboBoxStyle.DropDownList

      Dim aFont As FontFamily

      For Each aFont In FontFamily.Families



End Sub


To react on a user action we can use the DropDownClosed event. But first we need some code to know which of the child windows is active. The event MdiChildActivate can be used to keep track.


  ' public variable to represent current TextDynamic editor.

  Public WpdllInt1 As WPDynamic.WPDLLInt


  Private Sub WordsMDIParent1_MdiChildActivate(

         ByVal sender As System.Object,

         ByVal e As System.EventArgs) Handles MyBase.MdiChildActivate

      Dim ActiveEditor As WordsChildForm1

       ActiveEditor = TryCast(ActiveMdiChild, WordsChildForm1)

      If ActiveMdiChild Is Nothing Then

           WpdllInt1 = Nothing

           Text = "TextDynamicWords"


          WpdllInt1 = ActiveEditor.WpdllInt1

          ' update Caption

           Text = "TextDynamicWords [" + ActiveEditor.Text + "]"

      End If

  End Sub


Now we can implement the OnDropDownClosed code for the font and font size comboboxes. To update the text attributes it is best to use the interface TextAttr since it automatically either changes the attributes of selected text (CurrSellAttr) if there is a selection, or the current writing mode (CurrAttr).

[additemstootoolbar.htm]    Copyright © 2007 by WPCubed GmbH