Advanced Inno Setup Example

[DelphiBuilder]

TBevelCreate

FBevel:=BevelCreate(WizardForm, alNone, crDefault, 'Bevel Create Hint', True, bsBox, False, bsLowered, 0, True, 20, 20, 200, 200);

BevelGetParent(FBevel);
 BevelGetAlign(FBevel);
 BevelGetCursor(FBevel);
 BevelGetHint(FBevel);
 BevelGetParentShowHint(FBevel);
 BevelGetShape(FBevel);
 BevelGetShowHint(FBevel);
 BevelGetStyle(FBevel);
 BevelGetTag(FBevel);
 BevelGetVisible(FBevel);
 BevelGetLeft(FBevel);
 BevelGetTop(FBevel);
 BevelGetHeight(FBevel);
 BevelGetWidth(FBevel);
 BevelGetBounds(FBevel);

BevelSetParent(FBevel, WizardForm);
 BevelSetAlign(FBevel, alNone);
 BevelSetCursor(FBevel, crDefault);
 BevelSetHint(FBevel, 'Bevel Create Hint');
 BevelSetParentShowHint(FBevel, True);
 BevelSetShape(FBevel, bsBox);
 BevelSetShowHint(FBevel, False);
 BevelSetStyle(FBevel, bsLowered);
 BevelSetTag(FBevel, 0);
 BevelSetVisible(FBevel, True);
 BevelSetLeft(FBevel, 20);
 BevelSetTop(FBevel, 20);
 BevelSetHeight(FBevel, 200);
 BevelSetWidth(FBevel, 200);
 BevelSetBounds(FBevel, 20, 20, 200, 200);