paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

CharacterMap: Update ANSI code page list to all code pages supported by unit LConvEncoding.

Browse Source
This commit is contained in:
wp_xyz 2023-01-15 15:40:52 +01:00
parent ef81cb0af3
commit 59a0b19e4d
2 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/charactermap/charactermapfrm.lfm
View File

@ -2668,10 +2668,10 @@ object CharacterMapForm: TCharacterMapForm
Height = 433
Top = 6
Width = 578
ActivePage = pgUnicode
ActivePage = pgAnsi
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
TabIndex = 0
TabIndex = 1
TabOrder = 0
object pgUnicode: TTabSheet
Caption = 'Unicode'
@ -2899,6 +2899,7 @@ object CharacterMapForm: TCharacterMapForm
'cp437 - Original IBM PC hardware'
'cp850 - Latin-1'
'cp852 - Latin-2'
'cp865 - Danish, Norwegian'
'cp866 - Belarusian, Russian, Ukrainian'
'cp874 - Thai'
'cp932 - Japanese'
@ -2906,10 +2907,18 @@ object CharacterMapForm: TCharacterMapForm
'cp949 - Korean'
'cp950 - Traditional Chinese'
'macintosh - MAC Roman (Western Europe)'
'koi8 - Ukrainian, Cyrillic'
'koi8r - Russian, Cyrillic'
'koi8u - Ukrainian, Cyrillic'
'iso88591 - ISO Latin-1 (Western Europe)'
'iso88592 - ISO Latin-2 (Central and Eastern Europe)'
'iso88593 - ISO Latin-3'
'iso88594 - ISO Baltic'
'iso88595 - ISO Cyrillic'
'iso88597 - ISO Greek'
'iso88599 - ISO Turkish'
'iso885913 - ISO Estonian'
'iso885915 - ISO Latin-9 (Western Europe)'
'iso885916 - ISO Latin-10 (South Eastern Europe)'
)
OnSelect = cbCodePageSelect
Style = csDropDownList

12
components/charactermap/charactermapfrm.pas
View File

@ -183,10 +183,20 @@ begin
case cp of // add spaces to be sure of unique names found in the combobox
437..1258: cpStr := 'cp' + IntToStr(cp) + ' ';
10000 : cpStr := 'macintosh ';
20866 : cpStr := 'koi8 ';
20866 : cpStr := 'koi8r ';
21866 : cpStr := 'koi8u ';
28591 : cpStr := 'iso88591 ';
28592 : cpStr := 'iso88592 ';
28593 : cpStr := 'iso88593 ';
28594 : cpStr := 'iso88594 ';
28595 : cpStr := 'iso88595 ';
28597 : cpStr := 'iso88597 ';
28599 : cpStr := 'iso88599 ';
28600 : cpStr := 'iso885910 ';
28603 : cpStr := 'iso885913 ';
28604 : cpStr := 'iso885914 ';
28605 : cpStr := 'iso885915 ';
28606 : cpStr := 'iso885916 ';
else cpStr := '';
end;
for i := 0 to cbCodePage.Items.Count-1 do