PureBoard

Code: Alles auswählen

Procedure GetCellHeight( tree_view, pos.i )
  Protected.i cellHeight, cellWidth, offsetX, offsetY
  Protected rectangle.GdkRectangle ;Wie arbeit man damit richtig ?
  Protected *column.GtkTreeViewColumn
  Protected *CellRenderer.GtkCellRenderer
  Protected CellRendererList
  
  *column = gtk_tree_view_get_column_(GadgetID(tree_view), pos) ;Wie muss man die Position handhaben ?
  
  If *column
    CellRendererList = gtk_tree_view_column_get_cell_renderers_(*column)
    
    If CellRendererList
      *CellRenderer = g_list_nth_data_(CellRendererList, 1) ;Zellen-Renderer
      
      gtk_cell_renderer_get_size_(*CellRenderer, GadgetID(tree_view), 0, @offsetX, @offsetY, @cellWidth, @cellHeight)
      
    EndIf
  EndIf

  ProcedureReturn cellHeight
EndProcedure

Code: Alles auswählen

*CellRenderer = g_list_nth_data_(CellRendererList, 1) ;Setzt den Renderer
  
*CellRenderer\height = 80
  
Debug *CellRenderer\height

Code: Alles auswählen

EnableExplicit

ImportC ""
  gtk_scale_add_mark(*TrackBar.GtkScale, Value.D, Position.I, MarkupText.P-UTF8)
  gtk_tree_view_column_get_cell_renderers(*Column.GtkTreeViewColumn)
EndImport

Define *CellRenderer.GtkCellRenderer
Define CellRendererList.I
Define Column.I
Define i.I
Define OldRowHeight.L
Define RowHeight.L
Define RowWidth.L
Define TickMarkLabel.S
Define WindowEvent.I
Define xOffset.L
Define yOffset.L

