Por qué el oDLG cambia de color?

Post Reply
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Por qué el oDLG cambia de color?

Post by Armando »

Amigos foreros:

La pregunta es esa, Por qué el color de fondo y texto de los folders contenidos en un dialogo
cambian de color?, me explico con las siguientes imágenes:

En esta primera imagen los folders se muestran sin color de fondo (default) y es correcto
pues no les estoy definiendo color alguno.

Image

Después de dejar "dormida" mi PC por un tiempo largo (Media hora o más) el color
de fondo y texto de los folders cambian de color, toman el color del dialogo que los
contiene.

Image

Es un caso para la araña !

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
Top
User avatar
karinha
Posts: 7884
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Por qué el oDLG cambia de color?

Post by karinha »

probablemente porque no definiste un color para los controles y las ventanas se suponen generales. Muestra el código que es más fácil de modificar para que quede perfecto. Fivewin es simplemente FANTÁSTICO.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

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

Re: Por qué el oDLG cambia de color?

Post by Antonio Linares »

Armando,

Usas algún TIMER en la aplicación ?

Puede ser que se estén agotando los recursos en la aplicación. Usa SetResDebug( .T. ) al comienzo de tu aplicación
y CheckRes() antes de salir de la aplicación y se genera un fichero checkres.txt

Copia aqui el contenido de checkres.txt, gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
karinha
Posts: 7884
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Por qué el oDLG cambia de color?

Post by karinha »

Armando, ¿puedes hacer un DEMO demostrando el problema? Llevo AÑOS usando RECURSOS y no tengo este efecto secundario. ¿En qué versión de FiveWin está sucediendo esto?

Gracias,

Regards, saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Master Antonio:

Este es el contenido de CheckRes.Txt

Code: Select all | Expand

14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-570093934,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(215)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,453317101,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(220)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-33222578,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(225)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,1090850343,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(266)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,251990033,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(277)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,1174736286,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(283)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-301657948,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(367)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-838529548,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(372)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-100331320,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(377)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1409618529,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(383)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1610282077,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(388)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1258623205,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(394)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,553980494,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(399)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1225066575,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(404)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-788196856,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(410)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1174074071,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(415)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1812271508,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(421)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-351989856,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(427)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- FONT,67766313,TMDIFRAME:GETFONT(3129)->TMDICLIENT:GETFONT(3106)->TMDICLIENT:NEW(147)->TMDIFRAME:NEW(181)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BRUSH,-871362216,TMSGBAR:SETCOLOR(2904)->TMSGBAR:DEFAULT(292)->TMSGBAR:NEW(183)->MAIN(160)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1124405330,TMDIFRAME:DRAWITEM(1265)->TMDIFRAME:HANDLEEVENT(0)->_FWH(3693)->SHOWWINDOW(0)->TMDIFRAME:ACTIVATE(1094)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1073412436,TMSGBAR:PAINT(653)->(b)TMSGBAR(72)->TMSGBAR:DISPLAY(0)->TMSGBAR:HANDLEEVENT(1823)->_FWH(3693)->UPDATEWINDOW(0)->TMDIFRAME:ACTIVATE(1095)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BRUSH,-1357901224,TBAR:SETCOLOR(2904)->TBAR:SETGRADIENTS(269)->TBAR:NEW(186)->LABARRA(529)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-49999279,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(543)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1208290985,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(550)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-301657861,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(557)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,923078749,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(567)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,889524267,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(574)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1426395794,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(584)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1057296597,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(591)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-2012934955,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(598)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1208290805,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(605)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-955969209,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(612)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1443172058,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(619)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-670756749,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(626)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,637865975,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(633)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-570094001,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(640)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,251989948,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(647)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1090187741,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(654)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1442508697,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(661)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1711608410,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(670)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- ICON,8260005,EDITAR(808)->(b)SIRSE01A(351)->TBTNBMP:CLICK(792)->TBTNBMP:LBUTTONUP(1083)->TCONTROL:HANDLEEVENT(1847)->TBTNBMP:HANDLEEVENT(2135)->_FWH(3693)->WINRUN(0)->TMDIFRAME:ACTIVATE(1118)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- ==================================================================================================== 
 
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
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Karinha:

