FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour poner color a control GET con campo MEMO? (SOLUCIONADO)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
poner color a control GET con campo MEMO? (SOLUCIONADO)
Posted: Thu Nov 19, 2015 02:07 AM
Amigos del foro:

En la versi贸n FWH0810 con el siguiente c贸digo le pongo color a un control GET
con campo MEMO

Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 aGets[13]:bGotFocus() 聽:= {|o| o:SetColor(RGB(0,0,0),RGB(197,205,255))}
聽 聽 聽 聽 聽 聽 aGets[13]:bLostFocus() := {|o| o:SetColor(RGB(0,0,0),RGB(255,255,255))}


Pero en la versi贸n FWH1412 ya no funciona, c贸mo puedo ponerle color
al control GET con campo MEMO??

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
alexpdasilva
Posts: 11
Joined: Tue Mar 17, 2015 03:50 AM
Re: C贸mo poner color a control GET con campo MEMO?
Posted: Thu Nov 19, 2015 05:25 AM

Ol谩 Amigo,

Tente:

redefine Get aoGetsBem[04] var aDadosBem[04] MEMO id 204 of oFld:aDialogs[6] when( !lSai_0012 .and. lEditaBem ) update COLORS nRgb(0,0,220),nRgb(253,252,213)
aoGetsBem[04]:bLostFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, CLR_WHITE) }
aoGetsBem[04]:bGotFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, nRGB( 255,255,45 )), aoGetsBem[04]:setsel(0,0), aoGetsBas[12]:setpos(0) }
aoGetsBem[04]:cToolTip := 'Informe a Descri莽茫o do BEM (Ex: Im贸vel na Rua S茫o Paulo, 23 - Bairro Centro)'

Um abra莽o,

Alexandre Pereira

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo poner color a control GET con campo MEMO?
Posted: Thu Nov 19, 2015 02:12 PM

Alexandre:

Muito obrigado, tudo bem!

Um abra莽o

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions