From 7ff5d0838ad5bc7d93c9ae184f2a17284b479e9e Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 4 Oct 2008 13:50:42 +0200 Subject: Display correct file dates and sizes in the Overwrite dialog respecting global format settings --- UConfig.pas | 4 ++-- UCore.pas | 13 +++++++++---- 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/UConfig.pas b/UConfig.pas index 95f171e..22efc53 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -25,8 +25,8 @@ uses Classes, ULocale; resourcestring ConstAppTitle = 'Tux Commander'; - ConstAboutVersion = '0.6.50-dev'; - ConstAboutBuildDate = '2008-10-03'; + ConstAboutVersion = '0.6.51-dev'; + ConstAboutBuildDate = '2008-10-04'; {$IFDEF FPC} {$INCLUDE fpcver.inc} diff --git a/UCore.pas b/UCore.pas index 447392a..374045f 100644 --- a/UCore.pas +++ b/UCore.pas @@ -833,6 +833,7 @@ var DefResponse: integer; // Global variables for this function var Res, Response, ErrorKind, r: integer; Item: PDataItemSL; s, s1, s3, cap: string; + FromInfoLabel, ToInfoLabel, InfoLabelFormat: string; begin Result := True; try @@ -881,10 +882,14 @@ var DefResponse: integer; // Global variables for this function Response := DefResponse; Item := DestEngine.GetFileInfoSL(NewFilePath); if Response = 0 then begin - Response := ShowOverwriteDialog(1 + Ord(ParamBool3), Format(LANGOverwriteS, [StrToUTF8(NewFilePath)]), - Format(LANGOvewriteSBytesS, [FormatSize(Item^.Size, 0), FormatDateTime('ddddd t', Item^.ModifyTime)]), - Format(LANGWithFileS, [AFileRec^.FDisplayName]), - Format(LANGOvewriteSBytesS, [FormatSize(AFileRec^.Size, 0), FormatDateTime('ddddd t', AFileRec^.ModifyTime)]), + case ConfSizeFormat of + 5: InfoLabelFormat := '%s, %s'; + else InfoLabelFormat := LANGOvewriteSBytesS; + end; + FromInfoLabel := Format(InfoLabelFormat, [FormatSize(Item^.Size, 0), FormatDate(Item^.ModifyTime, True, True)]); + ToInfoLabel := Format(InfoLabelFormat, [FormatSize(AFileRec^.Size, 0), FormatDate(AFileRec^.ModifyTime, True, True)]); + Response := ShowOverwriteDialog(1 + Ord(ParamBool3), Format(LANGOverwriteS, [StrToUTF8(NewFilePath)]), FromInfoLabel, + Format(LANGWithFileS, [AFileRec^.FDisplayName]), ToInfoLabel, ExtractFileName(StrToUTF8(NewFilePath)), ExtractFileName(AFileRec^.FDisplayName), ExtractFileName(StrToUTF8(NewFilePath))); s := FOverwriteRenameStr; case Response of -- cgit v1.2.3