home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuDlgClass.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-24  |  2KB  |  89 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 frmuDlgClass;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  26.  
  27. type
  28.   TDialog = class(TForm)
  29.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  30.       Shift: TShiftState);
  31.     function FormHelp(Command: Word; Data: Integer;
  32.       var CallHelp: Boolean): Boolean;
  33.     procedure FormCreate(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.     FErrorState: boolean;
  37.   public
  38.     { Public declarations }
  39.     function GetErrorState: boolean;
  40.     procedure SetErrorState;
  41.   end;
  42.  
  43. var
  44.   Dialog: TDialog;
  45.  
  46. implementation
  47.  
  48. {$R *.DFM}
  49. uses
  50.   zluContextHelp;
  51.  
  52. type
  53.   TFontClass = class (TControl);  { needed to get at font property to scale }
  54.  
  55. const
  56.   ScreenWidth: LongInt = 1600;
  57.   ScreenHeight: LongInt = 1200;
  58.     
  59. procedure TDialog.FormKeyDown(Sender: TObject; var Key: Word;
  60.   Shift: TShiftState);
  61. begin
  62.   if Key = VK_ESCAPE then
  63.     ModalResult := mrCancel;
  64. end;
  65.  
  66. function TDialog.FormHelp(Command: Word; Data: Integer;
  67.   var CallHelp: Boolean): Boolean;
  68. begin
  69.   CallHelp := False;
  70.   Result := WinHelp(WindowHandle,CONTEXT_HELP_FILE,HELP_CONTEXT,GENERAL_PREFERENCES);
  71. end;
  72.  
  73. procedure TDialog.FormCreate(Sender: TObject);
  74. begin
  75.   FErrorState := false;
  76. end;
  77.  
  78. function TDialog.GetErrorState: boolean;
  79. begin
  80.   result := FErrorState;
  81. end;
  82.  
  83. procedure TDialog.SetErrorState;
  84. begin
  85.   FErrorState := true;
  86. end;
  87.  
  88. end.
  89.