topic-32688

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

TGet's Color
Posted: Sat Jul 09, 2016 10:58 AM

Hi
I use this function below:

Function ChangeTGetColor_1(oDlg)

AEval( oDlg:aControls,{|o| if(o:ClassName()=="TGET",;
                             ( o:bGotFocus  := {|o|o:SetColor( RGB(0,0,0), RGB(252,232,191) )} ,;
                               o:bLostFocus := {|o|o:SetColor( CLR_BLACK, CLR_WHITE )} ),) } )

Return NIL

I use ChangeTGetColor_1(::oDlg) work(TGet in Dialog)
ChangeTGetColor_1(::oFld) not work(TGet in TFolder/TFolderex).

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: TGet's Color
Posted: Sat Jul 09, 2016 12:55 PM

Richard,

called from Main-dialog 2 functions next each other

CHANGETGETCOLOR_1(oDlg) // for dialog
CHANGE_FGETCOL(oFld) // for folderpages

Code (fw): Select all Collapse

// --------------- SET FOLDER GET-colors -----

FUNCTION CHANGE_FGETCOL(oFld) 
LOCAL n, oFDlg 

FOR n := 1 to Len( oFld:aDialogs ) 
    oFDlg := oFld:aDialogs[ n ]
    ChangeTGetColor_1(oFDlg) // calls Your get-colorchange
    oFDlg:Update()
NEXT

RETURN( NIL )

// ---------- SET GET-COLORS ( for dialog and folder ) ------

FUNCTION ChangeTGetColor_1(oDlg)

AEval( oDlg:aControls,{|o| if(o:ClassName()=="TGET",;
                             ( o:bGotFocus  := {|o|o:SetColor( RGB(0,0,0), RGB(252,232,191) )} ,;
                               o:bLostFocus := {|o|o:SetColor( CLR_BLACK, CLR_WHITE )} ),) } )


RETURN NIL

regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: TGet's Color
Posted: Sat Jul 09, 2016 05:06 PM

ukoenig wrote:Richard,

called from Main-dialog 2 functions next each other

CHANGETGETCOLOR_1(oDlg) // for dialog
CHANGE_FGETCOL(oFld) // for folderpages

Code (fw): Select all Collapse

// --------------- SET FOLDER GET-colors -----

FUNCTION CHANGE_FGETCOL(oFld) 
LOCAL n, oFDlg 

FOR n := 1 to Len( oFld:aDialogs ) 
    oFDlg := oFld:aDialogs[ n ]
    ChangeTGetColor_1(oFDlg) // calls Your get-colorchange
    oFDlg:Update()
NEXT

RETURN( NIL )

// ---------- SET GET-COLORS ( for dialog and folder ) ------

FUNCTION ChangeTGetColor_1(oDlg)

AEval( oDlg:aControls,[code][/code]{|o| if(o:ClassName()=="TGET",;
                             ( o:bGotFocus  := {|o|o:SetColor( RGB(0,0,0), RGB(252,232,191) )} ,;
                               o:bLostFocus := {|o|o:SetColor( CLR_BLACK, CLR_WHITE )} ),) } )


RETURN NIL

regards
Uwe

Hi Uwe,
Thanks a lot. it's work now.
I have a question about it.
1.How to disable bitmap gray color
2.I hope change Yellow color to gray color for disable

Code (fw): Select all Collapse

LOCAL aBitmaps := { "System\TabBmp\24\Tab_WConnect.bmp",;
                    "System\TabBmp\24\Tab_Photo.bmp",;
                    "System\TabBmp\24\Tab_DiskDrive.bmp",;
                    "System\TabBmp\24\Tab_ReMark.bmp" }

      REDEFINE FOLDEREX ::oFld ID 300 OF ::oDlg      ;
               PROMPT "網際網路"  ,;
                      "圖片路徑"  ,;
                      "備份磁碟機",;
                      "參數設定"                     ;
               DIALOGS "D_DR_WIN_SYSDATAMSF_FLD1",;
                       "D_DR_WIN_SYSDATAMSF_FLD2",;
                       "D_DR_WIN_SYSDATAMSF_FLD3",;
                       "D_DR_WIN_SYSDATAMSF_FLD4"    ;
               BITMAPS aBitmaps                      ;
               TAB HEIGHT 40                         ;
               ANIMATE SPEED 50

::oFld:SetFont(oFont)
::oFld:aEnable = { .T., .F., .T., .T. }
::oFld:DisableTab( 2 )
::oFld:ReFresh()

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

stefano

Posts: 80

Joined: Tue Mar 25, 2008 09:03 PM

Re: TGet's Color
Posted: Sun Jul 10, 2016 08:04 AM

for disable color TFolderex

aColorDis := { { 1, nRGB( 190, 190, 190), nRGB( 211, 211, 211 ) } }

oFld:DisableTab( 2 )
oFld:aGradDis := aColorDis

Stefano

FWH 14.11 + xHarbour + bcc582

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: TGet's Color
Posted: Sun Jul 10, 2016 04:15 PM

stefano wrote:for disable color TFolderex

aColorDis := { { 1, nRGB( 190, 190, 190), nRGB( 211, 211, 211 ) } }

oFld:DisableTab( 2 )
oFld:aGradDis := aColorDis

Stefano

Hi Stefano,
Thanks a lot. it's work.
Just bitmap not change disable( gray bitmap )

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

stefano

Posts: 80

Joined: Tue Mar 25, 2008 09:03 PM

Re: TGet's Color
Posted: Sun Jul 10, 2016 04:40 PM

I think that is possible to use 2 bitmap, one gray and the other colored

if ....
aBitmaps := { , , , cperete+"\bmp\f1.BMP" } // color
oFld:EnableTab( 4 )
else
aBitmaps := { , , , cperete+"\bmp\f0.BMP" } // gray
oFld:DisableTab( 4 )
endif
ofld:LoadBitmaps( aBitmaps )
ofld:refresh()

Stefano

FWH 14.11 + xHarbour + bcc582

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: TGet's Color
Posted: Sun Jul 10, 2016 05:12 PM

stefano wrote:I think that is possible to use 2 bitmap, one gray and the other colored

if ....
aBitmaps := { , , , cperete+"\bmp\f1.BMP" } // color
oFld:EnableTab( 4 )
else
aBitmaps := { , , , cperete+"\bmp\f0.BMP" } // gray
oFld:DisableTab( 4 )
endif
ofld:LoadBitmaps( aBitmaps )
ofld:refresh()

Stefano

Hi Stefano,

I see. Thanks a lot.
But I hope TFolderex Should be Auto change Same as ToolBar

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

FiveTech Support Forums

Continue the discussion