Wie aendere ich den Column HeaderNamen eines ListIconGadgets

[guruk]

Wie aendere ich den Text einer Column in einem ListIconGadget... ohne diese Columns mit Remove zu loeschen und mit Add neu zuerstellen?

Danke fuer eure Tips schon im Vorraus

chris

[Eckhard]

Hi guruk,

hier mal ein Beispiel aus dem Code-Archiv!

Code: Alles auswählen

; 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 

Gruss
Eckhard!