PureBasic Forums - English

Code: Select all

Procedure TEST_PROC()
  Debug egrid_GetCellText(1, 1,0)
  tarea.s = egrid_GetCellText(1, 1,0)
  ;MessageRequester("TEST IN COL1, ROW0", tarea)
EndProcedure

Procedure.l MyCellCallBack(egrid, uMsg, *cellinfo.egridCellInfo)
  Protected result, width, height
  Select uMsg

    Case #egrid_NotifyCellType
      If *cellinfo\column = 0
          *cellinfo\celltype=#egrid_CustomCell
      EndIf
    Default 
      result = #True; This accounts for all messages we have decided not to process.
  EndSelect
  ProcedureReturn result
EndProcedure
;******************************************************************************************

;*************************************WINDOW + GADGET LIST*********************************
If OpenWindow(0,0,0,640,300,"EsGRID demo 9.",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_Maximize|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
  ;******************************************************************************************
  CreateMenu(0,WindowID(0))
  MenuTitle("test")
  MenuItem(1, "testing")
  ;********************************************EGRID*****************************************
  ;Create an egrid with resizable columns.
    egrid_CreateGrid(1, WindowWidth(0)/4, WindowHeight(0)/8, WindowWidth(0)/2, WindowHeight(0)/2,48,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)


  ;**********************************SET CELLCALLBACK FUNCTION*******************************
  ;Set the callback early to avoid massive flickering when populating the egrid with initial data.
    egrid_CreateCellCallback(1, @MyCellCallBack())
  ;******************************************************************************************
  ;***************************************ADD DATA TO EGRID**********************************
  egrid_AddColumn(1,0,"CUSTOM CELLS",120)
  For i = 1 To 10
    egrid_AddColumn(1,-1,"",80) ;Some dummy columns.
  Next
  egrid_AddRows(1,-1, 20) ;20 rows.

  ;******************************************************************************************
  
  ;*****************************************EVENT LOOP***************************************

  egrid_SetCellText(1, 1,0, "Hi, Im a test")
  
  Repeat
    EventID = WaitWindowEvent()
    
    If EventID=#PB_Event_Menu And  EventMenu()=1
        MessageRequester("hello", "go to TEST_PROC")
        TEST_PROC()
    EndIf
      
  Until EventID = #PB_Event_CloseWindow
  MessageRequester("info", "end program")
EndIf
  
End

Code: Select all

ProcedureDLL.s HeyHo(a)
  Protected a$
  a$=Str(a)
  ProcedureReturn a$
EndProcedure

Code: Select all

Procedure TEST_PROC() 
  tarea.s = HeyHo(100) 
  MessageRequester("Bloody hell's bells!", tarea) 
EndProcedure 

If OpenWindow(0,0,0,640,300,"Tally bally ho!",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_Maximize|#PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
  CreateMenu(0,WindowID(0)) 
  MenuTitle("test") 
  MenuItem(1, "testing") 
  Repeat 
    EventID = WaitWindowEvent() 
    If EventID=#PB_Event_Menu And  EventMenu()=1 
      TEST_PROC() 
    EndIf 
  Until EventID = #PB_Event_CloseWindow 
EndIf