Jayesh
Thanks again for responding. I tried your recommendations and they didn't do the trick. I still get the flicker. I have included the code because I thought you might be curious, but please, feel no need to respond. Both I and my users can live with the flicker. This procedure is called from the scolled method of the active form (hard to read without indention
PROCEDURE scrollCmdGroupBtns
LOCAL gap
*thisform.LockScreen = .T.
*_screen.LockScreen = .T.
WITH &gActiveform
gap = .ViewPortTop - .clsDataDesc.top
DO case
CASE .clscmdgrpNavbtns.Visible
*.clscmdgrpNavbtns.visible = .F.
.clscmdgrpNavbtns.Top = gap + 15
.clshotKeyMsg.top = .clscmdgrpNavbtns.height + .clscmdgrpNavbtns.top
*.clscmdgrpNavBtns.visible = .T.
CASE .clscmdGrpAddBtns.visible
.clscmdGrpAddBtns.Top = gap + 15
.clshotKeyMsg.top = .clscmdGrpAddBtns.height + .clscmdGrpAddBtns.top
CASE .clscmdgrpEditBtns.visible
.clscmdgrpEditBtns.Top = gap + 15
.clshotKeyMsg.top = .clscmdgrpEditBtns.height + .clscmdgrpEditBtns.top
ENDCASE
ENDWITH
&gActiveForm..refresh
_screen.Refresh
*_screen.LockScreen = .F.
*thisform.LockScreen = .F.
RETURN
Thanks again, Vince
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement