From 49b97b6d18575f5d010a28a15110a3ad468e1e6b Mon Sep 17 00:00:00 2001 From: Jah-yee <166608075+Jah-yee@users.noreply.github.com> Date: Wed, 21 Oct 2026 03:28:08 +0800 Subject: [PATCH] =?UTF-8?q?docs:=20fix=20\&H80000012=20description=20?= =?UTF-8?q?=E2=80=94=20button=20text,=20not=20button=20face?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Corrects the TranslateColor documentation which misidentified \&H80000012 as 'button face'. Per SystemColorConstants.md, \&H80000012 is vbButtonText (button text). Button face is \&H8000000F (vbButtonFace). Fixes #245. --- docs/Reference/Default/VBA/Information/TranslateColor.md | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/docs/Reference/Default/VBA/Information/TranslateColor.md b/docs/Reference/Default/VBA/Information/TranslateColor.md index 980e47cd1..296a223d5 100644 --- a/docs/Reference/Default/VBA/Information/TranslateColor.md +++ b/docs/Reference/Default/VBA/Information/TranslateColor.md @@ -16,7 +16,7 @@ Syntax: **TranslateColor(** *ColorValue* [ **,** *hPalettePtr* ] **)** *hPalettePtr* : *optional* A **LongPtr** handle to a palette to use for translation. Defaults to **0**, which selects the default system palette. -The OLE colour format encodes either a literal RGB value or an index into the Windows system palette (such as `&H80000012`, the colour of a button face). **TranslateColor** returns the corresponding plain RGB **Long**, suitable for passing to APIs and properties that expect a true colour value rather than a system-palette reference. +The OLE colour format encodes either a literal RGB value or an index into the Windows system palette (such as `&H80000012`, the colour of button text). **TranslateColor** returns the corresponding plain RGB **Long**, suitable for passing to APIs and properties that expect a true colour value rather than a system-palette reference. ### Example @@ -25,7 +25,7 @@ This example translates an OLE system colour to its current RGB value. ```tb check_build Dim OleColor As Long Dim RgbColor As Long -OleColor = &H80000012 ' COLOR_BTNFACE — the button face colour. +OleColor = &H80000012 ' COLOR_BTNTEXT — the button text colour. RgbColor = TranslateColor(OleColor) ```