jvdialogsu.pas

jvcl driver development envionment

{******************************************************************

                       JEDI-VCL Demo

 Copyright (C) 2002 Project JEDI

 Original author: Ralf Grenzing [[e-mail]]
                  Uwe Rupprecht [[e-mail]]

 Contributor(s): Michael Beck ([e-mail])
 Settings part based on work of Angus Johnson - [e-mail]

 You may retrieve the latest version of this file at the JEDI-JVCL
 home page, located at http://jvcl.sourceforge.net

 The contents of this file are used with permission, subject to
 the Mozilla Public License Version 1.1 (the "License"); you may
 not use this file except in compliance with the License. You may
 obtain a copy of the License at
 http://www.mozilla.org/MPL/MPL-1_1Final.html

 Software distributed under the License is distributed on an
 "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 implied. See the License for the specific language governing
 rights and limitations under the License.

******************************************************************}

unit JvDialogsU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  JvComponent, JvBaseDlg, StdCtrls, JvImageDlg, JvWinDialogs,
  JvCommonDialogD, JvDiskPrompt, JvCopyError,
  JvDeleteError, JvPageSetup, JvPageSetupTitled, 
  JvCalc, JvTipOfDay, ExtCtrls, JvCaptionPanel, JvFindFiles,
  JvGroupBox, Buttons, JvBitBtn, JvBrowseFolder, JvSelectDirectory,
  JvDialogs, JvConnectNetwork, JvAddPrinter, JvRenameError, JvFindReplace,
  JvObjectPickerDialog, JvExButtons, JvExExtCtrls;

type
  TJvDialogs = class(TForm)
    JvCalculator1: TJvCalculator;
    JvDiskPrompt1: TJvDiskPrompt;
    JvCopyError1: TJvCopyError;
    JvDeleteError1: TJvDeleteError;
    JvPageSetupDialog1: TJvPageSetupDialog;
    JvPageSetupTitledDialog1: TJvPageSetupTitledDialog;
    JvObjectPickerDialog1: TJvObjectPickerDialog;
    JvCaptionPanel1: TJvCaptionPanel;
    Button17: TButton;
    JvFindFilesDialog1: TJvFindFilesDialog;
    JvBitBtn2: TJvBitBtn;
    JvBitBtn3: TJvBitBtn;
    JvBrowseForFolderDialog1: TJvBrowseForFolderDialog;
    JvSelectDirectory1: TJvSelectDirectory;
    JvBitBtn4: TJvBitBtn;
    JvOpenDialog1: TJvOpenDialog;
    JvSaveDialog1: TJvSaveDialog;
    JvBitBtn5: TJvBitBtn;
    JvBitBtn6: TJvBitBtn;
    JvBitBtn7: TJvBitBtn;
    JvBitBtn8: TJvBitBtn;
    JvConnectNetwork1: TJvConnectNetwork;
    JvDisconnectNetwork1: TJvDisconnectNetwork;
    JvBitBtn9: TJvBitBtn;
    JvBitBtn10: TJvBitBtn;
    JvBitBtn11: TJvBitBtn;
    JvBitBtn12: TJvBitBtn;
    JvBitBtn13: TJvBitBtn;
    JvAddPrinterDialog1: TJvAddPrinterDialog;
    JvBitBtn14: TJvBitBtn;
    JvBitBtn15: TJvBitBtn;
    JvBitBtn16: TJvBitBtn;
    JvBitBtn17: TJvBitBtn;
    JvFormatDriveDialog1: TJvFormatDriveDialog;
    JvColorDialog1: TJvColorDialog;
    JvBitBtn18: TJvBitBtn;
    JvBitBtn19: TJvBitBtn;
    JvBitBtn20: TJvBitBtn;
    JvBitBtn21: TJvBitBtn;
    JvBitBtn22: TJvBitBtn;
    JvBitBtn23: TJvBitBtn;
    JvBitBtn24: TJvBitBtn;
    JvBitBtn25: TJvBitBtn;
    JvOrganizeFavoritesDialog1: TJvOrganizeFavoritesDialog;
    JvComputerNameDialog1: TJvComputerNameDialog;
    JvAppletDialog1: TJvAppletDialog;
    JvChangeIconDialog1: TJvChangeIconDialog;
    JvShellAboutDialog1: TJvShellAboutDialog;
    JvBitBtn26: TJvBitBtn;
    JvBitBtn27: TJvBitBtn;
    JvBitBtn28: TJvBitBtn;
    JvBitBtn29: TJvBitBtn;
    JvRunDialog1: TJvRunDialog;
    JvObjectPropertiesDialog1: TJvObjectPropertiesDialog;
    JvNewLinkDialog1: TJvNewLinkDialog;
    JvBitBtn30: TJvBitBtn;
    JvBitBtn31: TJvBitBtn;
    JvBitBtn32: TJvBitBtn;
    JvBitBtn33: TJvBitBtn;
    JvBitBtn34: TJvBitBtn;
    JvBitBtn35: TJvBitBtn;
    JvBitBtn36: TJvBitBtn;
    JvBitBtn37: TJvBitBtn;
    JvBitBtn38: TJvBitBtn;
    JvBitBtn39: TJvBitBtn;
    JvBitBtn40: TJvBitBtn;
    JvBitBtn41: TJvBitBtn;
    JvBitBtn42: TJvBitBtn;
    JvBitBtn43: TJvBitBtn;
    JvBitBtn44: TJvBitBtn;
    JvBitBtn45: TJvBitBtn;
    JvAddHardwareDialog1: TJvAddHardwareDialog;
    JvOpenWithDialog1: TJvOpenWithDialog;
    JvDiskFullDialog1: TJvDiskFullDialog;
    JvExitWindowsDialog1: TJvExitWindowsDialog;
    JvOutOfMemoryDialog1: TJvOutOfMemoryDialog;
    JvRenameError1: TJvRenameError;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button17Click(Sender: TObject);
    procedure JvPasswordForm1Ok(Sender: TObject; Password: String;
      var Accept: Boolean);
    procedure JvPasswordForm1Cancel(Sender: TObject);
    procedure JvBitBtn3Click(Sender: TObject);
    procedure JvBitBtn4Click(Sender: TObject);
    procedure JvBitBtn5Click(Sender: TObject);
    procedure JvBitBtn7Click(Sender: TObject);
    procedure JvBitBtn9Click(Sender: TObject);
    procedure JvBitBtn10Click(Sender: TObject);
    procedure JvBitBtn11Click(Sender: TObject);
    procedure JvBitBtn12Click(Sender: TObject);
    procedure JvBitBtn13Click(Sender: TObject);
    procedure JvBitBtn15Click(Sender: TObject);
    procedure JvBitBtn14Click(Sender: TObject);
    procedure JvBitBtn16Click(Sender: TObject);
    procedure JvBitBtn17Click(Sender: TObject);
    procedure JvBitBtn18Click(Sender: TObject);
    procedure JvBitBtn20Click(Sender: TObject);
    procedure JvBitBtn21Click(Sender: TObject);
    procedure JvBitBtn22Click(Sender: TObject);
    procedure JvBitBtn23Click(Sender: TObject);
    procedure JvBitBtn25Click(Sender: TObject);
    procedure JvBitBtn24Click(Sender: TObject);
    procedure JvBitBtn28Click(Sender: TObject);
    procedure JvBitBtn27Click(Sender: TObject);
    procedure JvBitBtn26Click(Sender: TObject);
    procedure JvBitBtn29Click(Sender: TObject);
    procedure JvBitBtn30Click(Sender: TObject);
    procedure JvBitBtn31Click(Sender: TObject);
    procedure JvBitBtn40Click(Sender: TObject);
    procedure JvBitBtn42Click(Sender: TObject);
    procedure JvBitBtn45Click(Sender: TObject);
    procedure JvBitBtn38Click(Sender: TObject);
    procedure JvBitBtn41Click(Sender: TObject);
    procedure JvBitBtn43Click(Sender: TObject);
    procedure JvBitBtn44Click(Sender: TObject);
  end;

implementation

uses
  FindReplaceMainFormU;

{$R *.dfm}

procedure TJvDialogs.Button17Click(Sender: TObject);
begin
  JvObjectPickerDialog1.Execute;
end;

procedure TJvDialogs.JvPasswordForm1Ok(Sender: TObject; Password: String;
  var Accept: Boolean);
