58 lines
1.4 KiB
Plaintext
58 lines
1.4 KiB
Plaintext
import forms;
|
|
import extensions;
|
|
|
|
public class MainWindow : SDIDialog
|
|
{
|
|
Button btmIncrement;
|
|
Button btmRandom;
|
|
Edit txtNumber;
|
|
|
|
constructor new()
|
|
<= new()
|
|
{
|
|
btmIncrement := new Button();
|
|
btmRandom := new Button();
|
|
txtNumber := new Edit();
|
|
|
|
self
|
|
.appendControl:btmIncrement
|
|
.appendControl:btmRandom
|
|
.appendControl:txtNumber;
|
|
|
|
self.Caption := "Rosseta Code";
|
|
self.setRegion(100, 100, 160, 120);
|
|
|
|
txtNumber.setRegion(7, 7, 140, 25);
|
|
txtNumber.Caption := "0";
|
|
|
|
btmIncrement.setRegion(7, 35, 140, 25);
|
|
btmIncrement.Caption := "Increment";
|
|
btmIncrement.onClick := (args){ self.onButtonIncrementClick() };
|
|
|
|
btmRandom.setRegion(7, 65, 140, 25);
|
|
btmRandom.Caption := "Random";
|
|
btmRandom.onClick := (args){ self.onButtonRandomClick() };
|
|
}
|
|
|
|
private onButtonIncrementClick()
|
|
{
|
|
var number := txtNumber.Value.toInt();
|
|
|
|
number := number + 1;
|
|
self.changeTextBoxValue(number)
|
|
}
|
|
|
|
private onButtonRandomClick()
|
|
{
|
|
if(messageDialog.showQuestion("Inf", "Really reset to random value?"))
|
|
{
|
|
self.changeTextBoxValue(randomGenerator.eval(99999999))
|
|
}
|
|
}
|
|
|
|
private changeTextBoxValue(number)
|
|
{
|
|
txtNumber.Caption := number.toString()
|
|
}
|
|
}
|