← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid

« back to all changes in this revision

Viewing changes to lcl/interfaces/gtk2/gtk2wscustomlistview.inc

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2014-05-15 23:17:51 UTC
  • mfrom: (1.1.13)
  • Revision ID: package-import@ubuntu.com-20140515231751-gumj9a01g0ghm7ac
Tags: 1.2.2+dfsg-1
* New upstream release with few fixes and official support of FPC 2.6.4.
  - The detailed list of changes can be found here:
  http://wiki.lazarus.freepascal.org/Lazarus_1.2_fixes_branch#Fixes_for_1.2.2_.28Merged.29

Show diffs side-by-side

added added

removed removed

Lines of Context:
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
1334
1334
begin
1335
1335
  if not WSCheckHandleAllocated(ALV, 'ItemSetImage')
1336
1336
  then Exit;
1337
 
 
1338
1337
  GetCommonTreeViewWidgets({%H-}PGtkWidget(ALV.Handle), Widgets);
1339
1338
  with Widgets^ do
1340
1339
  begin
1349
1348
    else
1350
1349
      ItemRect.height := 1; // force redraw
1351
1350
    gtk_tree_path_free(Path);
1352
 
 
1353
1351
    if ItemRect.height <> 0 then // item is visible
1354
1352
    begin
1355
1353
      ImgList := TImageList.Create(nil);
1407
1405
                  end;
1408
1406
              end;
1409
1407
              Widgets^.Images.Items[AImageIndex] := pixbuf;
 
1408
              if GTK_IS_TREE_VIEW(MainView) then
 
1409
                gtk_tree_view_column_queue_resize(gtk_tree_view_get_column(PGtkTreeView(MainView), ASubIndex));
1410
1410
            finally
1411
1411
              BitImage.Free;
1412
1412
            end;