Cambiar color de un say en tiempo de diseño

Board index FiveWin para Harbour/xHarbour Cambiar color de un say en tiempo de diseño

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

Cambiar color de un say en tiempo de diseño
Posted: Thu Feb 21, 2008 11:01 AM

Muy buenas, pues eso me gustaría cambiar el color de un Say pero en tiempo de diseño.yo utilizo:

redefine say oSayColor id 199 of oDlg font oFontTahoma transparent border pixel COLOR 0,0

redefine button aoBtns[3] id 303 of oDlg action (nColor:=ChooseColor(nColor),msginfo(nColor),oSayColor:setcolor(nColor,nColor),oSayColor:refresh())

Pero no me lo cambia.

Un Saludo.

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Cambiar color de un say en tiempo de diseño
Posted: Thu Feb 21, 2008 11:28 AM

Prueba lo siguiente:

Code: Select all Collapse

Local Pintado

REDEFINE SAY oSay ID 115 OF oDlg COLOR Pintado

REDEFINE BTNBMP Btn1 ID 200 OF oDlg ACTION RefrescarSay(oSay,Pintado)
...

Code: Select all Collapse

Function RefrescarSay(oSay,Pintado)

oSay:ChooseColor(Pintado) // Aquí seleccionas el color que deseas 
oSay:SetColor(Pintado)
oSay:Refresh()

Return nil

Yo lo hago así y me funciona.
Espero te sirva.
Saludos desde Argentina, Esteban

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

softruz

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

No se porque
Posted: Thu Feb 21, 2008 04:06 PM

Asi tampoco funciona.
¿Sabeis otra forma?
UnSaludo.

FiveTech Support Forums

Continue the discussion