PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Select cell in a ListIconGadget

https://www.purebasic.fr/english/viewtopic.php?t=23673

Page 2 of 2

Posted: Tue Sep 30, 2008 3:14 pm
by srod
Both 'problems' are just the obvious behaviour considering the lack of checks that you are putting in!

For the first problem why don't you simply add some checks for hitinfo\iItem and hitinfo\iSubItem equaling -1?

For the second problem... well, what do you expect? You can't add text to non-existent cells! Line 13, 14, 15... etc. do not actually exist! Either add some extra rows containing no text to begin with or, in the case that hitinfo\iItem = -1 but hitinfo\iSubItem >=0, add an extra row and then show the editing window etc.

Posted: Tue Sep 30, 2008 4:24 pm
by Kwai chang caine
Either add some extra rows containing no text to begin with or, in the case that hitinfo\iItem = -1 but hitinfo\iSubItem >=0, add an extra row and then show the editing window etc.
Thanks SROD, i try to do the two solution, and choose the more simple for me.

Thanks again for your help :D

Posted: Tue Sep 30, 2008 4:57 pm
by srod
No problem. :)

Posted: Thu Oct 02, 2008 5:29 pm
by Kwai chang caine
After severals hours of reflexion and read the forum .....for added line automatiquely, if i clik on a empty cell.

I have modified the code :oops:
He works approximatively fine :roll:

Please, can you say to me, if it's good or if i must go to my bed :lol:

Thank you

PS: i have added the comment "; Line added" on the line modified :wink:

Code: Select all

#LVM_SUBITEMHITTEST = #LVM_FIRST + 57 
Global oldlist,lv 

