ListView.cs to ListView.cobra
ListView.cs:
//----------------------------------------------------------------------------- // wx.NET/Samples - ListView.cs // // wx.NET "ListView" sample. // // Written by Alexander Olk (xenomorph2@onlinehome.de) // (C) 2004 Alexander Olk // Licensed under the wxWidgets license, see LICENSE.txt for details. // // $Id$ //----------------------------------------------------------------------------- using System; using System.Drawing; namespace wx.SampleListView { public class ListViewFrame : Frame { enum Cmd { About, Quit } //--------------------------------------------------------------------- public TextCtrl textCtrl; //--------------------------------------------------------------------- public ListViewFrame(string title, Point pos, Size size) : base(title, pos, size) { // Set the window icon and status bar Icon = new wx.Icon("../Samples/ListView/mondrian.png"); CreateStatusBar(); StatusText = "Welcome to the ListView Sample!"; Menu menuFile = new Menu(); menuFile.AppendWL( (int)Cmd.About, "&About", new EventListener( OnAbout ) ); menuFile.AppendSeparator(); menuFile.AppendWL( (int)Cmd.Quit, "E&xit\tAlt-X", "Quit this program", new EventListener( OnQuit) ); MenuBar menuBar = new MenuBar(); menuBar.Append( menuFile, "&File" ); MenuBar = menuBar; textCtrl = new TextCtrl(this, -1, "", wxDefaultPosition, wxDefaultSize, TextCtrl.wxTE_MULTILINE | TextCtrl.wxTE_READONLY | TextCtrl.wxSUNKEN_BORDER ); Log.SetActiveTarget( textCtrl ); MyListView mlv = new MyListView( this ); BoxSizer bSizer = new BoxSizer( Orientation.wxVERTICAL ); bSizer.Add( mlv, 1, Stretch.wxGROW ); bSizer.Add( textCtrl, 0, Stretch.wxGROW ); Sizer = bSizer; } //--------------------------------------------------------------------- public void OnAbout( object sender, Event e ) { MessageDialog.MessageBox( "wx.NET ListView sample\n2004 by Alexander Olk", "About", Dialog.wxOK | Dialog.wxICON_INFORMATION ); } //--------------------------------------------------------------------- public void OnQuit( object sender, Event e ) { Close(); } } //--------------------------------------------------------------------- public class MyListView : ListView { public MyListView( Window parent ) : base( parent, -1, wxDefaultPosition, wxDefaultSize, ListCtrl.wxLC_REPORT | ListCtrl.wxLC_EDIT_LABELS ) { InsertColumn( 0, "First Column" ); SetColumnWidth( 0, 200 ); ListItem itemCol = new ListItem(); itemCol.Text = "Second Column"; itemCol.Align = ListCtrl.wxLIST_FORMAT_CENTER; itemCol.Width = 300; InsertColumn( 1, itemCol ); for ( int i = 0; i < 200; ++i ) { string buf = "Col 1 Item " + i; int tmp = InsertItem( i, buf, 0); SetItemData( tmp, i ); buf = "Col 2 Item " + i; SetItem( i, 1, buf ); } Log.LogMessage( "Items created..." ); ColumnClick += new EventListener( OnColumnClick ); ItemSelect += new EventListener( OnItemSelect ); ColumnRightClick += new EventListener( OnColumnRightClick ); } //--------------------------------------------------------------------- public void OnColumnClick( object sender, Event e ) { ListEvent le = e as ListEvent; Log.LogMessage( "Clicked column header " + le.Column ); } //--------------------------------------------------------------------- public void OnItemSelect( object sender, Event e ) { ListEvent le = e as ListEvent; Log.LogMessage( "Value 1st field of selected item: " + le.Text ); ListItem info = new ListItem(); info.Id = le.Index; info.Column = 1; info.Mask = ListCtrl.wxLIST_MASK_TEXT; GetItem( ref info ); Log.LogMessage( "Value of 2nd field of selected item: " + info.Text ); } //--------------------------------------------------------------------- public void OnColumnRightClick( object sender, Event e ) { ListEvent le = e as ListEvent; Log.LogMessage( "Right clicked column header " + le.Column ); } } //--------------------------------------------------------------------- public class ListViewApp : wx.App { public override bool OnInit() { ListViewFrame frame = new ListViewFrame("ListView wxWidgets Sample", new Point(10, 100), new Size(650,340)); frame.Show(true); return true; } //--------------------------------------------------------------------- [STAThread] static void Main() { ListViewApp app = new ListViewApp(); app.Run(); } } }
ListView.cobra:
/#----------------------------------------------------------------------------- wx.NET/Samples - ListView.cs wx.NET "ListView" sample. Written by Alexander Olk (xenomorph2@onlinehome.de) (C) 2004 Alexander Olk Licensed under the wxWidgets license, see LICENSE.txt for details. Converted to cobra hops 29-Oct-2009 $Id$ ----------------------------------------------------------------------------- #/ use System.Drawing use wx from "wx.NET" namespace SampleListView class ListViewFrame inherits Frame enum Cmd About Quit var textCtrl as TextCtrl cue init(title as String, pos as Point, size as Size) base.init(title, pos, size) # Set the window icon and status bar #Icon = Icon("./mondrian.png")) # this doesnt compile #.setIcon(Icon("./mondrian.png")) # nor this .createStatusBar #StatusText = "Welcome to the ListView Sample!" #.statusText = "Welcome to the ListView Sample!" # doesnt compile .setStatusText("Welcome to the ListView Sample!") menuFile = Menu() menuFile.appendWL( Cmd.About to int, "&About", EventListener( ref .onAbout ) ) menuFile.appendSeparator menuFile.appendWL( Cmd.Quit to int, "E&xit\tAlt-X", "Quit this program", EventListener( ref .onQuit) ) menuBar = MenuBar() menuBar.append( menuFile, "&File" ) .menuBar = menuBar .textCtrl = TextCtrl(this, -1, "", .wxDefaultPosition, .wxDefaultSize, TextCtrl.wxTE_MULTILINE | TextCtrl.wxTE_READONLY | TextCtrl.wxSUNKEN_BORDER ) Log.setActiveTarget(.textCtrl) mlv = MyListView( this ) bSizer = BoxSizer( Orientation.wxVERTICAL ) bSizer.add( mlv, 1, Stretch.wxGROW ) bSizer.add( .textCtrl, 0, Stretch.wxGROW ) .sizer = bSizer def onAbout( sender as System.Object, e as Event) MessageDialog.messageBox( "wx.NET ListView sample (Cobra)\nConverted Oct 2009 by hops", "About", Dialog.wxOK | Dialog.wxICON_INFORMATION ) def onQuit(sender, e as Event) .close class MyListView inherits ListView cue init( parent as Window ) base.init( parent, -1, .wxDefaultPosition, .wxDefaultSize, ListCtrl.wxLC_REPORT | ListCtrl.wxLC_EDIT_LABELS ) .insertColumn( 0, "First Column" ) .setColumnWidth( 0, 200 ) itemCol = ListItem() itemCol.text = "Second Column" itemCol.align = ListCtrl.wxLIST_FORMAT_CENTER itemCol.width = 300 .insertColumn( 1, itemCol ) for i in 0 : 200 buf = "Col 1 Item [i]" tmp = .insertItem( i, buf, 0) .setItemData( tmp, i ) buf = "Col 2 Item [i]" .setItem( i, 1, buf ) Log.logMessage( "Items created..." ) listen .columnClick, EventListener( ref .onColumnClick ) #listen .columnClick, ref .onColumnClick # also works listen .itemSelect, EventListener( ref .onItemSelect ) listen .columnRightClick, EventListener( ref .onColumnRightClick ) def onColumnClick( sender as System.Object, e as Event) le = e to ListEvent Log.logMessage( "Clicked column header [le.column]" ) def onItemSelect( sender as System.Object, e as Event) le = e to ListEvent Log.logMessage( "Value 1st field of selected item: [le.text]" ) info = ListItem() info.id = le.index info.column = 1 info.mask = ListCtrl.wxLIST_MASK_TEXT .getItem( inout info ) Log.logMessage( "Value of 2nd field of selected item: [info.text]" ) def onColumnRightClick( sender as System.Object, e as Event ) le = e to ListEvent Log.logMessage( "Right clicked column header [le.column]" ) class ListViewApp inherits App is public def onInit as bool is override frame = ListViewFrame("ListView wxWidgets Sample", Point(10, 100), Size(650,340)) frame.show(true) return true def main is shared has STAThread app = ListViewApp() app.run
