summaryrefslogtreecommitdiff
path: root/src/gui/gui_dialogs.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/gui/gui_dialogs.pas')
-rw-r--r--src/gui/gui_dialogs.pas10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas
index a99a40a0..44c1aa60 100644
--- a/src/gui/gui_dialogs.pas
+++ b/src/gui/gui_dialogs.pas
@@ -162,7 +162,11 @@ implementation
uses
gfxbase,
gfx_widget,
- gfx_utf8utils;
+ gfx_utf8utils
+ {$IFDEF MSWINDOWS}
+ ,Windows
+ {$ENDIF}
+ ;
procedure ShowMessage(AMessage, ATitle: string);
@@ -962,7 +966,7 @@ begin
drvs := chr(n+ord('A'))+':\';
if Windows.GetDriveType(PChar(drvs)) <> 1 then
begin
- chlDir.Items.Add(u8(drvs));
+ chlDir.Items.Add(drvs);
end;
inc(n);
end;
@@ -996,7 +1000,7 @@ begin
drvs := chr(n+ord('A'))+':\';
if Windows.GetDriveType(PChar(drvs)) <> 1 then
begin
- chlDir.Items.Add(u8(drvs));
+ chlDir.Items.Add(drvs);
end;
inc(n);
end;