david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
24 lines
529 B
ObjectPascal
24 lines
529 B
ObjectPascal
program AlphaBlendingDemo;
|
|
|
|
uses
|
|
dxGDIPlusAPI,
|
|
Forms,
|
|
AlphaBlendingMain in 'AlphaBlendingMain.pas' {fmAlphaBlendingMain},
|
|
AlphaBlendingDialog in 'AlphaBlendingDialog.pas' {fmAlphaBlendingDailog};
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
ADialog: TForm;
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TfmAlphaBlendingMain, fmAlphaBlendingMain);
|
|
if not CheckGdiPlus then
|
|
begin
|
|
ADialog := TfmAlphaBlendingDailog.Create(Application);
|
|
ADialog.ShowModal;
|
|
ADialog.Free;
|
|
end;
|
|
Application.Run;
|
|
end.
|