'Listing 16.3  16LIST03.TXT  --- Przykadowy kod zmiany czcionki

Private Sub cmdButton_Click ()
  dlgCommon.Color = Text1.ForeColor
  dlgCommon.FontBold = Text1.FontBold
  dlgCommon.FontItalic = Text1.FontItalic
  dlgCommon.FontStrikeThru = Text1.FontStrikethru
  dlgCommon.FontUnderLine = Text1.FontUnderline
  dlgCommon.FontName = Text1.FontName
  dlgCommon.FontSize = Text1.FontSize

  dlgCommon.Flags = cdlCFEffects Or cdlCFForceFontExist Or cdlCFBoth 
  dlgCommon.Action = 4
  
  Text1.ForeColor = dlgCommon.Color
  Text1.FontBold = dlgCommon.FontBold
  Text1.FontItalic = dlgCommon.FontItalic
  Text1.FontStrikethru = dlgCommon.FontStrikeThru
  Text1.FontUnderline = dlgCommon.FontUnderLine
  Text1.FontName = dlgCommon.FontName
  Text1.FontSize = dlgCommon.FontSize
End Sub

