david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
51 lines
1.1 KiB
ObjectPascal
51 lines
1.1 KiB
ObjectPascal
unit DemoBasicAbout;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, cxLookAndFeelPainters,
|
|
cxButtons;
|
|
|
|
type
|
|
TcxGetDemoGetAboutEvent = procedure(AAboutText: TStrings) of object;
|
|
TcxGetDemoGetCaptionEvent = procedure(var ACaption: string) of object;
|
|
|
|
TDemoBasicAboutForm = class(TForm)
|
|
imgIcon: TImage;
|
|
lmoName: TLabel;
|
|
lbCopyright: TLabel;
|
|
bvBottom: TBevel;
|
|
lbCompanyName: TLabel;
|
|
reDemoInfo: TRichEdit;
|
|
btnOK: TcxButton;
|
|
procedure btnOKClick(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure FormDestroy(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
DemoBasicAboutForm: TDemoBasicAboutForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDemoBasicAboutForm.btnOKClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TDemoBasicAboutForm.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
Action := caFree;
|
|
end;
|
|
|
|
procedure TDemoBasicAboutForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
DemoBasicAboutForm := nil;
|
|
end;
|
|
|
|
end.
|