small fix

RetroNick2020 · Dec 24, 2023 · ab7579f · ab7579f
1 parent 4f94bd8
commit ab7579f
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/rtbinobj.pas b/rtbinobj.pas
@@ -11,7 +11,7 @@
   objlib,hunklib,bsavelib,cofflib;
 
 Const
-  ProgramName = 'RtBinObj v1.7 - Released December 21 - 2023 By RetroNick';
+  ProgramName = 'RtBinObj v1.8 - Released December 24 - 2023 By RetroNick';
 
   CompTP = 0;
   CompTC = 1;

diff --git a/rtbinobjform.pas b/rtbinobjform.pas
@@ -9,7 +9,7 @@ interface
   LazFileUtils, objlib,hunklib,bsavelib,cofflib;
 
 Const
-  ProgramName = 'RtBinObj v1.7 By RetroNick - Released December 21 - 2023';
+  ProgramName = 'RtBinObj v1.8 By RetroNick - Released December 24 - 2023';
 
 type
 
@@ -74,12 +74,18 @@ procedure TForm1.SetPublicNames;
 var
   sname : string;
 begin
-  if ObjModeRadioGroup.ItemIndex = 0 then
+    if ObjModeRadioGroup.ItemIndex = 0 then      //TP
     begin
        sname:=UpperCase(ExtractFileName(ExtractFileNameWithoutExt(OpenDialog.FileName)));
        EditPublicName.Text:=sname;
        EditPublicSizeName.Text:=sname+'SIZE';
     end
+    else if ObjModeRadioGroup.ItemIndex = 7 then      //TMT
+    begin
+       sname:=UpperCase(ExtractFileName(ExtractFileNameWithoutExt(OpenDialog.FileName)));
+       EditPublicName.Text:=sname;
+       EditPublicSizeName.Text:='';
+    end
     else
     begin
       sname:=LowerCase(ExtractFileName(ExtractFileNameWithoutExt(OpenDialog.FileName)));