home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / Mark.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-04-21  |  1.9 KB  |  71 lines
  1. unit Mark;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls,SdiMain, ComCtrls;
  7.  
  8. type
  9.   TMarkDlg = class(TForm)
  10.     OKBtn: TButton;
  11.     CancelBtn: TButton;
  12.     GroupBox1: TGroupBox;
  13.     GroupBox2: TGroupBox;
  14.     TrackBar1: TTrackBar;
  15.     TrackBar2: TTrackBar;
  16.     procedure FormCreate(Sender: TObject);
  17.     procedure TrackBar1Change(Sender: TObject);
  18.     procedure TrackBar2Change(Sender: TObject);
  19.     procedure FormShow(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   MarkDlg: TMarkDlg;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TMarkDlg.FormCreate(Sender: TObject);
  34. begin
  35.   GroupBox1.Caption:='Start: ' + IntToStr(MainForm.LeadVid1.MMClipStart);
  36.   GroupBox2.Caption:='Stop: ' + IntToStr(MainForm.LeadVid1.MMClipEnd);
  37. end;
  38.  
  39. procedure TMarkDlg.TrackBar1Change(Sender: TObject);
  40. begin
  41.   GroupBox1.Caption:='Start: ' + IntToStr(TrackBar1.Position);
  42.   if TrackBar1.Position > TrackBar2.Position then
  43.    begin
  44.      TrackBar2.Position:=TrackBar1.Position;
  45.      GroupBox2.Caption:='Stop: ' + IntToStr(TrackBar2.Position);
  46.    end;
  47. end;
  48.  
  49. procedure TMarkDlg.TrackBar2Change(Sender: TObject);
  50. begin
  51.   GroupBox2.Caption:='Stop: ' + IntToStr(TrackBar2.Position);
  52.   if TrackBar2.Position < TrackBar1.Position then
  53.    begin
  54.      TrackBar1.Position:=TrackBar2.Position;
  55.      GroupBox1.Caption:='Start: ' + IntToStr(TrackBar1.Position);
  56.    end;
  57. end;
  58.  
  59. procedure TMarkDlg.FormShow(Sender: TObject);
  60. begin
  61.   TrackBar1.Max:=MainForm.LeadVid1.MMTotalFrames;
  62.   TrackBar1.Position:=MainForm.LeadVid1.MMClipStart;
  63.   TrackBar2.Max:=MainForm.LeadVid1.MMTotalFrames;
  64.   TrackBar2.Position:=MainForm.LeadVid1.MMClipEnd;
  65.   TrackBar1.Refresh;
  66.   TrackBar2.Refresh;
  67.   GroupBox2.Caption:='Stop: ' + IntToStr(MainForm.LeadVid1.MMClipEnd);
  68. end;
  69.  
  70. end.
  71.