Browse Source

Delphi IDE 1/3: add back VTI support *along with* (as opposed to "instead of") TIEmu support.

VTI support was removed from the IDE on 20061030 by Kevin (r893-897).
This patch:
    * adds radio button + edit field + Browse button for VTI;
    * adds a new start form for VTI (which currently launches TIEmu);
    * adds back saving and restoring of the VTI path;
    * makes various pieces of code aware of the distinction between VTI and TIEmu.

git-svn-id: file:///var/svn/tigccpp/branches/ide@1284 9552661e-59e3-4036-b4f2-dbe53926924f
debrouxl 15 years ago
parent
commit
9b854b3d2b
10 changed files with 884 additions and 1296 deletions
  1. 1 0
      IDE.dpr
  2. 639 1255
      MainUnit.dfm
  3. 33 20
      MainUnit.pas
  4. 4 2
      MasterUnit.pas
  5. 50 16
      PreferencesUnit.dfm
  6. 15 0
      PreferencesUnit.pas
  7. 45 0
      TIEmuStartUnit.dfm
  8. 94 0
      TIEmuStartUnit.pas
  9. 2 2
      VTIStartUnit.dfm
  10. 1 1
      VTIStartUnit.pas

+ 1 - 0
IDE.dpr

@@ -49,6 +49,7 @@ uses
 	ToolPropertiesUnit in 'ToolPropertiesUnit.pas' {ToolPropertiesForm},
 	ProgramOutputUnit in 'ProgramOutputUnit.pas' {ProgramOutputForm},
 	VTIStartUnit in 'VTIStartUnit.pas' {VTIStartForm},
+	TIEmuStartUnit in 'TIEmuStartUnit.pas' {TIEmuStartForm},
 {$IFDEF CODINGEXT}
 	CodeCompletion in 'CodeCompletion\CodeCompletion.pas',
 	CompletionForm in 'CodeCompletion\CompletionForm.pas' {CompForm},

File diff suppressed because it is too large
+ 639 - 1255
MainUnit.dfm


+ 33 - 20
MainUnit.pas

@@ -422,6 +422,8 @@ type
 		OptimizeInfo: TLinkLibOptimizeInfo;
 		Funcs: TSourceFileFunctions;
 		CurrentStrings: TMemoryStream;
+		CurVTIType: TVTICalcType;
+		CurTIEmuType: TTIEmuCalcType;
 		RecentFiles: TStringList;
 		ToolsList: TToolsList;
 		property ProjectFile: string read FProjectFile write SetProjectFile;
@@ -518,7 +520,7 @@ uses
 	StartupScreenUnit, PreferencesUnit, ProjectOptionsUnit,
 	AboutUnit, SourceFileWinUnit, FunctionsWinUnit,
 	OpenFileStatusUnit, NewsUnit, SendProgressUnit, ToolsUnit,
-	ProgramOutputUnit, VTIStartUnit,
+	ProgramOutputUnit, VTIStartUnit, TIEmuStartUnit,
 	LinkUnit,
 	UtilsDos, UtilsWin, HandleWaitThreadUnit, FileReadToBufferThreadUnit,
 	ShellAPI, ShlObj, IniFiles, Registry, WinSpool, ClipBrd{$IFDEF CODINGEXT}, CompletionForm{$ENDIF},
@@ -825,7 +827,7 @@ begin
 		SplitFiles := True;
 {$ENDIF}
 		DeleteErrors := True;
-		TransferTarget := ttVTI;
+		TransferTarget := ttTIEmu;
 		LinkPort.PortType := lpCOM;
 		LinkPort.PortNumber := 1;
 		LinkCable := lcBlack;
@@ -2828,12 +2830,15 @@ begin
 		case TransferTarget of
 			ttVTI:
 				VTIBox.Checked := True;
+			ttTIEmu:
+				TIEmuBox.Checked := True;
 			ttCalc:
 				RealCalcBox.Checked := True;
 			else
 				NoneBox.Checked := True;
 		end;
 		VTIPathEdit.Text := VTIPath;
+		TIEmuPathEdit.Text := TIEmuPath;
 		case LinkPort.PortType of
 			lpCOM: begin
 				case LinkPort.PortNumber of
