|
From: Peter T. <pe...@us...> - 2004-12-18 12:33:33
|
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: |