1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:

unit JayAboutBox;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, XPMan, About;

type
  TProductName = class(Tobject)
  private
    FCaption: String;
    FFont: TFont;
  public
    property Caption: String read FCaption write FCaption;
    property Font: TFont read FFont write FFont;
    constructor Create;
    destructor Destroy;
  end;

  TCompany = class(Tobject)
  private
    FCaption: String;
    FFont: TFont;
  public
    property Caption: String read FCaption write FCaption;
    property Font: TFont read FFont write FFont;
    constructor Create;
    destructor Destroy;
  end;

  TOKButton = class(Tobject)
  private
    FCaption: String;
    oGlyph: TBitmap;
    procedure SetGlyph(NewBitmap: TBitmap);
  public
    property Caption: String read FCaption write FCaption;
    property Glyph: TBitmap read oGlyph write SetGlyph;
    constructor Create;
    destructor Destroy;
    end;

  TJayAboutBox = class(TCommonDialog)
  private
    FVersionText, FCopyrightText, FComments: String;
    oProductName: TProductName;
    oCompany: TCompany;
    oOKButton: TOKButton;
    oProgramIcon: TPicture;
    FColor: TColor;
    oFont: TFont;
    procedure SetProgramIcon(NewPicture: TPicture);
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function Execute: Boolean;
    { Public-Deklarationen }
  published
    property ProductName: TProductName read oProductName write oProductName;
    property Company: TCompany read oCompany write oCompany;
    property VersionText: String read FVersionText write FVersionText;
    property CopyrightText: String read FCopyrightText write FCopyrightText;
    property Comments: String read FComments write FComments;
    property OKButton: TOKButton read oOKButton write oOKButton;
    property ProgramIcon: TPicture read oProgramIcon write SetProgramIcon;
    property Color: TColor read FColor write FColor;
    property Font: TFont read oFont write oFont;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Jakobs Komponenten', [TJayAboutBox]);
end;

constructor TProductName.Create;
begin
  FFont := TFont.Create;
end;

destructor TproductName.Destroy;
begin
  FFont.Free;
end;

constructor TCompany.Create;
begin
  FFont := TFont.Create;
end;

destructor TCompany.Destroy;
begin
  FFont.Free;
end;

constructor TOKButton.Create;
begin
  oGlyph := TBitmap.Create;
end;

destructor TOKButton.Destroy;
begin
  oGlyph.Free;
end;

procedure TOKButton.SetGlyph(NewBitmap: TBitmap);
begin
  if oGlyph <> NewBitmap then
    oGlyph.Assign(NewBitmap);
end;

constructor TJayAboutBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);            // Basisklasse aufrufen
  oProgramIcon := TPicture.Create;     // Instanzen erzeugen
  oFont := TFont.Create;
  oProductName := TProductName.Create;
  oCompany := TCompany.Create;
  oOKButton := TOKButton.Create;
end;

destructor TJayAboutBox.Destroy;
begin
  oOKButton.Free;
  oCompany.Free;
  oProductName.Free;
  oFont.Free;
  oProgramIcon.Free;
  inherited Destroy;
end;

procedure TJayAboutbox.SetProgramIcon(NewPicture: TPicture);
begin
  if oProgramIcon <> NewPicture then
    oProgramIcon.Assign(NewPicture);
end;

function TJayAboutBox.Execute;
begin
  AboutBox := TAboutBox.Create(Application);
  try
    try
      AboutBox.HeaderPanel.Caption := Productname.Caption;
      Aboutbox.HeaderPanel.Font := ProductName.Font;
      AboutBox.LargePrgIcon.Picture := ProgramIcon;
      AboutBox.SmallPrgIcon.Picture.Icon := Application.Icon;
      AboutBox.CompanyName.Caption := Company.Caption;
      AboutBox.CompanyName.Font := Company.Font;
      AboutBox.Version.Caption := Versiontext;
      AboutBox.Copyright.Caption := CopyrightText;
      AboutBox.CommentsText.Caption := Comments;
      AboutBox.btnOK.Caption := OKButton.Caption;
      AboutBox.btnOK.Glyph := OKButton.Glyph;
      AboutBox.ShowModal;
      Result := true;
    except
      Result := false
    end;
  finally
    AboutBox.Free;
  end;
end;

end.					

1:
2:
3:
4:
5:

Man versteht mich nicht.
Man schüttelt einfach nur den Kopf und denkt sich: "Na so was bescheuertes!" und klickt dann weiter.
Ihr habts aufgegeben mir irgentwie das beibringen zu versuchen.
Der Thread wurde vergessen.
Alle haben für sowas keine Zeit.