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.
|