[JVCL-Checkins] CVS: dev/JVCL3/examples/JvBrowseFolder JvBrowseFolderMainFormU.dfm,NONE,1.1 JvBrowseFolderMainFormU.pas,NONE,1.1 JvBrowserFolder.dof,NONE,1.1 JvBrowserFolder.dpr,NONE,1.1 JvBrowserFolder.res,NONE,1.1

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

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

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

--- NEW FILE: JvBrowseFolderMainFormU.dfm ---
object JvBrowseFolderMainForm: TJvBrowseFolderMainForm
  Left = 450
  Top = 179
  BorderStyle = bsDialog
  Caption = 'JvBrowseFolder Test'
  ClientHeight = 289
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 178
    Top = 152
    Width = 75
    Height = 25
    Caption = '&Test'
    TabOrder = 0
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 182
    Width = 433
    Height = 103
    Caption = '[ Results ]'
    TabOrder = 1
    object Label1: TLabel
      Left = 20
      Top = 20
      Width = 42
      Height = 13
      Caption = 'Directory'
    end
    object Label2: TLabel
      Left = 10
      Top = 74
      Width = 66
      Height = 13
      Caption = 'Current Folder'
    end
    object Label3: TLabel
      Left = 12
      Top = 46
      Width = 65
      Height = 13
      Caption = 'Display Name'
    end
    object Edit1: TEdit
      Left = 92
      Top = 16
      Width = 327
      Height = 21
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 92
      Top = 42
      Width = 327
      Height = 21
      ReadOnly = True
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 92
      Top = 70
      Width = 327
      Height = 21
      ReadOnly = True
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 2
    Width = 433
    Height = 139
    Caption = '[ Options ]'
    TabOrder = 2
    object Label4: TLabel
      Left = 38
      Top = 20
      Width = 20
      Height = 13
      Caption = 'Title'
    end
    object Label5: TLabel
      Left = 14
      Top = 46
      Width = 68
      Height = 13
      Caption = 'Root Directory'
    end
    object Edit4: TEdit
      Left = 92
      Top = 16
      Width = 327
      Height = 21
      TabOrder = 0
      Text = 'JVCL - JvBrowseFolder Test'
    end
    object CheckBox1: TCheckBox
      Left = 10
      Top = 72
      Width = 107
      Height = 17
      Caption = 'New Dialog Style'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object CheckBox2: TCheckBox
      Left = 10
      Top = 92
      Width = 119
      Height = 17
      Caption = 'Browse For Computer'
      TabOrder = 2
    end
    object CheckBox3: TCheckBox
      Left = 10
      Top = 112
      Width = 97
      Height = 17
      Caption = 'Only Directory'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object CheckBox4: TCheckBox
      Left = 158
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Only Printers'
      TabOrder = 4
    end
    object CheckBox5: TCheckBox
      Left = 158
      Top = 92
      Width = 97
      Height = 17
      Caption = 'Include Files'
      TabOrder = 5
    end
    object CheckBox6: TCheckBox
      Left = 158
      Top = 112
      Width = 97
      Height = 17
      Caption = 'Include Urls'
      TabOrder = 6
    end
    object CheckBox7: TCheckBox
      Left = 278
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Show Edit Box'
      TabOrder = 7
    end
    object CheckBox8: TCheckBox
      Left = 278
      Top = 92
      Width = 97
      Height = 17
      Caption = 'ShareAble'
      TabOrder = 8
    end
    object ComboBox1: TComboBox
      Left = 92
      Top = 42
      Width = 327
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 9
      Items.Strings = (
        'Root Folder'
        'Control Panel'
        'Recycle Bin'
        'Desktop'
        'Desktop Directory'
        'My Computer'
        'Fonts'
        'NetHood'
        'Network'
        'Personal'
        'Printers'
        'Programs'
        'Recent Files'
        'SendTo'
        'StartMenu'
        'Startup'
        'Templates')
    end
  end
  object JvBrowseFolder1: TJvBrowseForFolderDialog
    Position = fpScreenCenter
    RootDirectory = fdRootFolder
    Title = 'Titre de mes deux'
    OnChange = JvBrowseFolder1Change
    Left = 70
    Top = 158
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, JvBaseDlg, JvBrowseFolder, JvComponent;

type
  TJvBrowseFolderMainForm = class(TForm)
    JvBrowseFolder1: TJvBrowseForFolderDialog;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Edit4: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Label5: TLabel;
    ComboBox1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure JvBrowseFolder1Change(Sender: TObject; Directory: String);
  end;

var
  JvBrowseFolderMainForm: TJvBrowseFolderMainForm;

implementation

{$R *.DFM}

procedure TJvBrowseFolderMainForm.Button1Click(Sender: TObject);
begin
  //Set options
  JvBrowseFolder1.Title := Edit4.Text;
  JvBrowseFolder1.Options := [];
  if CheckBox1.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odNewDialogStyle];
  if CheckBox2.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odBrowseForComputer];
  if CheckBox3.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odOnlyDirectory];
  if CheckBox4.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odOnlyPrinters];
  if CheckBox5.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odIncludeFiles];
  if CheckBox6.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odIncludeUrls];
  if CheckBox7.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odEditBox];
  if CheckBox8.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options+[odShareable];
  case ComboBox1.ItemIndex of
    1: JvBrowseFolder1.Rootdirectory := fdControlPanel;
    2: JvBrowseFolder1.Rootdirectory := fdRecycleBin;
    3: JvBrowseFolder1.Rootdirectory := fdDesktop;
    4: JvBrowseFolder1.Rootdirectory := fdDesktopDirectory;
    5: JvBrowseFolder1.Rootdirectory := fdMyComputer;
    6: JvBrowseFolder1.Rootdirectory := fdFonts;
    7: JvBrowseFolder1.Rootdirectory := fdNetHood;
    8: JvBrowseFolder1.Rootdirectory := fdNetwork;
    9: JvBrowseFolder1.Rootdirectory := fdPersonal;
    10: JvBrowseFolder1.Rootdirectory := fdPrinters;
    11: JvBrowseFolder1.Rootdirectory := fdPrograms;
    12: JvBrowseFolder1.Rootdirectory := fdRecent;
    13: JvBrowseFolder1.Rootdirectory := fdSendTo;
    14: JvBrowseFolder1.Rootdirectory := fdStartMenu;
    15: JvBrowseFolder1.Rootdirectory := fdStartup;
    16: JvBrowseFolder1.Rootdirectory := fdTemplates;
    else JvBrowseFolder1.Rootdirectory := fdRootFolder;
  end;


  //Execute and get back the directory
  if JvBrowseFolder1.Execute then
  begin
    Edit1.Text := JvBrowseFolder1.Directory;
    Edit2.Text := JvBrowseFolder1.DisplayName;

    //If it's a printer or anything else other than a directory, you have to use
    //JvBrowseFolder1.LastPidl
  end;
end;

procedure TJvBrowseFolderMainForm.JvBrowseFolder1Change(Sender: TObject; Directory: String);
begin
  Edit3.Text := Directory;
end;

end.

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

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

uses
  Forms,
  JvBrowseFolderMainFormU in 'JvBrowseFolderMainFormU.pas' {JvBrowseFolderMainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TJvBrowseFolderMainForm, JvBrowseFolderMainForm);
  Application.CreateForm(TJvBrowseFolderMainForm, JvBrowseFolderMainForm);
  Application.Run;
end.

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