LHelp: Replace icons by high-dpi versions drawn by Roland Hahn. Redesign "About" box to show application icon.

git-svn-id: trunk@64579 -

.gitattributes

@@ -623,11 +623,33 @@ components/chmhelp/lhelp/chmpopup.pas svneol=native#text/plain
 components/chmhelp/lhelp/chmspecialparser.pas svneol=native#text/plain
 components/chmhelp/lhelp/filecontentprovider.pas svneol=native#text/plain
 components/chmhelp/lhelp/httpcontentprovider.pas svneol=native#text/plain
+components/chmhelp/lhelp/images/arrow-left.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/arrow-left_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/arrow-left_200.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/arrow-right.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/arrow-right_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/arrow-right_200.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/home.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/home_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/home_200.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/lhelp.ico -text svneol=unset#image/x-icon
+components/chmhelp/lhelp/images/lhelp.png -text svneol=unset#image/png
 components/chmhelp/lhelp/images/lhelp16.png -text
 components/chmhelp/lhelp/images/lhelp32.png -text
+components/chmhelp/lhelp/images/lhelp_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/lhelp_200.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/open.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/open_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/open_200.png -text svneol=unset#image/png
 components/chmhelp/lhelp/images/table_close.png -text
+components/chmhelp/lhelp/images/table_close_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/table_close_200.png -text svneol=unset#image/png
 components/chmhelp/lhelp/images/table_item.png -text
+components/chmhelp/lhelp/images/table_item_150.png -text
+components/chmhelp/lhelp/images/table_item_200.png -text svneol=unset#image/png
 components/chmhelp/lhelp/images/table_open.png -text
+components/chmhelp/lhelp/images/table_open_150.png -text svneol=unset#image/png
+components/chmhelp/lhelp/images/table_open_200.png -text svneol=unset#image/png
 components/chmhelp/lhelp/languages/lhelp.fi.po svneol=native#text/plain
 components/chmhelp/lhelp/languages/lhelp.fr.po svneol=native#text/plain
 components/chmhelp/lhelp/languages/lhelp.hu.po svneol=native#text/plain

components/chmhelp/lhelp/languages/lhelp.fi.po

@@ -1,5 +1,15 @@
 msgid ""