@@ -2888,11 +2893,14 @@ begin
 				MainMenu.Images := nil;
 			if VTIBox.Checked then
 				TransferTarget := ttVTI
+			else if TIEmuBox.Checked then
+				TransferTarget := ttTIEmu
 			else if RealCalcBox.Checked then
 				TransferTarget := ttCalc
 			else
 				TransferTarget := ttNone;
 			VTIPath := VTIPathEdit.Text;
+			TIEmuPath := TIEmuPathEdit.Text;
 			LinkPort.PortType := lpCOM;
 			if PortCOM1Box.Checked then
 				LinkPort.PortNumber := 1
@@ -3021,8 +3029,10 @@ begin
 			end;
 			if ValueExists ('Transfer Target') then
 				TransferTarget := TTransferTarget (ReadInteger ('Transfer Target') + 1);
+			if ValueExists ('VTI Path') then
+				VTIPath := ReadString ('VTI Path');
 			if ValueExists ('TiEmu Path') then
-				VTIPath := ReadString ('TiEmu Path');
+				TIEmuPath := ReadString ('TiEmu Path');
 			if ValueExists ('Link Port') then
 				LinkPort.PortNumber := ReadInteger ('Link Port') and $FF;
 			if ValueExists ('Link Cable') then begin
@@ -3191,7 +3201,8 @@ begin
 			WriteBool ('Flat Buttons', MainToolbar.Flat);
 			WriteBool ('Menu Bitmaps', Assigned (MainMenu.Images));
 			WriteInteger ('Transfer Target', Integer (TransferTarget) - 1);
-			WriteString ('TiEmu Path', VTIPath);
+			WriteString ('VTI Path', VTIPath);
+			WriteString ('TiEmu Path', TIEmuPath);
 			WriteInteger ('Link Port', LinkPort.PortNumber);
 			case LinkCable of
 				lcBlack: WriteInteger ('Link Cable', 1);
@@ -4693,19 +4704,19 @@ begin
 		OleCheck(Unknown.QueryInterface(ITiEmuOLE, Result));
 	end else begin
 		{ If no TiEmu path is set, try looking it up from the registry. }
-		if Length (VTIPath) = 0 then begin
+		if Length (TIEmuPath) = 0 then begin
 			with TRegistry.Create do try
 				RootKey := HKey_Classes_Root;
 				if OpenKeyReadOnly ('\CLSID\{B2A17B13-9D6F-4DD4-A2A9-6FE06ADC1D33}\LocalServer32') then try
 					if ValueExists ('') then
-						VTIPath := ReadString ('');
+						TIEmuPath := ReadString ('');
 				except end;
 			finally
 				Free;
 			end;
 		end;
-		if Length (VTIPath) > 0 then begin
-			with TVTIStartForm.Create (Self) do try
+		if Length (TIEmuPath) > 0 then begin
+			with TTIEmuStartForm.Create (Self) do try
 				if ShowModal = mrOK then begin
 					Result := TiEmuInterface;
 				end else
@@ -4725,7 +4736,7 @@ var
 	I: Integer;
 	FirstI: Integer;
 	TiEmuInterface: ITiEmuOLE;
-	TiEmuCalcType: TTiEmuCalcType;
+	TiEmuCalcType: TTIEmuCalcType;
 	Ready: Boolean;
 	Connection: TLinkConnection;
 	Size: Word;
@@ -4736,7 +4747,7 @@ begin
 	OperationSuccessful := False;
 	OperationCancelled := False;
 	if Length (FNList) > 0 then begin
-		if TransferTarget = ttVTI then begin
+		if TransferTarget = ttTIEmu then begin
 			TiEmuInterface := GetTiEmuInterface;
 			Enabled := False;
 			try
@@ -4753,28 +4764,28 @@ begin
 				until Ready;
 				{ Now obtain the model from TiEmu. }
 				try
-					TiEmuCalcType := TTiEmuCalcType(TiEmuInterface.emulated_calc_type);
-					if TiEmuCalcType = cvNone then Abort;
+					TiEmuCalcType := TTIEmuCalcType(TiEmuInterface.emulated_calc_type);
+					if TiEmuCalcType = cvTIEmuNone then Abort;
 				except
 					ShowDefaultMessageBox ('OLE function call failed.', 'Error', mtProgramError);
 					Abort;
 				end;
 				{ Select the correct files for the model. }
