XBROWSE : METHOD DataRow() -> TDataRow()

XBROWSE : METHOD DataRow() -> TDataRow()

Postby Jimmy » Fri May 05, 2023 8:20 am

hi,

when using METHOD EditSource() it will use METHOD Edit() which use CLASS TDataRow

CLASS TDataRow have a METHOD Edit() which is use a DIALOG
can i "color" this DIALOG :idea:

"inside" DIALOG it use TScrollPanel() and use "fix" Color CLR_BLACK
Code: Select all  Expand view
  oPanel:SetColor( CLR_BLACK, oDlg:nClrPane )

can i change Color of Panel :idea:

it is all for "Dark-Mode"
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: XBROWSE : METHOD DataRow() -> TDataRow()

Postby Marc Venken » Fri May 05, 2023 11:56 am

WITH OBJECT oBrw
:nEditTypes := EDIT_GET
:bLDClickDatas := { || oBrw:EditSource() } // or { || youreditfunction() }
:CreateFromCode()
END

You can always make your own editdialog in all style you like.
Marc Venken
Using: FWH 23.04 with Harbour
User avatar
Marc Venken
 
Posts: 1425
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium

Re: XBROWSE : METHOD DataRow() -> TDataRow()

Postby nageswaragunupudi » Sat May 06, 2023 1:50 pm

Marc Venken wrote:WITH OBJECT oBrw
:nEditTypes := EDIT_GET
:bLDClickDatas := { || oBrw:EditSource() } // or { || youreditfunction() }
:CreateFromCode()
END

You can always make your own editdialog in all style you like.


We recommend
Code: Select all  Expand view
oBrw:bEdit := { |oRec| OurEditFunction( oRec )

oRec is TDataRow object
Code: Select all  Expand view

function OurEditFunction( oRec )

   local lAppending := ( oRec:RecNo == 0 )

   @ r,c GET oRec:fieldName .... <other clauses>

// buttons for
// oRec:Save(), oRec:Undo()
// even oRec:GoTop() etc, navigation
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: XBROWSE : METHOD DataRow() -> TDataRow()

Postby nageswaragunupudi » Sat May 06, 2023 1:53 pm

can i change Color of Panel :idea:

it is all for "Dark-Mode"

At present, it is not possible without modifying the source code of TDataRow class.
But soon we will provide a way to do it from the Application code and let you know.
If you like, we will share the revised program with you too.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: XBROWSE : METHOD DataRow() -> TDataRow()

Postby Jimmy » Mon May 08, 2023 12:19 pm

hi Marc,
Marc Venken wrote:You can always make your own editdialog in all style you like.

you are right, but i like to use what already exist
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: XBROWSE : METHOD DataRow() -> TDataRow()

Postby Jimmy » Mon May 08, 2023 12:20 pm

hi,
nageswaragunupudi wrote:If you like, we will share the revised program with you too.

YES, please
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 51 guests

cron