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

IDE: fixed crash if ANSI character map didn't contain a valid char values from Dmitry (issue #14189)

Browse Source 
git-svn-id: trunk@21089 -
This commit is contained in:
vincents 2009-08-03 14:23:31 +00:00
parent c87a7d7a49
commit 4956fbac7b
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/charactermapdlg.pas
View File

@ -161,7 +161,7 @@ begin
if (Button = mbLeft) and (StringGrid1.MouseToGridZone(X, Y) = gzNormal) then
begin
StringGrid1.MouseToCell(X, Y, Col, Row);
if Assigned(OnInsertCharacter) then
if (StringGrid1.Cells[Col, Row] <> '') and (Assigned(OnInsertCharacter)) then
OnInsertCharacter(StringGrid1.Cells[Col, Row]);
end;
end;
@ -176,9 +176,14 @@ begin
begin
StringGrid1.MouseToCell(X, Y, Col, Row);
CharOrd := Ord(UTF8ToAnsi(StringGrid1.Cells[Col, Row])[1]);
CharInfoLabel.Caption := 'Decimal = ' + IntToStr(CharOrd) +
', Hex = $' + HexStr(CharOrd, 2);
if StringGrid1.Cells[Col, Row] <> '' then
begin
CharOrd := Ord(UTF8ToAnsi(StringGrid1.Cells[Col, Row])[1]);
CharInfoLabel.Caption := 'Decimal = ' + IntToStr(CharOrd) +
', Hex = $' + HexStr(CharOrd, 2);
end
else
CharInfoLabel.Caption := '-';
end
else
begin