Rename window class. Fix minor ctrl-9 issues.

BazzaCuda · May 29, 2023 · 7d54ed4 · 7d54ed4
1 parent df69a39
commit 7d54ed4
Show file tree

Hide file tree

Showing 4 changed files with 137 additions and 71 deletions.
diff --git a/MinimalistMediaPlayer.dpr b/MinimalistMediaPlayer.dpr
@@ -20,7 +20,7 @@ program MinimalistMediaPlayer;
 
 uses
   Vcl.Forms,
-  main in 'main.pas' {UI},
+  main in 'main.pas' {MMPUI},
   FormInputBox in 'FormInputBox.pas' {InputBoxForm},
   Vcl.Themes,
   Vcl.Styles,
@@ -40,7 +40,7 @@ begin
 
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
-  Application.CreateForm(TUI, UI);
+  Application.CreateForm(TMMPUI, UI);
   try
     Application.Run;
   except

diff --git a/MinimalistMediaPlayer.dproj b/MinimalistMediaPlayer.dproj
@@ -132,7 +132,7 @@
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
         <DCCReference Include="main.pas">
-            <Form>UI</Form>
+            <Form>MMPUI</Form>
         </DCCReference>
         <DCCReference Include="FormInputBox.pas">
             <Form>InputBoxForm</Form>

diff --git a/main.dfm b/main.dfm
@@ -1,4 +1,4 @@
-object UI: TUI
+object MMPUI: TMMPUI
   Left = 0
   Top = 0
   BorderIcons = [biSystemMenu]