From c03147739283ba83a6a63f6ddec60f90788295a6 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 12 Oct 2022 21:53:10 +0000
Subject: [PATCH] tvplanit: Translatable caption of the print format editor
 form.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8548 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpedfmtlst.lfm | 1 -
 components/tvplanit/source/vpedfmtlst.pas | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/components/tvplanit/source/vpedfmtlst.lfm b/components/tvplanit/source/vpedfmtlst.lfm
index 83b2b76b5..0f2ccadc7 100644
--- a/components/tvplanit/source/vpedfmtlst.lfm
+++ b/components/tvplanit/source/vpedfmtlst.lfm
@@ -10,7 +10,6 @@ object frmPrnFormat: TfrmPrnFormat
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '2.3.0.0'
   object LblFormats: TLabel
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
diff --git a/components/tvplanit/source/vpedfmtlst.pas b/components/tvplanit/source/vpedfmtlst.pas
index 3b7284e1a..5e97b560a 100644
--- a/components/tvplanit/source/vpedfmtlst.pas
+++ b/components/tvplanit/source/vpedfmtlst.pas
@@ -47,8 +47,6 @@ uses
   VpPrtFmt, VpBase, VpBaseDS, VpPrtPrv, VpException, VpSR;
 
 const
-  BaseCaption = 'Print Format Designer';
-  FileCaption = BaseCaption + ' - %s';
   UnnamedFile = '<Unnamed>';
 
 type
@@ -774,7 +772,7 @@ end;
 
 procedure TfrmPrnFormat.UpdateCaption;
 begin
-  Caption := Format(FileCaption, [FormatFileName]);
+  Caption := RSPrintFormatDesigner + ' - ' + FormatFileName;
 end;
 
 procedure TfrmPrnFormat.UpdateFormats;