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: show ANSI symbol code in more language neutral and compact form

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-01-16 03:02:21 +03:00
parent a65bcf5d15
commit 8e9a050ab6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/charactermap/charactermapfrm.pas
View File

@ -335,7 +335,7 @@ var
N: integer;
begin
N := ACol-1 + (ARow-1)*16 + 32;
AnsiCharInfoLabel.Caption := Format('Decimal: %s, Hex: $%s', [IntToStr(N), IntToHex(N, 2)]);
AnsiCharInfoLabel.Caption := Format('%s / $%s', [IntToStr(N), IntToHex(N, 2)]);
end;
procedure TCharacterMapForm.AnsiGridMouseMove(Sender: TObject;