### Buchungsdaten-Daten my $lblBuchungsdaten = $regEigentuemer->new_ttk__label(-text => 'Buchungsdaten', -font =>"TkDefaultFont $schrHoehe normal", -width => 13, -anchor => 'w'); $lblBuchungsdaten->g_grid(-column => 0, -columnspan => 2, -row => 0, -padx => 2, -pady => 2); # Treeview-Steuerelement erzeugen my $treeBuch = $regEigentuemer->new_ttk__treeview(-columns => "Gr-Band Gr-Blatt Buchungsart Anteil Bu-Kz", -height => 2, -show => 'headings'); $treeBuch->g_grid(-column => 0, -row => 1, -padx => 2, -pady => 2, -sticky => 'nwes'); $treeBuch->tag_configure('ttk', -font =>"Helvetica $schrHoehe normal"); # Überschriften setzen $treeBuch->heading('Gr-Band', -text => 'Gr-Band'); $treeBuch->heading('Gr-Blatt', -text => 'Gr-Blatt'); $treeBuch->heading('Buchungsart', -text => 'Buchungsart'); $treeBuch->heading('Anteil', -text => 'Anteil'); $treeBuch->heading('Bu-Kz', -text => 'Bu-Kz'); # Spaltenbreiten und Ausrichtung setzen $treeBuch->column("Gr-Band", -width => 85, -anchor => 'w'); $treeBuch->column("Gr-Blatt", -width => 85, -anchor => 'w'); $treeBuch->column("Buchungsart", -width => 300, -anchor => 'w'); $treeBuch->column("Anteil", -width => 85, -anchor => 'w'); $treeBuch->column("Bu-Kz", -width => 100, -anchor => 'w'); # Scrollbar my $scrollBuch = $regEigentuemer->new_ttk__scrollbar(-command => [$treeBuch, "yview"], -orient => "vertical"); $scrollBuch->g_grid(-column => 1, -row => 1, -sticky => "ns"); # Scrollbar an TreeView binden $treeBuch->configure(-yscrollcommand => [$scrollBuch, "set"]);