FontEnum example: Add a missing alphabet. Issue #39480, patch by Don Siders.

examples/fontenum/fontenumeration.lpi

@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
       <Flags>
         <SaveClosedFiles Value="False"/>
         <SaveOnlyProjectUnits Value="True"/>
         <LRSInOutputDirectory Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="project1"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
@@ -20,14 +20,12 @@
     <PublishOptions>
       <Version Value="2"/>
       <DestinationDirectory Value="$(ProjPath)/published"/>
-      <IgnoreBinaries Value="False"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>
@@ -52,6 +50,7 @@
     <Version Value="11"/>
     <Linking>
       <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
         <UseExternalDbgSyms Value="True"/>
       </Debugging>
       <Options>

examples/fontenum/mainunit.lfm

@@ -13,14 +13,13 @@ object frmMain: TfrmMain
   OnCreate = FormCreate
   OnShow = FormShow
   ShowHint = True
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.3.0.0'
   object Label3: TLabel
     Left = 548
     Height = 15
     Top = 257
     Width = 27
     Caption = 'Filtro'
-    ParentColor = False
   end
   object Label4: TLabel
     Left = 216
@@ -28,7 +27,6 @@ object frmMain: TfrmMain
     Top = 16
     Width = 67
     Caption = 'Face font list'
-    ParentColor = False
   end
   object Label5: TLabel
     Left = 424
@@ -36,7 +34,6 @@ object frmMain: TfrmMain
     Top = 11
     Width = 30
     Caption = 'Styles'
-    ParentColor = False
   end
   object Sizes: TLabel
     Left = 648
@@ -44,7 +41,6 @@ object frmMain: TfrmMain
     Top = 11
     Width = 25
     Caption = 'Sizes'
-    ParentColor = False
   end
   object lblCharset: TLabel
     Left = 424
@@ -52,7 +48,6 @@ object frmMain: TfrmMain
     Top = 176
     Width = 53
     Caption = 'lblCharset'
-    ParentColor = False
   end
   object Label6: TLabel
     Left = 11
@@ -60,7 +55,6 @@ object frmMain: TfrmMain
     Top = 16
     Width = 26
     Caption = 'Filter'
-    ParentColor = False
   end
   object lbFamily: TListBox
     Left = 216
@@ -69,7 +63,6 @@ object frmMain: TfrmMain
     Width = 200
     ItemHeight = 0
     OnClick = lbFamilyClick
-    Options = [lboDrawFocusRect]
     TabOrder = 0
   end
   object cbCharset: TComboBox
@@ -98,7 +91,6 @@ object frmMain: TfrmMain
     Width = 208
     ItemHeight = 0
     OnClick = lbStylesClick
-    Options = [lboDrawFocusRect]
     TabOrder = 3
   end
   object lbSizes: TListBox
@@ -108,7 +100,6 @@ object frmMain: TfrmMain
     Width = 56
     ItemHeight = 0
     OnClick = lbSizesClick
-    Options = [lboDrawFocusRect]
     TabOrder = 4
   end
   object lbCharset: TListBox
@@ -118,7 +109,6 @@ object frmMain: TfrmMain
     Width = 208
     ItemHeight = 0
     OnClick = lbCharsetClick
-    Options = [lboDrawFocusRect]
     TabOrder = 5
   end
   object cbPitch: TComboBox
@@ -188,13 +178,13 @@ object frmMain: TfrmMain
     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goThumbTracking, goSmoothScroll]
     TabOrder = 11
     ColWidths = (
-      364
+      368
     )
   end
   object FontDialog1: TFontDialog
     MinFontSize = 0
     MaxFontSize = 0
-    left = 312
-    top = 384
+    Left = 312
+    Top = 384
   end
 end

examples/fontenum/mainunit.pas

@@ -372,7 +372,7 @@ var
   L: TStringList;
 begin
   L := TStringList.Create;
-  L.Add('abcdefhijklmnopqrstuvwxyz');
+  L.Add('abcdefghijklmnopqrstuvwxyz');
   L.Add('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
   L.Add('01234567891   ўЈ¤Ґ§');
   L.Add('абвгдежзийклмнопрстуфхцшщъыь');