1
1
{%MainUnit gtkwscomctrls.pp}
2
{ $Id: gtkwscustomlistview.inc 21786 2009-09-20 22:15:10Z mattias $
2
{ $Id: gtkwscustomlistview.inc 31458 2011-06-29 18:34:01Z zeljko $
4
4
*****************************************************************************
571
571
gtk_clist_remove(CListWidget, AIndex);
574
class procedure TGtkWSCustomListView.ItemExchange(const ALV: TCustomListView;
575
AItem: TListItem; const AIndex1, AIndex2: Integer);
577
if not WSCheckHandleAllocated(ALV, 'ItemExchange') then
579
ItemMove(ALV, AItem, AIndex1, AIndex2);
580
if AIndex1 > AIndex2 then
581
ItemMove(ALV, AItem, AIndex2 + 1, AIndex1)
583
ItemMove(ALV, AItem, AIndex2 - 1, AIndex1);
586
class procedure TGtkWSCustomListView.ItemMove(const ALV: TCustomListView;
587
AItem: TListItem; const AFromIndex, AToIndex: Integer);
589
WidgetInfo: PWidgetInfo;
590
CListWidget: PGtkCList;
592
if not WSCheckHandleAllocated(ALV, 'ItemMove') then
594
WidgetInfo := GetWidgetInfo(Pointer(ALV.Handle));
595
CListWidget := PGtkCList(WidgetInfo^.CoreWidget);
596
gtk_clist_row_move(CListWidget, AFromIndex, AToIndex);
574
599
class function TGtkWSCustomListView.ItemGetState(const ALV: TCustomListView;
575
600
const AIndex: Integer; const AItem: TListItem; const AState: TListItemState;
576
601
out AIsSet: Boolean): Boolean;
953
978
// already created in TGtkWSBaseScrollingWinControl
955
980
Set_RC_Name(AWinControl, PGtkWidget(ScrollWidget));
956
SetCallbacks(PGtkWidget(ScrollWidget), PGtkWidget(CListWidget), WidgetInfo);
981
SetListCallbacks(PGtkWidget(ScrollWidget), PGtkWidget(CListWidget), WidgetInfo);
959
class procedure TGtkWSCustomListView.SetCallbacks(const AScrollWidget, AListWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo);
984
class procedure TGtkWSCustomListView.SetListCallbacks(const AScrollWidget, AListWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo);
961
986
TGtkWSBaseScrollingWinControl.SetCallbacks(AScrollWidget, AWidgetInfo);
963
988
SignalConnect(AListWidget, 'click-column', @GtkWSCustomListView_ClickColumn, AWidgetInfo);
964
989
SignalConnect(AListWidget, 'resize-column', @GtkWSCustomListView_ResizeColumn, AWidgetInfo);
965
990
SignalConnect(AListWidget, 'abort-column-resize', @GtkWSCustomListView_AbortColumnResize, AWidgetInfo);
966
SignalConnect(AListWidget, 'row-move', @GtkWSCustomListView_RowMove, AWidgetInfo);
991
// SignalConnect(AListWidget, 'row-move', @GtkWSCustomListView_RowMove, AWidgetInfo);
967
992
SignalConnect(AListWidget, 'select-row', @GtkWSCustomListView_SelectRow, AWidgetInfo);
968
993
SignalConnect(AListWidget, 'unselect-row', @GtkWSCustomListView_UnSelectRow, AWidgetInfo);
969
994
SignalConnect(AListWidget, 'toggle-focus-row', @GtkWSCustomListView_ToggleFocusRow, AWidgetInfo);
1406
1431
class procedure TGtkWSCustomListView.SetSort(const ALV: TCustomListView;
1407
const AType: TSortType; const AColumn: Integer);
1432
const AType: TSortType; const AColumn: Integer;
1433
const ASortDirection: TSortDirection);
1409
1435
WidgetInfo: PWidgetInfo;
1410
1436
CListWidget: PGtkCList;