[JVCL-Checkins] CVS: dev/JVCL3/examples/JvPlayList JvPlayListMainFormU.dfm,NONE,1.1 JvPlayListMainFormU.pas,NONE,1.1 JvPlayListProj.dof,NONE,1.1 JvPlayListProj.dpr,NONE,1.1 JvPlayListProj.res,NONE,1.1

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvPlayList
In directory sc8-pr-cvs1:/tmp/cvs-serv4702/JVCL3/examples/JvPlayList

Added Files:
	JvPlayListMainFormU.dfm JvPlayListMainFormU.pas 
	JvPlayListProj.dof JvPlayListProj.dpr JvPlayListProj.res 
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter

--- NEW FILE: JvPlayListMainFormU.dfm ---
object JvPlayListMainForm: TJvPlayListMainForm
  Left = 433
  Top = 276
  BorderStyle = bsSingle
  Caption = 'PlayList Demo'
  ClientHeight = 256
  ClientWidth = 421
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 38
    Top = 232
    Width = 377
    Height = 17
    AutoSize = False
  end
  object Label2: TLabel
    Left = 4
    Top = 232
    Width = 26
    Height = 13
    Caption = 'Item :'
  end
  object JvPlaylist1: TJvPlaylist
    Left = 4
    Top = 4
    Width = 411
    Height = 221
    ItemHeight = 13
    Background.FillMode = bfmTile
    Background.Visible = False
    MultiSelect = True
    ScrollBars = ssNone
    TabOrder = 0
    OnClick = JvPlaylist1Click
    ShowDrive = True
  end
  object OpenDialog1: TOpenDialog
    InitialDir = '.'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Left = 184
    Top = 46
  end
  object MainMenu1: TMainMenu
    Left = 52
    Top = 50
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Action = Open
      end
      object Delete1: TMenuItem
        Action = Delete
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Action = Exit
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      OnClick = Options1Click
      object ShowNumbers1: TMenuItem
        Caption = 'Show Numbers'
        OnClick = ShowNumbers1Click
      end
      object ShowExtensions1: TMenuItem
        Caption = 'Show Extensions'
        OnClick = ShowExtensions1Click
      end
      object ShowDrives1: TMenuItem
        Caption = 'Show Drive Letters'
        Checked = True
        OnClick = ShowDrives1Click
      end
    end
    object Operations1: TMenuItem
      Caption = 'Fun&ctions'
      object DeleteDeadFiles1: TMenuItem
        Action = DeleteDead
      end
      object Delete2: TMenuItem
        Caption = 'Sort'
        object SortByPath1: TMenuItem
          Action = SortPah
        end
        object SortByPathInverted1: TMenuItem
          Action = SortPathI
        end
        object SortBySongName1: TMenuItem
          Action = SortSong
        end
        object SortBySongNameInverted1: TMenuItem
          Action = SortSongNameInverted
        end
        object N2: TMenuItem
          Caption = '-'
        end
        object RandomOrder1: TMenuItem
          Action = RandomOrder
        end
        object ReverseOrder1: TMenuItem
          Action = Reverse
        end
      end
    end
    object Selection1: TMenuItem
      Caption = '&Selection'
      object SelectAll1: TMenuItem
        Action = SelectAll
      end
      object UnselectAll1: TMenuItem
        Action = UnselectAll
      end
      object InverseSelection1: TMenuItem
        Action = InvSelect
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MoveSelectedUp1: TMenuItem
        Action = MoveUp
      end
      object MoveSelectedDown1: TMenuItem
        Action = MoveDown
      end
    end
  end
  object ActionList1: TActionList
    Left = 126
    Top = 44
    object Open: TAction
      Caption = '&Open...'
      Hint = 'Open'
      ShortCut = 16463
      OnExecute = OpenExecute
    end
    object Delete: TAction
      Caption = '&Delete'
      ShortCut = 46
      OnExecute = DeleteExecute
    end
    object Exit: TAction
      Caption = '&Exit'
      ShortCut = 32883
      OnExecute = ExitExecute
    end
    object DeleteDead: TAction
      Caption = 'Delete &Dead Files'
      ShortCut = 16430
      OnExecute = DeleteDeadExecute
    end
    object SortSong: TAction
      Caption = 'Sort By &SongName'
      OnExecute = SortSongExecute
    end
    object SortPah: TAction
      Caption = 'Sort By Path'
      OnExecute = SortPahExecute
    end
    object SortPathI: TAction
      Caption = 'Sort By Path Inverted'
      OnExecute = SortPathIExecute
    end
    object SortSongNameInverted: TAction
      Caption = 'Sort By SongName Inverted'
      OnExecute = SortSongNameInvertedExecute
    end
    object RandomOrder: TAction
      Caption = 'Random Order'
      OnExecute = RandomOrderExecute
    end
    object Reverse: TAction
      Caption = 'Reverse Order'
      OnExecute = ReverseExecute
    end
    object SelectAll: TAction
      Caption = 'Select All'
      ShortCut = 16449
      OnExecute = SelectAllExecute
    end
    object UnselectAll: TAction
      Caption = 'Unselect All'
      ShortCut = 16469
      OnExecute = UnselectAllExecute
    end
    object InvSelect: TAction
      Caption = 'Inverse Selection'
      ShortCut = 16457
      OnExecute = InvSelectExecute
    end
    object MoveUp: TAction
      Caption = 'Move Selected Up'
      ShortCut = 16422
      OnExecute = MoveUpExecute
    end
    object MoveDown: TAction
      Caption = 'Move Selected Down'
      ShortCut = 16424
      OnExecute = MoveDownExecute
    end
  end