begin
  if Application.MessageBox(PChar('You click OK with password <' + Password + '>. ' +
    'Click OK to accept or Cancel to refuse.'), 'OnOK event handle', MB_OKCANCEL) = MB_OK then
    Accept := True;
end;

procedure TJvDialogs.JvPasswordForm1Cancel(Sender: TObject);
begin
  Application.MessageBox(PChar('You pressed Cancel'), 'OnCancel event handler', MB_OK);
end;

procedure TJvDialogs.JvBitBtn3Click(Sender: TObject);
begin
  JvBrowseForFolderDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn4Click(Sender: TObject);
begin
  JvSelectDirectory1.Execute;
end;

procedure TJvDialogs.JvBitBtn5Click(Sender: TObject);
begin
  JvOpenDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn7Click(Sender: TObject);
begin
  JvSaveDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn9Click(Sender: TObject);
begin
  JvConnectNetwork1.Execute;
end;

procedure TJvDialogs.JvBitBtn10Click(Sender: TObject);
begin
  JvDisconnectNetwork1.Execute;
end;

procedure TJvDialogs.JvBitBtn11Click(Sender: TObject);
begin
  JvPageSetupDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn12Click(Sender: TObject);
begin
  JvPageSetupTitledDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn13Click(Sender: TObject);
begin
  JvAddPrinterDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn15Click(Sender: TObject);
begin
  JvFindFilesDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn14Click(Sender: TObject);
begin
  JvFormatDriveDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn16Click(Sender: TObject);
begin
  JvColorDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn17Click(Sender: TObject);
begin
  JvOrganizeFavoritesDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn18Click(Sender: TObject);
begin
  JvComputerNameDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn20Click(Sender: TObject);
var
  WinDir: array [0..255] of Char;
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 TJvDialogs.JvBitBtn21Click(Sender: TObject);
begin
  JvChangeIconDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn22Click(Sender: TObject);
begin
  JvShellAboutDialog1.execute;
end;

procedure TJvDialogs.JvBitBtn23Click(Sender: TObject);
begin
  JvRunDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn25Click(Sender: TObject);
begin
  JvObjectPropertiesDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn24Click(Sender: TObject);
begin
  JvNewLinkDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn28Click(Sender: TObject);
begin
  JvAddHardwareDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn27Click(Sender: TObject);
begin
  JvOpenWithDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn26Click(Sender: TObject);
begin
  JvDiskFullDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn29Click(Sender: TObject);
begin
  JvExitWindowsDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn30Click(Sender: TObject);
begin
  JvOutOfMemoryDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn31Click(Sender: TObject);
begin
  JvObjectPickerDialog1.Execute;
end;

procedure TJvDialogs.JvBitBtn40Click(Sender: TObject);
begin
  JvDiskPrompt1.OwnerWindow := HWND_DESKTOP;
  JvDiskPrompt1.Execute;
end;

procedure TJvDialogs.JvBitBtn42Click(Sender: TObject);
begin
  JvCopyError1.OwnerWindow := HWND_DESKTOP;
  JvCopyError1.Execute;
end;

procedure TJvDialogs.JvBitBtn45Click(Sender: TObject);
begin
  JvDeleteError1.OwnerWindow := HWND_DESKTOP;
  JvDeleteError1.Execute;
end;

procedure TJvDialogs.JvBitBtn38Click(Sender: TObject);
begin
  JvRenameError1.OwnerWindow := HWND_DESKTOP;
  JvRenameError1.Execute;
end;

procedure TJvDialogs.JvBitBtn41Click(Sender: TObject);
begin
  with TJvTipOfDay.Create(Application) do
  try
    Tips.Append('Hintline 1');
    Tips.Append('Hintline 2');
    Tips.Append('Hintline 3');
    Tips.Append('Hintline 4');
    Execute;
  finally
    Free;
  end;
end;

procedure TJvDialogs.JvBitBtn43Click(Sender: TObject);
begin
  JvCalculator1.Execute;
end;

procedure TJvDialogs.JvBitBtn44Click(Sender: TObject);
begin
  with TFindReplaceMainForm.Create(nil) do
    try
      Position := poScreenCenter;
      ShowModal;
    finally
      Free;
    end;
end;

end.