Rev 94 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 94 | Rev 95 | ||
|---|---|---|---|
| Line 609... | Line 609... | ||
| 609 | 609 | ||
| 610 | procedure TUD2MainForm.FormCreate(Sender: TObject); |
610 | procedure TUD2MainForm.FormCreate(Sender: TObject); |
| 611 | begin |
611 | begin |
| 612 | // To avoid accidental change of the default tab from the IDE VCL Designer |
612 | // To avoid accidental change of the default tab from the IDE VCL Designer |
| 613 | PageControl1.ActivePage := TasksTabSheet; |
613 | PageControl1.ActivePage := TasksTabSheet; |
| - | 614 | ||
| - | 615 | VersionLabel.Caption := GetFileVersion(ParamStr(0)); |
|
| 614 | end; |
616 | end; |
| 615 | 617 | ||
| 616 | procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject); |
618 | procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject); |
| 617 | var |
619 | var |
| 618 | p: TUD2Plugin; |
620 | p: TUD2Plugin; |
| 619 | x: TArrayOfString; |
621 | x: TArrayOfString; |
| 620 | newStuff: boolean; |
622 | newStuff: boolean; |
| 621 | errors: TStrings; |
623 | errors: TStrings; |
| 622 | resourcestring |
624 | resourcestring |
| 623 | LNG_DETECTED_DYNAMICS = 'The plugin returns following identification strings:'; |
625 | LNG_DETECTED_DYNAMICS = 'The plugin returned following identification strings:'; |
| 624 | LNG_NOTHING_DETECTED = 'The plugin did not send any identification strings.'; |
626 | LNG_NOTHING_DETECTED = 'The plugin did not send any identification strings.'; |
| 625 | LNG_STATUS_RETURNED = 'The plugin sent following status in reply to your request:'; |
627 | LNG_STATUS_RETURNED = 'The plugin sent following status in reply to your request:'; |
| 626 | LNG_ERROR_RETURNED = 'The dynamic plugin could not load. The plugin sent following error messages:'; |
628 | LNG_ERROR_RETURNED = 'The dynamic plugin could not load. The plugin sent following error messages:'; |
| 627 | begin |
629 | begin |
| 628 | if DynamicTestPluginComboBox.ItemIndex = -1 then |
630 | if DynamicTestPluginComboBox.ItemIndex = -1 then |