128 lines
3.3 KiB
Plaintext
128 lines
3.3 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Painter : Version 1.0
|
|
// Copyright (c) 2007 : Adirondack Software & Graphics
|
|
// Created : 05-25-2007
|
|
// Last Modification : 05-25-2007
|
|
// Description : About Unit
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit uAbout;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, ComCtrls, hyieutils;
|
|
|
|
type
|
|
TfrmAbout = class ( TForm )
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
Image1: TImage;
|
|
Label1: TLabel;
|
|
Image2: TImage;
|
|
PageControl1: TPageControl;
|
|
Panel1: TPanel;
|
|
Button1: TButton;
|
|
TabSheet1: TTabSheet;
|
|
TabSheet3: TTabSheet;
|
|
Memo1: TMemo;
|
|
TabSheet2: TTabSheet;
|
|
RichEdit1: TRichEdit;
|
|
procedure FormCreate ( Sender: TObject );
|
|
procedure Label1Click ( Sender: TObject );
|
|
procedure Label1MouseEnter ( Sender: TObject );
|
|
procedure Label1MouseLeave ( Sender: TObject );
|
|
procedure Label4Click ( Sender: TObject );
|
|
procedure Label4MouseEnter ( Sender: TObject );
|
|
procedure Label4MouseLeave ( Sender: TObject );
|
|
procedure Label5Click(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmAbout: TfrmAbout;
|
|
|
|
const
|
|
VERSION = '1.0 Vista Ready';
|
|
APP = 'ImageEn Painter';
|
|
COPYRIGHT = 'Copyright © 1999-2007 Adirondack Software';
|
|
|
|
implementation
|
|
|
|
uses ShellAPI;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmAbout.FormActivate(Sender: TObject);
|
|
begin
|
|
RichEdit1.Lines.LoadFromFile('ImageEn Painter Features.rtf');
|
|
end;
|
|
|
|
procedure TfrmAbout.FormCreate ( Sender: TObject );
|
|
begin
|
|
Label2.Font.Color := RGB(0, 83, 196);
|
|
Label2.Caption := APP;
|
|
Label2.Invalidate;
|
|
Label3.Caption := 'Version ' + VERSION;
|
|
Label3.Invalidate;
|
|
Label4.Caption := COPYRIGHT;
|
|
Label4.Invalidate;
|
|
end;
|
|
|
|
procedure TfrmAbout.Label1Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.imageen.com' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TfrmAbout.Label1MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clRed;
|
|
Label1.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TfrmAbout.Label1MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label1.Font.Color := clBlack;
|
|
Label1.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TfrmAbout.Label4Click ( Sender: TObject );
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'http://www.vizacc.com' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
procedure TfrmAbout.Label4MouseEnter ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clRed;
|
|
Label4.Font.Style := [ fsUnderline ];
|
|
end;
|
|
|
|
procedure TfrmAbout.Label4MouseLeave ( Sender: TObject );
|
|
begin
|
|
Label4.Font.Color := clBlack;
|
|
Label4.Font.Style := [ ];
|
|
end;
|
|
|
|
procedure TfrmAbout.Label5Click(Sender: TObject);
|
|
begin
|
|
Screen.Cursor := crHourglass;
|
|
try
|
|
ShellExecute ( Handle, 'open', PChar ( 'mailto: supportviz@vizacc.com?subject=HelpCommander Support' ), nil, nil, SW_SHOWNORMAL );
|
|
finally; Screen.Cursor := crDefault; end;
|
|
end;
|
|
|
|
end.
|
|
|