Tengo la versión 2307 con Harbour

Lo siento, debido a que no encontré solución opté por eliminar el Folder y deje todo dentro de un dialogo.

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
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Amigos del foro, Feliz año nuevo.

Cómo evito todos estos mensajes?

Saludos

Armando wrote:Master Antonio:

Este es el contenido de CheckRes.Txt

Code: Select all | Expand

14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-570093934,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(215)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,453317101,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(220)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,-33222578,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(225)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,1090850343,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(266)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,251990033,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(277)->MAIN(158)
    
14/12/2024 17:46:32: D:\Sirse30\Sirse30.Exe -- BMP,1174736286,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(283)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-301657948,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(367)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-838529548,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(372)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-100331320,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(377)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1409618529,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(383)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1610282077,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(388)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1258623205,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(394)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,553980494,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(399)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1225066575,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(404)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-788196856,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(410)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1174074071,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(415)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1812271508,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(421)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-351989856,TMENUITEM:NEW(470)->MENUADDITEM(380)->HAZMENU(427)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- FONT,67766313,TMDIFRAME:GETFONT(3129)->TMDICLIENT:GETFONT(3106)->TMDICLIENT:NEW(147)->TMDIFRAME:NEW(181)->MAIN(158)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BRUSH,-871362216,TMSGBAR:SETCOLOR(2904)->TMSGBAR:DEFAULT(292)->TMSGBAR:NEW(183)->MAIN(160)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1124405330,TMDIFRAME:DRAWITEM(1265)->TMDIFRAME:HANDLEEVENT(0)->_FWH(3693)->SHOWWINDOW(0)->TMDIFRAME:ACTIVATE(1094)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1073412436,TMSGBAR:PAINT(653)->(b)TMSGBAR(72)->TMSGBAR:DISPLAY(0)->TMSGBAR:HANDLEEVENT(1823)->_FWH(3693)->UPDATEWINDOW(0)->TMDIFRAME:ACTIVATE(1095)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BRUSH,-1357901224,TBAR:SETCOLOR(2904)->TBAR:SETGRADIENTS(269)->TBAR:NEW(186)->LABARRA(529)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-49999279,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(543)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1208290985,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(550)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-301657861,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(557)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,923078749,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(567)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,889524267,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(574)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1426395794,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(584)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1057296597,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(591)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-2012934955,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(598)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1208290805,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(605)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-955969209,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(612)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1443172058,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(619)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-670756749,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(626)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,637865975,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(633)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-570094001,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(640)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,251989948,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(647)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1090187741,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(654)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,-1442508697,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(661)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- BMP,1711608410,(b)TWINDOW(604)->TBTNBMP:READIMAGE(0)->TBTNBMP:SETIMAGES(1219)->TBTNBMP:LOADBITMAPS(1247)->TBTNBMP:NEWBAR(589)->LABARRA(670)->(b)MAIN(178)->TMDIFRAME:ACTIVATE(1104)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- ICON,8260005,EDITAR(808)->(b)SIRSE01A(351)->TBTNBMP:CLICK(792)->TBTNBMP:LBUTTONUP(1083)->TCONTROL:HANDLEEVENT(1847)->TBTNBMP:HANDLEEVENT(2135)->_FWH(3693)->WINRUN(0)->TMDIFRAME:ACTIVATE(1118)->MAIN(178)
    
14/12/2024 17:46:34: D:\Sirse30\Sirse30.Exe -- ==================================================================================================== 
 
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
Top
User avatar
karinha
Posts: 7884
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Por qué el oDLG cambia de color?

Post by karinha »

Poste LABARRA.prg para correcciones.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Kainha:

Gracias por el interes.

Este es el código

Code: Select all | Expand

