Project Description:

Derive a new object from TCustomForm called TAeroWizardForm. TAeroWizardForm must support all properties of TCustomForm and add the following properties: AeroIcon AeroCaption BackCaption NextCaption CancelCaption BackVisible NextVisible CancelVisible AeroStyle Add the following events: OnBackClick OnNextClick OnCancelClick Objective: TAeroWizard will display a standard Delphi form inside a Vista/Windows 7 Aero Wizard "surface" (such as the standard wizard surface used in the Add New Hardware wizard - with a large glass portion near the top of the window). You will need to use the CreatePropertySheetPageW WinAPI function to create the Aero Wizard "surface" and then embed a standard Delphi TCustomForm inside this surface. All regular form events and properties should work, and the TAeroWizardForm should support both modal and nonmodal Show methods. You will be aided in this project by code that we will provide which provides a basic starting framework, but does not yet completely work. Simply by deriving an existing Delphi form from TAeroWizardForm instead of TCustomForm, all of this specified functionality should work. Nothing should break in the Delphi UI designer for TAeroWizardForms either. On platforms where Aero is not supported (any OS earlier than Vista), you should not fail but call the CreatePropertySheetPageW API to create a classic wizard instead of an Aero wizard. The property AeroStyle should support three values: asVista, asLegacy, asNone; where asVista means using an Aero wizard (and falling back to asLegacy if OS is earlier than Vista); asLegacy means using a classic wizard, and asNone means working exactly as a regular TCustomForm, without hosting the Delphi form inside a classic or Aero Wizard "surface" at all. Your code should support 32 and 64 bit Windows versions. Your code should compile and work flawlessly on Delphi 2007.

State Date: Tue, 02 Mar 2010 11:23:08 -0500
Posted By: farukdemirel
Budget: $250 - $750

• Delphi