diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/gui_dialogs.pas | 10 |
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; |