Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Listview comes hidden inside the container
Message
From
05/07/2016 13:30:24
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Listview comes hidden inside the container
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01637921
Message ID:
01637921
Views:
63
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
Next
Reply
Map
View

Click here to load this message in the networking platform