RealICQClient/Includes/2007_MMTools/Help/Demos/cdrom/cddacopy/CDISRC.pas

{========================================================================}
{=                (c) 1995-99 SwiftSoft Ronald Dittrich                 =}
{========================================================================}
{=                          All Rights Reserved                         =}
{========================================================================}
{=  D 01099 Dresden             = Fax.: +49(0)351-8037944               =}
{=  Loewenstr.7a                = info@swiftsoft.de                     =}
{========================================================================}
{=  Actual versions on http://www.swiftsoft.de/index.html               =}
{========================================================================}
{=  This code is for reference purposes only and may not be copied or   =}
{=  distributed in any format electronic or otherwise except one copy   =}
{=  for backup purposes.                                                =}
{=                                                                      =}
{=  No Delphi Component Kit or Component individually or in a collection=}
{=  subclassed or otherwise from the code in this unit, or associated   =}
{=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
{=  without express permission from SwiftSoft.                          =}
{=                                                                      =}
{=  For more licence informations please refer to the associated        =}
{=  HelpFile.                                                           =}
{========================================================================}
{=  $Date: 22.03.99 - 15:52:07 $                                        =}
{========================================================================}
unit CDISRC;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MMObj, MMGauge;

type
  TCDISRCDlg = class(TForm)
    Gauge: TMMGauge;
    btnCancel: TButton;
    Label1: TLabel;
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
  public
    Cancel: Boolean;
  end;

var
  CDISRCDlg: TCDISRCDlg;

implementation

{$R *.DFM}

{------------------------------------------------------------------------------}
procedure TCDISRCDlg.FormCreate(Sender: TObject);
begin
   Cancel := False;
end;

{------------------------------------------------------------------------------}
procedure TCDISRCDlg.btnCancelClick(Sender: TObject);
begin
   Cancel := True;
end;

{------------------------------------------------------------------------------}
procedure TCDISRCDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Cancel := True;
end;

end.