[JVCL-Checkins] CVS: dev/JVCL3/run JvThumbViews.pas,1.2,1.3

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1:/tmp/cvs-serv2893/JVCL3/run

Modified Files:
	JvThumbViews.pas 
Log Message:
- Mantis #1084 (JvThumbViews Correction for bug 'OnClick Not actived' )

Index: JvThumbViews.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvThumbViews.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** JvThumbViews.pas	18 Jun 2003 06:44:30 -0000	1.2
--- JvThumbViews.pas	18 Aug 2003 07:04:10 -0000	1.3
***************
*** 348,409 ****
  end;
  
! procedure TJvThumbView.ScrollTo(const Number: Longint);
  begin
!   // if AutoScrolling then if (Number>-1) then
!   if (Number < 0) or (Number > FThumbList.Count - 1) then
!     Exit;
!   case ScrollMode of
!     smVertical:
        begin
!         if TJvThumbnail(FThumbList.Objects[Number]).Top < 0 then
!           VertScrollBar.Position := VertScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Top -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2));
!         if TJvThumbnail(FThumbList.Objects[Number]).Top +
!           TJvThumbnail(FThumbList.Objects[Number]).Height > Height then
!           VertScrollBar.Position := VertScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Top -
!             (Height - TJvThumbnail(FThumbList.Objects[Number]).Height -
!             (TJvThumbnail(FThumbList.Objects[Number]).Height div 2)));
        end;
!     smHorizontal:
        begin
!         if TJvThumbnail(FThumbList.Objects[Number]).Left < 0 then
!           HorzScrollBar.Position := HorzScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Left -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2));
!         if TJvThumbnail(FThumbList.Objects[Number]).Left +
!           TJvThumbnail(FThumbList.Objects[Number]).Width > Width then
!           HorzScrollBar.Position := HorzScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Left -
!             (Width - TJvThumbnail(FThumbList.Objects[Number]).Width -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2)));
        end;
      smBoth:
        begin
!         if TJvThumbnail(FThumbList.Objects[Number]).Top < 0 then
!           VertScrollBar.Position := VertScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Top -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2));
!         if TJvThumbnail(FThumbList.Objects[Number]).Top +
!           TJvThumbnail(FThumbList.Objects[Number]).Height > Height then
!           VertScrollBar.Position := VertScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Top -
!             (TJvThumbnail(FThumbList.Objects[Number]).Height -
!             (TJvThumbnail(FThumbList.Objects[Number]).Height div 2)));
!         if TJvThumbnail(FThumbList.Objects[Number]).Left < 0 then
!           HorzScrollBar.Position := HorzScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Left -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2));
!         if TJvThumbnail(FThumbList.Objects[Number]).Left +
!           TJvThumbnail(FThumbList.Objects[Number]).Width > Width then
!           HorzScrollBar.Position := HorzScrollBar.Position +
!             (TJvThumbnail(FThumbList.Objects[Number]).Left -
!             (Width - TJvThumbnail(FThumbList.Objects[Number]).Width -
!             (TJvThumbnail(FThumbList.Objects[Number]).Width div 2)));
        end;
    end;
  end;
- 
  (*
  function TJvThumbView.GetBufferName(AName: string): string;
--- 348,413 ----
  end;
  
! procedure TJVThumbview.ScrollTo(const number: longint);
  begin
! // if AutoScrolling then if (number>-1) then
!   if (number < 0) or (number > FThumbList.count - 1) then exit;
!   case scrollmode of
!     smvertical:
        begin
!         if TJvThumbnail(FThumbList.objects[number]).top < 0 then
!           vertscrollbar.position := vertscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).top -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2));
!         if TJVThumbNail(FThumbList.objects[number]).top +
!           TJVThumbNail(FThumbList.objects[number]).height > height then
!           vertscrollbar.position := vertscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).top -
!             (height - TJVThumbNail(FThumbList.objects[number]).height -
!             (TJVThumbNail(FThumbList.objects[number]).height div 2)));
        end;
!     smhorizontal:
        begin
!         if TJVThumbNail(FThumbList.objects[number]).left < 0 then
!           horzscrollbar.position := Horzscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).left -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2));
!         if TJVThumbNail(FThumbList.objects[number]).left +
!           TJVThumbNail(FThumbList.objects[number]).width > width then
!           Horzscrollbar.position := Horzscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).left -
!             (width - TJVThumbNail(FThumbList.objects[number]).width -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2)));
        end;
      smBoth:
        begin
!         if TJVThumbNail(FThumbList.objects[number]).top < 0 then
!           vertscrollbar.position := vertscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).top -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2));
!         if TJVThumbNail(FThumbList.objects[number]).top +
!           TJVThumbNail(FThumbList.objects[number]).height > height then
!           vertscrollbar.position := vertscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).top -
!             (TJVThumbNail(FThumbList.objects[number]).height -
!             (TJVThumbNail(FThumbList.objects[number]).height div 2)));
!         if TJVThumbNail(FThumbList.objects[number]).left < 0 then
!           horzscrollbar.position := Horzscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).left -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2));
!         if TJVThumbNail(FThumbList.objects[number]).left +
!           TJVThumbNail(FThumbList.objects[number]).width > width then
!           Horzscrollbar.position := Horzscrollbar.position +
!             (TJVThumbNail(FThumbList.objects[number]).left -
!             (width - TJVThumbNail(FThumbList.objects[number]).width -
!             (TJVThumbNail(FThumbList.objects[number]).width div 2)));
        end;
    end;
+   if FSelected <> Number then
+   begin
+     FSelected := Number;
+     if Assigned(OnClick) then
+       OnClick(Self);
+   end;
  end;
  (*
  function TJvThumbView.GetBufferName(AName: string): string;