diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/gdi/fpgfx_package.lpk | 6 | ||||
| -rw-r--r-- | src/corelib/gdi/fpgfx_package.pas | 3 | ||||
| -rw-r--r-- | src/gui/gui_grid.pas | 14 |
3 files changed, 15 insertions, 8 deletions
diff --git a/src/corelib/gdi/fpgfx_package.lpk b/src/corelib/gdi/fpgfx_package.lpk index c39a4c65..8182a71d 100644 --- a/src/corelib/gdi/fpgfx_package.lpk +++ b/src/corelib/gdi/fpgfx_package.lpk @@ -26,7 +26,7 @@ <License Value="Modified LGPL "/>
<Version Minor="5"/>
- <Files Count="10">
+ <Files Count="11">
<Item1>
<Filename Value="..\gfxbase.pas"/>
<UnitName Value="gfxbase"/>
@@ -67,6 +67,10 @@ <Filename Value="..\gfx_clipboard.pas"/>
<UnitName Value="gfx_clipboard"/>
</Item10>
+ <Item11>
+ <Filename Value="gfx_utils.pas"/>
+ <UnitName Value="gfx_utils"/>
+ </Item11>
</Files>
<RequiredPkgs Count="1">
<Item1>
diff --git a/src/corelib/gdi/fpgfx_package.pas b/src/corelib/gdi/fpgfx_package.pas index d48837ab..e24f85b9 100644 --- a/src/corelib/gdi/fpgfx_package.pas +++ b/src/corelib/gdi/fpgfx_package.pas @@ -8,7 +8,8 @@ interface uses gfxbase, fpgfx, gfx_gdi, gfx_stdimages, gfx_imgfmt_bmp, gfx_widget, - gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, gfx_clipboard; + gfx_UTF8utils, gfx_extinterpolation, gfx_cmdlineparams, gfx_clipboard, + gfx_utils; implementation diff --git a/src/gui/gui_grid.pas b/src/gui/gui_grid.pas index f7007839..68454b0a 100644 --- a/src/gui/gui_grid.pas +++ b/src/gui/gui_grid.pas @@ -243,7 +243,9 @@ function TFileList.ReadDirectory(const AFilemask: string; AShowHidden: boolean): e.Size := sr.Size; e.Attributes := sr.Attr; // this is incorrect and needs to improve! e.EntryType := etFile; + {$IFDEF UNIX} e.mode := sr.Mode; + {$ENDIF} e.IsLink := HasAttrib(sr.Attr, faSymLink); fullname := FDirectoryName + e.Name; e.LinkTarget := ExtractTargetSymLinkPath(fullname); @@ -427,11 +429,11 @@ begin // File attributes s := ''; //if (e.attributes and FILE_ATTRIBUTE_ARCHIVE) <> 0 then s := s + 'a' else s := s + ' '; - if (e.attributes and FILE_ATTRIBUTE_HIDDEN) <> 0 then s := s + 'h'; - if (e.attributes and FILE_ATTRIBUTE_READONLY) <> 0 then s := s + 'r'; - if (e.attributes and FILE_ATTRIBUTE_SYSTEM) <> 0 then s := s + 's'; - if (e.attributes and FILE_ATTRIBUTE_TEMPORARY) <> 0 then s := s + 't'; - if (e.attributes and FILE_ATTRIBUTE_COMPRESSED) <> 0 then s := s + 'c'; +// if (e.attributes and FILE_ATTRIBUTE_HIDDEN) <> 0 then s := s + 'h'; +// if (e.attributes and FILE_ATTRIBUTE_READONLY) <> 0 then s := s + 'r'; +// if (e.attributes and FILE_ATTRIBUTE_SYSTEM) <> 0 then s := s + 's'; +// if (e.attributes and FILE_ATTRIBUTE_TEMPORARY) <> 0 then s := s + 't'; +// if (e.attributes and FILE_ATTRIBUTE_COMPRESSED) <> 0 then s := s + 'c'; {$ENDIF} {$IFDEF UNIX} // rights @@ -447,8 +449,8 @@ begin s := modestring[n]+s; inc(n); b := b shl 1; - {$ENDIF} end; + {$ENDIF} Canvas.SetFont(FixedFont); end; |