[JVCL-Checkins] dev/JVCL3/examples/JvTimeline TimelineMainFormU.pas,1.2,1.3 - - updated

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

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvTimeline
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18905/examples/JvTimeline

Modified Files:
	TimelineMainFormU.pas 
Log Message:
- updated


Index: TimelineMainFormU.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvTimeline/TimelineMainFormU.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TimelineMainFormU.pas	8 Jan 2004 09:52:28 -0000	1.2
--- TimelineMainFormU.pas	18 Dec 2004 12:33:24 -0000	1.3
***************
*** 380,385 ****
--- 380,389 ----
    cbDragging.ItemIndex := 0;
    TimelineNotesForm := TTimelineNotesForm.Create(nil);
+   cbDraggingChange(nil);
+   TimeLine1.ShowSelection := false;
+   TimeLine1.DoubleBuffered := false;
  end;
  
+ 
  procedure TTimelineMainForm.TimeLine1SaveItem(Sender: TObject; Item: TJvTimeItem;
    Stream: TStream);
***************
*** 633,638 ****
  procedure TTimelineMainForm.cbDraggingChange(Sender: TObject);
  begin
    case cbDragging.ItemIndex of
!     0, 1:
        TimeLine1.DragMode := dmManual;
      2:
--- 637,643 ----
  procedure TTimelineMainForm.cbDraggingChange(Sender: TObject);
  begin
+   TimeLine1.DragLine := false;
    case cbDragging.ItemIndex of
!     0,1:
        TimeLine1.DragMode := dmManual;
      2: