Folgenden Code nutze ich:
if f<>nil then f=f.Child(me.cell(me.listindex,1))
if f<>nil then
s=f.AbsolutePath
if TargetMacOS then
s=ReplaceAll(s,":","/")
s="file://"+ReplaceAll(s," ","%20")
end
if TargetWin32 then
s=ReplaceAll(s,"\","/")
end
if TargetLinux then
s=ReplaceAll(s,"\","/")
s="file://"+ReplaceAll(s," ","%20")
end
if HTMLViewer1.IsAvailable then
HTMLViewer1.LoadURL s
end
end
Funktioniert.
Wenn ich jedoch eine Datei mit Umlaut (Neubäumer.html) benutze,
funktioniert es nicht mehr :-(
Hat jemand einen guten Tipp, wie ich das behebe?
MfG, Metti.