source: trunk/UAboutWindow.pas

unit UAboutWindow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, RVScroll, RichView, RVStyle;

type
  TAboutWindow = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutWindow: TAboutWindow;

implementation

uses UMainForm;

{$R *.dfm}

procedure TAboutWindow.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TAboutWindow.FormPaint(Sender: TObject);
//var
//  Y, X: Integer;
begin
(*
  for Y:= 0 to Height-1 do
  for X:= 0 to Width-1 do begin
  AboutWindow.Canvas.Pixels[X,Y]:= clBlue;
    if AboutWindow.Canvas.Pixels[X,Y] = clWhite then AboutWindow.Canvas.Pixels[X,Y]:= clBlue;
  end;
*)
end;

procedure TAboutWindow.FormCreate(Sender: TObject);
begin
  with Memo2.Lines do begin
    BeginUpdate;
    Add('Název programu: ' + ApplicationName);
    Add('Verze: ' + Version);
    Add('Datum vydání: ' + ReleaseDate);
    Add('Autor: '  +Author);
    Add('Kontakt: ' + Email);
    Add('Homepage: ' + Homepage);
    Add('Licence: ' + Licence);
    EndUpdate;
  end;
end;

end.