paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 12:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2, options: set label captions in Format File tab correctly in case file is not found, bug #16897.

Browse Source 
git-svn-id: trunk@26572 -
This commit is contained in:
maxim 2010-07-10 15:31:13 +00:00
parent 2c2826070c
commit ec4b8962b9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/jcf2/Ui/Settings/frFiles.pas
View File

@ -72,6 +72,10 @@ begin
lblFormatFileName.Caption := Format(lisFrFilesFormatFileIs, [lcSet.FormatConfigFileName]);
//lblFormatFileName.Caption := PathCompactPath(lblFormatFileName.Canvas.Handle, 'Format file is ' + lcSet.FormatConfigFileName, 450, cpCenter);
lblDate.Caption := '';
lblVersion.Caption := '';
lblDescription.Caption := lisFrFilesDescription;
if not FileExists(lcSet.FormatConfigFileName) then
begin
lblStatus.Caption := lisFrFilesFileNotFound;
@ -95,7 +99,6 @@ begin
[FormatDateTime(ShortDateFormat + ' ' + ShortTimeFormat,
FormatSettings.WriteDateTime)]);
lblVersion.Caption := Format(lisFrFilesVersionThatWroteThisFile, [FormatSettings.WriteVersion]);
lblDescription.Caption := lisFrFilesDescription;
mDescription.Text := FormatSettings.Description;
end;