Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can not get the logic right
Message
De
23/06/2009 10:29:54
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01407699
Message ID:
01407790
Vues:
41
This message has been marked as a message which has helped to the initial question of the thread.
My first impression is that it is not refreshed properly. Could you toggle Form.Lockscreen=.T./.F. around your code?

>Jim/Ed,
>
>I'm sorry, but do you see why this code
>
>DODEFAULT()
>LOCAL lnAdjust, lnButtonsHeight, lnNewTop, lnBetweenListsSpace, lnExtraWidth, lnNewHeight
>
>lnNewHeight = (this.Height - this.lstDestination.Top - 2)
>
>STORE  m.lnNewHeight TO this.lstDestination.Height, this.lstSource.Height
>
>lnButtonsHeight = 132
>lnNewTop = (m.lnNewHeight - m.lnButtonsHeight)/2
>lnAdjust =  m.lnNewTop - this.cmdMoveOne.Top
>
>this.cmdMoveOne.Top = m.lnNewTop
>this.cmdMoveAll.Top = this.cmdMoveAll.Top + m.lnAdjust   
>this.cmdReMoveOne.Top = this.cmdReMoveOne.Top + m.lnAdjust  
>this.cmdReMoveAll.Top = this.cmdReMoveAll.Top + m.lnAdjust  
>
>lnBetweenListsSpace = this.lstDestination.Left - this.lstSource.Width 
>lnExtraWidth = (this.Width - (2*this.lstDestination.Width + m.lnBetweenListsSpace))/2
>STORE (this.lstDestination.Width + m.lnExtraWidth) TO this.lstSource.Width, this.lblDestination.Width 
>STORE (this.cmdMoveAll.Left + m.lnExtraWidth) TO this.cmdMoveAll.Left, this.cmdMoveOne.Left, ;
> 												 this.cmdReMoveAll.Left, this.cmdReMoveOne.Left
>this.lblDestination.Left = this.lblDestination.Left + m.lnExtraWidth
>this.lstDestination.Left = this.lstDestination.Left + m.lnExtraWidth 
>
>*STORE 45 TO this.lstDestination.Anchor, this.lstSource.Anchor 
>*STORE 768 TO this.cmdMoveAll.Anchor, this.cmdMoveOne.Anchor, this.cmdRemoveAll.Anchor, this.cmdRemoveOne.Anchor
>
>produces the attached image? Both lists are supposed to be the same in height - why the first one is different than the second?
>
>And also what is wrong with the buttons positions? I want to position them in the middle of the listboxes.
Edward Pikman
Independent Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform