[JVCL-Checkins] CVS: dev/JVCL3/examples/JvDialogs JvDialogsDemo.dof,NONE,1.1 JvDialogsDemo.dpr,NONE,1.1 JvDialogsDemo.res,NONE,1.1 fDialogs.dfm,NONE,1.1 fDialogs.pas,NONE,1.1

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

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

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

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

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

uses
  Forms,
  fDialogs in 'fDialogs.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

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

--- NEW FILE: fDialogs.dfm ---
object Form1: TForm1
  Left = 345
  Top = 154
  Width = 744
  Height = 638
  Caption = 'Dialogs Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 736
    Height = 611
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Windows Dialogs'
      object Button1: TButton
        Left = 6
        Top = 4
        Width = 115
        Height = 25
        Caption = 'Format Drive A:'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 6
        Top = 41
        Width = 115
        Height = 25
        Caption = 'Find Files'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button4: TButton
        Left = 6
        Top = 124
        Width = 115
        Height = 25
        Caption = 'Shell About'
        TabOrder = 2
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 6
        Top = 154
        Width = 115
        Height = 25
        Caption = 'Select directory'
        TabOrder = 3
        OnClick = Button5Click
      end
      object Button8: TButton
        Left = 6
        Top = 229
        Width = 115
        Height = 25
        Caption = 'Add a printer'
        TabOrder = 4
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 6
        Top = 266
        Width = 115
        Height = 25
        Caption = 'Connect Network'
        TabOrder = 5
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 6
        Top = 304
        Width = 115
        Height = 25
        Caption = 'Disconnect network'
        TabOrder = 6
        OnClick = Button10Click
      end
      object Button32: TButton
        Left = 140
        Top = 2
        Width = 115
        Height = 25
        Caption = 'Open Dialog'
        TabOrder = 7
        OnClick = Button32Click
      end
      object Button33: TButton
        Left = 140
        Top = 35
        Width = 115
        Height = 25
        Caption = 'Save Dialog'
        TabOrder = 8
        OnClick = Button33Click
      end
      object Button25: TButton
        Left = 140
        Top = 101
        Width = 115
        Height = 25
        Caption = 'Add Hardware'
        TabOrder = 9
        OnClick = Button25Click
      end
      object Button24: TButton
        Left = 140
        Top = 68
        Width = 115
        Height = 25
        Caption = 'Shutdown Dlg'
        TabOrder = 10
        OnClick = Button24Click
      end
      object Button26: TButton
        Left = 140
        Top = 134
        Width = 115
        Height = 25
        Caption = 'Choose Icon'
        TabOrder = 11
        OnClick = Button26Click
      end
      object Button27: TButton
        Left = 140
        Top = 168
        Width = 115
        Height = 25
        Caption = 'Run Dlg'
        TabOrder = 12
        OnClick = Button27Click
      end
      object Button28: TButton
        Left = 140
        Top = 201
        Width = 115
        Height = 25
        Caption = 'Find Computer'
        TabOrder = 13
        OnClick = Button28Click
      end
      object Button29: TButton
        Left = 140
        Top = 234
        Width = 115
        Height = 25
        Caption = 'Object Properties'
        TabOrder = 14
        OnClick = Button29Click
      end
      object Button30: TButton
        Left = 140
        Top = 267
        Width = 115
        Height = 25
        Caption = 'Out Of Memory Dlg'
        TabOrder = 15
        OnClick = Button30Click
      end
      object Button31: TButton
        Left = 140
        Top = 301
        Width = 115
        Height = 25
        Caption = 'Disk C:\ Full Dialog'
        TabOrder = 16
        OnClick = Button31Click
      end
      object Button36: TButton
        Left = 268
        Top = 109
        Width = 115
        Height = 25
        Caption = 'Control Panel Dialog'
        TabOrder = 17
        OnClick = Button36Click
      end
      object Button37: TButton
        Left = 268
        Top = 37
        Width = 115
        Height = 25
        Caption = 'New Shortcut Dialog'
        TabOrder = 18
        OnClick = Button37Click
      end
      object Button38: TButton
        Left = 268
        Top = 69
        Width = 115
        Height = 25
        Caption = 'Applet Dialog'
        TabOrder = 19
        OnClick = Button38Click
      end
      object Button39: TButton
        Left = 268
        Top = 141
        Width = 115
        Height = 25
        Caption = 'Favorites'
        TabOrder = 20
        OnClick = Button39Click
      end
      object Button40: TButton
        Left = 268
        Top = 5
        Width = 115
        Height = 25
        Caption = 'OpenWith Dialog'
        TabOrder = 21
        OnClick = Button40Click
      end
      object Button3: TButton
        Left = 6
        Top = 71
        Width = 115
        Height = 25
        Caption = 'Browse for folder'
        TabOrder = 22
        OnClick = Button3Click
      end
      object Button7: TButton
        Left = 268
        Top = 173
        Width = 115
        Height = 25
        Caption = 'Page Setup'
        TabOrder = 23
        OnClick = Button7Click
      end
      object Button41: TButton
        Left = 268
        Top = 205
        Width = 115
        Height = 25
        Caption = 'Page Setup Titled'
        TabOrder = 24
        OnClick = Button41Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Other Dialogs'
      ImageIndex = 1
      object Button11: TButton
        Left = 10
        Top = 12
        Width = 115
        Height = 25
        Caption = 'Password'
        TabOrder = 0
      end
      object Button14: TButton
        Left = 10
        Top = 48
        Width = 115
        Height = 25
        Caption = 'Exchange listboxes'
        TabOrder = 1
      end
      object Button16: TButton
        Left = 10
        Top = 83
        Width = 115
        Height = 25
        Caption = 'Login'
        TabOrder = 2
      end
      object Button17: TButton
        Left = 10
        Top = 115
        Width = 115
        Height = 25
        Caption = 'Serial'
        TabOrder = 3
      end
      object Button18: TButton
        Left = 10
        Top = 148
        Width = 115
        Height = 25
        Caption = 'Calculator'
        TabOrder = 4
        OnClick = Button18Click
      end
      object Button19: TButton
        Left = 10
        Top = 181
        Width = 115
        Height = 25
        Caption = 'Progress Dlg'
        TabOrder = 5
      end
      object Button20: TButton
        Left = 10
        Top = 215
        Width = 115
        Height = 25
        Caption = 'Disk Prompt'
        TabOrder = 6
        OnClick = Button20Click
      end
      object Button21: TButton
        Left = 138
        Top = 78
        Width = 115
        Height = 25
        Caption = 'Copy Error'
        TabOrder = 7
        OnClick = Button21Click
      end
      object Button22: TButton
        Left = 138
        Top = 10
        Width = 115
        Height = 25
        Caption = 'Delete Error'
        TabOrder = 8
        OnClick = Button22Click
      end
      object Button23: TButton
        Left = 140
        Top = 43
        Width = 115
        Height = 25
        Caption = 'Rename Error'
        TabOrder = 9
        OnClick = Button23Click
      end
      object Button34: TButton
        Left = 486
        Top = 374
        Width = 115
        Height = 25
        Caption = 'Fatal exit'
        TabOrder = 10
      end
    end
  end
  object JvFormatDriveDialog1: TJvFormatDriveDialog
    FormatType = ftQuick
    Capacity = dcDefault
    Left = 104
    Top = 474
  end
  object JvFindFiles1: TJvFindFilesDialog
    SpecialFolder = sfRecycleBin
    UseSpecialFolder = False
    Left = 612
    Top = 44
  end
  object JvBrowseFolder1: TJvBrowseForFolderDialog
    RootDirectory = fdRootFolder
    Left = 196
    Top = 368
  end
  object JvSelectDirectory1: TJvSelectDirectory
    Options = []
    Left = 20
    Top = 422
  end
  object JvConnectNetwork1: TJvConnectNetwork
    Left = 110
    Top = 422
  end
  object JvDisconnectNetwork1: TJvDisconnectNetwork
    Left = 168
    Top = 422
  end
  object JvCalculator1: TJvCalculator
    Left = 462
    Top = 298
  end
  object JvDiskPrompt1: TJvDiskPrompt
    Style = []
    Left = 454
    Top = 194
  end
  object JvCopyError1: TJvCopyError
    Style = []
    Left = 454
    Top = 142
  end
  object JvDeleteError1: TJvDeleteError
    Style = []
    Left = 454
    Top = 90
  end
  object JvRenameError1: TJvRenameError
    Style = []
    Left = 454
    Top = 46
  end
  object JvShutdownDlg1: TJvExitWindowsDialog
    Left = 16
    Top = 366
  end
  object JvShellAboutDialog1: TJvShellAboutDialog
    Left = 32
    Top = 472
  end
  object JvAddHardwareDialog1: TJvAddHardwareDialog
    Left = 88
    Top = 368
  end
  object JvChooseIconDlg1: TJvChangeIconDialog
    IconIndex = 0
    Left = 180
    Top = 478
  end
  object JvRunDlg1: TJvRunDialog
    Left = 236
    Top = 468
  end
  object JvFindComputerDlg1: TJvComputerNameDialog
    Left = 36
    Top = 538
  end
  object JvObjectPropertiesDlg1: TJvObjectPropertiesDialog
    ObjectType = sdPathObject
    Left = 108
    Top = 534
  end
  object JvOutOfMemoryDlg1: TJvOutOfMemoryDialog
    Left = 182
    Top = 536
  end
  object JvOutOfSpaceDlg1: TJvDiskFullDialog
    Left = 258
    Top = 532
  end
  object JvPageSetupDialog1: TJvPageSetupDialog
    Left = 544
    Top = 320
  end
  object JvPageSetupTitledDialog1: TJvPageSetupTitledDialog
    Left = 616
    Top = 288
  end
  object JvBrowseFolder2: TJvBrowseForFolderDialog
    RootDirectory = fdRootFolder
    Left = 616
    Top = 336
  end
  object JvOrganizeFavoritesDialog1: TJvOrganizeFavoritesDialog
    Left = 448
    Top = 424
  end
  object JvAppletDialog1: TJvAppletDialog
    Left = 448
    Top = 480
  end
  object JvNewLinkDialog1: TJvNewLinkDialog
    DestinationFolder = 'C:\'
    Left = 536
    Top = 480
  end
  object JvOpenWithDialog1: TJvOpenWithDialog
    Left = 632
    Top = 424
  end
  object JvAddPrinterDialog1: TJvAddPrinterDialog
    Left = 312
    Top = 288
  end
  object JvOpenDialog1: TJvOpenDialog
    Height = 0
    Width = 0
    Left = 404
    Top = 280
  end
  object JvSaveDialog1: TJvSaveDialog
    Height = 0
    Width = 0
    Left = 384
    Top = 328
  end