-				if (TiEmuCalcType <> cvTI92) and (ProjectTarget = ptFargo) then begin
+				if (TiEmuCalcType <> cvTIEmuTI92) and (ProjectTarget = ptFargo) then begin
 					ShowDefaultMessageBox ('Can''t send Fargo program to a TI-89/89Ti/92+/V200.', 'Error', mtProgramError);
 					Abort;
 				end;
-				if (TiEmuCalcType = cvTI92) and (ProjectTarget <> ptFargo) then begin
+				if (TiEmuCalcType = cvTIEmuTI92) and (ProjectTarget <> ptFargo) then begin
 					ShowDefaultMessageBox ('Can''t send AMS program to a TI-92.', 'Error', mtProgramError);
 					Abort;
 				end;
 				for I := Low (FNList) to High (FNList) do begin
 					case TiEmuCalcType of
-						cvTI92Plus:
+						cvTIEmuTI92Plus:
 							FNList [I] := StringReplace (FNList [I], '.89', '.9x', []);
-						cvV200:
+						cvTIEmuV200:
 							FNList [I] := StringReplace (FNList [I], '.89', '.v2', []);
-						cvTI92:
+						cvTIEmuTI92:
 							FNList [I] := StringReplace (FNList [I], '.89', '.92', []);
 					end;
 					if not FileExists (FNList [I]) then begin
@@ -4875,7 +4886,7 @@ var
 	TiEmuInterface: ITiEmuOLE;
 	Connection: TLinkConnection;
 begin
-	if TransferTarget = ttVTI then begin
+	if TransferTarget = ttTIEmu then begin
 		TiEmuInterface := GetTiEmuInterface;
 		try
 			if not TiEmuInterface.execute_command(Line) then Abort;
@@ -4987,8 +4998,8 @@ var
 begin
 	CanRun := Runnable;
 	ActionDebugRun.Enabled := not Compiling;
-	ActionDebugPause.Enabled := (not Compiling) and (TransferTarget = ttVTI);
-	ActionDebugReset.Enabled := (not Compiling) and (TransferTarget = ttVTI);
+	ActionDebugPause.Enabled := (not Compiling) and ((TransferTarget = ttVTI) or (TransferTarget = ttTIEmu));
+	ActionDebugReset.Enabled := (not Compiling) and ((TransferTarget = ttVTI) or (TransferTarget = ttTIEmu));
 	MainMenuDebug.Visible := CanRun;
 	if not CanRun then
 		ToolBarDebugLine.Parent := nil;
@@ -5012,6 +5023,8 @@ begin
 		ProjectCompile (Sender);
 	end else if (Key = vk_F9) and (Shift = [ssShift, ssCtrl, ssAlt]) then begin
 		if TransferTarget = ttVTI then
+			TransferTarget := ttTIEmu
+		else if TransferTarget = ttTiEmu then
 			TransferTarget := ttCalc
 		else
 			TransferTarget := ttVTI;

+ 4 - 2
MasterUnit.pas

@@ -61,8 +61,9 @@ type
 	TSpecialSupportOption = (ssA68k, ssQuill, ssPack, ssFlashOS, ssFargo);
 	TSpecialSupport = set of TSpecialSupportOption;
 	TProjectTarget = (ptRegular, ptFlashOS, ptFargo, ptArchive);
-	TTransferTarget = (ttNone, ttVTI, ttCalc);
-	TTiEmuCalcType = (cvNone = 0, cvTI92 = 1, cvTI89 = 2, cvTI92Plus = 4, cvV200 = 8, cvTI89Ti = 16);
+	TTransferTarget = (ttNone, ttVTI, ttCalc, ttTIEmu);
+	TVTICalcType = (cvVTINone, cvVTITI89, cvVTITI92Plus, cvVTITI92);
+	TTiEmuCalcType = (cvTIEmuNone = 0, cvTIEmuTI92 = 1, cvTIEmuTI89 = 2, cvTIEmuTI92Plus = 4, cvTIEmuV200 = 8, cvTIEmuTI89Ti = 16);
 	TKernelFormat = (kfUnknown, kfNone, kfStandard, kfCompressedTables);
 	TRelocFormat = (rfUnknown, rfNone, rfDirect, rfAMS, rfKernel, rfCompressed, rfMlink, rfFLine);
 
