unit MainForm;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data, TLVControl, System.Resources;
type
TMainForm =
class(System.Windows.Forms.Form)
{$REGION 'Vom Designer verwalteter Code'}
strict private
/// <summary>
/// Erforderliche Designervariable.
/// </summary>
Components: System.ComponentModel.Container;
GroupBox1: System.Windows.Forms.GroupBox;
GroupBox2: System.Windows.Forms.GroupBox;
GroupBox3: System.Windows.Forms.GroupBox;
GroupBox4: System.Windows.Forms.GroupBox;
GroupBox5: System.Windows.Forms.GroupBox;
Panel1: System.Windows.Forms.Panel;
Panel2: System.Windows.Forms.Panel;
LabelQuantity: System.Windows.Forms.
Label;
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers -
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure InitializeComponent;
procedure RadioButtonSingleUse_CheckedChanged(sender: System.
Object; e: System.EventArgs);
procedure RadioButtonMultipleUseAll_CheckedChanged(sender: System.
Object;
e: System.EventArgs);
procedure RadioButtonMultipleUseSelect_CheckedChanged(sender: System.
Object;
e: System.EventArgs);
{$ENDREGION}
strict protected
/// <summary>
/// Ressourcen nach der Verwendung bereinigen
/// </summary>
procedure Dispose(Disposing: Boolean);
override;
private
procedure changeNumEditState();
public
ButtonLoadJob: System.Windows.Forms.Button;
PictureBoxPreview: System.Windows.Forms.PictureBox;
InstructionBox: System.Windows.Forms.RichTextBox;
TreeListViewControl: TLVControl.TTreeListViewControl;
ButtonShowInfo: System.Windows.Forms.Button;
ButtonSwitchOn: System.Windows.Forms.Button;
ButtonSwitchOff: System.Windows.Forms.Button;
ButtonStartMarking: System.Windows.Forms.Button;
ButtonEnlarge: System.Windows.Forms.Button;
ButtonMoveAxis: System.Windows.Forms.Button;
RadioButtonSingleUse: System.Windows.Forms.RadioButton;
RadioButtonMultipleUseAll: System.Windows.Forms.RadioButton;
RadioButtonMultipleUseSelect: System.Windows.Forms.RadioButton;
NumericUpDownMultipleUse: System.Windows.Forms.NumericUpDown;
NumericUpDownQuantity: System.Windows.Forms.NumericUpDown;
TreeListView: TLVControl.TTreeListViewControl;
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(TMainForm))]
implementation
{$AUTOBOX ON}
{$REGION 'Vom Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TMainForm.InitializeComponent;
type
TArrayOfInteger =
array of Integer;
begin
Self.PictureBoxPreview := System.Windows.Forms.PictureBox.Create;
Self.GroupBox1 := System.Windows.Forms.GroupBox.Create;
Self.ButtonEnlarge := System.Windows.Forms.Button.Create;
Self.GroupBox2 := System.Windows.Forms.GroupBox.Create;
Self.InstructionBox := System.Windows.Forms.RichTextBox.Create;
Self.GroupBox3 := System.Windows.Forms.GroupBox.Create;
Self.ButtonMoveAxis := System.Windows.Forms.Button.Create;
Self.Panel2 := System.Windows.Forms.Panel.Create;
Self.Panel1 := System.Windows.Forms.Panel.Create;
Self.ButtonStartMarking := System.Windows.Forms.Button.Create;
Self.ButtonSwitchOff := System.Windows.Forms.Button.Create;
Self.ButtonSwitchOn := System.Windows.Forms.Button.Create;
Self.ButtonShowInfo := System.Windows.Forms.Button.Create;
Self.ButtonLoadJob := System.Windows.Forms.Button.Create;
Self.GroupBox4 := System.Windows.Forms.GroupBox.Create;
Self.NumericUpDownMultipleUse := System.Windows.Forms.NumericUpDown.Create;
Self.RadioButtonMultipleUseSelect := System.Windows.Forms.RadioButton.Create;
Self.RadioButtonMultipleUseAll := System.Windows.Forms.RadioButton.Create;
Self.RadioButtonSingleUse := System.Windows.Forms.RadioButton.Create;
Self.GroupBox5 := System.Windows.Forms.GroupBox.Create;
Self.TreeListView := TLVControl.TTreeListViewControl.Create;
Self.NumericUpDownQuantity := System.Windows.Forms.NumericUpDown.Create;
Self.LabelQuantity := System.Windows.Forms.
Label.Create;
Self.GroupBox1.SuspendLayout;
Self.GroupBox2.SuspendLayout;
Self.GroupBox3.SuspendLayout;
Self.GroupBox4.SuspendLayout;
(System.ComponentModel.ISupportInitialize(Self.NumericUpDownMultipleUse)).BeginInit;
Self.GroupBox5.SuspendLayout;
(System.ComponentModel.ISupportInitialize(Self.NumericUpDownQuantity)).BeginInit;
Self.SuspendLayout;
//
// PictureBoxPreview
//
Self.PictureBoxPreview.Location := System.Drawing.Point.Create(16, 24);
Self.PictureBoxPreview.
Name := '
PictureBoxPreview';
Self.PictureBoxPreview.Size := System.Drawing.Size.Create(400, 400);
Self.PictureBoxPreview.TabIndex := 1;
Self.PictureBoxPreview.TabStop := False;
//
// GroupBox1
//
Self.GroupBox1.Controls.Add(Self.ButtonEnlarge);
Self.GroupBox1.Controls.Add(Self.PictureBoxPreview);
Self.GroupBox1.Location := System.Drawing.Point.Create(576, 16);
Self.GroupBox1.
Name := '
GroupBox1';
Self.GroupBox1.Size := System.Drawing.Size.Create(424, 432);
Self.GroupBox1.TabIndex := 2;
Self.GroupBox1.TabStop := False;
//
// ButtonEnlarge
//
Self.ButtonEnlarge.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonEnlarge.Font := System.Drawing.Font.Create('
Microsoft Sans Seri' +
'
f', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonEnlarge.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonEnlarge.Location := System.Drawing.Point.Create(376, 384);
Self.ButtonEnlarge.
Name := '
ButtonEnlarge';
Self.ButtonEnlarge.Size := System.Drawing.Size.Create(40, 40);
Self.ButtonEnlarge.TabIndex := 7;
//
// GroupBox2
//
Self.GroupBox2.Controls.Add(Self.InstructionBox);
Self.GroupBox2.Location := System.Drawing.Point.Create(576, 456);
Self.GroupBox2.
Name := '
GroupBox2';
Self.GroupBox2.Size := System.Drawing.Size.Create(424, 272);
Self.GroupBox2.TabIndex := 3;
Self.GroupBox2.TabStop := False;
//
// InstructionBox
//
Self.InstructionBox.BackColor := System.Drawing.Color.LightSteelBlue;
Self.InstructionBox.Location := System.Drawing.Point.Create(8, 16);
Self.InstructionBox.
Name := '
InstructionBox';
Self.InstructionBox.Size := System.Drawing.Size.Create(400, 248);
Self.InstructionBox.TabIndex := 0;
Self.InstructionBox.Text := '
No RTF Found';
//
// GroupBox3
//
Self.GroupBox3.Controls.Add(Self.ButtonMoveAxis);
Self.GroupBox3.Controls.Add(Self.Panel2);
Self.GroupBox3.Controls.Add(Self.Panel1);
Self.GroupBox3.Controls.Add(Self.ButtonStartMarking);
Self.GroupBox3.Controls.Add(Self.ButtonSwitchOff);
Self.GroupBox3.Controls.Add(Self.ButtonSwitchOn);
Self.GroupBox3.Controls.Add(Self.ButtonShowInfo);
Self.GroupBox3.Controls.Add(Self.ButtonLoadJob);
Self.GroupBox3.Location := System.Drawing.Point.Create(8, 16);
Self.GroupBox3.
Name := '
GroupBox3';
Self.GroupBox3.Size := System.Drawing.Size.Create(168, 536);
Self.GroupBox3.TabIndex := 4;
Self.GroupBox3.TabStop := False;
//
// ButtonMoveAxis
//
Self.ButtonMoveAxis.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonMoveAxis.Font := System.Drawing.Font.Create('
Microsoft Sans Ser' +
'
if', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonMoveAxis.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonMoveAxis.Location := System.Drawing.Point.Create(16, 344);
Self.ButtonMoveAxis.
Name := '
ButtonMoveAxis';
Self.ButtonMoveAxis.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonMoveAxis.TabIndex := 12;
Self.ButtonMoveAxis.Text := '
Move Axis';
//
// Panel2
//
Self.Panel2.BackColor := System.Drawing.Color.MidnightBlue;
Self.Panel2.Location := System.Drawing.Point.Create(16, 272);
Self.Panel2.
Name := '
Panel2';
Self.Panel2.Size := System.Drawing.Size.Create(128, 8);
Self.Panel2.TabIndex := 11;
//
// Panel1
//
Self.Panel1.BackColor := System.Drawing.Color.MidnightBlue;
Self.Panel1.Location := System.Drawing.Point.Create(16, 136);
Self.Panel1.
Name := '
Panel1';
Self.Panel1.Size := System.Drawing.Size.Create(128, 8);
Self.Panel1.TabIndex := 10;
//
// ButtonStartMarking
//
Self.ButtonStartMarking.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonStartMarking.Font := System.Drawing.Font.Create('
Microsoft Sans' +
'
Serif', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonStartMarking.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonStartMarking.Location := System.Drawing.Point.Create(16, 296);
Self.ButtonStartMarking.
Name := '
ButtonStartMarking';
Self.ButtonStartMarking.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonStartMarking.TabIndex := 9;
Self.ButtonStartMarking.Text := '
Start Marking';
//
// ButtonSwitchOff
//
Self.ButtonSwitchOff.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonSwitchOff.Font := System.Drawing.Font.Create('
Microsoft Sans Se' +
'
rif', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonSwitchOff.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonSwitchOff.Location := System.Drawing.Point.Create(16, 216);
Self.ButtonSwitchOff.
Name := '
ButtonSwitchOff';
Self.ButtonSwitchOff.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonSwitchOff.TabIndex := 8;
Self.ButtonSwitchOff.Text := '
Switch Off';
//
// ButtonSwitchOn
//
Self.ButtonSwitchOn.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonSwitchOn.Font := System.Drawing.Font.Create('
Microsoft Sans Ser' +
'
if', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonSwitchOn.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonSwitchOn.Location := System.Drawing.Point.Create(16, 168);
Self.ButtonSwitchOn.
Name := '
ButtonSwitchOn';
Self.ButtonSwitchOn.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonSwitchOn.TabIndex := 7;
Self.ButtonSwitchOn.Text := '
Switch On';
//
// ButtonShowInfo
//
Self.ButtonShowInfo.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonShowInfo.Font := System.Drawing.Font.Create('
Microsoft Sans Ser' +
'
if', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonShowInfo.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonShowInfo.Location := System.Drawing.Point.Create(16, 80);
Self.ButtonShowInfo.
Name := '
ButtonShowInfo';
Self.ButtonShowInfo.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonShowInfo.TabIndex := 6;
Self.ButtonShowInfo.Text := '
Show Information';
//
// ButtonLoadJob
//
Self.ButtonLoadJob.BackColor := System.Drawing.Color.AliceBlue;
Self.ButtonLoadJob.Font := System.Drawing.Font.Create('
Microsoft Sans Seri' +
'
f', 10, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
(Byte(0)));
Self.ButtonLoadJob.ForeColor := System.Drawing.SystemColors.HotTrack;
Self.ButtonLoadJob.Location := System.Drawing.Point.Create(16, 32);
Self.ButtonLoadJob.
Name := '
ButtonLoadJob';
Self.ButtonLoadJob.Size := System.Drawing.Size.Create(128, 40);
Self.ButtonLoadJob.TabIndex := 5;
Self.ButtonLoadJob.Text := '
Load Job';
//
// GroupBox4
//
Self.GroupBox4.Controls.Add(Self.NumericUpDownMultipleUse);
Self.GroupBox4.Controls.Add(Self.RadioButtonMultipleUseSelect);
Self.GroupBox4.Controls.Add(Self.RadioButtonMultipleUseAll);
Self.GroupBox4.Controls.Add(Self.RadioButtonSingleUse);
Self.GroupBox4.Location := System.Drawing.Point.Create(8, 560);
Self.GroupBox4.
Name := '
GroupBox4';
Self.GroupBox4.Size := System.Drawing.Size.Create(168, 168);
Self.GroupBox4.TabIndex := 5;
Self.GroupBox4.TabStop := False;
//
// NumericUpDownMultipleUse
//
Self.NumericUpDownMultipleUse.Enabled := False;
Self.NumericUpDownMultipleUse.Location := System.Drawing.Point.Create(24, 112);
Self.NumericUpDownMultipleUse.
Name := '
NumericUpDownMultipleUse';
Self.NumericUpDownMultipleUse.TabIndex := 3;
//
// RadioButtonMultipleUseSelect
//
Self.RadioButtonMultipleUseSelect.Location := System.Drawing.Point.Create(8,
88);
Self.RadioButtonMultipleUseSelect.
Name := '
RadioButtonMultipleUseSelect';
Self.RadioButtonMultipleUseSelect.Size := System.Drawing.Size.Create(112, 24);
Self.RadioButtonMultipleUseSelect.TabIndex := 2;
Self.RadioButtonMultipleUseSelect.Text := '
Multiple Use';
Include(Self.RadioButtonMultipleUseSelect.CheckedChanged, Self.RadioButtonMultipleUseSelect_CheckedChanged);
//
// RadioButtonMultipleUseAll
//
Self.RadioButtonMultipleUseAll.Location := System.Drawing.Point.Create(8, 56);
Self.RadioButtonMultipleUseAll.
Name := '
RadioButtonMultipleUseAll';
Self.RadioButtonMultipleUseAll.Size := System.Drawing.Size.Create(112, 24);
Self.RadioButtonMultipleUseAll.TabIndex := 1;
Self.RadioButtonMultipleUseAll.Text := '
Multiple Use All';
Include(Self.RadioButtonMultipleUseAll.CheckedChanged, Self.RadioButtonMultipleUseAll_CheckedChanged);
//
// RadioButtonSingleUse
//
Self.RadioButtonSingleUse.Checked := True;
Self.RadioButtonSingleUse.Location := System.Drawing.Point.Create(8, 24);
Self.RadioButtonSingleUse.
Name := '
RadioButtonSingleUse';
Self.RadioButtonSingleUse.Size := System.Drawing.Size.Create(112, 24);
Self.RadioButtonSingleUse.TabIndex := 0;
Self.RadioButtonSingleUse.TabStop := True;
Self.RadioButtonSingleUse.Text := '
Single Use';
Include(Self.RadioButtonSingleUse.CheckedChanged, Self.RadioButtonSingleUse_CheckedChanged);
//
// GroupBox5
//
Self.GroupBox5.Controls.Add(Self.TreeListView);
Self.GroupBox5.Controls.Add(Self.NumericUpDownQuantity);
Self.GroupBox5.Controls.Add(Self.LabelQuantity);
Self.GroupBox5.Location := System.Drawing.Point.Create(184, 16);
Self.GroupBox5.
Name := '
GroupBox5';
Self.GroupBox5.Size := System.Drawing.Size.Create(384, 712);
Self.GroupBox5.TabIndex := 6;
Self.GroupBox5.TabStop := False;
//
// TreeListView
//
Self.TreeListView.Location := System.Drawing.Point.Create(8, 16);
Self.TreeListView.
Name := '
TreeListView';
Self.TreeListView.Size := System.Drawing.Size.Create(368, 645);
Self.TreeListView.TabIndex := 3;
//
// NumericUpDownQuantity
//
Self.NumericUpDownQuantity.Location := System.Drawing.Point.Create(104, 672);
Self.NumericUpDownQuantity.Maximum := System.Decimal.Create(TArrayOfInteger.Create(10000000,
0, 0, 0));
Self.NumericUpDownQuantity.
Name := '
NumericUpDownQuantity';
Self.NumericUpDownQuantity.TabIndex := 2;
Self.NumericUpDownQuantity.Value := System.Decimal.Create(TArrayOfInteger.Create(1,
0, 0, 0));
//
// LabelQuantity
//
Self.LabelQuantity.Location := System.Drawing.Point.Create(17, 674);
Self.LabelQuantity.
Name := '
LabelQuantity';
Self.LabelQuantity.TabIndex := 1;
Self.LabelQuantity.Text := '
Quantity';
//
// TMainForm
//
Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
Self.BackColor := System.Drawing.Color.LightSteelBlue;
Self.ClientSize := System.Drawing.Size.Create(1016, 734);
Self.Controls.Add(Self.GroupBox4);
Self.Controls.Add(Self.GroupBox3);
Self.Controls.Add(Self.GroupBox2);
Self.Controls.Add(Self.GroupBox1);
Self.Controls.Add(Self.GroupBox5);
Self.
Name := '
TMainForm';
Self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
Self.Text := '
NWL';
Self.GroupBox1.ResumeLayout(False);
Self.GroupBox2.ResumeLayout(False);
Self.GroupBox3.ResumeLayout(False);
Self.GroupBox4.ResumeLayout(False);
(System.ComponentModel.ISupportInitialize(Self.NumericUpDownMultipleUse)).EndInit;
Self.GroupBox5.ResumeLayout(False);
(System.ComponentModel.ISupportInitialize(Self.NumericUpDownQuantity)).EndInit;
Self.ResumeLayout(False);
end;
{$ENDREGION}
procedure TMainForm.Dispose(Disposing: Boolean);
begin
if Disposing
then
begin
if Components <>
nil then
Components.Dispose();
end;
inherited Dispose(Disposing);
end;
constructor TMainForm.Create;
begin
inherited Create;
//
// Erforderlich für die Unterstützung des Windows Forms-Designers
//
InitializeComponent;
//
// TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
//
end;
procedure TMainForm.RadioButtonMultipleUseSelect_CheckedChanged(sender: System.
Object;
e: System.EventArgs);
begin
changeNumEditState();
end;
procedure TMainForm.RadioButtonMultipleUseAll_CheckedChanged(sender: System.
Object;
e: System.EventArgs);
begin
changeNumEditState();
end;
procedure TMainForm.RadioButtonSingleUse_CheckedChanged(sender: System.
Object;
e: System.EventArgs);
begin
changeNumEditState();
end;
procedure TMainForm.changeNumEditState;
begin
NumericUpDownMultipleUse.Enabled := RadioButtonMultipleUseSelect.Checked;
end;
end.