home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuQryProgress.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-24  |  2KB  |  88 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. unit frmuQryProgress;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  26.   StdCtrls, ComCtrls, ExtCtrls, frmuDlgClass;
  27.  
  28. type
  29.   TdlgProgress = class(TDialog)
  30.     txtCurrentStatement: TMemo;
  31.     ProgressBar: TProgressBar;
  32.     btnCancel: TButton;
  33.     btnDetails: TButton;
  34.     Bevel1: TBevel;
  35.     procedure btnDetailsClick(Sender: TObject);
  36.     procedure Cancel(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.     procedure DoStep;
  42.   end;
  43.  
  44. var
  45.   dlgProgress: TdlgProgress;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. var
  52.   dlgHeight: integer;
  53.  
  54. procedure TdlgProgress.btnDetailsClick(Sender: TObject);
  55. begin
  56.   with dlgProgress do
  57.   begin
  58.     if AutoSize then
  59.     begin
  60.       AutoSize := false;
  61.       Height := dlgHeight;
  62.       btnDetails.Caption := 'Details >>';
  63.     end
  64.     else
  65.     begin
  66.       dlgHeight := Height;
  67.       AutoSize := true;
  68.       btnDetails.Caption := 'Details <<';
  69.     end;
  70.     Update;
  71.     Application.ProcessMessages;
  72.   end;
  73. end;
  74.  
  75. procedure TdlgProgress.Cancel(Sender: TObject);
  76. begin
  77.   ModalResult := mrCancel;
  78.   Close
  79. end;
  80.  
  81. procedure TdlgProgress.DoStep;
  82. begin
  83.   ProgressBar.Stepit;
  84.   Application.ProcessMessages;
  85. end;
  86.  
  87. end.
  88.