Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Header tooltip problem
Message
De
09/09/2005 10:33:26
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Header tooltip problem
Divers
Thread ID:
01048119
Message ID:
01048119
Vues:
58
Hi all, This is a problem (bug?) that exists in VFP8 and fixed in VFP9. The problem is that, column C3's tooltip shows C2's tooltip, which is hidden, when you hover the mouse over it. Is there a workaround for this problem in VFP8?
oform = createobject('form1')
oform.show(1)
define class form1 as form
   showtips = .t.
   caption = "Form1"
   name = "Form1"
   add object grid1 as grid with ;
      columncount = 4, ;
      height = 216, ;
      left = 12, ;
      top = 12, ;
      width = 348, ;
      name = "Grid1", ;
      Column1.name = "Column1", ;
      Column2.visible = .f., ;
      Column2.name = "Column2", ;
      Column3.name = "Column3", ;
      Column4.name = "Column4"
   procedure load
      create cursor test (f1 i, f2 i, f3 i, f4 i)
      insert into test values (1,2,3,4)
   endproc
   procedure init()
      with this.grid1.Column1.header1
         .caption = "C1"
         .tooltiptext = "C1"
      endwith
      with this.grid1.Column2.header1
         .caption = "C2"
         .tooltiptext = "C2"
      endwith
      with this.grid1.Column3.header1
         .caption = "C3"
         .tooltiptext = "C3"
      endwith
      with this.grid1.Column4.header1
         .caption = "C4"
         .tooltiptext = "C4"
      endwith
   endproc
enddefine
ramil
~~ learning to stand still
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform