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

Gtk2: fixed crash with TListView introduced with r39032 #be121459c7.

Browse Source 
git-svn-id: trunk@39033 -
This commit is contained in:
zeljko 2012-10-10 08:22:33 +00:00
parent be121459c7
commit 99d869e0a1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2cellrenderer.pas
View File

@ -216,11 +216,10 @@ begin
CellClass := PLCLIntfCellRendererClass(gtk_object_get_class(cell));
// do not call DefaultGtkRender when we are custom drawn listbox.issue #23093
AWinControl := nil;
if ColumnIndex < 0 then
begin
AWinControl := GetControl(cell, widget);
if [csDestroying,csLoading]*AWinControl.ComponentState<>[] then
if [csDestroying,csLoading,csDesigning]*AWinControl.ComponentState<>[] then
AWinControl := nil;
if AWinControl is TCustomListbox then
if TCustomListbox(AWinControl).Style = lbStandard then
@ -229,7 +228,7 @@ begin
AWinControl := nil;
end;
// do default draw only if we are customdrawn.
if (AWinControl = nil) then
if (ColumnIndex > -1) or ((ColumnIndex < 0) and (AWinControl = nil)) then
CellClass^.DefaultGtkRender(cell, Window, Widget, background_area, cell_area,
expose_area, flags);