OpenWindow(0, 200, 100, 390, 200, "Change TreeGadget's row height")
TreeGadget(0, 5, 5, WindowWidth(0) - 10, WindowHeight(0) - 120)
AddGadgetItem(0, -1, "Item 1", 0, 0)
AddGadgetItem(0, -1, "Subitem 1", 0, 1)
AddGadgetItem(0, -1, "Subitem 2", 0, 1)
SetGadgetItemState(0, 0, #PB_Tree_Expanded)

FrameGadget(1, 10, GadgetY(0) + GadgetHeight(0) + 10, WindowWidth(0) - 20, 90, "Row height:")
TrackBarGadget(2, GadgetX(1) + 10, GadgetY(1) + 20, GadgetWidth(1) - 20, 55, 19, 41, #PB_TrackBar_Ticks)

; ----- Draw even tick marks with labels

For i = 20 To 42 Step 2
  TickMarkLabel = Str(i)
  gtk_scale_add_mark(GadgetID(2), i, #GTK_POS_BOTTOM, TickMarkLabel)
Next i

; ----- Draw uneven tick marks without labels

For i = 19 To 41 Step 2
  gtk_scale_add_mark(GadgetID(2), i, #GTK_POS_BOTTOM, "")
Next i

; ----- Get column 0
Column = gtk_tree_view_get_column_(GadgetID(0), 0)

If Column
  ; ----- Get list of cell renderers for column 0
  CellRendererList = gtk_tree_view_column_get_cell_renderers(Column)
  
  If CellRendererList
    ; ----- Get 2nd cell renderer from list to obtain current row height
    *CellRenderer = g_list_nth_data_(CellRendererList, 1)

    ; ----- Get current row height and display it in TrackBar
    gtk_cell_renderer_get_size_(*CellRenderer, GadgetID(0), 0, @xOffset, @yOffset, @RowWidth, @RowHeight)
    SetGadgetState(2, RowHeight)
    OldRowHeight = RowHeight

    ; ----- Get 1st cell renderer from list for changing row height
    *CellRenderer = g_list_nth_data_(CellRendererList, 0)
  EndIf
EndIf

Repeat
  WindowEvent = WaitWindowEvent()

  Select WindowEvent
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget
      If EventGadget() = 2
        ; ----- Set new row height
        RowHeight = GetGadgetState(2)

        If RowHeight <> OldRowHeight
          *CellRenderer\height = RowHeight
          gtk_tree_view_column_clear_attributes_(Column, *CellRenderer)
          OldRowHeight = RowHeight
        EndIf
      EndIf
  EndSelect
ForEver

Code: Alles auswählen

EnableExplicit

ImportC ""
  gtk_widget_style_get(*Widget.GtkWidget, PropertyName.P-UTF8, *Value, Null)
EndImport

Procedure.I GetRowHeight(GadgetID.I)
  Protected *Column.GtkTreeViewColumn
  Protected RowHeight.I
  Protected VerticalSeparator.I

  *Column = gtk_tree_view_get_column_(GadgetID(GadgetID), 0)
  gtk_tree_view_column_cell_get_size_(*Column, 0, 0, 0, 0, @RowHeight)
  gtk_widget_style_get(GadgetID(GadgetID), "vertical-separator",
    @VerticalSeparator, 0)

  ProcedureReturn RowHeight + VerticalSeparator
EndProcedure

OpenWindow(0, 100, 100, 390, 100,
  "Ermittlung der Zeilenhöhe im TreeViewGadget")
TreeGadget(0, 5, 5, WindowWidth(0) - 10, WindowHeight(0) - 10)
AddGadgetItem(0, -1, "Item 1", 0, 0)
AddGadgetItem(0, -1, "Subitem 1", 0, 1)
AddGadgetItem(0, -1, "Subitem 2", 0, 1)
SetGadgetItemState(0, 0, #PB_Tree_Expanded)

While WindowEvent() : Wend ; Event-Flush, um dem TreeGadget Zeit zum Aufbau zu geben
MessageRequester("Info", "Zeilenhöhe: " + GetRowHeight(0))

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Alles auswählen

Ein Problem habe ich aber noch, das liegt aber eher daran, dass ich die Aufgabenstellung nicht korrekt beschrieben hatte:
Die Zellhöhe dürfte stimmen, aber es scheint da gibt's noch ein Spacing zwischen den Zeilen (bei meinem Wheezy 2 Pixel).
Bekomme ich das auch irgendwie ausgelesen?

Code: Alles auswählen

gtk_tree_view_column_set_spacing_(*Column, 2)
Spacing = gtk_tree_view_column_get_spacing_(*Column)

Code: Alles auswählen

;Angepasstes Beispiel durch ccode_new

EnableExplicit

Global treeview
Global Beenden.b
Global Event, EventType, EventGadget
Global DragGadget, DragItem, TargetItem
Global Verboten.b = #False
Global DropText.s

Enumeration
  #Drag_TreeView
EndEnumeration

;folgende Proceduren sind © by Andre on 6th May 2012
Procedure ListIconGadgetColumns(GadgetNo)
  Protected i
  i = 0
  While GetGadgetItemAttribute(GadgetNo, 0, #PB_ListIcon_ColumnWidth, i) > 0
    i + 1
  Wend
  ProcedureReturn i
EndProcedure

Procedure ListIconGadgetMove(GadgetNo.i, Source.i, Dest.i)
  Protected Columns, i, j, Help$, Source$
  Columns = ListIconGadgetColumns(GadgetNo) - 1
  For j = 0 To Columns
    Source$ = GetGadgetItemText(GadgetNo, Source, j)
    If Source < Dest
      For i = Source To Dest - 1
        Help$ = GetGadgetItemText(GadgetNo, i + 1, j)
        SetGadgetItemText(GadgetNo, i, Help$, j)
      Next i
    Else
      For i = Source To Dest + 1 Step - 1
        Help$ = GetGadgetItemText(GadgetNo, i - 1, j)
        SetGadgetItemText(GadgetNo, i, Help$, j)
      Next i
    EndIf
    SetGadgetItemText(GadgetNo, i, Source$, j)
  Next j
EndProcedure

Procedure ListViewGadgetMove(gad.i, Source.i, Dest.i)
  ; This procedure is written by Andre on the base of the ListIconGadgetMove() function found on the PB forum.
  ; It was enhanced to support also moving of listview item text and data, and to take care when the dropping
  ; is finished after the current displayed items (then use the last item as destination for the move operation).
  Protected i, ItemText$, ItemData, Source$, SourceData
  Source$ = GetGadgetItemText(gad, Source)
  SourceData = GetGadgetItemData(gad, Source)
  ;Debug "Dragged item (Source) = " + Str(Source) + ", Dropped at (Dest) = " + Str(Dest)
  ;If Source = -1 Or Dest = -1
  ;  Debug "Warning: Source = " + Str(Source) + ", Dest = " + Str(Dest)
  ;EndIf
  If Source = -1
    ; Sometimes it happens, that dragging an item (especially the first one) and dropping
    ; it at the same place cause a "DragStart" event, but the 'Source' parameter is -1.
    ; In this case don't make any chances and return to main event loop!
    ProcedureReturn
  EndIf
  If Dest = -1   
    ; The dragged item was dropped after the last item (giving -1 as result of GetGadgetState(),
    ; so we make the dragged one the last one now...
    Dest = CountGadgetItems(gad) - 1
  EndIf
  If Source < Dest
    For i = Source To Dest - 1
      ItemText$ = GetGadgetItemText(gad, i + 1)
      ItemData  = GetGadgetItemData(gad, i + 1)
      SetGadgetItemText(gad, i, ItemText$)
      SetGadgetItemData(gad, i, ItemData)
    Next
  Else
    For i = Source To Dest + 1 Step - 1
      ItemText$ = GetGadgetItemText(gad, i - 1)
      ItemData  = GetGadgetItemData(gad, i - 1)
      SetGadgetItemText(gad, i, ItemText$)
      SetGadgetItemData(gad, i, ItemData)
    Next
  EndIf
  SetGadgetItemText(gad, i, Source$)
  SetGadgetItemData(gad, i, SourceData)
EndProcedure

;...es geht weiter


Procedure DragCallback(*Context.GdkDragContext, isStart)
  If isStart = #False
    If GetGadgetItemText(treeview, DragItem) = "Ich bin nicht verschiebbar."
      MessageRequester("Ein Verbot ist aufgetreten.","Böse, Böse... Das darfst du nicht !!!",#PB_MessageRequester_Warning)
      Verboten = #True
    Else
      Verboten = #False
    EndIf
  EndIf
EndProcedure

OpenWindow(0, 0, 0, 640, 480, "Privates verschieben", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

SetDragCallback(@DragCallback())

TextGadget(0, 10, 10, 400, 20, "Dies ist ein Baum-Element (auch Gadget genannt) ;):")
treeview = TreeGadget(#PB_Any, 10, 40, 630, 470)

AddGadgetItem(treeview, 0, "Ich bin verschiebbar.",0,0)
AddGadgetItem(treeview, 1, "Ich bin mit verschiebbar.",0,1)
AddGadgetItem(treeview, 2, "Ich bin nicht verschiebbar.",0,0)
AddGadgetItem(treeview, 3, "Ich bin aber auch verschiebbar.",0,1)

EnableGadgetDrop(treeview, #PB_Drop_Private, #PB_Drag_Move, #Drag_TreeView)

Beenden = #False
DragItem = -1

;Dies ist eine Schleife (sogar eine gaaanz wichtige Schleife)
Repeat
  Event = WaitWindowEvent()
  EventType = EventType()
  EventGadget = EventGadget()
 
  Select Event
    Case #PB_Event_Gadget
      Select EventGadget
        Case treeview
          Select EventType
            Case #PB_EventType_DragStart
              DragGadget = EventGadget
              DragItem = GetGadgetState(DragGadget)
              If DragGadget = treeview
                DragPrivate(#Drag_TreeView, #PB_Drag_Move)
              EndIf
          EndSelect
      EndSelect
    Case #PB_Event_GadgetDrop
      If Verboten = #False
        EventGadget = GetActiveGadget()
        TargetItem = GetGadgetState(EventGadget)
        If EventDropPrivate() = #Drag_TreeView
          ListViewGadgetMove(EventGadget, DragItem, TargetItem)
        EndIf
      EndIf
    Case #PB_Event_CloseWindow
      Beenden = #True
  EndSelect
 
Until Beenden

Code: Alles auswählen

ImportC ""
  gtk_widget_style_get(*Widget.GtkWidget, PropertyName.P-UTF8, *Value, Null)
EndImport

gtk_widget_style_get(GadgetID(GadgetID), "vertical-separator",
  @VerticalSeparator, 0)
Debug "VerticalSeparator: " + VerticalSeparator