diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-17 14:45:29 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-17 14:45:29 +0000 |
| commit | a8b70b47370f8623f6a3e87724e5bfd8b52d8474 (patch) | |
| tree | 4818030f7df543943499f3e94ba5c8b0d358c4ed /src/gui | |
| parent | 003a991ccc0b05ce9a939d27313dd5ee0d9f4390 (diff) | |
| download | fpGUI-a8b70b47370f8623f6a3e87724e5bfd8b52d8474.tar.xz | |
* Minor tweak to get FileDialog to work under Windows.
Diffstat (limited to 'src/gui')
| -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; |