* thisForm.MyGrid as Ficgrd (of ficsample.vcx) as Grid
* Source code read from "rowcolchange.scx" and colorized at 10/27/2023 05:34:38 AM
ColumnCount = 3
Anchor = 10
RecordSource = "myGridCursor"
ScrollBars = 0
AllowCellSelection = .F.
Ficgrc1.HeaderClassLibrary = ..\tutosets.prg
Ficgrc1.HeaderClass = "ficGrh"
Ficgrc1.ControlSource = ""
Ficgrc2.HeaderClassLibrary = ..\tutosets.prg
Ficgrc2.HeaderClass = "ficGrh"
Ficgrc2.ControlSource = ""
Ficgrc3.HeaderClassLibrary = ..\tutosets.prg
Ficgrc3.HeaderClass = "ficGrh"
* ——————————————————————————————————————————————————————————————————————————————
PROCEDURE AfterRowColChange
lparameters nColIndex
thisForm.Refresh
ENDPROC
* thisForm.MyGrid as Ficgrd (of ficsample.vcx) as Grid
* Source code read from "rowcolchange.scx" and colorized at 10/27/2023 05:34:38 AM
ColumnCount = 3
Anchor = 10
RecordSource = "myGridCursor"
ScrollBars = 0
AllowCellSelection = .F.
Ficgrc1.HeaderClassLibrary = ..\tutosets.prg
Ficgrc1.HeaderClass = "ficGrh"
Ficgrc1.ControlSource = ""
Ficgrc2.HeaderClassLibrary = ..\tutosets.prg
Ficgrc2.HeaderClass = "ficGrh"
Ficgrc2.ControlSource = ""
Ficgrc3.HeaderClassLibrary = ..\tutosets.prg
Ficgrc3.HeaderClass = "ficGrh"
* ——————————————————————————————————————————————————————————————————————————————
PROCEDURE wAfterRowChange && {en} After Row change - see this.AfterRowColChange() {fr} Après le changement de ligne - cf. this.AfterRowColChange()
LPARAMETERS tuRow && @ {fr} identifiant de la ligne (voir détails dans code parent) {en} line identifier (see details in parent code)
&& {fr} Adaptation manuelle FoxInCloud : .wAfterRowChange() ici se trouve le code d'après changement de ligne déplacé de .AfterRowColChange() {en} FoxInCloud manual adaptation: .wAfterRowChange() has after row change code moved from .AfterRowColChange()
&& tuRow = Iif(Empty(Order(this.RecordSource));
&& , Recno(this.RecordSource);
&& , {en} <this.RecordSource primary or candidate key value> {fr} <valeur de la clé primaire ou candidate de this.RecordSource>;
&& )
IF (TYPE('m.thisForm.wlHTMLGen') == 'L' AND m.thisForm.wlHTMLGen)
&& {fr} Ce qui suit est exécuté lors de la génération de HTML
&& - TRAITER L'ÉVÉNEMENT SUR LE SERVEUR : RETURN .T. (défaut)
&& {en} What follows is executed during HTML generation
&& - PROCESS EVENT ON SERVER: RETURN .T. (default)
RETURN .T. && value defines how event is handled:
ENDIF
IF DODEFAULT(@m.tuRow) && {en} very important {fr} très important
&& {en} Code of row change MOVED from this.AfterRowColChange()
&& {fr} Code du changement de ligne déplacé depuis this.AfterRowColChange()
thisForm.Refresh
ENDIF
ENDPROC