You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdebindings/qtsharp/src/examples/tutorials/t6.cs

59 lines
1.5 KiB

// Qt# tutorial 6
// Based on the Qt tutorial
// Implemented by Marcus Urban
using System;
using Qt;
public class LCDRange : TQVBox {
public LCDRange (TQWidget parent, String name) : base (parent, name)
// In C++, parent and name have default values of 0 (null pointer)
{
TQLCDNumber lcd = new TQLCDNumber (2, this, "lcd" );
TQSlider slider = new TQSlider (Orientation.Horizontal, this, "slider");
slider.SetRange (0, 99);
slider.SetValue (0);
Connect ( slider, TQ_SIGNAL ("valueChanged(int)"), lcd, TQ_SLOT ("Display(int)") );
}
public LCDRange (TQWidget parent) : this (parent, "") {}
public LCDRange () : this (null, "") {}
// Note that it was necessary to use an empty string ("")
// in the above. Using null does not work at runtime.
}
public class MyWidget : TQVBox {
MyWidget (TQWidget parent, String name) : base (parent, name)
{
TQPushButton quit = new TQPushButton ("Quit", this, "quit");
quit.SetFont ( new TQFont ("Times", 18, TQFont.Weight.Bold) );
Connect ( quit, TQ_SIGNAL ("clicked()"), tqApp, TQ_SLOT ("Quit()") );
TQGrid grid = new TQGrid (4, this);
for ( int c =0; c < 4; c++ )
for ( int r = 0; r < 4; r++ )
new LCDRange (grid);
}
public MyWidget (TQWidget parent) : this (parent, "") {}
public MyWidget () : this (null, "") {}
}
public class Example {
public static int Main (String[] args)
{
TQApplication a = new TQApplication (args);
MyWidget w = new MyWidget ();
a.SetMainWidget (w);
w.Show ();
return a.Exec ();
}
}