-msgstr "Content-Type: text/plain; charset=UTF-8"
+msgstr ""
+"Content-Type: text/plain; charset=UTF-8\n"
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: \n"
+"Last-Translator: \n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Language: fi\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -131,8 +141,8 @@ msgstr ""
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (CHM tiedoston näyttäjä)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "CHM tiedoston näyttäjä%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -229,4 +239,3 @@ msgstr "    Käyttö: lhelp [[tiedosto] [--context id] [--hide] [--ipcname lhelp
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "Näytä"
-

components/chmhelp/lhelp/languages/lhelp.fr.po

@@ -3,13 +3,13 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: 2015-04-12 15:04+0100\n"
-"PO-Revision-Date: 2017-05-24 10:01+0200\n"
+"PO-Revision-Date: 2021-02-14 18:16+0100\n"
 "Last-Translator: Yann Mérignac <yann.merignac@laposte.net>\n"
 "Language-Team: Vasseur Gilles <gillesvasseur58@gmail.com>\n"
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
 "Language: fr\n"
-"X-Generator: Poedit 2.0.1\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -141,8 +141,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (visionneur de fichier CHM)%sVersion %s%sCopyright (C) Andrew Haines, %sContributeurs Lazarus"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "Visionneur de fichier CHM%sVersion %s%sCopyright (C) Andrew Haines, %sContributeurs Lazarus"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -241,4 +241,3 @@ msgstr "    Utilisation : lhelp [[filename] [--context id] [--hide] [--ipcname l
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Afficher"
-

components/chmhelp/lhelp/languages/lhelp.hu.po

@@ -9,7 +9,7 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"X-Generator: Poedit 1.5.4\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -141,8 +141,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (CHM megjelenítő)%sVáltozat: %s%sCopyright (C) Andrew Haines, %sLazarus közreműködők"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "CHM megjelenítő%sVáltozat: %s%sCopyright (C) Andrew Haines, %sLazarus közreműködők"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -241,4 +241,3 @@ msgstr "    Használat: lhelp [[fájlnév] [--context azonosító] [--hide] [--i
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Nézet"
-

components/chmhelp/lhelp/languages/lhelp.lt.po

@@ -2,7 +2,7 @@
 msgid ""
 msgstr ""
 "Last-Translator: Valdas Jankunas <zmuogs@gmail.com>\n"
-"PO-Revision-Date: 2017-07-05 11:22+0200\n"
+"PO-Revision-Date: 2021-02-14 18:17+0100\n"
 "Project-Id-Version: \n"
 "Language-Team: Lithuanian <kde-i18n-lt@kde.org>\n"
 "Language: lt\n"
@@ -10,7 +10,8 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "MIME-Version: 1.0\n"
 "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
-"X-Generator: Lokalize 2.0\n"
+"X-Generator: Poedit 2.4.2\n"
+"POT-Creation-Date: \n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -142,8 +143,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp („CHM“ failų žiūryklė)%sLaida %s%sAutoriaus teisės (C) Andrew Haines, %sLazarus talkininkai"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "„CHM“ failų žiūryklė%sLaida %s%sAutoriaus teisės (C) Andrew Haines, %sLazarus talkininkai"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -242,4 +243,3 @@ msgstr "    Naudojimas: lhelp [[failo_pavadinimas] [--context id] [--hide] [--ip
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Rodymas"
-

components/chmhelp/lhelp/languages/lhelp.pl.po

@@ -10,7 +10,7 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
 "Language: pl\n"
-"X-Generator: Poedit 1.8.7.1\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -142,8 +142,8 @@ msgstr ""
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (Przeglądarki plików CHM)%sWersja %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "Przeglądarki plików CHM%sWersja %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -242,4 +242,3 @@ msgstr ""
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Widok"
-

components/chmhelp/lhelp/languages/lhelp.pot

@@ -131,7 +131,7 @@ msgstr ""
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
 msgstr ""
 
 #: lhelpstrconsts.slhelp_lhelpoptions

components/chmhelp/lhelp/languages/lhelp.pt_BR.po

@@ -9,7 +9,7 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
 "Language: pt_BR\n"
-"X-Generator: Poedit 1.8.13\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -141,8 +141,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (visualizador de arquivos CHM)%sVersão %s%sCopyright (C) Andrew Haines, %scolaboradores Lazarus"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "Visualizador de arquivos CHM%sVersão %s%sCopyright (C) Andrew Haines, %scolaboradores Lazarus"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -241,4 +241,3 @@ msgstr "    Uso: lhelp [[arquivo] [--context id] [--hide] [--ipcname lhelp-meuap
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Exibir"
-

components/chmhelp/lhelp/languages/lhelp.ru.po

@@ -9,7 +9,7 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
 "Language: ru\n"
-"X-Generator: Poedit 2.2.1\n"
+"X-Generator: Poedit 2.4.2\n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -142,8 +142,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (программа просмотра файлов CHM)%sВерсия %s%s(C) Andrew Haines, %sучастники проекта Lazarus"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "программа просмотра файлов CHM%sВерсия %s%s(C) Andrew Haines, %sучастники проекта Lazarus"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -240,4 +240,3 @@ msgstr "    Использование: lhelp [[имя файла] [--context id
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Вид"
-

components/chmhelp/lhelp/languages/lhelp.uk.po

@@ -3,14 +3,15 @@ msgid ""
 msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Last-Translator: Olexandr Pylypchuk <lxlalexlxl@ukr.net>\n"
-"PO-Revision-Date: 2019-09-20 21:02+0200\n"
+"PO-Revision-Date: 2021-02-14 18:19+0100\n"
 "Project-Id-Version: \n"
 "Language-Team: Ukrainian <kde-i18n-doc@kde.org>\n"
 "Language: uk\n"
 "Content-Transfer-Encoding: 8bit\n"
 "MIME-Version: 1.0\n"
 "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n"
-"X-Generator: Lokalize 2.0\n"
+"X-Generator: Poedit 2.4.2\n"
+"POT-Creation-Date: \n"
 
 #: lhelpstrconsts.slhelp_about
 msgid "About"
@@ -142,8 +143,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (програма перегляду файлів CHM)%sВерсія %s%s(C) Andrew Haines, %sучасники проєкту Lazarus"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "програма перегляду файлів CHM%sВерсія %s%s(C) Andrew Haines, %sучасники проєкту Lazarus"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -242,4 +243,3 @@ msgstr "    Використання: lhelp [[назва файлу] [--context
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Вигляд"
-

components/chmhelp/lhelp/languages/lhelp.zh_CN.po

@@ -9,7 +9,7 @@ msgstr ""
 "MIME-Version: 1.0\n"
 "Content-Transfer-Encoding: 8bit\n"
 "Language: zh_CN\n"
-"X-Generator: Poedit 1.8.7.1\n"
+"X-Generator: Poedit 2.4.2\n"
 "X-Poedit-SourceCharset: UTF-8\n"
 
 #: lhelpstrconsts.slhelp_about
@@ -142,8 +142,8 @@ msgstr "LHelp - %s"
 
 #: lhelpstrconsts.slhelp_lhelpchmfileviewerversioncopyrightcandrewhaineslaz
 #, object-pascal-format
-msgid "LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
-msgstr "LHelp (CHM文件查看器)%s版本%s%s版权(C) Andrew Haines, %sLazarus贡献值"
+msgid "CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors"
+msgstr "CHM文件查看器%s版本%s%s版权(C) Andrew Haines, %sLazarus贡献值"
 
 #: lhelpstrconsts.slhelp_lhelpoptions
 msgid "  LHelp options:"
@@ -242,4 +242,3 @@ msgstr "    Usage(用法): lhelp [[filename(文件名称)] [--context(上下文)
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "查看(&V)"
-

components/chmhelp/lhelp/lhelp.lpi

@@ -14,6 +14,7 @@
       <XPManifest>
         <DpiAware Value="True"/>
       </XPManifest>
+      <Icon Value="0"/>
     </General>
     <i18n>
       <EnableI18N Value="True" LFM="False"/>

components/chmhelp/lhelp/lhelpcore.pas

@@ -37,7 +37,7 @@ interface
 uses
   Classes, SysUtils, SimpleIPC, Laz2_XMLCfg,
   // LCL
-  Forms, Controls, Dialogs, Buttons, ComCtrls, ExtCtrls, Menus, StdCtrls,
+  Forms, Controls, Graphics, Dialogs, Buttons, ComCtrls, ExtCtrls, Menus, StdCtrls, Types,
   LCLProc, LCLType, LCLIntf, DefaultTranslator,
   // LazUtils
   LazFileUtils, LazUTF8, LazLoggerBase,
@@ -219,37 +219,94 @@ type
 procedure THelpForm.AboutItemClick(Sender: TObject);
 var
   f: TForm;
-  l: TLabel;
+  l1, l2: TLabel;
   b: TButton;
+  i: TImage;
+  bv: TBevel;
+  d6: Integer;
 begin
+  d6 := Scale96ToForm(6);
   f := TForm.Create(Application);
   try
     f.Caption := slhelp_About;
     f.BorderStyle := bsDialog;
     f.Position := poMainFormCenter;
-    f.Constraints.MinWidth := Scale96ToForm(150);
-    f.Constraints.MaxWidth := Scale96ToForm(350);
-    l := TLabel.Create(f);
-    l.Parent := f;;
-    l.Align := alTop;
-    l.Alignment:=taCenter;
-    l.BorderSpacing.Around := Scale96ToForm(6);
-    l.Caption := Format(slhelp_LHelpCHMFileViewerVersionCopyrightCAndrewHainesLaz, [LineEnding, VERSION_STAMP, LineEnding +
+
+    i := TImage.Create(f);
+    i.Parent := f;
+    i.Width := Scale96ToForm(128);
+    i.Height := Scale96ToForm(128);
+    i.Proportional := true;
+    i.Picture.Icon.Assign(Application.Icon);
+    i.Picture.Icon.Current := i.Picture.Icon.GetBestIndexForSize(Types.Size(256, 256));
+    i.BorderSpacing.Around := d6;
+    i.Anchors := [akLeft, akTop];
+    i.AnchorSideTop.Control := f;
+    i.AnchorSideTop.Side := asrTop;
+    i.AnchorSideLeft.Control := f;
+    i.AnchorSideLeft.Side := asrTop;
+
+    l1 := TLabel.Create(f);
+    l1.Parent := f;;
+    l1.Alignment:=taCenter;
+    l1.BorderSpacing.Around := d6;
+    l1.Caption := 'LHelp';
+    l1.Font.Size := 20;
+    l1.Font.Style := [fsBold];
+    l1.Anchors := [akLeft,akTop, akRight];
+    l1.AnchorSideTop.Control := f;
+    l1.AnchorSideTop.Side := asrTop;
+    l1.AnchorSideLeft.Control := i;
+    l1.AnchorSideLeft.Side := asrBottom;
+    l1.AnchorSideRight.Control := f;
+    l1.AnchorSideRight.Side := asrBottom;
+    l1.AutoSize := True;
+
+    l2 := TLabel.Create(f);
+    l2.Parent := f;
+    l2.Alignment := taCenter;
+    l2.BorderSpacing.Around := d6;
+    l2.Caption := Format(slhelp_LHelpCHMFileViewerVersionCopyrightCAndrewHainesLaz, [LineEnding, VERSION_STAMP, LineEnding +
       LineEnding, LineEnding]);
-    l.AutoSize := True;
+    l2.Anchors := [akLeft,akTop, akRight];
+    l2.AnchorSideTop.Control := l1;
+    l2.AnchorSideTop.Side := asrBottom;
+    l2.AnchorSideLeft.Control := i;
+    l2.AnchorSideLeft.Side := asrBottom;
+    l2.AnchorSideRight.Control := f;
+    l2.AnchorSideRight.Side := asrBottom;
+    l2.AutoSize := True;
     //l.WordWrap := True; {don't wrap author's name}
+
+    bv := TBevel.Create(f);
+    bv.Parent := f;
+    bv.Height := 2;
+    bv.Shape := bsTopLine;
+    bv.BorderSpacing.Around := d6;
+    bv.Anchors := [akLeft, akRight, akTop];
+    bv.AnchorSideLeft.Control := f;
+    bv.AnchorSideLeft.Side := asrTop;
+    bv.AnchorSideRight.Control := f;
+    bv.AnchorSideRight.Side := asrBottom;
+    if i.Top + i.Height > l2.Top + l2.Height then
+      bv.AnchorSideTop.Control := i
+    else
+      bv.AnchorSideTop.Control := l2;
+    bv.AnchorSideTop.Side := asrBottom;
+
     b := TButton.Create(f);
     b.Parent := f;
-    b.BorderSpacing.Around := Scale96ToForm(6);
+    b.BorderSpacing.Around := d6;
     b.Anchors := [akTop, akLeft];
-    b.AnchorSide[akTop].Control := l;
-    b.AnchorSide[akTop].Side := asrBottom;
-    b.AnchorSide[akLeft].Control := f;
-    b.AnchorSide[akLeft].Side := asrCenter;
+    b.AnchorSideTop.Control := bv;
+    b.AnchorSideTop.Side := asrBottom;
+    b.AnchorSideLeft.Control := f;
+    b.AnchorSideLeft.Side := asrCenter;
     b.Caption := slhelp_Ok;
     b.ModalResult := mrOk;
     b.Constraints.MinWidth := Scale96ToFont(70);
     b.AutoSize := true;
+
     f.AutoSize := False;
     f.AutoSize := True;
     f.ShowModal;

components/chmhelp/lhelp/lhelpstrconsts.pas

@@ -8,7 +8,7 @@ resourcestring
 
   // GUI
   slhelp_About = 'About';
-  slhelp_LHelpCHMFileViewerVersionCopyrightCAndrewHainesLaz = 'LHelp (CHM file viewer)%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors';
+  slhelp_LHelpCHMFileViewerVersionCopyrightCAndrewHainesLaz = 'CHM file viewer%sVersion %s%sCopyright (C) Andrew Haines, %sLazarus contributors';
   slhelp_Ok = 'OK';
   slhelp_PleaseEnterAURL = 'Please enter a URL';
   slhelp_SupportedURLTypeS = 'Supported URL type(s): [ %s ]';