Futurebasic/语言/参考/def setbuttonfontstyle

语法

DEF SETBUTTONFONTSTYLE

修订

2002 年 2 月（版本 6）

描述

此过程设置与外观管理器，基于控件的编辑字段关联的所有字体信息。您可以使用 APPEARANCE BUTTON 语句以及 _kControlEditTextProc 类型构建此类字段。可以使用 DEF SETBUTTONTEXTSTRING 在此类型的按钮中放置文本。在修改外观管理器，基于控件的编辑字段中的文本之前，必须创建一个控件字体样式记录。此记录在 Tlbx Appearance.Incl 中定义如下

BEGIN RECORD

ControlFontStyleRec

  DIM flags     AS SHORT
  
  DIM font      AS SHORT
  
  DIM size      AS SHORT
  
  DIM style     AS SHORT
  
  DIM mode      AS SHORT
  
  DIM just      AS SHORT
  
  DIM foreColor AS RGBCOLOR
  
  DIM backColor AS RGBCOLOR

END RECORD

您像这样对记录的本地副本进行维度：DIM cfsr AS ControlFontStyleRec 必须为 controlFontStyleRec 填充的第一项是 flags 条目，它将告诉外观管理器哪些参数很重要。此项的适当值是

_kControlUseFontMask

_kControlUseFaceMask

_kControlUseSizeMask

_kControlUseForeColorMask

_kControlUseBackColorMask

_kControlUseModeMask

_kControlUseJustMask

可以通过连接相应的常量将项加在一起。例如，如果要更改字段的字体和背景颜色，则使用以下内容：cfsr.flags = _kControlUseFontMask_kControlUseBackColorMask 以下完整的功能程序创建一个外观管理器，基于控件的编辑字段，并将文本设置为 Monaco，红色背景上的粗体：WINDOW 1 APPEARANCE BUTTON 1,1,1,0,1,"",¬

 (10,10)-(200,200),_kControlEditTextProc DIM cfs AS ControlFontStyleRec cfs.flags = _kControlUseFontMask + ¬
           _kControlUseFaceMask + ¬
           _kControlUseBackColorMask

cfs.font = _monaco

cfs.style = _boldBit%

cfs.backColor.red = -1

cfs.backColor.green = 0

cfs.backColor.blue = 0

DEF SETBUTTONFONTSTYLE( 1, cfs ) DEF SETBUTTONTEXTSTRING( 1, "Hello" ) DO HANDLEEVENTS UNTIL 0

参见

DEF SETBUTTONDATA、BUTTON 函数、APPEARANCE BUTTON、BUTTONTEXTSTRING$