settings.pas

mp3 播放器 delphi 源码

{###############################################################################
# Dipesh-MP3yk                                               Delphi-Sourcecode #
################################################################################
# by Sebastian Sauer (Dipesh)                                                  #
#   email:   [e-mail]                                                    #
#   url:     www.dipesh.de                                                     #
# (C) 1999 - freeware, see the licenceagreements in readme.txt                 #
################################################################################
# SETTINGS.PAS - TSettingsForm                                                 #
# Configure the settings.                                                      #
###############################################################################}

UNIT Settings;

INTERFACE

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
     StdCtrls, ExtCtrls, ComCtrls, Buttons, MPEGPlay;

type
  TSettingsForm = class(TForm)
    Page: TPageControl;
    TabPlayer: TTabSheet;
    TabPassword: TTabSheet;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    CheckBoxAutoRemove: TCheckBox;
    CheckBoxAutoRandom: TCheckBox;
    ComboBoxPriority: TComboBox;
    CheckBoxUseID3Tags: TCheckBox;
    CheckBoxAutoStart: TCheckBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    EditPassword: TEdit;
    CheckBoxExit: TCheckBox;
    CheckBoxOpenPlaylistfile: TCheckBox;
    CheckBoxPause: TCheckBox;
    CheckBoxPlay: TCheckBox;
    CheckBoxStop: TCheckBox;
    CheckBoxBack: TCheckBox;
    CheckBoxNext: TCheckBox;
    CheckBoxAddSel: TCheckBox;
    ButtonSave: TBitBtn;
    ButtonCancel: TBitBtn;
    TabMain: TTabSheet;
    CheckBoxSavePlaylistfile: TCheckBox;
    CheckBoxAddAll: TCheckBox;
    CheckBoxRemoveSel: TCheckBox;
    CheckBoxRemoveAll: TCheckBox;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    ComboBoxwindowstate: TComboBox;
    TabStyle: TTabSheet;
    GroupBox4: TGroupBox;
    FontDialog: TFontDialog;
    ColorDialog: TColorDialog;
    Label4: TLabel;
    CheckBoxZoom: TCheckBox;
    CheckBoxAddDir: TCheckBox;
    CheckBoxCenter: TCheckBox;
    ButtonMainFont: TButton;
    ButtonMainColor: TButton;
    ButtonFontLeftList: TButton;
    ButtonLeftListColor: TButton;
    ButtonFontRightList: TButton;
    ButtonRightListColor: TButton;
    ButtonHlFontColor: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    CheckBoxDragNDrop: TCheckBox;
    CheckBoxViewID3tag: TCheckBox;
    CheckBoxEditID3tag: TCheckBox;
    GroupBox5: TGroupBox;
    CheckBoxLeftlistGridlines: TCheckBox;
    CheckBoxLeftlistHeader: TCheckBox;
    CheckBoxLeftlistTitle: TCheckBox;
    GroupBox6: TGroupBox;
    CheckBoxRightlistGridlines: TCheckBox;
    CheckBoxRightlistHeader: TCheckBox;
    CheckBoxRightlistTitle: TCheckBox;
    CheckBoxLeftHottrack: TCheckBox;
    CheckBoxRightHottrack: TCheckBox;
    GroupBox7: TGroupBox;
    AutoopenPlaylistEdit: TEdit;
    CheckBoxAutoopenPlaylistSave: TCheckBox;
    AutoopenPlaylistButton: TButton;
    CheckBoxSingleInstance: TCheckBox;
    OpenDialog: TOpenDialog;
    Label6: TLabel;
    EditPeakUpdate: TEdit;
    UpDownPeakUpdate: TUpDown;
    Label11: TLabel;
    CheckBoxBackRemove: TCheckBox;
    Label12: TLabel;
    Label13: TLabel;
    EditPosUpdate: TEdit;
    UpDownPosUpdate: TUpDown;
    Label14: TLabel;
    procedure OnClose(Sender: TObject; var Action: TCloseAction);
    procedure OnCreate(Sender: TObject);
    procedure OnActivate(Sender: TObject);
    procedure ButtonSave_OnClick(Sender: TObject);
    procedure AutoopenPlaylistButton_OnClick(Sender: TObject);
    procedure ProfilePanels_OnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Font_OnClick(Sender: TObject);
    procedure Color_OnClick(Sender: TObject);
  end;

var SettingsForm: TSettingsForm;

const AktiveTabInPage: integer = 0;

IMPLEMENTATION

uses Main;

{$R *.DFM}     

procedure TSettingsForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin AktiveTabInPage:=Page.ActivePage.PageIndex; end;

procedure TSettingsForm.OnCreate(Sender: TObject);
begin
  Screen.Cursor:=crHourGlass;
  Page.ActivePage:=Page.Pages[AktiveTabInPage];
  ButtonSave.Glyph:=MainForm.ButtonSave.Glyph;
  MainForm.ImageListBtn.GetBitmap(0,ButtonCancel.Glyph);
  // Playing
  With MainForm.MPEGPlayer do Case PlayerPriority of Idle: ComboBoxPriority.ItemIndex:=0; Lowest: ComboBoxPriority.ItemIndex:=1;
    BelowNormal: ComboBoxPriority.ItemIndex:=2; Normal: ComboBoxPriority.ItemIndex:=3; AboveNormal: ComboBoxPriority.ItemIndex:=4;
    Highest: ComboBoxPriority.ItemIndex:=5; TimeCritical: ComboBoxPriority.ItemIndex:=6; end;
  CheckBoxAutoStart.Checked:=PlayAutoStart;
  CheckBoxUseID3Tags.Checked:=PlayUseID3Tags;
  CheckBoxAutoRemove.Checked:=PlayAutoRemove;
  CheckBoxAutoRandom.Checked:=PlayAutoRandom;
  CheckBoxBackRemove.Checked:=PlayRemoveAfterBack;
  AutoopenPlaylistEdit.Text:=PlayThisPlaylistfileOnStart;
  CheckBoxAutoopenPlaylistSave.Checked:=SaveLastOpenPlaylistfile;
  // Passwordprotection
  EditPassword.Text:=PasswordStr;
  CheckBoxExit.Checked:=NeedPwForExit;
  CheckBoxOpenPlaylistfile.Checked:=NeedPwForOpenPlaylist;
  CheckBoxSavePlaylistfile.Checked:=NeedPwForSavePlaylist;
  CheckBoxAddDir.Checked:=NeedPwForAddDir;
  CheckBoxAddSel.Checked:=NeedPwForAddSel;
  CheckBoxAddAll.Checked:=NeedPwForAddAll;
  CheckBoxRemoveSel.Checked:=NeedPwForRemoveSel;
  CheckBoxRemoveAll.Checked:=NeedPwForRemoveAll;
  CheckBoxPlay.Checked:=NeedPwForPlay;
  CheckBoxPause.Checked:=NeedPwForPause;
  CheckBoxStop.Checked:=NeedPwForStop;
  CheckBoxBack.Checked:=NeedPwForBack;
  CheckBoxNext.Checked:=NeedPwForNext;
  CheckBoxViewID3tag.Checked:=MeedPwForViewID3Tag;
  CheckBoxEditID3tag.Checked:=MeedPwForEditID3Tag;
  // Main
  CheckBoxSingleInstance.Checked:=singleinstance;
  If (mainwindowstate>=0)and(mainwindowstate<4) then ComboBoxwindowstate.ItemIndex:=mainwindowstate else ComboBoxwindowstate.ItemIndex:=4;
  CheckBoxZoom.Checked:=mainzoom;
  CheckBoxCenter.Checked:=maincenter;
  CheckBoxDragNDrop.Checked:=MainForm.ListViewLeft.DragMode=dmAutomatic;
  CheckBoxLeftHottrack.Checked:=MainForm.ListViewLeft.HotTrack;
  CheckBoxLeftlistGridlines.Checked:=MainForm.ListViewLeft.GridLines;
  CheckBoxLeftlistHeader.Checked:=MainForm.ListViewLeft.ShowColumnHeaders;
  CheckBoxLeftlistTitle.Checked:=MainForm.PanelLeftCaption.Visible;
  CheckBoxRightHottrack.Checked:=MainForm.ListViewRight.HotTrack;
  CheckBoxRightlistGridlines.Checked:=MainForm.ListViewRight.GridLines;
  CheckBoxRightlistHeader.Checked:=MainForm.ListViewRight.ShowColumnHeaders;
  CheckBoxRightlistTitle.Checked:=MainForm.PanelRightCaption.Visible;
  // Style
  UpDownPosUpdate.Position:=PosUpdateTime; EditPosUpdate.Text:=IntToStr(UpDownPosUpdate.Position);
  UpDownPeakUpdate.Position:=PeakLevelUpdateTime; EditPeakUpdate.Text:=IntToStr(UpDownPeakUpdate.Position);