@@ -143,6 +144,7 @@ var
 	LastNewsDate: Integer;
 	TransferTarget: TTransferTarget;
 	VTIPath: string;
+	TIEmuPath: string;
 	LinkPort: TLinkPort;
 	LinkCable: TLinkCableType;
 	SpecialSupport: TSpecialSupport;

+ 50 - 16
PreferencesUnit.dfm

@@ -5,7 +5,7 @@ object PreferencesForm: TPreferencesForm
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   Caption = 'Preferences'
-  ClientHeight = 321
+  ClientHeight = 365
   ClientWidth = 321
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -20,12 +20,12 @@ object PreferencesForm: TPreferencesForm
   OnShow = FormShow
   DesignSize = (
     321
-    321)
+    365)
   PixelsPerInch = 96
   TextHeight = 13
   object OKButton: TButton
     Left = 144
-    Top = 288
+    Top = 332
     Width = 81
     Height = 25
     Anchors = [akRight, akBottom]
@@ -36,7 +36,7 @@ object PreferencesForm: TPreferencesForm
   end
   object CancelButton: TButton
     Left = 232
-    Top = 288
+    Top = 332
     Width = 81
     Height = 25
     Anchors = [akRight, akBottom]
@@ -49,7 +49,7 @@ object PreferencesForm: TPreferencesForm
     Left = 8
     Top = 8
     Width = 305
-    Height = 273
+    Height = 317
     ActivePage = GeneralSheet
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 2
@@ -174,46 +174,62 @@ object PreferencesForm: TPreferencesForm
       ImageIndex = 3
       DesignSize = (
         297
-        245)
+        289)
       object TargetBox: TGroupBox
         Left = 16
         Top = 16
         Width = 265
-        Height = 209
+        Height = 253
         Anchors = [akLeft, akTop, akRight]
         Caption = '&Target'
         TabOrder = 0
+        OnClick = TargetBoxClick
         DesignSize = (
           265
-          209)
+          253)
         object VTIBox: TRadioButton
+          Left = 16
+          Top = 82
+          Width = 65
+          Height = 17
+          Hint = '89/92/92+ HW1/2, known bugs but faster'
+          Caption = '&Virtual TI'
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 4
+          OnClick = TargetBoxClick
+        end
+        object TIEmuBox: TRadioButton
           Left = 16
           Top = 38
           Width = 65
           Height = 17
+          Hint = 'all models, many more features but larger and slower'
           Caption = 'TiE&mu'
           Checked = True
+          ParentShowHint = False
+          ShowHint = True
           TabOrder = 1
           TabStop = True
           OnClick = TargetBoxClick
         end
         object RealCalcBox: TRadioButton
           Left = 16
-          Top = 82
+          Top = 126
           Width = 97
           Height = 17
           Caption = 'R&eal Calculator'
-          TabOrder = 4
+          TabOrder = 7
           OnClick = TargetBoxClick
         end
         object PortBox: TGroupBox
           Left = 35
-          Top = 101
+          Top = 145
           Width = 78
           Height = 93
           Caption = 'Link &Port'
           Enabled = False
-          TabOrder = 5
+          TabOrder = 8
           object PortCOM1Box: TRadioButton
             Left = 10
             Top = 20
@@ -253,12 +269,12 @@ object PreferencesForm: TPreferencesForm
         end
         object CableBox: TGroupBox
           Left = 123
-          Top = 101
+          Top = 145
           Width = 126
           Height = 93
           Caption = 'C&able Type'
           Enabled = False
-          TabOrder = 6
+          TabOrder = 9
           object CableBlackBox: TRadioButton
             Left = 10
             Top = 28
@@ -288,6 +304,14 @@ object PreferencesForm: TPreferencesForm
           OnClick = TargetBoxClick
         end
         object VTIPathEdit: TEdit
+          Left = 35
+          Top = 100
+          Width = 158
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 5
+        end
+        object TIEmuPathEdit: TEdit
           Left = 35
           Top = 56
           Width = 158