end

--- NEW FILE: JvPlayListMainFormU.pas ---
unit JvPlayListMainFormU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ActnList, Menus, JvPlaylist, JvListBox, JvCtrls;

type
  TJvPlayListMainForm = class(TForm)
    JvPlaylist1: TJvPlaylist;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Delete1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    ActionList1: TActionList;
    Open: TAction;
    Delete: TAction;
    Exit: TAction;
    Label2: TLabel;
    Options1: TMenuItem;
    ShowNumbers1: TMenuItem;
    ShowExtensions1: TMenuItem;
    Operations1: TMenuItem;
    DeleteDead: TAction;
    DeleteDeadFiles1: TMenuItem;
    Delete2: TMenuItem;
    SortSong: TAction;
    SortPah: TAction;
    SortPathI: TAction;
    SortSongNameInverted: TAction;
    RandomOrder: TAction;
    Reverse: TAction;
    SortByPath1: TMenuItem;
    SortByPathInverted1: TMenuItem;
    SortBySongName1: TMenuItem;
    SortBySongNameInverted1: TMenuItem;
    N2: TMenuItem;
    RandomOrder1: TMenuItem;
    ReverseOrder1: TMenuItem;
    Selection1: TMenuItem;
    SelectAll: TAction;
    UnselectAll: TAction;
    InvSelect: TAction;
    SelectAll1: TMenuItem;
    UnselectAll1: TMenuItem;
    InverseSelection1: TMenuItem;
    N3: TMenuItem;
    MoveUp: TAction;
    MoveDown: TAction;
    MoveSelectedUp1: TMenuItem;
    MoveSelectedDown1: TMenuItem;
    ShowDrives1: TMenuItem;
    procedure JvPlaylist1Click(Sender: TObject);
    procedure OpenExecute(Sender: TObject);
    procedure ExitExecute(Sender: TObject);
    procedure DeleteExecute(Sender: TObject);
    procedure Options1Click(Sender: TObject);
    procedure ShowNumbers1Click(Sender: TObject);
    procedure ShowExtensions1Click(Sender: TObject);
    procedure SortSongExecute(Sender: TObject);
    procedure SortPahExecute(Sender: TObject);
    procedure SortPathIExecute(Sender: TObject);
    procedure SortSongNameInvertedExecute(Sender: TObject);
    procedure RandomOrderExecute(Sender: TObject);
    procedure ReverseExecute(Sender: TObject);
    procedure DeleteDeadExecute(Sender: TObject);
    procedure SelectAllExecute(Sender: TObject);
    procedure UnselectAllExecute(Sender: TObject);
    procedure InvSelectExecute(Sender: TObject);
    procedure MoveUpExecute(Sender: TObject);
    procedure MoveDownExecute(Sender: TObject);
    procedure ShowDrives1Click(Sender: TObject);
  end;

