..
Und für den Start reicht auch das
GridEx-Modul zu.
Das funktioniert auch sehr gut unter Linux mit Qt.
Hier einmal ein schnelles kleines Beispiel:
Code: Alles auswählen
Enumeration
#Win
#Grid
EndEnumeration
Global row, column, Event
If OpenWindow(#Win, 0, 0, 800, 470, "GridEX - Gadget - Test", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
row = 10 : column = 3
GridEx::Gadget(#Win, #Grid, 10, 10, 780, 450, row, column, GridEx::#Border|GridEx::#ScrollBars)
GridEx::SetCellAlign(#Grid, 1, 1, GridEx::#Center)
GridEx::SetCellType(#Grid, 1, 1, GridEx::#Edit) ;Editierbar
GridEx::SetCellColor(#Grid, 1, 1, #PB_Gadget_BackColor, $00FFFF) ;BGR
GridEx::SetCellFont(#Grid, 2, 2, "Arial", 16)
GridEx::SetCellColor(#Grid, 2, 2, #PB_Gadget_FrontColor, $0000FF) ;BGR
GridEx::SetCellText(#Grid, 2, 2, "Hallo kmais!")
GridEx::SetColumnWidth(#Grid, 2, 200)
GridEx::SetRowHeight(#Grid, 2, 100)
GridEx::Refresh(#Grid)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Grid
If EventType() = #PB_EventType_LeftClick
Debug "aktuelle Zeile: " + Str(GridEx::GetCurrentCell(#Grid, GridEx::#Row))
Debug "aktuelle Spalte: " + Str(GridEx::GetCurrentCell(#Grid, GridEx::#Column))
EndIf
EndSelect
Case #PB_Event_Menu
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
Betriebssysteme: div. Windows, Linux, Unix - Systeme
no Keyboard, press any key
no mouse, you need a cat