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

fixed hanging lazarus, if non-numeric column width was entered (issue #1343)

Browse Source 
git-svn-id: trunk@7970 -
This commit is contained in:
vincents 2005-10-16 18:43:47 +00:00
parent 707f5119bd
commit a3bb9a9d74
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ideintf/columndlg.pp
View File

@ -288,8 +288,9 @@ begin
try try
ListColumn.Width := StrToInt(WidthEdit.Caption); ListColumn.Width := StrToInt(WidthEdit.Caption);
except except
raise Exception.Create('Invalid numeric Value'); showmessage('Invalid numeric Value');
WidthEdit.Caption := '0'; // revert to previous value
WidthEdit.Caption := IntToStr(ListColumn.Width);
end; end;
end; end;