pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Translatable caption of the print format editor form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8548 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 21:53:10 +00:00
parent a42b9d4515
commit c031477392
2 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -10,7 +10,6 @@ object frmPrnFormat: TfrmPrnFormat
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object LblFormats: TLabel object LblFormats: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner

4
components/tvplanit/source/vpedfmtlst.pas
View File

@ -47,8 +47,6 @@ uses
VpPrtFmt, VpBase, VpBaseDS, VpPrtPrv, VpException, VpSR; VpPrtFmt, VpBase, VpBaseDS, VpPrtPrv, VpException, VpSR;
const const
BaseCaption = 'Print Format Designer';
FileCaption = BaseCaption + ' - %s';
UnnamedFile = '<Unnamed>'; UnnamedFile = '<Unnamed>';
type type
@ -774,7 +772,7 @@ end;
procedure TfrmPrnFormat.UpdateCaption; procedure TfrmPrnFormat.UpdateCaption;
begin begin
Caption := Format(FileCaption, [FormatFileName]); Caption := RSPrintFormatDesigner + ' - ' + FormatFileName;
end; end;
procedure TfrmPrnFormat.UpdateFormats; procedure TfrmPrnFormat.UpdateFormats;