Changeset 59 for trunk/Packages/Common/UURI.pas

Timestamp:

Dec 3, 2014, 9:09:42 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for high DPI screens. If not detected automatically correctly then user can specify desired values.
• Updated: Common package to newer version.

File:

• trunk/Packages/Common/UURI.pas (modified) (1 diff)

trunk/Packages/Common/UURI.pas

@@ -326 +326 @@
     Drive := Drive + DriveSeparator;
   end else Drive := '';
-  Directory.AsString := AValue;
+  if (Drive <> '') and (AValue = '') then
+    Directory.AsString := Directory.DirSeparator
+    else Directory.AsString := AValue;
 end;