@@ -296,6 +320,16 @@ object PreferencesForm: TPreferencesForm
           TabOrder = 2
         end
         object VTIPathBrowseButton: TButton
+          Left = 196
+          Top = 100
+          Width = 53
+          Height = 21
+          Anchors = [akTop, akRight]
+          Caption = '&Browse...'
+          TabOrder = 6
+          OnClick = VTIPathBrowseButtonClick
+        end
+        object TIEmuPathBrowseButton: TButton
           Left = 196
           Top = 56
           Width = 53
@@ -303,7 +337,7 @@ object PreferencesForm: TPreferencesForm
           Anchors = [akTop, akRight]
           Caption = '&Browse...'
           TabOrder = 3
-          OnClick = VTIPathBrowseButtonClick
+          OnClick = TIEmuPathBrowseButtonClick
         end
       end
     end
@@ -312,7 +346,7 @@ object PreferencesForm: TPreferencesForm
       ImageIndex = 1
       DesignSize = (
         297
-        245)
+        289)
       object Label2: TLabel
         Left = 16
         Top = 17

+ 15 - 0
PreferencesUnit.pas

@@ -77,6 +77,7 @@ type
     TransferSheet: TTabSheet;
     TargetBox: TGroupBox;
     VTIBox: TRadioButton;
+    TIEmuBox: TRadioButton;
     RealCalcBox: TRadioButton;
     PortBox: TGroupBox;
     PortCOM1Box: TRadioButton;
@@ -89,6 +90,8 @@ type
     NoneBox: TRadioButton;
     VTIPathEdit: TEdit;
     VTIPathBrowseButton: TButton;
+    TIEmuPathEdit: TEdit;
+    TIEmuPathBrowseButton: TButton;
     BrowseDlg: TOpenDialog;
     DragDropEditCheckBox: TCheckBox;
     RemoveTrailingSpcCheckBox: TCheckBox;
@@ -122,6 +125,7 @@ type
 		procedure PageControllerChange(Sender: TObject);
     procedure TargetBoxClick(Sender: TObject);
     procedure VTIPathBrowseButtonClick(Sender: TObject);
+    procedure TIEmuPathBrowseButtonClick(Sender: TObject);
 	private
 	public
 		BackColor: TColor;
@@ -473,6 +477,8 @@ procedure TPreferencesForm.TargetBoxClick(Sender: TObject);
 begin
 	VTIPathEdit.Enabled := VTIBox.Checked;
 	VTIPathBrowseButton.Enabled := VTIPathEdit.Enabled;
+	TIEmuPathEdit.Enabled := TIEmuBox.Checked;
+	TIEmuPathBrowseButton.Enabled := TIEmuPathEdit.Enabled;
 	PortBox.Enabled := RealCalcBox.Checked;
 	PortCOM1Box.Enabled := PortBox.Enabled;
 	PortCOM2Box.Enabled := PortBox.Enabled;
@@ -492,6 +498,15 @@ begin
 	end;
 end;
 
+procedure TPreferencesForm.TIEmuPathBrowseButtonClick(Sender: TObject);
+begin
+	with BrowseDlg do begin
+		FileName := TIEmuPathEdit.Text;
+		if Execute then
+			TIEmuPathEdit.Text := FileName;
+	end;
+end;
+
 {$IFDEF CODINGEXT}
 procedure TPreferencesForm.InitCodingExt;
 var

+ 45 - 0
TIEmuStartUnit.dfm

@@ -0,0 +1,45 @@
+object TIEmuStartForm: TTIEmuStartForm
+  Left = 211
+  Top = 165
+  ActiveControl = CancelButton
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'Starting TiEmu...'
+  ClientHeight = 86
+  ClientWidth = 241
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 16
+    Top = 16
+    Width = 209
+    Height = 13
+    Alignment = taCenter
+    AutoSize = False
+    Caption = 'Please wait while TiEmu is being started...'
+  end
+  object CancelButton: TButton
+    Left = 80
+    Top = 48
+    Width = 81
+    Height = 25
+    Cancel = True
+    Caption = '&Cancel'
+    ModalResult = 2
+    TabOrder = 0
+  end
+  object FindTimer: TTimer
+    Interval = 100
+    OnTimer = FindTimerTimer
+  end
+end

