Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Listview comes hidden inside the container
Message
De
05/07/2016 13:30:24
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
Listview comes hidden inside the container
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01637921
Message ID:
01637921
Vues:
58
Hi all,

This is an old issue... but for a new one problem...

If I recall, I had this same problem on the past...

But, I can recall the way to deal with that...

By a user button, The app. creates a new container, with a hidden listview inside...

Basically, I populate with that code... But, listview I got visible, only if I click in the place where should be the list...
With This
	With .olecontrol1
		=SendMessage(.hWnd, WM_SETREDRAW ,.T.,0)
		.listitems.Clear
		Select cur_implics
		Scan
			o                    = .listitems.Add
			With o
				.Text		 = cur_implics.razaosoc
				.Tag		 = cur_implics.cid
				.SubItems(1) = Transform(cur_implics.nqttits, "9999")
				.SubItems(2) = Transform(cur_implics.npmp, "9999")
				.SubItems(3) = cur_implics.ctipo
				.ForeColor	 = Iif( cur_implics.ctipo = "F", Rgb(182, 190, 213), Rgb(60, 180, 60) )
				For Each loSubItem In DateList.ListSubItems
					loSubItem.ForeColor = Iif(cur_implics.ctipo = "F", Rgb(182, 190, 213), Rgb(60, 180, 60) )
				Endfor
			Endwith
			lnqt = lnqt + 1
		Endscan
		If  lnqt > 0
			.EnsureVisible(1)
		ENDIF
		.visible=.t.
	Endwith
	=SendMessage(.hWnd, WM_SETREDRAW ,.F.,0)
	*.visible=.t.
	.Draw()
	*
Endwith
TIA
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform