listview.rb
001 require 'phi'
002
003 form = Phi::Form.new(:form1, 'formです')
004 form.height = 300
005
006 listview = Phi::ListView.new(form, :listview1, '')
007 listview.align = Phi::AL_CLIENT
008 listview.read_only = true
009 listview.view_style = Phi::VS_REPORT
010
011 env_column = listview.columns.add
012 env_column.caption = 'name'
013 env_column.width = 100
014
015 value_column = listview.columns.add
016 value_column.caption = 'value'
017 value_column.width = 150
018
019 ENV.keys.sort.each do |k|
020 new_item = listview.items.add
021 new_item.caption = k
022 new_item.sub_items.add(ENV[k])
023 end
024
025 form.show
026 Phi.mainloop
このスクリプトを実行すると、このような ウィンドウがあらわれます。