FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour help urgent : XBROWSE EDIT
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

help urgent : XBROWSE EDIT

Posted: Tue Jan 23, 2007 04:44 PM
is possible EDIT on XBrwose Directly a DATE FIELD ?

is possible open a dtpicker control when I click on this field ?

can I use a edit_listbox with dtpicker control ?

is possible put different color on each lines of xbrowse ?
I made :
Code: Select all Collapse
oApp():oGrid:nClrPane  :={|| IF(( oApp():oGrid:cAlias)->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}


but it not run ok



Can you write an sample ?
Best Regards, Saludos



Falconi Silvio
James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

help urgent : XBROWSE EDIT

Posted: Tue Jan 23, 2007 09:14 PM
Silvio,

This is what I use with TWBrowse to get alternating row colors. This works with filters, indexes, and deleted records. It should work with TXBrowse also.

James


Code: Select all Collapse
lClrFlag:=.f.

oLbx:bSkip:={| nRecs |  (nRecs:= ::oInvmast:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } 

oLbx:nClrPane := { || if(lClrFlag, rgb(255,255,235), rgb(192,208,179)) }
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
areang
Posts: 128
Joined: Mon Jul 31, 2006 03:23 PM

help urgent : XBROWSE EDIT

Posted: Wed Jan 24, 2007 12:13 AM

Mr. James

Can you give me full example ?
How to put this code on tx or tw class
Thank's

Regards
Areang

James Bott
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

help urgent : XBROWSE EDIT

Posted: Wed Jan 24, 2007 12:24 AM
Code: Select all Collapse
  define window oWnd

   use customer
   database oCust
   
   @ 0,0 listbox oLbx fields oCust:company, oCust:address alias oCust:cAlias of oWnd
   
   lClrFlag:=.f. 

   oLbx:bSkip:={| nRecs |  (nRecs:= ::oCust:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } 

   oLbx:nClrPane := { || if(lClrFlag, rgb(255,255,235), rgb(192,208,179)) }    
   
   oWnd:oClient:= oCust
   
   activate window oWnd
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Frank Demont
Posts: 142
Joined: Sun Oct 09, 2005 10:59 AM

help urgent : XBROWSE EDIT

Posted: Wed Jan 24, 2007 07:39 AM

Silvio,

I use :

oBrw:bClrStd := {|| {CLR_BLACK, iif( oBrw:nArrayAt % 2 = 0, CLR_1, CLR_2 ) } }

Frank

Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

help urgent : XBROWSE EDIT

Posted: Wed Jan 24, 2007 08:26 AM

thanks franks
I resolve for the colors ....

but i have the last problem
I want edit the field into xbrowse , the field is a date() type , How I can create a codeblock use with onpostedit clausole ?

Best Regards, Saludos



Falconi Silvio
areang
Posts: 128
Joined: Mon Jul 31, 2006 03:23 PM

help urgent : XBROWSE EDIT

Posted: Thu Jan 25, 2007 07:12 AM

Mr. James

Thank's for help

Regards
Areang

Continue the discussion

Static archive · New replies & topics via GitHub Discussions