1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:

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.