Rebol 程式設計/center-face

用法

CENTER-FACE obj /with face 

描述

將一個面相對於父級（視窗的螢幕）或兄弟面居中。

CENTER-FACE 是一個函式值。

引數

• obj -- (型別：物件)

細化

• /with -- 相對於兄弟面居中。
  • face -- (型別：物件)

原始碼

center-face: func [
    {Center a face relative to parent (screen for windows) or a sibling face.} 
    obj [object!] 
    /with "Center relative to a sibling face." face [object!]
][
    if none? face [face: any [obj/parent-face system/view/screen-face]] 
    obj/offset: max 0x0 face/size - obj/size / 2 + either with [face/offset] [0x0] 
    obj
]