Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to enable just one row on grid
Message
De
10/11/2000 03:54:45
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
 
 
À
10/11/2000 02:13:46
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00438157
Message ID:
00440083
Vues:
13
>>How to enable just one row on grid?
>
>Something like:
>
>
if mdown() &&We clicked somewhere
>	lnNewRow = 0
>	this.GridHitTest(mcol(), mrow(), '', @lnNewRow)
>	if lnNewRow <> this.relativerow
>		*** We are moving rows!
>		nodefault
>	else
>		*** We are moving columns!
>	endif
>else
>	if inlist(lastkey(), 18, 3, 5, 24)
>		*** We are moving rows!
>		nodefault
>	else
>		*** We are moving columns!
>	endif
>endif
>Of course VFP7 makes this easier with RowColChange.

VFP5 compatible version :)
*BeforeRowColChange
  if mdown()
    lnBottom	= objtoclient(this,1)+.headerheight+.relativerow * .rowheight
    lnTop	  = lnBottom - this.rowheight
    lnMouseRowPos = mrow(wontop(),3)
    lnMouseColPos = mcol(wontop(),3)
    llChangingRow = !(between(lnMouseRowPos,lnTop, lnBottom) ;
                    and between(lnMouseColPos,;
                    objtoclient(this,2),objtoclient(this,2)+.width))
  else
    llChangingRow = inlist(lastkey(),24,5,18,3,145,148)
  endif
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform