main.~pas

关于DEPHI7.0的播放器管理系统源代码

       end;
   except
   end;
end;

procedure TFormMain.Image_authorMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_author.left := Panel_author.left + 1;
Panel_author.top := Panel_author.top + 1;
end;

procedure TFormMain.Image_authorMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_author.left := Panel_author.left - 1;
Panel_author.top := Panel_author.top - 1;
end;

//左声道控制
procedure TFormMain.TrackBar2Change(Sender: TObject);
var
t,v: Longint;
begin
  t:=TrackBar2.Position;
  waveOutGetVolume(0,@v);
  v := v and $ffff0000 or (t shl 8);
  waveOutSetVolume(0,255-v);
end;

//右声道控制
procedure TFormMain.TrackBar3Change(Sender: TObject);
var
t,v:Longint;
begin
  t:=TrackBar3.Position;
  waveOutGetVolume(0,@v);
  v:=v and $0000ffff or (t shl 24);
  waveOutSetVolume(0,255-v);
end;

//音量控制
procedure TFormMain.TrackBar1Change(Sender: TObject);
var
t,v:Longint;
begin
 t := TrackBar1.Position;
 v:=(t shl 8)or(t shl 24);
 waveOutSetVolume(0,v);
end;

function TFormMain.ZeroFill (size:integer;s:string):string;
var
  a,b:integer;
  t:string;
begin
        SetLength(t,size);
        for a:=1 to size do
          t[a]:='0';
        b:=size;
        for a:=length(s) downto 1 do
        begin
          t[b]:=s[a];
          dec(b);
        end;
        ZeroFill:=t;
end;

procedure TFormMain.Image_authorMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_author.Hint := '快速抓图';
end;

procedure TFormMain.Image_closeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_close.left := Panel_close.left +1;
Panel_close.top := Panel_close.top +1;
end;

procedure TFormMain.Image_closeMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_close.left := Panel_close.left - 1;
Panel_close.top := Panel_close.top - 1;
end;

procedure TFormMain.Image_helpMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_help.left := Panel_help.left - 1;
Panel_help.top := Panel_help.top - 1;
end;

procedure TFormMain.Image_helpMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_help.left := Panel_help.left +1;
Panel_help.top := Panel_help.top +1;
end;

procedure TFormMain.Image_helpMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_help.Hint := '帮助！';
end;

procedure TFormMain.Image_aboutMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_about.Hint := '关于软件！';
end;

procedure TFormMain.Image_aboutMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_about.left := Panel_about.left + 1;
Panel_about.top := Panel_about.top + 1;
end;

procedure TFormMain.Image_aboutMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_about.left := Panel_about.left - 1;
Panel_about.top := Panel_about.top - 1;
end;

procedure TFormMain.Image_audioMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_audio.left := Panel_audio.left + 1;
Panel_audio.top := Panel_audio.top + 1;
end;

procedure TFormMain.Image_audioMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_audio.left := Panel_audio.left - 1;
Panel_audio.top := Panel_audio.top - 1;
end;

procedure TFormMain.Image_audioMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_audio.Hint := '声音开关';
end;

procedure TFormMain.Image_minMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
Image_min.Hint := '最小化';
end;

procedure TFormMain.Image_minMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_min.left := panel_min.Left + 1;
Panel_min.top := Panel_min.top + 1;
end;

procedure TFormMain.Image_minMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Panel_min.left := panel_min.Left - 1;
Panel_min.top := Panel_min.top - 1;
end;

procedure TFormMain.Image_openMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_open.Hint := '打开文件';
end;

procedure TFormMain.Image_openMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_open.Left := Panel_open.Left +1;
Panel_open.Top := Panel_open.Top +1;
end;

procedure TFormMain.Image_openMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_open.Left := Panel_open.Left -1;
Panel_open.Top := Panel_open.Top -1;
end;

procedure TFormMain.Image_listMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_list.Left := Panel_list.Left -1;
Panel_list.Top := Panel_list.Top -1;
end;

procedure TFormMain.Image_listMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_list.Left := Panel_list.Left +1;
Panel_list.Top := Panel_list.Top +1;
end;

procedure TFormMain.Image_listMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_list.Hint := '文件列表';
end;

procedure TFormMain.Image_playMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_play.Hint := '播放';
end;

procedure TFormMain.Image_playMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_play.left := Panel_play.Left +1;
Panel_play.top := Panel_play.Top +1;
end;

procedure TFormMain.Image_playMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_play.left := Panel_play.Left -1;
Panel_play.top := Panel_play.Top -1;
end;

procedure TFormMain.Image_pauseMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_pause.Hint := '暂停';
end;

procedure TFormMain.Image_pauseMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_pause.left := Panel_pause.Left +1;
Panel_pause.top := Panel_pause.Top +1;
end;

procedure TFormMain.Image_pauseMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_pause.left := Panel_pause.Left -1;
Panel_pause.top := Panel_pause.Top -1;
end;

procedure TFormMain.Image_stopMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_stop.Hint := '停止';
end;

procedure TFormMain.Image_stopMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_stop.left := Panel_stop.Left +1;
Panel_stop.top := Panel_stop.Top +1;
end;

procedure TFormMain.Image_stopMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_stop.left := Panel_stop.Left -1;
Panel_stop.top := Panel_stop.Top -1;
end;

procedure TFormMain.Image_discardMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_discard.Hint := '光驱开关';
end;

procedure TFormMain.Image_discardMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_discard.left := Panel_discard.Left +1;
Panel_discard.top := Panel_discard.Top +1;
end;

procedure TFormMain.Image_discardMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_discard.left := Panel_discard.Left -1;
Panel_discard.top := Panel_discard.Top -1;
end;

procedure TFormMain.Image_prevMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_prev.Hint := '前一文件';
end;

procedure TFormMain.Image_prevMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_prev.left := Panel_prev.Left +1;
Panel_prev.top := Panel_prev.Top +1;
end;

procedure TFormMain.Image_prevMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_prev.left := Panel_prev.Left -1;
Panel_prev.top := Panel_prev.Top -1;
end;

procedure TFormMain.Image_nextMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_next.left := Panel_next.Left +1;
Panel_next.top := Panel_next.Top +1;
end;

procedure TFormMain.Image_nextMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_next.Hint := '后一文件';
end;

procedure TFormMain.Image_nextMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_next.left := Panel_next.Left -1;
Panel_next.top := Panel_next.Top -1;
end;

procedure TFormMain.Image_stepMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_step.Hint := '快进';
end;

procedure TFormMain.Image_stepMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_step.left := Panel_step.Left +1;
Panel_step.top := Panel_step.Top +1;
end;

procedure TFormMain.Image_stepMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_step.left := Panel_step.Left -1;
Panel_step.top := Panel_step.Top -1;
end;

procedure TFormMain.Image_backMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_back.Hint := '快退';
end;

procedure TFormMain.Image_backMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_back.left := Panel_back.Left +1;
Panel_back.top := Panel_back.Top +1;
end;

procedure TFormMain.Image_backMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_back.left := Panel_back.Left -1;
Panel_back.top := Panel_back.Top -1;
end;

procedure TFormMain.Image_flashMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_flash.Hint := '播放Flash文件';
end;

procedure TFormMain.Image_flashMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_flash.left := Panel_flash.Left +1;
Panel_flash.top := Panel_flash.Top +1;
end;

procedure TFormMain.Image_flashMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_flash.left := Panel_flash.Left -1;
Panel_flash.top := Panel_flash.Top -1;
end;

procedure TFormMain.Image_RealMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Image_Real.Hint := '播放Real文件';
end;

procedure TFormMain.Image_RealMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Panel_Real.left := Panel_Real.Left +1;
Panel_Real.top := Panel_Real.Top +1;
end;

procedure TFormMain.Image_RealMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);