end

--- NEW FILE: fDialogs.pas ---
unit fDialogs;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, JvCommonExecDlg, JvRenameError, JvDeleteError,
  JvCopyError, JvCommonDialogD, JvDiskPrompt,
  JvConnectNetwork, JvSelectDirectory, JvBaseDlg, JvFindFiles, JvComponent,
  JvWinDialogs, ComCtrls, JvBrowseFolder, JvPageSetupTitled, JvPageSetup,
  JvAddPrinter, JvCalc, JvDialogs;

type
  TForm1 = class(TForm)
    JvFormatDriveDialog1: TJvFormatDriveDialog;
    JvFindFiles1: TJvFindFilesDialog;
    JvBrowseFolder1: TJvBrowseForFolderDialog;   //TJvShellAbout;
    JvSelectDirectory1: TJvSelectDirectory;
    JvConnectNetwork1: TJvConnectNetwork;
    JvDisconnectNetwork1: TJvDisconnectNetwork;
    JvCalculator1: TJvCalculator;
    JvDiskPrompt1: TJvDiskPrompt;
    JvCopyError1: TJvCopyError;
    JvDeleteError1: TJvDeleteError;
    JvRenameError1: TJvRenameError;
    JvShutdownDlg1: TJvExitWindowsDialog;
    JvShellAboutDialog1: TJvShellAboutDialog;
    JvAddHardwareDialog1: TJvAddHardwareDialog;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button32: TButton;
    Button33: TButton;
    Button25: TButton;
    Button24: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button11: TButton;
    Button14: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    JvChooseIconDlg1: TJvChangeIconDialog;
    JvRunDlg1: TJvRunDialog;
    JvFindComputerDlg1: TJvComputerNameDialog;
    JvObjectPropertiesDlg1: TJvObjectPropertiesDialog;
    JvOutOfMemoryDlg1: TJvOutOfMemoryDialog;
    JvOutOfSpaceDlg1: TJvDiskFullDialog;
    Button34: TButton;
    JvPageSetupDialog1: TJvPageSetupDialog;
    JvPageSetupTitledDialog1: TJvPageSetupTitledDialog;
    JvBrowseFolder2: TJvBrowseForFolderDialog;
    JvOrganizeFavoritesDialog1: TJvOrganizeFavoritesDialog;
    JvAppletDialog1: TJvAppletDialog;
    JvNewLinkDialog1: TJvNewLinkDialog;
    JvOpenWithDialog1: TJvOpenWithDialog;
    JvAddPrinterDialog1: TJvAddPrinterDialog;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    Button3: TButton;
    Button7: TButton;
    Button41: TButton;
    JvOpenDialog1: TJvOpenDialog;
    JvSaveDialog1: TJvSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button39Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button40Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  JvFormatDriveDialog1.Execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  JvFindFiles1.Execute;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  JvBrowseFolder1.Execute;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  JvShellAboutDialog1.execute;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  JvSelectDirectory1.Execute;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  { TODO : BUG - This routine doesn't work }
  { DONE -opeter3 : Works on Win2k... }
  JvAddPrinterDialog1.execute;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  JvConnectNetwork1.Execute;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  JvDisconnectNetwork1.execute;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  JvCalculator1.Execute;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
  JvDiskPrompt1.Execute;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
  JvCopyError1.Execute;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
  JvDeleteError1.Execute;
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
  JvRenameError1.Execute;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
  JvShutdownDlg1.Execute;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
  JvAddHardwareDialog1.Execute;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
  JvChooseIconDlg1.Execute;
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
  JvRunDlg1.Execute;
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
  JvFindComputerDlg1.Execute;
end;

procedure TForm1.Button29Click(Sender: TObject);
var St: string;
begin
  St := GetSpecialFolderpath('My Computer', false);
  JvObjectPropertiesDlg1.ObjectName := St;
  JvObjectPropertiesDlg1.Execute;
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
  JvOutOfMemoryDlg1.Execute;
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
  JvOutOfSpaceDlg1.Execute;
end;

procedure TForm1.Button39Click(Sender: TObject);
begin
  JvOrganizeFavoritesDialog1.execute;
end;

procedure TForm1.Button38Click(Sender: TObject);
var
  WinDir: array[0..255] of char;
  FileToFind: string;
begin
  GetWindowsDirectory(WinDir, SizeOf(WinDir));

  JvOpenDialog1.Filter := 'Applet files (*.cpl)|*.cpl';
  JvOpenDialog1.InitialDir := ExtractFileDrive(StrPas(WinDir));
  if JvOpenDialog1.Execute then
  begin
    JvAppletDialog1.AppletName := JvOpenDialog1.FileName;
    JvAppletDialog1.Execute;
  end;
end;

procedure TForm1.Button36Click(Sender: TObject);
begin
  JvAppletDialog1.AppletName := '';
  JvAppletDialog1.Execute;
end;

procedure TForm1.Button37Click(Sender: TObject);
begin
  JvNewLinkDialog1.Execute;
end;

procedure TForm1.Button40Click(Sender: TObject);
begin
  JvOpenWithDialog1.Execute;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  JvPageSetupDialog1.Execute;
end;

procedure TForm1.Button41Click(Sender: TObject);
begin
  JvPageSetupTitledDialog1.Execute;
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
  JvOpenDialog1.Execute;
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
  JvSaveDialog1.Execute;
end;

end.