FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour Color of un-redefined Say Objects
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Color of un-redefined Say Objects
Posted: Thu Aug 04, 2011 11:50 AM

Is it possible to apply the same color of the dialog to an un-redefined object

In example I have a dialog with a lot OF SAY and GET objects

In the source code I have only GET objects
Customer ask to me to change color to the dialog

REDEFINE DIALOG oDlg RESOURCE "dialogo" COLOR clr_blue, clr_red

The say objects remain of original color they do not inherit dialog color.
Is it possible to obtain that without a lot of REDEFINE SAY oSay1 ID 401 OF oDlg COLOR clr_blue, clr_red?

Many Thanks

Marco

Marco Boschi
info@marcoboschi.it
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Color of un-redefined Say Objects
Posted: Thu Aug 04, 2011 06:28 PM

Marco,

Just add the TRANSPARENT clause when defining the dialog:

DEFINE DIALOG oDlg RESOURCE "dialogo" COLOR clr_blue, clr_red TRANSPARENT

regards, saludos

Antonio Linares
www.fivetechsoft.com
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Fri Aug 05, 2011 12:18 PM

Thanks Antonio

Marco Boschi
info@marcoboschi.it
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Wed Sep 07, 2011 07:34 AM

Antonio,
with TRANSPARENT clause in dialog I have now a little problem.

DEFINE DIALOG oDlg RESOURCE "lis_de" FONT oFnt2 COLOR CLR_RED , nColore TRANSPARENT

If the dbf vieved by twbrowse object contains a few records the bottom of the dialog is of the same color of dialog itself.
Is it possible to force oBrw object as not transparent?
I've tried with oBrw:lTransparent without success

Thanks in advance

marco

Marco Boschi
info@marcoboschi.it
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Color of un-redefined Say Objects
Posted: Wed Sep 07, 2011 12:44 PM

Marco,

Try to set it from the ON INIT clause of the dialog:

ACTIVATE DIALOG oDlg ON INIT ( oBrw:lTransparent := .F., oBrw:Refresh() )

regards, saludos

Antonio Linares
www.fivetechsoft.com
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Wed Sep 07, 2011 01:33 PM

Antonio,
i does not work.
I will try it in another little sample program.

Best regards

marco

Marco Boschi
info@marcoboschi.it
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Thu Sep 08, 2011 02:22 PM
Antonio,
This little sample code makes you understand the problem.

If you substitute the line code
oBrw := TMyWBrowse():Redefine( 101 , , oDlg )
with
oBrw := TWBrowse():Redefine( 101 , , oDlg )
it works but I need TMyWbrowse class

Many thanks

marco


Code (fw): Select all Collapse
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oBrw


SET DELETED ON
SET EXCLUSIVE OFF

USE customer
INDEX ON field->first TAG first TO mycust FOR RECNO() < 5


PRIVATE aRec := {}
PRIVATE nCur := 1

GO TOP

DEFINE DIALOG oDlg RESOURCE "DIALOG_1" COLOR CLR_RED, CLR_BLUE TRANSPARENT

   oBrw := TMyWBrowse():Redefine(   101   , , oDlg )
//   oBrw := TWBrowse():Redefine(   101   , , oDlg )


ACTIVATE DIALOG oDlg CENTER


RETURN NIL


CLASS TMyWBrowse FROM TWBrowse

//      METHOD Paint()

ENDCLASS

//  METHOD Paint() CLASS TMyWBrowse
//
//      Super:Paint()
//
//
//      RETURN 0



Code (fw): Select all Collapse
/****************************************************************************


testa.rc

produced by Borland Resource Workshop


*****************************************************************************/


DIALOG_1 DIALOG 22, 32, 390, 325
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TestTransparent"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "TMyWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 15, 8, 356, 292
}
Marco Boschi
info@marcoboschi.it
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Fri Sep 09, 2011 11:49 AM

up!

Marco Boschi
info@marcoboschi.it
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 08:01 AM

Please,
someone can test this program please?

Thanks in advance

marco

Marco Boschi
info@marcoboschi.it
Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 08:35 AM

I already tested it but not found a solution, sorry.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 05:58 PM

EMG,
Thank you very much!

Marco Boschi
info@marcoboschi.it
MarcoBoschi
Posts: 1091
Joined: Thu Nov 17, 2005 11:08 AM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 05:59 PM

In your opinion is it a bug or is a normal behaviour?

Marco Boschi
info@marcoboschi.it
Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 06:09 PM

I really don't know... :-(

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 07:15 PM
Hello

your sample work to me


http://www.danielgarciagil.com/fivewin/samples/dlgtrn.zip

Code (fw): Select all Collapse
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oBrw


SET DELETED ON
SET EXCLUSIVE OFF

USE customer
INDEX ON field->first TAG first TO mycust FOR RECNO() < 5


PRIVATE aRec := {}
PRIVATE nCur := 1

GO TOP

DEFINE DIALOG oDlg RESOURCE "DIALOG_1" COLOR CLR_RED, CLR_BLUE TRANSPARENT

//   oBrw := TMyWBrowse():Redefine(   101   , , oDlg )
   oBrw := TWBrowse():Redefine(   101   , , oDlg )

ACTIVATE DIALOG oDlg CENTER


RETURN NIL


CLASS TMyWBrowse FROM TWBrowse

//      METHOD Paint()

ENDCLASS

//  METHOD Paint() CLASS TMyWBrowse
//
//      Super:Paint()
//
//
//      RETURN 0


Code (fw): Select all Collapse
/****************************************************************************


testa.rc

produced by Borland Resource Workshop


*****************************************************************************/


DIALOG_1 DIALOG 22, 32, 390, 325
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "TestTransparent"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "", 101, "TWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 15, 8, 356, 292
}
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Enrico Maria Giordano
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Color of un-redefined Say Objects
Posted: Sun Sep 11, 2011 07:26 PM

You have to comment TWBrowse and uncomment TMyWBrowse in order to see the problem.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg
Static archive · New replies & topics via GitHub Discussions