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

gtk2: fix GetMem size error in TGtk2WSCustomListView.CreateHandle

Browse Source 
git-svn-id: trunk@12217 -
This commit is contained in:
paul 2007-09-28 14:29:39 +00:00
parent ffcc357787
commit 74617f8ba7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -886,8 +886,8 @@ begin
New(Widgets); New(Widgets);
with Widgets^ do begin with Widgets^ do begin
ItemCache := nil; ItemCache := nil;
GetMem(GTypeArray, SizeOf(GType)*(nColumns{+1})); GetMem(GTypeArray, SizeOf(GType)*(nColumns+1));
for i := 0 to (nColumns div 2) -1 do begin for i := 0 to (nColumns div 2) - 1 do begin
GTypeArray[i*2] := GDK_TYPE_PIXBUF; GTypeArray[i*2] := GDK_TYPE_PIXBUF;
GTypeArray[(i*2)+1] := G_TYPE_STRING; GTypeArray[(i*2)+1] := G_TYPE_STRING;
end; end;