Get and Set ListIcon Headers

Karbon · Post by **Karbon** » Mon Dec 15, 2003 12:18 am

Code updated for 5.20+

Many thanks to Danilo!

;     Structure LVCOLUMN
;       mask.l
;       fmt.l
;       cx.l
;       pszText.s
;       cchTextMax.l
;       iSubItem.l
;       iImage.l
;       iOrder.l
;     EndStructure


Procedure SetListIconColumnText(Gadget,index,HeaderText.s)
	
	lvc.LVCOLUMN
	lvc\mask    = #LVCF_TEXT
	lvc\pszText = @HeaderText
	SendMessage_(GadgetID(Gadget),#LVM_SETCOLUMN,index,@lvc)
	
EndProcedure


Procedure.s GetListIconColumnText(Gadget,index)
	Protected.s TempString			; temporary string for spaces
	lvc.LVCOLUMN
	lvc\mask = #LVCF_TEXT
	TempString = Space(255)
	lvc\pszText = @TempString
	lvc\cchTextMax = 255
	
	SendMessage_(GadgetID(Gadget),#LVM_GETCOLUMN,index,@lvc)
	
	ProcedureReturn PeekS(lvc\pszText)
	
EndProcedure

Kale · Post by **Kale** » Mon Dec 15, 2003 12:31 am

Or: viewtopic.php?t=6801

Karbon · Post by **Karbon** » Mon Dec 15, 2003 12:35 am

Yep, there is a little bug in that lib that I've been trying to help Denis track down. It's not fixed yet but I'm sure it will be soon!

Denis · Post by **Denis** » Tue Dec 16, 2003 1:34 pm

Hi Karbon

did you still have a bug under XP pro ?
As i tell you, it's working well with Win98 and XP home edition on my PC.
But i will continue to try to understand what's wrong.

Denis

Karbon · Post by **Karbon** » Wed Dec 17, 2003 3:36 pm

Hey Denis, I just got back into town and will be testing the new lib in a few minutes! I'll drop you an email with the results!

Thanks!