source: trunk/NewView/ProductInformationFormUnit.pas

Unit ProductInformationFormUnit;

// NewView - a new OS/2 Help Viewer
// Copyright 2003 Aaron Lawrence (aaronl at consultant dot com)
// This software is released under the Gnu Public License - see readme.txt

Interface

Uses
  Classes,
  Forms,
  Buttons,
  StdCtrls,
  ExtCtrls,
  ACLLanguageUnit;

Type
  TProductInformationForm = Class (TForm)
    OKButton: TButton;
    NameAndVersionEdit: TEdit;
    CopyrightEdit: TEdit;
    Image1: TImage;
    Bevel1: TBevel;
    LicenseEdit: TEdit;
    TranslationInfoLabel: TLabel;
    WebPageEdit: TEdit;
    EmailEdit: TEdit;
    Procedure EmailEditOnClick (Sender: TObject);
    Procedure WebPageEditOnClick (Sender: TObject);
    Procedure ProductInformationFormOnSetupShow (Sender: TObject);
    Procedure AboutBoxOnCreate (Sender: TObject);
  Public
    Procedure OnLanguageEvent( Language: TLanguageFile;
                               const Apply: boolean );
    VersionMsg: string;
  End;

Var
  ProductInformationForm: TProductInformationForm;

procedure EnsureProductInformationFormLoaded;

Implementation

uses
  VersionUnit,
  ControlsUtility,
  WebBrowserUnit,
  DebugUnit,
  StringUtilsUnit;

Procedure TProductInformationForm.EmailEditOnClick (Sender: TObject);
Begin
  LaunchURL('"mailto:' + EmailEdit.Text + '"');
End;

Procedure TProductInformationForm.WebPageEditOnClick (Sender: TObject);
Begin
  LaunchURL('"http://' + WebPageEdit.Text + '"');
End;


Procedure TProductInformationForm.ProductInformationFormOnSetupShow (Sender: TObject);
Begin
  ScaleForm( self, 10, 16 );
End;


Procedure TProductInformationForm.OnLanguageEvent( Language: TLanguageFile;
                                                   const Apply: boolean );
begin
  LogEvent(LogI18n, 'TProductInformationForm.OnLanguageEvent apply: "' + BoolToStr(Apply) + '"');
  Language.LoadComponentLanguage( self, Apply );

  Language.LL( Apply, VersionMsg, 'VersionMsg', 'Version: ' );
end;

Procedure TProductInformationForm.AboutBoxOnCreate (Sender: TObject);
Begin
  RegisterForLanguages( OnLanguageEvent );

  NameAndVersionEdit.Text := 'NewView ' + GetAppVersion;

  NameAndVersionEdit.Font := Screen.CreateCompatibleFont( Font );
  NameAndVersionEdit.Font.Attributes := [ faBold ];

  WebPageEdit.Font := Screen.CreateCompatibleFont( Font );
  WebPageEdit.Font.Attributes := [ faUnderscore ];
  EmailEdit.Font := WebPageEdit.Font;

  CopyrightEdit.Text := GetCopyrightMsg;
  LicenseEdit.Text := GetLicenseMsg;

  WebPageEdit.Cursor := GetLinkCursor;
  EmailEdit.Cursor := GetLinkCursor;
End;

procedure EnsureProductInformationFormLoaded;
begin
  if ProductInformationForm = nil then
    ProductInformationForm := TProductInformationForm.Create( nil );
end;

Initialization
  RegisterClasses ([TProductInformationForm, TButton,
    TEdit, TImage, TLabel, TBevel]);
  RegisterUpdateProcForLanguages( EnsureProductInformationFormLoaded );
End.