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

IDE: Resizable character height in CharacterMap to improve readability.

Browse Source
This commit is contained in:
wp_xyz 2021-11-08 13:27:50 +01:00
parent c817696268
commit cdbd787a67
2 changed files with 122 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
ide/charactermapdlg.lfm
View File

@ -1,7 +1,7 @@
object CharacterMapDialog: TCharacterMapDialog
Left = 242
Left = 258
Height = 477
Top = 126
Top = 197
Width = 590
BorderStyle = bsSizeToolWin
Caption = 'CharacterMapDialog'
@ -13,7 +13,7 @@ object CharacterMapDialog: TCharacterMapDialog
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.3.0.0'
object ButtonPanel: TButtonPanel
Left = 6
Height = 26
@ -59,11 +59,10 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 380
Top = 351
Width = 118
BorderSpacing.Around = 6
Caption = 'UnicodeCharInfoLabel'
ParentColor = False
end
object UnicodeGrid: TStringGrid
AnchorSideLeft.Control = pgUnicode
@ -72,7 +71,7 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbUniRange
Left = 0
Height = 370
Height = 341
Top = 0
Width = 570
Anchors = [akTop, akLeft, akRight, akBottom]
@ -91,6 +90,12 @@ object CharacterMapDialog: TCharacterMapDialog
OnPrepareCanvas = GridPrepareCanvas
OnSelectCell = UnicodeGridSelectCell
ColWidths = (
36
36
36
36
36
36
35
35
35
@ -101,22 +106,15 @@ object CharacterMapDialog: TCharacterMapDialog
35
35
35
35
35
35
35
35
41
)
end
object cbUniRange: TComboBox
AnchorSideTop.Control = UnicodeGrid
AnchorSideRight.Control = SortUniRangeListButton
AnchorSideBottom.Control = pgUnicode
AnchorSideBottom.Side = asrBottom
AnchorSideBottom.Control = seUniSize
Left = 242
Height = 23
Top = 376
Top = 347
Width = 291
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
@ -132,11 +130,10 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideRight.Control = cbUniRange
Left = 203
Height = 15
Top = 380
Top = 351
Width = 33
Anchors = [akTop, akRight]
Caption = 'Range'
ParentColor = False
end
object SortUniRangeListButton: TSpeedButton
AnchorSideTop.Control = cbUniRange
@ -146,7 +143,7 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideBottom.Control = pgUnicode
Left = 539
Height = 25
Top = 375
Top = 346
Width = 25
AllowAllUp = True
Anchors = [akTop, akRight]
@ -156,6 +153,40 @@ object CharacterMapDialog: TCharacterMapDialog
ShowHint = True
ParentShowHint = False
end
object seUniSize: TSpinEdit
AnchorSideLeft.Control = cbUniRange
AnchorSideTop.Control = cbCodePage
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = pgUnicode
AnchorSideBottom.Side = asrBottom
Left = 242
Height = 23
Top = 376
Width = 80
Alignment = taRightJustify
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
MaxValue = 32
MinValue = 8
OnChange = seUniSizeChange
TabOrder = 2
Value = 12
end
object UniSizeLabel: TLabel
AnchorSideTop.Control = seUniSize
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = RangeLabel
AnchorSideRight.Side = asrBottom
Left = 162
Height = 15
Top = 380
Width = 74
Anchors = [akTop, akRight]
Caption = 'Character Size'
FocusControl = seUniSize
end
end
object pgAnsi: TTabSheet
Caption = 'ANSI'
@ -171,11 +202,10 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 15
Top = 380
Top = 351
Width = 97
BorderSpacing.Around = 6
Caption = 'AnsiCharInfoLabel'
ParentColor = False
end
object AnsiGrid: TStringGrid
AnchorSideLeft.Control = pgAnsi
@ -184,7 +214,7 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbCodePage
Left = 0
Height = 370
Height = 341
Top = 0
Width = 570
Anchors = [akTop, akLeft, akRight, akBottom]
@ -220,16 +250,14 @@ object CharacterMapDialog: TCharacterMapDialog
)
end
object cbCodePage: TComboBox
AnchorSideTop.Control = AnsiGrid
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pgAnsi
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pgAnsi
AnchorSideBottom.Side = asrBottom
Left = 245
AnchorSideBottom.Control = seAnsiSize
Left = 242
Height = 23
Top = 376
Width = 319
Top = 347
Width = 322
Anchors = [akRight, akBottom]
BorderSpacing.Around = 6
DropDownCount = 25
@ -268,13 +296,46 @@ object CharacterMapDialog: TCharacterMapDialog
AnchorSideTop.Control = cbCodePage
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbCodePage
Left = 182
Left = 179
Height = 15
Top = 380
Top = 351
Width = 57
Anchors = [akTop, akRight]
Caption = 'Code page'
ParentColor = False
end
object AnsiSizeLabel: TLabel
AnchorSideTop.Control = seAnsiSize
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CodePageLabel
AnchorSideRight.Side = asrBottom
Left = 162
Height = 15
Top = 380
Width = 74
Anchors = [akTop, akRight]
Caption = 'Character Size'
FocusControl = seAnsiSize
end
object seAnsiSize: TSpinEdit
AnchorSideLeft.Control = cbCodePage
AnchorSideTop.Control = cbCodePage
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = pgAnsi
AnchorSideBottom.Side = asrBottom
Left = 242
Height = 23
Top = 376
Width = 80
Alignment = taRightJustify
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
MaxValue = 32
MinValue = 8
OnChange = seAnsiSizeChange
TabOrder = 2
Value = 12
end
end
end