STATIC FUNCTION LaBarra( oWindow )
   LOCAL oBarra
   LOCAL oCursor

   DEFINE CURSOR oCursor RESOURCE "Dedo"
   DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007

   oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
                                       { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) }, ;
                                         { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } }, ;
                                       { { 0.50, nRGB( 139, 166, 193 ), nRGB(  69, 119, 170 ) }, ;
                                         { 0.50, nRGB(  52, 104, 152 ), nRGB(  50, 107, 162 ) } } ) }
   oBarra:nClrText = nRGB( 255, 255, 255 )

* -----------------------------------------------------------------------------*

   IF aAblM1[01] .AND. aAblM1[02]
      DEFINE BUTTON aBtns1[01] OF oBarra RESOURCE "Rec32" cBorde ;
      ACTION SirseWin01a(oWindow);
      MESSAGE "Registro e impresión de facturas"
      aBtns1[01] :cToolTip := { "Registro de facturas", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM1[01] .AND. aAblM1[03]
      DEFINE BUTTON aBtns1[02] OF oBarra RESOURCE "Cos32" cBorde ;
      ACTION SirseWin01b(oWindow);
      MESSAGE "Consultar órdenes de servicio"
      aBtns1[02] :cToolTip := { "Consultar órdenes", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM1[01] .AND. aAblM1[04]
      DEFINE BUTTON aBtns1[03] OF oBarra RESOURCE "Rep32" cBorde ;
      ACTION SirseWin01c(oWindow);
      MESSAGE "Asignar reparación"
      aBtns1[03] :cToolTip := { "Asignar reparación", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM1[01] .AND. aAblM1[05]
      DEFINE BUTTON aBtns1[04] OF oBarra RESOURCE "Pdr32" cBorde ;
      ACTION SirseWin01d(oWindow);
      MESSAGE "Reporte de órdenes pendientes de reparar"
      aBtns1[04] :cToolTip := { "Reporte de pendientes de reparar", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM1[01] .AND. aAblM1[06]
      DEFINE BUTTON aBtns1[05] OF oBarra RESOURCE "Rne32" cBorde ;
      ACTION SirseWin01e(oWindow);
      MESSAGE "Reporte de órdenes reparadas pendientes de entregar"
      aBtns1[05] :cToolTip := { "Reporte de reparadas no entregadas", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM1[01] .AND. aAblM1[07]
      DEFINE BUTTON aBtns1[06] OF oBarra RESOURCE "Pre32" cBorde ;
      ACTION SirseWin01f(oWindow);
      MESSAGE "Elaborar e imprimir prespuestos"
      aBtns1[06] :cToolTip := { "Presupuestos", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   IF aAblM2[01] .AND. aAblM2[02]
      DEFINE BUTTON aBtns2[01] OF oBarra RESOURCE "Vdr32" cBorde ;
      GROUP;
      ACTION SirseWin02a(oWindow);
      MESSAGE "Venta de refacciones"
      aBtns2[01] :cToolTip := { "Venta de refacciones", "Ventas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM2[01] .AND. aAblM2[03]
      DEFINE BUTTON aBtns2[02] OF oBarra RESOURCE "Ddv32" cBorde ;
      ACTION SirseWin02b(oWindow);
      MESSAGE "Reporte diario de ventas"
      aBtns2[02] :cToolTip := { "Diario de ventas", "Ventas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   IF aAblM4[01] .AND. aAblM4[02]
      DEFINE BUTTON aBtns4[01] OF oBarra RESOURCE "Vda32" cBorde ;
      GROUP;
      ACTION SirseWin03a(oWindow);
      MESSAGE "Vales de almacén"
      aBtns4[01] :cToolTip := { "Movimientos de almacén", "Inventario", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM4[01] .AND. aAblM4[03]
      DEFINE BUTTON aBtns4[02] OF oBarra RESOURCE "Edm32" cBorde ;
      ACTION SirseWin03b(oWindow);
      MESSAGE "Estadistico de movimientos"
      aBtns4[02] :cToolTip := { "Estadistico de movimientos", "Inventario", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   IF aAblM6[01] .AND. aAblM6[02]
      DEFINE BUTTON aBtns6[01] OF oBarra RESOURCE "Com32" cBorde ;
      GROUP;
      ACTION SirseWin04a(oWindow);
      MESSAGE "Reporte para pago de comisiones"
      aBtns6[01] :cToolTip := { "Reporte para pagar comisiones", "Comisiones", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   IF aAblM7[01] .AND. aAblM7[02]
      DEFINE BUTTON aBtns7[01] OF oBarra RESOURCE "Par32" cBorde ;
      GROUP;
      ACTION SirseWin05a(oWindow) ;
      MESSAGE "Mantenimiento a partes"
      aBtns7[01] :cToolTip := { "Archivos", "Partes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[03]
      DEFINE BUTTON aBtns7[02] OF oBarra RESOURCE "Mod32" cBorde ;
      ACTION SirseWin05b(oWindow) ;
      MESSAGE "Mantenimiento a modelos de aparatos"
      aBtns7[02] :cToolTip := { "Archivos", "Modelos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[04]
      DEFINE BUTTON aBtns7[03] OF oBarra RESOURCE "Gps32" cBorde ;
      ACTION SirseWin05c(oWindow) ;
      MESSAGE "Mantenimiento a grupos de mano de obra"
      aBtns7[03] :cToolTip := { "Archivos", "Grupos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[05]
      DEFINE BUTTON aBtns7[04] OF oBarra RESOURCE "Mca32" cBorde ;
      ACTION SirseWin05d(oWindow) ;
      MESSAGE "Mantenimiento a marcas"
      aBtns7[04] :cToolTip := { "Archivos", "Marcas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[06]
      DEFINE BUTTON aBtns7[05] OF oBarra RESOURCE "Def32" cBorde ;
      ACTION SirseWin05e(oWindow) ;
      MESSAGE "Claves de defectos"
      aBtns7[05] :cToolTip := { "Archivos", "Defectos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[07]
      DEFINE BUTTON aBtns7[06] OF oBarra RESOURCE "Cli32" cBorde ;
      ACTION SirseWin05f(oWindow) ;
      MESSAGE "Clientes frecuentes"
      aBtns7[06] :cToolTip := { "Archivos", "Clientes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[08]
      DEFINE BUTTON aBtns7[07] OF oBarra RESOURCE "Tec32" cBorde ;
      ACTION SirseWin05g(oWindow);
      MESSAGE "Técnicos y empleados"
      aBtns7[07] :cToolTip := { "Archivos", "Técnicos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[09]
      DEFINE BUTTON aBtns7[08] OF oBarra RESOURCE "Pdu32" cBorde ;
      ACTION SirseWin05h(oWindow);
      MESSAGE "Porcentajes de utilidad"
      aBtns7[08] :cToolTip := { "Archivos", "Porcentajes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[10]
      DEFINE BUTTON aBtns7[09] OF oBarra RESOURCE "Tdo32" cBorde ;
      ACTION SirseWin05i(oWindow);
      MESSAGE "Tipos de órdenes"
      aBtns7[09] :cToolTip := { "Archivos", "Tipos de órdenes", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[11]
      DEFINE BUTTON aBtns7[10] OF oBarra RESOURCE "Tdg32" cBorde ;
      ACTION SirseWin05j(oWindow);
      MESSAGE "Tipos de garantías"
      aBtns7[10] :cToolTip := { "Archivos", "Tipos de garantías", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[12]
      DEFINE BUTTON aBtns7[11] OF oBarra RESOURCE "Dia32" cBorde ;
      ACTION SirseWin05k(oWindow);
      MESSAGE "Manuales y diagramas"
      aBtns7[11] :cToolTip := { "Archivos", "Manuales y diagramas", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

   IF aAblM7[01] .AND. aAblM7[13]
      DEFINE BUTTON aBtns7[12] OF oBarra RESOURCE "Cfg32" cBorde ;
      ACTION SirseWin05l(oWindow);
      MESSAGE "Configurar el sistema"
      aBtns7[12] :cToolTip := { "Archivos", "Configurar el sistema", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   IF aAblM8[01] .AND. aAblM8[02]
      DEFINE BUTTON aBtns8[01] OF oBarra RESOURCE "Dsg32" cBorde ;
      GROUP;
      ACTION WaitRun(".\VRD.EXE");
      MESSAGE "Diseñador de formatos"
      aBtns8[01] :cToolTip := { "Soporte", "Diseñador", nIcono, oApp:cClrForTol, oApp:cClrBakTol }
   ENDIF

* -----------------------------------------------------------------------------*

   DEFINE BUTTON aBtns8[01] OF oBarra RESOURCE "Sal32" cBorde ;
      GROUP;
      ACTION oWindow:END( ) ;
      MESSAGE "Salir de la aplicación"
      aBtns8[01] :cToolTip := { "Salir de la aplicación", "Servicio", nIcono, oApp:cClrForTol, oApp:cClrBakTol }

RETURN ( .T. )
 
Saludos, ah, y feliz año para todos
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
Top
User avatar
karinha
Posts: 7884
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Por qué el oDLG cambia de color?

Post by karinha »

Armando, no esta completo, por favor mire estas lyneas:

LABARRA(529)->(b) -> BAD(Malo)
LABARRA(543)->(b)
LABARRA(550)->(b)
LABARRA(557)->(b)
LABARRA(584)->(b)
LABARRA(591)->(b)
LABARRA(598)->(b)
LABARRA(605)->(b)
LABARRA(612)->(b)
LABARRA(619)->(b)
LABARRA(626)->(b)
LABARRA(633)->(b)
LABARRA(640)->(b)
LABARRA(647)->(b)
LABARRA(654)->(b)
LABARRA(661)->(b)
LABARRA(670)->(b)

Algo no esta bien con ellos.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Karinha:

El código que pegue es la función LaBarra que es parte del PRG Main, la primera
línea que mencionas (LABARRA(529)->(b) -> BAD(Malo)) esta a continuación.

Code: Select all | Expand

   IF aAblM7[01] .AND. aAblM7[04]
      DEFINE BUTTON aBtns7[03] OF oBarra RESOURCE "Gps32" cBorde ;
      ACTION SirseWin05c(oWindow) ;
      MESSAGE "Mantenimiento a grupos de mano de obra"
      aBtns7[03] :cToolTip := { "Archivos", "Grupos", nIcono, oApp:cClrForTol, oApp:cClrBakTol }      //  Línea 529
   ENDIF
 
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
Top
User avatar
Antonio Linares
Site Admin
Posts: 42256
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Por qué el oDLG cambia de color?

Post by Antonio Linares »

Armando,

Usas una ventana o un diálogo ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Armando
Posts: 3248
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:
Contact Armando

Re: Por qué el oDLG cambia de color?

Post by Armando »

Master:

Es una ventana

Code: Select all | Expand

STATIC FUNCTION LaBarra( oWindow )
   LOCAL oBarra
   LOCAL oCursor

   DEFINE CURSOR oCursor RESOURCE "Dedo"
   DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007

   oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
                                       { { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) }, ;
                                         { 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } }, ;
                                       { { 0.50, nRGB( 139, 166, 193 ), nRGB(  69, 119, 170 ) }, ;
                                         { 0.50, nRGB(  52, 104, 152 ), nRGB(  50, 107, 162 ) } } ) }
   oBarra:nClrText = nRGB( 255, 255, 255 )
....
....
....

Code: Select all | Expand

   ACTIVATE WINDOW oWindow MAXIMIZED ON INIT ( LaBarra( oWindow ), oWindow:Refresh( ) ) VALID Salir()
 
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
Top
User avatar
Antonio Linares
Site Admin
Posts: 42256
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Por qué el oDLG cambia de color?

Post by Antonio Linares »

En la función Salir() incluye oWindow:oBar:End()

a ver si asi queda solucionado :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”