V.1.48.6 Disk Image Read/Write: disk type "rm02/rm03" made no valid f…

…ile extension.
j-hoppe · Nov 2, 2016 · fe7dcae · fe7dcae
1 parent 16fe398
commit fe7dcae
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 10 deletions.
diff --git a/Pdp11gui/FormDiscImageU.pas b/Pdp11gui/FormDiscImageU.pas
@@ -524,7 +524,7 @@ procedure TFormDiscImage.setDeviceForSelectedController(aDeviceName:string) ;
     // Disc subtype is file extension. replace space with '_'
     ext := LowerCase(aDeviceName) ; 
     for i := 1 to length(ext) do 
-      if ext[i] = ' ' then ext[i] := '_' ; 
+      if ext[i] in [' ', '\', '/', '?', '*', ':', '"', '<', '>', '|'] then ext[i] := '_' ;
 
     RegistryKeyDiskImageFilename := 'DiskImageFilename_' + ext ; 
     OpenDiskImageDialog.DefaultExt := ext ; 

diff --git a/Pdp11gui/PDP11GUI.dproj b/Pdp11gui/PDP11GUI.dproj
@@ -53,10 +53,10 @@
         <Manifest_File>None</Manifest_File>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
         <VerInfo_MinorVer>48</VerInfo_MinorVer>
-        <VerInfo_Release>4</VerInfo_Release>
+        <VerInfo_Release>6</VerInfo_Release>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Build>2100</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=Jörg Hoppe;FileDescription=A graphical interface for PDP-11 system consoles;FileVersion=1.48.4.2100;InternalName=;LegalCopyright=(C) 2008-2015 by Joerg Hoppe, Goettingen, Germany;LegalTrademarks=;OriginalFilename=;ProductName=PDP11GUI;ProductVersion=1.45;Comments=Updates under http://www.retrocmp.com/tools/pdp11gui</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=Jörg Hoppe;FileDescription=A graphical interface for PDP-11 system consoles;FileVersion=1.48.6.2100;InternalName=;LegalCopyright=(C) 2008-2015 by Joerg Hoppe, Goettingen, Germany;LegalTrademarks=;OriginalFilename=;ProductName=PDP11GUI;ProductVersion=1.45;Comments=Updates under http://www.retrocmp.com/tools/pdp11gui</VerInfo_Keys>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
         <DCC_RangeChecking>true</DCC_RangeChecking>
@@ -87,12 +87,10 @@
         <DCC_RangeChecking>True</DCC_RangeChecking>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
         <VerInfo_AutoIncVersion>false</VerInfo_AutoIncVersion>
-        <VerInfo_Release>5</VerInfo_Release>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <VerInfo_Build>2024</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.48.5.2024;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.48.6.2024;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <Version>7.0</Version>
@@ -104,10 +102,9 @@
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_AutoGenVersion>true</VerInfo_AutoGenVersion>
         <VerInfo_AutoIncVersion>false</VerInfo_AutoIncVersion>
-        <VerInfo_Release>5</VerInfo_Release>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
         <VerInfo_Build>2061</VerInfo_Build>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.48.5.2061;InternalName=;LegalCopyright=Joerg Hoppe;LegalTrademarks=;OriginalFilename=;ProductName=PDP11GUI;ProductVersion=1.47.2;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.48.6.2061;InternalName=;LegalCopyright=Joerg Hoppe;LegalTrademarks=;OriginalFilename=;ProductName=PDP11GUI;ProductVersion=1.47.2;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <ProjectExtensions>
         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
@@ -125,7 +122,7 @@
                     <VersionInfo Name="MajorVer">1</VersionInfo>
                     <VersionInfo Name="MinorVer">45</VersionInfo>
                     <VersionInfo Name="Release">1</VersionInfo>
-                    <VersionInfo Name="Build">2183</VersionInfo>
+                    <VersionInfo Name="Build">2185</VersionInfo>
                     <VersionInfo Name="Debug">False</VersionInfo>
                     <VersionInfo Name="PreRelease">False</VersionInfo>
                     <VersionInfo Name="Special">False</VersionInfo>
@@ -137,7 +134,7 @@
                 <VersionInfoKeys>
                     <VersionInfoKeys Name="CompanyName">Jörg Hoppe</VersionInfoKeys>
                     <VersionInfoKeys Name="FileDescription">A graphical interface for PDP-11 system consoles</VersionInfoKeys>
-                    <VersionInfoKeys Name="FileVersion">1.45.1.2183</VersionInfoKeys>
+                    <VersionInfoKeys Name="FileVersion">1.45.1.2185</VersionInfoKeys>
                     <VersionInfoKeys Name="InternalName"/>
                     <VersionInfoKeys Name="LegalCopyright">(C) 2008-2014 by Joerg Hoppe, Goettingen, Germany</VersionInfoKeys>
                     <VersionInfoKeys Name="LegalTrademarks"/>

diff --git a/Pdp11gui/history.txt b/Pdp11gui/history.txt
@@ -2,6 +2,10 @@
 PDP11GUI Revision history:
 --------------------------
 
+2.11.2016   V.1.48.6
+            - Disk Image Read/Write: disk type "rm02/rm03" made no valid
+              file extension.
+31.10.2016  - published
 22.10.2016: V 1.48.5
                 - Disk Image Read/Write: after driver start, wait until
                   any serial output is discarded.