+ 94 - 0
TIEmuStartUnit.pas

@@ -0,0 +1,94 @@
+{
+  TIGCC IDE
+
+  Copyright (C) 2000-2004 Sebastian Reichelt
+  Copyright (C) 2006 Kevin Kofler
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation; either version 2, or (at your option)
+  any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software Foundation,
+  Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
+}
+
+unit TIEmuStartUnit;
+
+interface
+
+uses
+	MasterUnit,
+	Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+	StdCtrls, ExtCtrls, ComObj, ActiveX, TiEmuOLELib_TLB;
+
+type
+	TTIEmuStartForm = class(TForm)
+		Label1: TLabel;
+		CancelButton: TButton;
+    FindTimer: TTimer;
+		procedure FormShow(Sender: TObject);
+		procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FindTimerTimer(Sender: TObject);
+	private
+		ProcessHandle: THandle;
+	public
+		TiEmuInterface: ITiEmuOLE;
+	end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+	UtilsWin;
+
+procedure TTIEmuStartForm.FormShow(Sender: TObject);
+var
+	StartupInfo: TStartupInfo;
+	ProcessInfo: TProcessInformation;
+begin
+	FillChar (StartupInfo, SizeOf (StartupInfo), 0);
+	StartupInfo.cb := SizeOf (StartupInfo);
+	if CreateProcess (nil, PChar (TIEmuPath), nil, nil, False, CREATE_NEW_PROCESS_GROUP or DETACHED_PROCESS, nil, PChar (ExtractFilePath (TIEmuPath)), StartupInfo, ProcessInfo) then begin
+		ProcessHandle := ProcessInfo.hProcess;
+		CloseHandle (ProcessInfo.hThread);
+	end else begin
+		ShowDefaultMessageBox ('An error occurred while trying to start TiEmu.', 'Error', mtProgramError);
+		ModalResult := mrAbort;
+	end;
+end;
+
+procedure TTIEmuStartForm.FormClose(Sender: TObject;
+	var Action: TCloseAction);
+begin
+	if ProcessHandle <> 0 then
+		CloseHandle (ProcessHandle);
+end;
+
+procedure TTIEmuStartForm.FindTimerTimer(Sender: TObject);
+var
+	ExitCode: Cardinal;
+	Unknown: IUnknown;
+	OLEResult: HResult;
+begin
+	if GetExitCodeProcess (ProcessHandle, ExitCode) then begin
+		if ExitCode <> STILL_ACTIVE then begin
+			ModalResult := mrAbort;
+			Exit;
+		end;
+	end;
+	OLEResult := GetActiveObject(CLASS_TiEmuOLE, nil, Unknown);
+	if OLEResult = S_OK then begin
+		OleCheck(Unknown.QueryInterface(ITiEmuOLE, TiEmuInterface));
+		ModalResult := mrOK;
+	end;
+end;
+
+end.

+ 2 - 2
VTIStartUnit.dfm

@@ -4,7 +4,7 @@ object VTIStartForm: TVTIStartForm
   ActiveControl = CancelButton
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
-  Caption = 'Starting TiEmu...'
+  Caption = 'Starting Virtual TI...'
   ClientHeight = 86
   ClientWidth = 241
   Color = clBtnFace
@@ -26,7 +26,7 @@ object VTIStartForm: TVTIStartForm
     Height = 13
     Alignment = taCenter
     AutoSize = False
-    Caption = 'Please wait while TiEmu is being started...'
+    Caption = 'Please wait while Virtual TI is being started...'
   end
   object CancelButton: TButton
     Left = 80

+ 1 - 1
VTIStartUnit.pas

@@ -60,7 +60,7 @@ begin
 		ProcessHandle := ProcessInfo.hProcess;
 		CloseHandle (ProcessInfo.hThread);
 	end else begin
-		ShowDefaultMessageBox ('An error occurred while trying to start TiEmu.', 'Error', mtProgramError);
+		ShowDefaultMessageBox ('An error occurred while trying to start Virtual TI.', 'Error', mtProgramError);
 		ModalResult := mrAbort;
 	end;
 end;

Some files were not shown because too many files changed in this diff