; English forum: http://purebasic.myforums.net/viewtopic.php?t=8741&highlight= ; Author: Karbon ; Date: 15. December 2003 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) lvc.LVCOLUMN lvc\mask = #LVCF_TEXT lvc\pszText = Space(255) lvc\cchTextMax = 255 SendMessage_(GadgetID(Gadget),#LVM_GETCOLUMN,index,@lvc) ProcedureReturn PeekS(lvc\pszText) EndProcedure ; ExecutableFormat=Windows ; FirstLine=1 ; EOF