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$