home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuFormClass.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-24  |  1.9 KB  |  77 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 frmuFormClass;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
  26.  
  27. type
  28.   TIBCForm = class(TForm)
  29.     procedure FormCreate(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   IBCForm: TIBCForm;
  38.  
  39. implementation
  40.  
  41. {$R *.DFM}
  42. type
  43.   TFontClass = class (TControl);  { needed to get at font property to scale }
  44.  
  45. const
  46.   ScreenWidth: LongInt = 1600;
  47.   ScreenHeight: LongInt = 1200;
  48.  
  49. procedure TIBCForm.FormCreate(Sender: TObject);
  50. var
  51.   i: integer;
  52.   OldHeight,
  53.   OldWidth: LongInt;
  54.  
  55. begin
  56.   { Scale the size of the form }
  57. {
  58.   if Screen.Width <> ScreenWidth then
  59.   begin
  60.     OldWidth := Width;
  61.     OldHeight := Height;
  62.  
  63.     Height := LongInt(Height) * LongInt(Screen.Height) div ScreenHeight;
  64.     Width := LongInt(Width) * LongInt(Screen.Width) div ScreenWidth;
  65.     ScaleBy (ScreenWidth, Screen.Width);
  66.     { Scale all the fonts 
  67.  
  68.     for i := ControlCount - 1 downto 0 do
  69.       TFontClass(Controls[i]).Font.Size :=
  70.         (Width div OldWidth) * TFontClass(Controls[i]).Font.Size;
  71.  
  72.   end;
  73. }
  74. end;
  75.  
  76. end.
  77.