IDE: Allow sorting the unicode ranges in Character Map Dialog. Issue #31500, patch from FTurtle.

git-svn-id: trunk@54387 -

ide/charactermapdlg.lfm

@@ -1,7 +1,7 @@
 object CharacterMapDialog: TCharacterMapDialog
-  Left = 370
+  Left = 242
   Height = 477
-  Top = 128
+  Top = 126
   Width = 590
   BorderStyle = bsSizeToolWin
   Caption = 'CharacterMapDialog'
@@ -90,11 +90,11 @@ object CharacterMapDialog: TCharacterMapDialog
         OnSelectCell = UnicodeGridSelectCell
       end
       object cbUniRange: TComboBox
-        AnchorSideRight.Control = pgUnicode
+        AnchorSideTop.Control = UnicodeGrid
-        AnchorSideRight.Side = asrBottom
+        AnchorSideRight.Control = SortUniRangeListButton
         AnchorSideBottom.Control = pgUnicode
         AnchorSideBottom.Side = asrBottom
-        Left = 273
+        Left = 242
         Height = 21
         Top = 380
         Width = 291
@@ -110,7 +110,7 @@ object CharacterMapDialog: TCharacterMapDialog
         AnchorSideTop.Control = cbUniRange
         AnchorSideTop.Side = asrCenter
         AnchorSideRight.Control = cbUniRange
-        Left = 236
+        Left = 205
         Height = 13
         Top = 384
         Width = 31
@@ -118,6 +118,24 @@ object CharacterMapDialog: TCharacterMapDialog
         Caption = 'Range'
         ParentColor = False
       end
+      object SortUniRangeListButton: TSpeedButton
+        AnchorSideTop.Control = cbUniRange
+        AnchorSideTop.Side = asrCenter
+        AnchorSideRight.Control = pgUnicode
+        AnchorSideRight.Side = asrBottom
+        AnchorSideBottom.Control = pgUnicode
+        Left = 539
+        Height = 25
+        Top = 378
+        Width = 25
+        AllowAllUp = True
+        Anchors = [akTop, akRight]
+        BorderSpacing.Around = 6
+        GroupIndex = 1
+        OnClick = SortUniRangeListButtonClick
+        ShowHint = True
+        ParentShowHint = False
+      end
     end
     object pgAnsi: TTabSheet
       Caption = 'ANSI'
@@ -196,7 +214,7 @@ object CharacterMapDialog: TCharacterMapDialog
           'cp949 - Korean'
           'cp950 - Traditional Chinese'
           'macintosh - MAC Roman (Western Europe)'
-          'koi8 - Ukrainean, Cyrillic'
+          'koi8 - Ukrainian, Cyrillic'
           'iso88591 - ISO Latin-1 (Western Europe)'
           'iso88592 - ISO Latin-2 (Central and Eastern Europe)'
           'iso885915 - ISO Latin-9 (Western Europe)'

ide/charactermapdlg.pas

@@ -53,6 +53,7 @@ type
     cbCodePage: TComboBox;
     AnsiCharInfoLabel: TLabel;
     cbUniRange: TComboBox;
+    SortUniRangeListButton: TSpeedButton;
     CodePageLabel: TLabel;
     RangeLabel: TLabel;
     UnicodeCharInfoLabel: TLabel;
@@ -67,6 +68,7 @@ type
     procedure HelpButtonClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure SortUniRangeListButtonClick(Sender: TObject);
     procedure AnsiGridSelectCell(Sender: TObject; aCol, aRow: Integer;
       var {%H-}CanSelect: Boolean);
     procedure UnicodeGridSelectCell(Sender: TObject; aCol, aRow: Integer;
@@ -80,9 +82,14 @@ type
       Y: Integer);
   private
     FOnInsertCharacter: TOnInsertCharacterEvent;
+    FUnicodeBlockIndex: Integer;
     procedure DoStatusAnsiGrid(ACol, ARow: integer);
     procedure DoStatusUnicodeGrid(ACol, ARow: integer);
     procedure FillAnsiGrid;
+    procedure FillUnicodeGrid;
+    procedure FillUniRangeList(ASorted: Boolean);
+    function UnicodeBlockIndexByName(AName: String): Integer;
+    function UnicodeBlockSelected: Boolean;
     procedure SelectSystemCP;
   public
     property OnInsertCharacter: TOnInsertCharacterEvent read FOnInsertCharacter
@@ -98,6 +105,9 @@ implementation
 
 {$R *.lfm}
 
+const
+  NOT_SELECTED=Low(UnicodeBlocks)-1;
+
 procedure ShowCharacterMap(AOnInsertChar: TOnInsertCharacterEvent);
 begin
   if CharacterMapDialog = nil then
@@ -113,6 +123,9 @@ procedure TCharacterMapDialog.FormCreate(Sender: TObject);
 begin
   Caption := lisCharacterMap;
   RangeLabel.Caption := lisRange;
+  SortUniRangeListButton.Flat:=True;
+  SortUniRangeListButton.Hint:=lisSortUnicodeRangeListAlphabetically;
+  SortUniRangeListButton.LoadGlyphFromResourceName(HInstance, 'pkg_sortalphabetically');
   ButtonPanel.HelpButton.Caption:=lisMenuHelp;
   ButtonPanel.CloseButton.Caption:=lisBtnClose;
 
