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

SynEdit: fix crash if no images are assigned to bookmarks

Browse Source 
git-svn-id: trunk@27890 -
This commit is contained in:
martin 2010-10-26 21:50:20 +00:00
parent 0628b67c7e
commit ab1847a0fb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synguttermarks.pp
View File

@ -182,7 +182,10 @@ begin
Canvas.Brush.Color := Gutter.Color;
LCLIntf.SetBkColor(Canvas.Handle, Canvas.Brush.Color);
FColumnWidth := FBookMarkOpt.BookmarkImages.Width;
if assigned(FBookMarkOpt) and assigned(FBookMarkOpt.BookmarkImages) then
FColumnWidth := FBookMarkOpt.BookmarkImages.Width
else
FColumnWidth := Width;
FColumnCount := Max((Width+1) div FColumnWidth, 1); // full columns
if FBookMarkOpt.GlyphsVisible and (LastLine >= FirstLine) then