FiveTech Support Forums

Hi,

Client request to customize the color of the alert dialog. I am trying to edit the alert.prg with the following code.

setTextColor(hDC,CLR_YELLOW) but the color doesn't change.

Is this the correct approach ?

How can I get the hDC of a oDlg?

TIA,

XHBCoder

STATIC FUNCTION DlgInit(oDlg, oFont, cMsg, aOptions, cTitle, nDefault, xIcon)

Local oGet, oBtn, oIcon
Local cSay, cLine
Local nMaxWidth, nMaxHeight, nWidth, nHeight, nLines, nFor
Local nBtnWidth, nBtnOffset, nBtnHeight, nBtnLength
Local lHScroll, lVScroll
// jdd
local hDC
hDC := oDlg:GetDC()
setTextColor(hDC, CLR_YELLOW)
//

You may modify source\function\alert.prg this way:

DEFINE DIALOG oDlg TITLE cTitle FONT oFont COLOR "N/GR*"

FW,

Thanks. Works fine.