alert custumization

Post Reply
xhbcoder
Posts: 100
Joined: Wed Oct 04, 2006 4:50 pm
Location: USA

alert custumization

Post by xhbcoder »

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,

:roll: 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)
//
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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

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

Antonio Linares
www.fivetechsoft.com
xhbcoder
Posts: 100
Joined: Wed Oct 04, 2006 4:50 pm
Location: USA

Post by xhbcoder »

FW,

Thanks. Works fine.
Post Reply