unit card;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, famui;
type
FAMCard =
class(FAMPanel)
private
{ Private-Deklarationen }
Header: FAMPanel;
Content: FAMPanel;
Footer: FAMPanel;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
FAMUI', [FAMCard]);
end;
{ TFamGUI }
constructor FAMCard.Create(AOwner: TComponent);
begin
inherited;
// Default size of fam card
self.Width := 600;
self.Height := 400;
// Create header of card
Header := FAMPanel.Create(self);
Header.Parent := self;
Header.Color := _CorporateDesign.gray;
Header.Align := alTop;
Header.Height := 90;
// Create content of card
Content := FAMPanel.Create(self);
Content.Parent := self;
Content.Color := _CorporateDesign.white;
Content.Align := alClient;
// Create footer of card
Footer := FAMPanel.Create(self);
Footer.Parent := self;
Footer.Color := _CorporateDesign.gray;
Footer.Align := alBottom;
Footer.Height := 90;
end;
destructor FAMCard.Destroy;
begin
inherited;
end;
end.