public static void ApplyTextBox(TextBox ListBox, TListBox ThemeListBox)
{
ListBox.Background = ConvertColor(ThemeListBox.BackColor);
ListBox.Foreground = ConvertColor(ThemeListBox.TextColor);
ListBox.FontFamily = new FontFamily(ThemeListBox.Font.Name);
ListBox.FontSize = ThemeListBox.Font.Size;
}
public void HelloWorld()
{
Application = new TApplication(null);
Application.Initialize();
Application.Run();
// Create form
var lForm = new TForm(null);
lForm.Width = 800;
// we can display the form in an existing div element. If Show parameter is nil, a new div is created
lForm.Show(null);
var lTopLabel = new TLabel(lForm);
lTopLabel.Left = 1;
lTopLabel.Parent = lForm;
lTopLabel.Caption = "Write the item caption on the edit and press Add New button to add to ListBox:";
var lButton = new TButton(lForm);
lButton.Left = 50;
lButton.Top = 50;
lButton.Caption = "Add New";
lButton.Parent = lForm;
var lEdit = new TEdit(lForm);
lEdit.Left = 150;
lEdit.Top = 50;
lEdit.Parent = lForm;
var lListBox = new TListBox(lForm);
lListBox.Left = 350;
lListBox.Top = 50;
lListBox.Parent = lForm;
lListBox.Width = 250;
lListBox.MultiSelect = true;
lButton.OnClick = (s) => { lListBox.Items.Add(lEdit.Text); };
var lChangeLabel = new TLabel(lForm);
lChangeLabel.Top = 165;
lChangeLabel.Parent = lForm;
lChangeLabel.Caption = "Press button to change label font:";
var lChangeButton = new TButton(lForm);
lChangeButton.Left = 50;
lChangeButton.Top = 200;
lChangeButton.Caption = "Change font";
lChangeButton.Parent = lForm;
var lLabel = new TLabel(lForm);
lLabel.Left = 150;
lLabel.Top = 200;
lLabel.Caption = "Sample text!";
lLabel.Parent = lForm;
lChangeButton.OnClick = (s) => { lLabel.Font.Name = "Verdana"; lLabel.Font.Size = 24; };
var lMemo = new TMemo(lForm);
lMemo.Left = 50;
lMemo.Top = 300;
lMemo.Width = 250;
lMemo.Height = 150;
lMemo.Parent = lForm;
var lMemoButton = new TButton(lForm);
lMemoButton.Left = 350;
lMemoButton.Top = 325;
lMemoButton.Caption = "Add text";
lMemoButton.Parent = lForm;
var lList = TStringList.Create();
lList.Add("one line");
lList.Add("another one");
lMemoButton.OnClick = (s) => { lMemo.Lines.AddStrings(lList); };
var lDisplayButton = new TButton(lForm);
lDisplayButton.Top = lMemoButton.Top;
lDisplayButton.Left = 450;
lDisplayButton.Caption = "Show memo text";
lDisplayButton.Parent = lForm;
lDisplayButton.OnClick = (s) => { ShowMessage(lMemo.Lines.Text); };
}
