XBROWSE : METHOD DataRow() -> TDataRow()

[Jimmy]

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

"inside" DIALOG it use TScrollPanel() and use "fix" Color CLR_BLACK

Code: Select all  Expand view  RUN

  oPanel:SetColor( CLR_BLACK, oDlg:nClrPane )

can i change Color of Panel

it is all for "Dark-Mode"

[Marc Venken]

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.

[nageswaragunupudi]

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  RUN

oBrw:bEdit := { |oRec| OurEditFunction( oRec )

oRec is TDataRow object

Code: Select all  Expand view  RUN

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
 

[nageswaragunupudi]

can i change Color of Panel

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.

[Jimmy]

hi Marc,

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

you are right, but i like to use what already exist

[Jimmy]

hi,

If you like, we will share the revised program with you too.

YES, please