pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
26832a9a73e434c31f901b6c5efec2292b77d19c
lazarus-ccr/applications/cactusjukebox/source/settings.pas
sekelsenmat 6f8c048343 Adds the cactus jukebox to the lazarus ccr 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1748 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-07-21 09:39:48 +00:00

513 lines
16 KiB
ObjectPascal
Executable File
Raw Blame History

{
Settings Dialog for Cactus Jukebox
written by Sebastian Kraft, <c> 2006-2008
Contact the author at: sebastian_kraft@gmx.de
This Software is published under the GPL
}
Unit settings;
{$mode objfpc}{$H+}
Interface
Uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, Buttons, ComCtrls, CheckLst, config, playerclass, mplayer;
resourcestring
rsAutoloadLast = 'Load last library at startup';
rsScanForNewFi = 'Scan for new files in background on startup';
rsLanguage = 'Language';
rsGuessTagFrom = 'Guess tag from filename';
rsMoveToSectio = 'Move to section %sUnknown%s';
rsID3Type = 'ID3 type';
rsID3v1Priorit = 'ID3v1 Priority';
rsID3v2Priorit = 'ID3v2 Priority';
rsGeneral = 'General';
rsPathToMp3pla = 'Path to mp3player mountpoint';
rsCreateSubfol = 'Create subfolders on upload';
rsPathsToAddit = 'Paths to additional application needed for Cactus Jukebox';
rsCdda2wavTool = 'Cdda2wav (tool to rip CDs)';
rsSave = 'Save';
rsCancel = 'Cancel';
rsMobileDevice = 'Mobile Device';
rsPaths = 'Paths';
rsLameNeededTo = 'lame (needed to encode mp3 files)';
rsEnableKDESer = 'Enable KDE Service Menu';
rsAudioOutput = 'Audio Output';
rsDownloadAlbu = 'Download album cover image from internet';
rsClearCache = 'Clear Cache';
rsAutomaticlyS = 'Automaticly start playing first song in playlist';
rsLoadLastPlay = 'Load last playlist on startup';
rsAlwaysStartP = 'Always start playing first song in empty playlist';
rsStopPlayback = 'Stop playback when playlist is cleared';
rsSortAlbumsBy = 'Sort albums by track instead of title';
rsEnablePlugin = 'Enable plugins';
const TSETTINGS_SELECT_NONE = 0;
const TSETTINGS_SELECT_ID3 = 1;
Type
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{ TSettings }
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
TSettings = Class(TForm)
AudioOut: TComboBox;
autoload1: TCheckBox;
Button1: TButton;
backscan: TCheckBox;
Button2: TButton;
CDRomEdit: TEdit;
AutoPlayBox: TCheckBox;
AudioBackend: TComboBox;
Image1: TImage;
Label10: TLabel;
Label11: TLabel;
UseExternalCfgCheckBox: TCheckBox;
Label9: TLabel;
MarkGuessBox: TCheckBox;
ClearCover: TButton;
AlbumCoverSizeBox: TComboBox;
CoverDownload: TCheckBox;
EnablePluginsBox: TCheckBox;
Label7: TLabel;
Label8: TLabel;
CmdlineMemo: TMemo;
EditCmdlinePanel: TPanel;
SortAlbumBox: TCheckBox;
LoadPlaylistBox: TCheckBox;
StopOnClearBox: TCheckBox;
Label4: TLabel;
Label6: TLabel;
TabSheet6: TTabSheet;
txtFormatString: TEdit;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
LAudioBackend: TLabel;
LAudioOut: TLabel;
PluginList: TCheckListBox;
guesstag1: TRadioButton;
GuessTagBox: TGroupBox;
ID3typebox: TGroupBox;
kdeservicebox: TCheckBox;
Label1: TLabel;
LanguageBox: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
PluginInfo: TMemo;
PathBox: TGroupBox;
LLanguage: TLabel;
Lcdda2wav: TLabel;
Llame: TLabel;
Label5: TLabel;
RadioGroup1: TRadioGroup;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
subfolders: TCheckBox;
LMountpoint: TLabel;
PageControl1: TPageControl;
playerpathedit1: TEdit;
savebut: TButton;
cancelbut: TButton;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet5: TTabSheet;
AudioTab: TTabSheet;
unknown1: TRadioButton;
v1_prio: TRadioButton;
v1_prio1: TRadioButton;
v2_prio: TRadioButton;
v2_prio1: TRadioButton;
procedure AudioBackendChange(Sender: TObject);
Procedure Button1Click(Sender: TObject);
Procedure ClearCoverClick(Sender: TObject);
procedure StaticText1Click(Sender: TObject);
procedure UseExternalCfgCheckBoxChange(Sender: TObject);
procedure EnablePluginsBoxClick(Sender: TObject);
Procedure FormCreate(Sender: TObject);
procedure guesstag1Change(Sender: TObject);
procedure Label9Click(Sender: TObject);
Procedure LanguageBoxChange(Sender: TObject);
Procedure PluginListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Procedure cancelbutClick(Sender: TObject);
Procedure kdeserviceboxChange(Sender: TObject);
Procedure savebutClick(Sender: TObject);
function ShowModal(intActivePage: integer = TSETTINGS_SELECT_NONE): Integer;
Private
{ private declarations }
servicemenu_changed: boolean;
Public
{ public declarations }
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Var
setupwin: TSettings;
Implementation
Uses mainform, translations, functions{, plugin};
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
{ TSettings }
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.savebutClick(Sender: TObject);
Var
i: integer;
Begin
// Main.mpg123:=mpg123pathedit1.text;
// Main.lame:=lamepathedit1.text;
CactusConfig.DAPPath := IncludeTrailingPathDelimiter(playerpathedit1.Text);
CactusConfig.CDRomDevice := CDRomEdit.Text;
{$ifdef linux}
If servicemenu_changed Then
If kdeservicebox.checked Then
Begin
If FileExists(CactusConfig.HomeDir+'/.kde/share/apps/konqueror/servicemenus/') Then
Begin
If FileCopy(CactusConfig.DataPrefix+'/tools/cactus_servicemenu.desktop', CactusConfig.
HomeDir+'/.kde/share/apps/konqueror/servicemenus/cactus_servicemenu.desktop')
Then CactusConfig.KDEServiceMenu := true
Else
Begin
CactusConfig.KDEServiceMenu := false;
ShowMessage('ERROR: Couldn''t create service menu...');
End;
End;
End
Else
Begin
DeleteFile(CactusConfig.HomeDir+
'/.kde/share/apps/konqueror/servicemenus/cactus_servicemenu.desktop');
CactusConfig.KDEServiceMenu := true;
End;
If AudioOut.ItemIndex=0 Then CactusConfig.AudioSystem := ALSAOUT
Else CactusConfig.AudioSystem := OSSOUT;
PlayerObj.OutputMode:=CactusConfig.AudioSystem;
if AudioBackend.ItemIndex=0 then CactusConfig.AudioBackend:=MPLAYERBACK
else CactusConfig.AudioBackend:=FMODBACK;
{$endif}
CactusConfig.MPlayerUseExternalConfig:=UseExternalCfgCheckBox.Checked;
if (PlayerObj is TMPlayerClass) then begin
(PlayerObj as TMPlayerClass).UseExternalConfig:=CactusConfig.MPlayerUseExternalConfig;
if (PlayerObj as TMPlayerClass).UseExternalConfig then
CmdlineMemo.Lines.SaveToFile((PlayerObj as TMPlayerClass).ExternalConfigFile);
end;
CactusConfig.GuessTag := guesstag1.checked;
CactusConfig.MarkGuessedTags:= MarkGuessBox.Checked;
CactusConfig.background_scan := backscan.Checked;
CactusConfig.id3v2_prio := v2_prio.Checked;
CactusConfig.mobile_subfolders := subfolders.checked;
CactusConfig.CoverDownload := CoverDownload.Checked;
if AlbumCoverSizeBox.ItemIndex=0 then CactusConfig.CoverSize:='medium'
else CactusConfig.CoverSize:='large';
CactusConfig.AutostartPlay:=AutoPlayBox.Checked;
CactusConfig.StopOnClear:=StopOnClearBox.Checked;
CactusConfig.LoadLastPlaylist:=LoadPlaylistBox.Checked;
CactusConfig.strTagToNameFormatString := txtFormatString.Text;
CactusConfig.language := LanguageBox.Items[LanguageBox.ItemIndex];
CactusConfig.FlushConfig;
CactusConfig.SortAlbumByTrack:=SortAlbumBox.Checked;
CactusConfig.PluginsEnabled:=EnablePluginsBox.Checked;
(*
For i:=0 To PluginList.Count-1 Do
If PluginList.Checked[i] Then
CactusPlugins.Items[i].enabled := true
Else CactusPlugins.Items[i].enabled := false;
*)
TranslateUnitResourceStrings('settings', CactusConfig.DataPrefix+'languages/cactus.%s.po',
CactusConfig.language, '');
TranslateUnitResourceStrings('mp3', CactusConfig.DataPrefix+'languages/cactus.%s.po', CactusConfig
.language, '');
close;
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
function TSettings.ShowModal(intActivePage: integer = TSETTINGS_SELECT_NONE): Integer;
begin
case intActivePage of
TSETTINGS_SELECT_NONE: PageControl1.ActivePage := TabSheet1;
TSETTINGS_SELECT_ID3: PageControl1.ActivePage := TabSheet4;
end;
inherited ShowModal;
end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.cancelbutClick(Sender: TObject);
Begin
close;
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.kdeserviceboxChange(Sender: TObject);
Begin
servicemenu_changed := true;
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.Button1Click(Sender: TObject);
Begin
If FileExists(CactusConfig.DAPPath) Then Main.Selectdirectorydialog1.initialdir := CactusConfig.
DAPPath
Else Main.Selectdirectorydialog1.initialdir := '/';
Main.Selectdirectorydialog1.title := 'Choose mp3 player directory...';
If Main.Selectdirectorydialog1.execute=true Then
Begin
playerpathedit1.text := IncludeTrailingPathDelimiter(Main.Selectdirectorydialog1.FileName);
End;
End;
procedure TSettings.AudioBackendChange(Sender: TObject);
begin
ShowMessage('Please restart Cactus for audio backend change to take effect');
end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.ClearCoverClick(Sender: TObject);
Begin
If DirectoryExists(CactusConfig.ConfigPrefix+DirectorySeparator+'covercache') Then
Begin
If EraseDirectory(CactusConfig.ConfigPrefix+DirectorySeparator+'covercache') Then
writeln('Covercache has been cleared...')
Else writeln('ERROR while clearing covercache...');
End;
End;
procedure TSettings.StaticText1Click(Sender: TObject);
begin
end;
procedure TSettings.UseExternalCfgCheckBoxChange(Sender: TObject);
begin
CmdlineMemo.Enabled:=UseExternalCfgCheckBox.Checked;
end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TSettings.EnablePluginsBoxClick(Sender: TObject);
begin
If EnablePluginsBox.Checked then begin
PluginList.Enabled:=true;
PluginInfo.Enabled:=true;
Label1.Enabled:=true;
end else begin
PluginList.Enabled:=false;
PluginInfo.Enabled:=false;
Label1.Enabled:=false;
end;
// ShowMessage('You have to restart Cactus Jukebox for changes to take effect!!');
//TDOD: Add warning that plugins are enabled/disabled only after restart
end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.FormCreate(Sender: TObject);
Var srec: TSearchRec;
i: integer;
Begin
//Look for available translations and add them into the combobox
If FindFirst(IncludeTrailingPathDelimiter(CactusConfig.DataPrefix)+'languages'+DirectorySeparator+
'*.mo', faAnyFile,srec)=0 Then
Begin
Repeat
Begin
i := LanguageBox.Items.Add(Copy(srec.Name, 8, length(srec.Name)-10));
If (CactusConfig.language=LanguageBox.Items[i]) Or (copy(CactusConfig.language, 0, 2)=
LanguageBox.Items[i]) Then LanguageBox.ItemIndex := i;
End;
Until FindNext(srec)<>0;
End;
{$ifdef win32}
label2.Hide;
CDRomEdit.Hide;;
{$endif}
TranslateUnitResourceStrings('settings', CactusConfig.DataPrefix+'languages/cactus.%s.po',
CactusConfig.language, copy(CactusConfig.language, 0, 2));
autoload1.Caption := rsAutoloadLast;
LoadPlaylistBox.Caption:=rsLoadLastPlay;
backscan.Caption := rsScanForNewFi;
LLanguage.Caption := rsLanguage;
guesstag1.Caption := rsGuessTagFrom;
unknown1.Caption := Format(rsMoveToSectio, ['"', '"']);
ID3typebox.Caption := rsID3Type;
v1_prio.Caption := rsID3v1Priorit;
v2_prio.Caption := rsID3v2Priorit;
TabSheet1.Caption := rsGeneral;
TabSheet2.Caption := rsMobileDevice;
TabSheet3.Caption := rsPaths;
LMountpoint.Caption := rsPathToMp3pla;
subfolders.Caption := rsCreateSubfol;
PathBox.Caption := rsPathsToAddit;
Lcdda2wav.Caption := rsCdda2wavTool;
llame.Caption := rsLameNeededTo;
savebut.Caption := rsSave;
cancelbut.Caption := rsCancel;
kdeservicebox.Caption := rsEnableKDESer;
LAudioOut.Caption := rsAudioOutput;
CoverDownload.Caption := rsDownloadAlbu;
ClearCover.Caption := rsClearCache;
LLanguage.Caption := rsLanguage;
AutoPlayBox.Caption:= rsAlwaysStartP;
StopOnClearBox.Caption:= rsStopPlayback;
SortAlbumBox.Caption:= rsSortAlbumsBy;
EnablePluginsBox.Caption:= rsEnablePlugin;
// AutostartBox.Caption:=rsAutomaticlyS;
{$ifdef linux}
kdeservicebox.Checked := CactusConfig.KDEServiceMenu;
If CactusConfig.AudioSystem=ALSAOUT then AudioOut.ItemIndex := 0
Else AudioOut.ItemIndex := 1;
If CactusConfig.AudioBackend=MPLAYERBACK then begin
AudioBackend.ItemIndex := 0;
EditCmdlinePanel.Visible:=true;
UseExternalCfgCheckBox.Checked:=CactusConfig.MPlayerUseExternalConfig;
CmdlineMemo.Enabled:=CactusConfig.MPlayerUseExternalConfig;
CmdlineMemo.Lines.LoadFromFile((PlayerObj as TMPlayerClass).ExternalConfigFile);
end Else begin
AudioBackend.ItemIndex := 1;
EditCmdlinePanel.Visible:=False;
end;
servicemenu_changed := false;
kdeservicebox.Visible := true;
{$else}
AudioOut.Visible := false;
LAudioOut.Visible := false;
kdeservicebox.Visible := false;
{$endif}
CoverDownload.Checked := CactusConfig.CoverDownload;
if CactusConfig.CoverSize='large' then AlbumCoverSizeBox.ItemIndex:=1
else AlbumCoverSizeBox.ItemIndex:=0;
playerpathedit1.text := CactusConfig.DAPPath;
CDRomEdit.Text := CactusConfig.CDRomDevice;
If CactusConfig.GuessTag Then begin
guesstag1.checked := true;
MarkGuessBox.Enabled:=true;
end
Else begin
unknown1.checked := true;
MarkGuessBox.Enabled:=false;
end;
MarkGuessBox.Checked:=CactusConfig.MarkGuessedTags;
If CactusConfig.background_scan Then backscan.checked := true
Else backscan.checked := false;
If CactusConfig.mobile_subfolders Then subfolders.checked := true
Else subfolders.checked := false;
If CactusConfig.id3v2_prio Then v2_prio.Checked := true
Else v1_prio.checked := true;
AutoPlayBox.Checked := CactusConfig.AutostartPlay;
LoadPlaylistBox.Checked:=CactusConfig.LoadLastPlaylist;
StopOnClearBox.Checked:=CactusConfig.StopOnClear;
txtFormatString.Text := CactusConfig.strTagToNameFormatString;
SortAlbumBox.Checked:=CactusConfig.SortAlbumByTrack;
EnablePluginsBox.Checked:=CactusConfig.PluginsEnabled;
If EnablePluginsBox.Checked then begin
PluginList.Enabled:=true;
PluginInfo.Enabled:=true;
Label1.Enabled:=true;
end else begin
PluginList.Enabled:=false;
PluginInfo.Enabled:=false;
Label1.Enabled:=false;
end;
(*
For i:=0 To CactusPlugins.Count-1 Do
Begin
writeln(i);
PluginList.Items.Add(CactusPlugins.Items[i].Name);
PluginList.Checked[i] := CactusPlugins.Items[i].enabled;
End;
*)
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TSettings.guesstag1Change(Sender: TObject);
begin
if guesstag1.Checked then MarkGuessBox.Enabled:=true
else MarkGuessBox.Enabled:=false;
end;
procedure TSettings.Label9Click(Sender: TObject);
begin
end;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.LanguageBoxChange(Sender: TObject);
Begin
ShowMessage('To show user interface with new selected language'+LineEnding+
' you need to restart cactus Jukebox');
End;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure TSettings.PluginListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var index: integer;
Begin
index := PluginList.GetIndexAtY(Y);
PluginInfo.Clear;
// if index >= 0 then PluginInfo.Lines.Add(CactusPlugins.Items[index].Comment);
End;
initialization
{$I settings.lrs}
End.
Reference in New Issue View Git Blame Copy Permalink