/trunk/About.pas |
---|
0,0 → 1,31 |
unit About; |
interface |
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, |
Buttons, ExtCtrls; |
type |
TAboutBox = class(TForm) |
Panel1: TPanel; |
ProgramIcon: TImage; |
ProductName: TLabel; |
Version: TLabel; |
Copyright: TLabel; |
Comments: TLabel; |
OKButton: TButton; |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
end; |
var |
AboutBox: TAboutBox; |
implementation |
{$R *.dfm} |
end. |