var
  JvPlayListMainForm: TJvPlayListMainForm;

implementation

{$R *.DFM}


procedure TJvPlayListMainForm.JvPlaylist1Click(Sender: TObject);
begin
  if JvPlayList1.ItemIndex<>-1 then
    Label1.Caption := JvPlayList1.Items[JvPlayList1.ItemIndex];
end;

procedure TJvPlayListMainForm.OpenExecute(Sender: TObject);
begin
  if OpenDialog1.Execute then
    JvPlayList1.AddItems(OpenDialog1.Files);
end;

procedure TJvPlayListMainForm.ExitExecute(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TJvPlayListMainForm.DeleteExecute(Sender: TObject);
begin
  JvPlayList1.DeleteSelected;
end;

procedure TJvPlayListMainForm.Options1Click(Sender: TObject);
begin
  ShowNumbers1.Checked := JvPlayList1.ShowNumbers;
  ShowExtensions1.Checked := JvPlayList1.ShowExtension;
end;

procedure TJvPlayListMainForm.ShowNumbers1Click(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    Checked := not Checked;
    JvPlayList1.ShowNumbers := Checked;
  end;
end;

procedure TJvPlayListMainForm.ShowExtensions1Click(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    Checked := not Checked;
    JvPlayList1.ShowExtension := Checked;
  end;
end;

procedure TJvPlayListMainForm.SortSongExecute(Sender: TObject);
begin
  JvPlayList1.SortBySongName;
end;

procedure TJvPlayListMainForm.SortPahExecute(Sender: TObject);
begin
  JvPlayList1.SortByPath;
end;

procedure TJvPlayListMainForm.SortPathIExecute(Sender: TObject);
begin
  JvPlayList1.SortByPathInverted;
end;

procedure TJvPlayListMainForm.SortSongNameInvertedExecute(Sender: TObject);
begin
  JvPlayList1.SortBySongNameInverted;
end;

procedure TJvPlayListMainForm.RandomOrderExecute(Sender: TObject);
begin
  JvPlayList1.RandomOrder;
end;

procedure TJvPlayListMainForm.ReverseExecute(Sender: TObject);
begin
  JvPlayList1.ReverseOrder;
end;

procedure TJvPlayListMainForm.DeleteDeadExecute(Sender: TObject);
begin
  JvPlayList1.DeleteDeadFiles;
end;

procedure TJvPlayListMainForm.SelectAllExecute(Sender: TObject);
begin
  JvPlayList1.SelectAll;
end;

procedure TJvPlayListMainForm.UnselectAllExecute(Sender: TObject);
begin
  JvPlayList1.UnselectAll;
end;

procedure TJvPlayListMainForm.InvSelectExecute(Sender: TObject);
begin
  JvPlayList1.InvertSelection;
end;

procedure TJvPlayListMainForm.MoveUpExecute(Sender: TObject);
begin
  JvPlayList1.MoveSelectedUp;
end;

procedure TJvPlayListMainForm.MoveDownExecute(Sender: TObject);
begin
  JvPlayList1.MoveSelectedDown;
end;

procedure TJvPlayListMainForm.ShowDrives1Click(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    Checked := not Checked;
    JvPlayList1.ShowDrive := Checked;
  end;
end;

end.

--- NEW FILE: JvPlayListProj.dof ---
[Directories]
OutputDir=..\..\Bin
UnitOutputDir=..\..\Dcu
SearchPath=..\..\Source;..\..\Common

--- NEW FILE: JvPlayListProj.dpr ---
program JvPlayListProj;

uses
  Forms,
  JvPlayListMainFormU in 'JvPlayListMainFormU.pas';

{$R *.RES}

 begin
  Application.Initialize;
  Application.CreateForm(TJvPlayListMainForm, JvPlayListMainForm);
  Application.Run;
end.

--- NEW FILE: JvPlayListProj.res ---
(This appears to be a binary file; contents omitted.)