@@ -175,24 +188,9 @@ begin
 end;
 
 procedure TCharacterMapDialog.cbUniRangeSelect(Sender: TObject);
-var
-  cnt, x, y: integer;
-  S, E: integer;
 begin
-  S:=UnicodeBlocks[cbUniRange.ItemIndex].S;
+  FUnicodeBlockIndex:=UnicodeBlockIndexByName(cbUniRange.Text);
-  E:=UnicodeBlocks[cbUniRange.ItemIndex].E;
+  FillUnicodeGrid;
-  UnicodeGrid.Clear;
-  UnicodeGrid.ColCount:=16;
-  UnicodeGrid.RowCount:=RoundUp(E-S,16);
-  cnt:=0;
-  for y:=0 to UnicodeGrid.RowCount-1 do
-    for x:=0 to UnicodeGrid.ColCount-1 do
-    begin
-      if S+Cnt<=E then
-        UnicodeGrid.Cells[x,y]:=UnicodeToUTF8(S+Cnt);
-      inc(cnt);
-    end;
-  UnicodeGrid.AutoSizeColumns;
 end;
 
 procedure TCharacterMapDialog.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -215,11 +213,14 @@ begin
 
   AnsiGrid.AutoSizeColumns;
 
-  cbUniRange.Items.Clear;
+  FUnicodeBlockIndex:=NOT_SELECTED;
-  for i:=0 to MaxUnicodeBlocks do
+  FillUniRangeList(SortUniRangeListButton.Down);
-    cbUniRange.Items.Add(UnicodeBlocks[i].PG);
+  FillUnicodeGrid;
-  cbUniRange.ItemIndex:=0;
+end;
-  cbUniRangeSelect(nil);
+
+procedure TCharacterMapDialog.SortUniRangeListButtonClick(Sender: TObject);
+begin
+  FillUniRangeList(SortUniRangeListButton.Down);
 end;
 
 procedure TCharacterMapDialog.AnsiGridSelectCell(Sender: TObject; aCol,
@@ -293,8 +294,8 @@ var
   tmp, tmp2: String;
   i: Integer;
 begin
-  if cbUniRange.ItemIndex<0 then exit;
+  if not UnicodeBlockSelected then Exit;
-  S:=UnicodeBlocks[cbUniRange.ItemIndex].S+(ACol)+(ARow*16);
+  S:=UnicodeBlocks[FUnicodeBlockIndex].S+(ACol)+(ARow*16);
   tmp:=UnicodeToUTF8(S);
   tmp2:='';
   for i:=1 to Length(tmp) do
@@ -337,5 +338,58 @@ begin
   end;
 end;
 
+procedure TCharacterMapDialog.FillUnicodeGrid;
+var
+  cnt, x, y: integer;
+  S, E: integer;
+begin
+  UnicodeGrid.Clear;
+  if not UnicodeBlockSelected then
+    Exit;
+  S:=UnicodeBlocks[FUnicodeBlockIndex].S;
+  E:=UnicodeBlocks[FUnicodeBlockIndex].E;
+  UnicodeGrid.ColCount:=16;
+  UnicodeGrid.RowCount:=RoundUp(E-S,16);
+  cnt:=0;
+  for y:=0 to UnicodeGrid.RowCount-1 do
+    for x:=0 to UnicodeGrid.ColCount-1 do
+    begin
+      if S+Cnt<=E then
+        UnicodeGrid.Cells[x,y]:=UnicodeToUTF8(S+Cnt);
+      inc(cnt);
+    end;
+  UnicodeGrid.AutoSizeColumns;
+end;
+
+procedure TCharacterMapDialog.FillUniRangeList(ASorted: Boolean);
+var
+  BlockIdx: Integer;
+begin
+  cbUniRange.Items.Clear;
+  cbUniRange.Sorted:=ASorted;
+
+  for BlockIdx:=Low(UnicodeBlocks) to High(UnicodeBlocks) do
+    cbUniRange.Items.Append(UnicodeBlocks[BlockIdx].PG);
+
+  if not UnicodeBlockSelected then
+    FUnicodeBlockIndex:=Low(UnicodeBlocks);
+  cbUniRange.Text:=UnicodeBlocks[FUnicodeBlockIndex].PG;
+end;
+
+function TCharacterMapDialog.UnicodeBlockIndexByName(AName: String): Integer;
+var
+  BlockIdx: Integer;
+begin
+  for BlockIdx:=Low(UnicodeBlocks) to High(UnicodeBlocks) do
+    if UnicodeBlocks[BlockIdx].PG=AName then
+      Exit(BlockIdx);
+  Result:=NOT_SELECTED;
+end;
+
+function TCharacterMapDialog.UnicodeBlockSelected: Boolean;
+begin
+  Result:=(FUnicodeBlockIndex>=Low(UnicodeBlocks)) and (FUnicodeBlockIndex<=High(UnicodeBlocks));
+end;
+
 end.
 

ide/lazarusidestrconsts.pas

@@ -4936,6 +4936,7 @@ resourcestring
   // character map
   lisCharacterMap = 'Character Map';
   lisRange = 'Range';
+  lisSortUnicodeRangeListAlphabetically = 'Sort Unicode range list alphabetically';
 
   // codetools defines value dialog
   lisCTDefChooseDirectory = 'Choose Directory';