tvplant: Call ForcePathDelims in relation to media and localization file names.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4864 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpreg.pas

@@ -36,7 +36,7 @@ interface
 
 uses
   {$IFDEF LCL}
-  LCLProc, LCLType, LCLIntf,
+  LCLProc, LCLType, LCLIntf, LazFileUtils,
   {$ELSE}
   Windows,
   {$ENDIF}
@@ -305,7 +305,7 @@ begin
     dlg.DefaultExt := GetDefaultExt;
     dlg.Filter := GetFilter;
     dlg.FilterIndex := 1;
-    dlg.InitialDir := GetInitialDir;
+    dlg.InitialDir := GetForcedPathDelims(GetInitialDir);
     dlg.Options := [ofHideReadOnly];
     dlg.Filename := GetValue;
     if dlg.Execute then
@@ -415,6 +415,7 @@ begin
       Result := ds.MediaFolder
     else
       Result := ExtractFilePath(ds.DefaultEventSound);
+    Result := GetForcedPathDelims(Result);
   end else
     Result := '';
 end;

components/tvplanit/source/vpxbase.pas

@@ -34,6 +34,9 @@ interface
 
 uses
   Classes,
+ {$IFDEF LCL}
+  LazUTF8Classes,
+ {$ENDIF}
   VpBase;
 
 
@@ -55,7 +58,11 @@ type
     procedure SetPointer(Ptr : Pointer; Size : Longint);
   end;
 
+ {$IFDEF LCL}
+  TVpFileStream = class(TFileStreamUTF8)
+ {$ELSE}
   TVpFileStream = class(TFileStream)
+ {$ENDIF}
     FFileName : string;
   public
     constructor CreateEx(Mode : Word; const FileName : string);

components/tvplanit/source/vpxparsr.pas

@@ -34,7 +34,7 @@ interface
 
 uses
   {$IFDEF LCL}
-  LMessages,LCLProc,LCLType,
+  LMessages, LCLProc, LCLType,
   {$ELSE}
   Windows,
   {$ENDIF}