Skip to content

Commit 76ba692

Browse files
committed
import gnugettext
1 parent 6091501 commit 76ba692

8 files changed

Lines changed: 4472 additions & 25 deletions

File tree

.gitignore

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,7 @@
2626
#*.obj
2727
#
2828

29+
res
2930
Win32
3031
Win64
3132

PdftkBuilder.dpr

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,6 @@ uses
1010
begin
1111
Application.Initialize;
1212
Application.Title := 'PDFTK Builder';
13-
Application.HelpFile := 'PdftkBuilder.html';
1413
Application.CreateForm(TMainForm, MainForm);
1514
Application.Run;
1615
end.

PdftkBuilder.dproj

Lines changed: 12 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
<MainSource>PdftkBuilder.dpr</MainSource>
55
<Base>True</Base>
66
<Config Condition="'$(Config)'==''">Debug</Config>
7-
<TargetedPlatforms>3</TargetedPlatforms>
7+
<TargetedPlatforms>1</TargetedPlatforms>
88
<AppType>Application</AppType>
99
<FrameworkType>VCL</FrameworkType>
1010
<ProjectVersion>19.1</ProjectVersion>
@@ -76,6 +76,7 @@
7676
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
7777
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
7878
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
79+
<DCC_UnitSearchPath>.\lib\gnugettext;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
7980
</PropertyGroup>
8081
<PropertyGroup Condition="'$(Base_Win32)'!=''">
8182
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
@@ -111,7 +112,12 @@
111112
</PropertyGroup>
112113
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
113114
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
114-
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
115+
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
116+
<VerInfo_Locale>1033</VerInfo_Locale>
117+
<VerInfo_MajorVer>5</VerInfo_MajorVer>
118+
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
119+
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
120+
<AppDPIAwarenessMode>gdiScaling</AppDPIAwarenessMode>
115121
</PropertyGroup>
116122
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
117123
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
@@ -127,10 +133,11 @@
127133
</PropertyGroup>
128134
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
129135
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
130-
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
131136
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
132137
<VerInfo_Locale>1033</VerInfo_Locale>
133-
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
138+
<VerInfo_MajorVer>5</VerInfo_MajorVer>
139+
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
140+
<AppDPIAwarenessMode>gdiScaling</AppDPIAwarenessMode>
134141
</PropertyGroup>
135142
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
136143
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
@@ -174,7 +181,7 @@
174181
<Platforms>
175182
<Platform value="OSX64">False</Platform>
176183
<Platform value="Win32">True</Platform>
177-
<Platform value="Win64">True</Platform>
184+
<Platform value="Win64">False</Platform>
178185
</Platforms>
179186
</BorlandProject>
180187
<ProjectFileVersion>12</ProjectFileVersion>

PdftkBuilder.res

92 Bytes
Binary file not shown.

about.pas

Lines changed: 18 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -2,17 +2,27 @@
22

33
(*******************************************************************************
44
5-
Application: PDFTK Builder Enhanced
6-
Module: About
7-
Version: 4.1.5
8-
Date: 13 Oct 2019
9-
Author: David King
10-
Credits: Angus Johnson (PDFtk Builder 2.05-3.99)
11-
Copyright: © 2018-19, David King
12-
Portion © 2005-2019, Angus Johnson
5+
Application: PDFTK Builder
6+
Description: A graphical user interface to the Windows version of PDFtk
7+
Module: Main
8+
Version: 5.0.0
9+
Date: 18 Oct 2020
10+
Target Platform: Windows 32-bit
11+
Author: Sven Harazim
12+
Credits: David King (PDFtk Builder Enhanced 4.1.5)
13+
Angus Johnson (PDFtk Builder 2.05-3.10.0)
14+
Copyright: © 2020, Sven Harazim
15+
© 2018-2019, David King
16+
© 2005-2018, Angus Johnson
1317
http://www.angusj.com/pdftkb/
1418
License: GNU GPL ver 3 (See http://www.gnu.org/copyleft/gpl.html)
1519
20+
Dependencies: PDFtk Server (pdftk.exe) must be installed to run program.
21+
See https://www.pdflabs.com/tools/pdftk-server/
22+
To use pdftk.exe versions earlier than 2.00, set
23+
PdftkVersion in the .ini file to the version number.
24+
PDF reader must be available to use 'View' buttons.
25+
1626
*******************************************************************************)
1727

1828

@@ -38,10 +48,6 @@ TAboutForm = class(TForm)
3848
Label8: TLabel;
3949
procedure lblUrlClick(Sender: TObject);
4050
procedure FormCreate(Sender: TObject);
41-
private
42-
{ Private declarations }
43-
public
44-
{ Public declarations }
4551
end;
4652

4753
var
@@ -62,9 +68,6 @@ procedure TAboutForm.lblUrlClick(Sender: TObject);
6268
TLabel(Sender).cursor := crHandPoint;
6369
end;
6470

65-
// FormCreate is from v3.9.5 and requires version caption to be manually updated on form
66-
// AJ's mods to automate version number and adjust DPI in v3.9.7-3.10.0 not incorporated
67-
6871
procedure TAboutForm.FormCreate(Sender: TObject);
6972
begin
7073
Image1.Picture.Icon.Assign(application.Icon);

0 commit comments

Comments
 (0)