sctvhelp.pas

suite component ace report

unit sctvhelp;

{ ----------------------------------------------------------------
  Ace Reporter
  Copyright 1995-1998 SCT Associates, Inc.
  Written by Kevin Maher, Steve Tyrakowski
  ---------------------------------------------------------------- }

interface
{$I ace.inc}
uses
  Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,
{$ifdef WIN32}
  windows;
{$else}
  winprocs, wintypes;
{$endif}

type
  TSctVarHelp = class(TForm)
    Panel1: TPanel;
    ExitButton: TButton;
    Memo1: TMemo;
    procedure ExitButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SctVarHelp: TSctVarHelp;

implementation

{$R *.DFM}

procedure TSctVarHelp.ExitButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TSctVarHelp.FormCreate(Sender: TObject);
begin
  ClientWidth := ExitButton.Left + ExitButton.Width + 10;
  ClientHeight := 440;
  if Screen.PixelsPerInch > 96 then
  begin
    font.Size := 7;
    ClientWidth := ClientWidth + 70;
  end;
end;

end.