34
ide/charactermapdlg.pas
View File

@ -41,7 +41,7 @@ uses
Classes, SysUtils, Math,
// LCL
Controls, Graphics, Dialogs, Buttons, StdCtrls, Forms,
LCLType, LCLUnicodeData, Grids, ButtonPanel, ComCtrls,
LCLType, LCLUnicodeData, Grids, ButtonPanel, ComCtrls, Spin,
// LazUtils
GraphType, LazUTF8, LConvEncoding,
// IdeIntf
@ -59,9 +59,13 @@ type
cbCodePage: TComboBox;
AnsiCharInfoLabel: TLabel;
cbUniRange: TComboBox;
AnsiSizeLabel: TLabel;
UniSizeLabel: TLabel;
seUniSize: TSpinEdit;
SortUniRangeListButton: TSpeedButton;
CodePageLabel: TLabel;
RangeLabel: TLabel;
seAnsiSize: TSpinEdit;
UnicodeCharInfoLabel: TLabel;
PageControl1: TPageControl;
AnsiGrid: TStringGrid;
@ -76,6 +80,8 @@ type
procedure HelpButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure seAnsiSizeChange(Sender: TObject);
procedure seUniSizeChange(Sender: TObject);
procedure SortUniRangeListButtonClick(Sender: TObject);
procedure AnsiGridSelectCell(Sender: TObject; aCol, aRow: Integer;
var {%H-}CanSelect: Boolean);
@ -211,13 +217,21 @@ begin
end;
procedure TCharacterMapDialog.FormShow(Sender: TObject);
var
savedFontSize: Integer;
begin
AnsiGrid.Font.Name := EditorOpts.EditorFont;
UnicodeGrid.Font.Name := EditorOpts.EditorFont;
AnsiGrid.Font.Size := 10;
UnicodeGrid.Font.Size := 10;
AnsiGrid.Font.Size := seAnsiSize.Value;
UnicodeGrid.Font.Size := seUniSize.Value;
// Auto-adjust the width of the AnsiGrid's fixed column. Note that
// the font defined in PrepareCanvas is ignored by AutoSizeColumn.
savedfontSize := AnsiGrid.Font.Size;
AnsiGrid.Font.Size := 10;
AnsiGrid.AutoSizeColumn(0);
AnsiGrid.Font.Size := savedFontSize;
// Now also auto-adjust the widths of the other AnsiGrid to fill the client area.
AnsiGrid.AutoFillColumns := true;
FUnicodeBlockIndex:=NOT_SELECTED;
@ -227,6 +241,18 @@ begin
cbUniRange.DropDownCount := Math.max(EnvironmentOptions.DropDownCount, 25);
end;
procedure TCharacterMapDialog.seAnsiSizeChange(Sender: TObject);
begin
AnsiGrid.Font.Size := seAnsiSize.Value;
seUniSize.Value := seAnsiSize.Value;
end;
procedure TCharacterMapDialog.seUniSizeChange(Sender: TObject);
begin
UnicodeGrid.Font.Size := seUniSize.Value;
seAnsiSize.Value := seUniSize.Value;
end;
procedure TCharacterMapDialog.SortUniRangeListButtonClick(Sender: TObject);
begin
FillUniRangeList(SortUniRangeListButton.Down);
@ -306,6 +332,8 @@ begin
ts := Canvas.TextStyle;
ts.Alignment := taCenter;
Canvas.TextStyle := ts;
if (Sender = AnsiGrid) and ((aCol = 0) or (aRow = 0)) then
Canvas.Font.Size := 10;
end;
end;