paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 17:41: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 Height = 433
Top = 6 Top = 6
Width = 578 Width = 578
ActivePage = pgUnicode ActivePage = pgAnsi
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object pgUnicode: TTabSheet object pgUnicode: TTabSheet
Caption = 'Unicode' Caption = 'Unicode'
@ -2899,6 +2899,7 @@ object CharacterMapForm: TCharacterMapForm
'cp437 - Original IBM PC hardware' 'cp437 - Original IBM PC hardware'
'cp850 - Latin-1' 'cp850 - Latin-1'
'cp852 - Latin-2' 'cp852 - Latin-2'
'cp865 - Danish, Norwegian'
'cp866 - Belarusian, Russian, Ukrainian' 'cp866 - Belarusian, Russian, Ukrainian'
'cp874 - Thai' 'cp874 - Thai'
'cp932 - Japanese' 'cp932 - Japanese'
@ -2906,10 +2907,18 @@ object CharacterMapForm: TCharacterMapForm
'cp949 - Korean' 'cp949 - Korean'
'cp950 - Traditional Chinese' 'cp950 - Traditional Chinese'
'macintosh - MAC Roman (Western Europe)' 'macintosh - MAC Roman (Western Europe)'
'koi8 - Ukrainian, Cyrillic' 'koi8r - Russian, Cyrillic'
'koi8u - Ukrainian, Cyrillic'
'iso88591 - ISO Latin-1 (Western Europe)' 'iso88591 - ISO Latin-1 (Western Europe)'
'iso88592 - ISO Latin-2 (Central and Eastern 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)' 'iso885915 - ISO Latin-9 (Western Europe)'
'iso885916 - ISO Latin-10 (South Eastern Europe)'
) )
OnSelect = cbCodePageSelect OnSelect = cbCodePageSelect
Style = csDropDownList 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 case cp of // add spaces to be sure of unique names found in the combobox
437..1258: cpStr := 'cp' + IntToStr(cp) + ' '; 437..1258: cpStr := 'cp' + IntToStr(cp) + ' ';
10000 : cpStr := 'macintosh '; 10000 : cpStr := 'macintosh ';
20866 : cpStr := 'koi8 '; 20866 : cpStr := 'koi8r ';
21866 : cpStr := 'koi8u ';
28591 : cpStr := 'iso88591 '; 28591 : cpStr := 'iso88591 ';
28592 : cpStr := 'iso88592 '; 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 '; 28605 : cpStr := 'iso885915 ';
28606 : cpStr := 'iso885916 ';
else cpStr := ''; else cpStr := '';
end; end;
for i := 0 to cbCodePage.Items.Count-1 do for i := 0 to cbCodePage.Items.Count-1 do