Procedure.s GetNewText(item,subitem,xpos) 
  
  OpenWindow(1, xpos + 150,DesktopMouseY()+10,260,20,"",#PB_Window_BorderLess) 
  GetWindowRect_(WindowID(1), editrect.rect) 
  ClipCursor_(editrect) 
  CreateGadgetList(WindowID(1)) 
  StringGadget(1,0,0,190,20,"") 
  ButtonGadget(2,190,0,30,20,"OK") 
  ButtonGadget(3,220,0,40,20,"Cancel") 
  SetActiveGadget(1) 
  AddKeyboardShortcut(1,#PB_Shortcut_Return,1) 
  SetGadgetItemColor(0,item,#PB_Gadget_BackColor,RGB(200,200,200),subitem) 
  quit=0 
  
  Repeat 
    ev=WaitWindowEvent() 
      If EventWindow()=1 
      Select ev 
        Case #PB_Event_Menu 
          If EventMenu()=1 
            SetGadgetItemText(0,item,GetGadgetText(1),SubItem) 
            CloseWindow(1) 
            quit = 1 
          EndIf 
        Case #PB_Event_Gadget 
          If EventGadget()=2 
            SetGadgetItemText(0,item,GetGadgetText(1),SubItem) 
            CloseWindow(1) 
            quit = 1      
          ElseIf EventGadget() = 3 
            CloseWindow(1) 
            quit = 1    
          EndIf 
      EndSelect 
   EndIf    
  Until quit 
  
  SetGadgetItemColor(0,item,#PB_Gadget_BackColor,#White,subitem) 
  
  ClipCursor_(0) 
EndProcedure 

Procedure SubClass_LV(hwnd, msg, wparam, lparam) 

 Result = CallWindowProc_(oldlist, hwnd, msg, wparam, lparam) 
  
 If Msg = #WM_RBUTTONDOWN 
  HitInfo.LVHITTESTINFO 
  Hitinfo\pt\x = lparam & $ffff 
  HitInfo\pt\y = lparam >> 16&$ffff 
  SendMessage_(lv, #LVM_SUBITEMHITTEST, 0, @HitInfo) 
  
  If hitinfo\iItem <> - 1 ; Line added
  
   GetNewText(hitinfo\iItem, hitinfo\iSubItem, Hitinfo\pt\x) 
  
  Else ; Line added
   
   Repeat ; Line added
        
    ; Calcul de la hauteur d'une ligne
    lrc.RECT ; Line added
    lrc\left = #LVIR_LABEL ; Line added
    SendMessage_(GadgetID(0), #LVM_GETITEMRECT, 1, lrc) ; Line added
    TotalLignes = (lrc\bottom - lrc\top) * CountGadgetItems(0) ; Line added
    Y = lparam >> 16&$ffff; Line added
     
    If Y < TotalLignes ; Line added
     Break ; Line added
    EndIf ; Line added
     
    AddGadgetItem(0, -1, "") ; Line added
  
   ForEver ; Line added
  EndIf ; Line added
 EndIf 
  
 ProcedureReturn result 
  
EndProcedure 

OpenWindow(0,0,0,640,480,"ListIcon Gadget Mischief: Edit Selected Item",$CF0001) 
CreateGadgetList(WindowID(0)) 
lv = ListIconGadget(0,0,100,640,280,"",0,#PB_ListIcon_GridLines) 
AddGadgetColumn(0,1,"Column 1",210) 
AddGadgetColumn(0,2,"Column 2",210) 
AddGadgetColumn(0,3,"Column 3",215) 

For i = 1 To 12 
  linestr.s = LSet(Str(i),3," ") 
  AddGadgetItem(0, -1, Chr(10)+"Text on Line "+linestr+" in Column 1"+Chr(10)+"Text on Line "+linestr+" in Column 2"+Chr(10)+"Text on Line "+linestr+" in Column 3") 
Next 
  
oldlist=SetWindowLong_(lv, #GWL_WNDPROC, @SubClass_LV()) 

Repeat 
  ev = WaitWindowEvent() 
Until ev=#WM_CLOSE

Posted: Fri Oct 03, 2008 8:11 am
by Kwai chang caine
I have fixed the bug that i'm forced to click two times for do appears the newtext.
Like usualy, i'm happy to have your help if you see an error :D

Code: Select all

#LVM_SUBITEMHITTEST = #LVM_FIRST + 57 
Global oldlist,lv 

Procedure.s GetNewText(item,subitem,xpos) 
  
  OpenWindow(1, xpos + 150,DesktopMouseY()+10,260,20,"",#PB_Window_BorderLess) 
  GetWindowRect_(WindowID(1), editrect.rect) 
  ClipCursor_(editrect) 
  CreateGadgetList(WindowID(1)) 
  StringGadget(1,0,0,190,20,"") 
  ButtonGadget(2,190,0,30,20,"OK") 
  ButtonGadget(3,220,0,40,20,"Cancel") 
  SetActiveGadget(1) 
  AddKeyboardShortcut(1,#PB_Shortcut_Return,1) 
  SetGadgetItemColor(0,item,#PB_Gadget_BackColor,RGB(200,200,200),subitem) 
  quit=0 
  
  Repeat 
    ev=WaitWindowEvent() 
      If EventWindow()=1 
      Select ev 
        Case #PB_Event_Menu 
          If EventMenu()=1 
            SetGadgetItemText(0,item,GetGadgetText(1),SubItem) 
            CloseWindow(1) 
            quit = 1 
          EndIf 
        Case #PB_Event_Gadget 
          If EventGadget()=2 
            SetGadgetItemText(0,item,GetGadgetText(1),SubItem) 
            CloseWindow(1) 
            quit = 1      
          ElseIf EventGadget() = 3 
            CloseWindow(1) 
            quit = 1    
          EndIf 
      EndSelect 
   EndIf    
  Until quit 
  
  SetGadgetItemColor(0,item,#PB_Gadget_BackColor,#White,subitem) 
  
  ClipCursor_(0) 
EndProcedure 

Procedure SubClass_LV(hwnd, msg, wparam, lparam) 

 Result = CallWindowProc_(oldlist, hwnd, msg, wparam, lparam) 
  
 If Msg = #WM_RBUTTONDOWN 
  HitInfo.LVHITTESTINFO 
  Hitinfo\pt\x = lparam & $ffff 
  HitInfo\pt\y = lparam >> 16&$ffff 
  SendMessage_(lv, #LVM_SUBITEMHITTEST, 0, @HitInfo) 
  
  If hitinfo\iItem <> - 1 ; Line added 
  
   GetNewText(hitinfo\iItem, hitinfo\iSubItem, Hitinfo\pt\x) 
  
  Else ; Line added 
    
   Repeat ; Line added 
        
    ; Calcul de la hauteur d'une ligne 
    lrc.RECT ; Line added 
    lrc\left = #LVIR_LABEL ; Line added 
    SendMessage_(GadgetID(0), #LVM_GETITEMRECT, 1, lrc) ; Line added 
    TotalLignes = (lrc\bottom - lrc\top) * CountGadgetItems(0) ; Line added 
    Y = lparam >> 16&$ffff; Line added 
      
    If Y < TotalLignes ; Line added 
     SendMessage_(lv, #LVM_SUBITEMHITTEST, 0, @HitInfo) ; Line added 
     GetNewText(hitinfo\iItem, hitinfo\iSubItem, Hitinfo\pt\x)  ; Line added 
     Break ; Line added 
    EndIf ; Line added 
      
    AddGadgetItem(0, -1, "") ; Line added 
  
   ForEver ; Line added 
  EndIf ; Line added 
 EndIf 
  
 ProcedureReturn result 
  
EndProcedure 

OpenWindow(0,0,0,640,480,"ListIcon Gadget Mischief: Edit Selected Item",$CF0001) 
CreateGadgetList(WindowID(0)) 
lv = ListIconGadget(0,0,100,640,280,"",0,#PB_ListIcon_GridLines) 
AddGadgetColumn(0,1,"Column 1",210) 
AddGadgetColumn(0,2,"Column 2",210) 
AddGadgetColumn(0,3,"Column 3",215) 

For i = 1 To 12 
  linestr.s = LSet(Str(i),3," ") 
  AddGadgetItem(0, -1, Chr(10)+"Text on Line "+linestr+" in Column 1"+Chr(10)+"Text on Line "+linestr+" in Column 2"+Chr(10)+"Text on Line "+linestr+" in Column 3") 
Next 
  
oldlist=SetWindowLong_(lv, #GWL_WNDPROC, @SubClass_LV()) 

Repeat 
  ev = WaitWindowEvent() 
Until ev=#WM_CLOSE
All times are UTC+01:00
Page 2 of 2

Powered by phpBB® Forum Software © phpBB Limited