tcl tk에서 창의 크기 조정을 사용하여 창 안의 프레임, 레이블, 텍스트와 같은 위젯의 크기를 조정하는 방법 GUI

Question

tcl \ tk에서 새로 왔으며이를 사용하는 UI를 개발 중입니다. UI 창에는 테이블의 열 수에 따라 동적 위젯 수와 텍스트 위젯이 채워진 프레임이 있습니다. 각 컬럼에 대한 입력 위젯이 있으며, 사용자가 입력 한 데이터는 테이블의 각 컬럼을 채 웁니다.

그러나 내가 직면 한 문제는 창 프레임의 위젯 크기와 위치를 창 크기에 따라 조정할 수있는 방법을 찾을 수 없다는 것입니다. 즉, 사용자가 창 크기를 끌어서 크게 확대하면 창 내부의 위젯도 크기가 커지고 창 크기에 따라 위치가 조정됩니다. 창 크기가 줄어든 경우 ID가 감소합니다. HTML, CSS의 부트 스트랩과 같은 것. 누구든지 내게 어떤 아이디어를 주시겠습니까 ?? 도움을 주시면 대단히 감사하겠습니다. 감사!

Answer 1

grid 및 pack 명령에 대한 설명서를 읽어야합니다. pack와

의 -fill 및 -expand 옵션을 사용하여 위젯 크기 조정에 반응하는 방식을 조정하는 데 도움이됩니다.

예 :

pack .widget -fill both -expand true 
pack .widget -fill x -expand true -anchor s 

grid으로

는 -sticky 옵션 columnconfigure 및 rowconfigure 하위 명령은 당신에게 도움이 될 것입니다.

예 : 어떤 경우에는

grid .widget -sticky ew 
grid columnconfigure . 0 -weight 1 

는 크기 조정에 응시해야합니다 특별한 조치가있을 수 있습니다. 이 경우 bind 명령이 유용합니다. <Configure> 이벤트에 바인딩하고 위젯 크기를 조정하거나 필요에 따라 다른 작업을 수행 할 수 있습니다.

편집 : grid columnconfigure가 포함 된 프레임의 열에 적용

. 따라서 각 위젯에 대해 실행할 필요가 없습니다. 위의 예에서는 . 프레임에 .widget이 포함되어 있고 . 프레임의 열이 구성되어 있습니다. 이 예제는 bind도 .로 .의 모든 자식에 적용

# in this example, the entry fields will adjust their width when 
# the window is resized. 
package require Tk 
grid columnconfigure . 1 -weight 1 
foreach {val} {1 2 3 4 5 6 7} { 
    ttk::label .lab$val -text "Label $val:" 
    ttk::entry .entry$val -textvariable mydata($val) 
    grid .lab$val .entry$val -in . -sticky w 
    # change the configuration for .entry$val only... 
    grid configure .entry$val -sticky ew 
} 

proc doresize { win } { 
    puts "Win $win now has width: [winfo width $win]" 
} 

bind . <Configure> [list ::doresize %W] 

주 톱 레벨 윈도우입니다. 당신이 . 변경에만 관심이 있다면, 당신은 크기 조정 절차를 변경할 수 있습니다 다음 bind 최상위 윈도우가 아닌 프레임 또는 위젯에 적용하면

proc doresize { win } { 
    if { $win eq "." } { 
     puts "Win $win now has width: [winfo width $win]" 
    } 
} 

을, 이벤트는 해당 수신된다 프레임 또는 위젯.

모두 이벤트가 전송됩니다.또한 변화 폭에 대한 변경 사항을 확인 할 수 있습니다

set vars(last.width) 0 

proc doresize { win } { 
    variable vars 

    if { $win eq "." } { 
     set newwidth [winfo width $win] 
     if { $newwidth != $vars(last.width) } { 
     puts "Win $win now has width: [winfo width $win]" 
     if { $vars(last.width) != 0 } { 
      # this is not the first time, as last.width is not zero 
      # do something due to window resize. 
     } 
     set vars(last.width) $newwidth 
     } 
    } 
} 

참고 : grid, pack, bind