with AdvSmoothTimeLine1.TimeLineIndicators.Add do 
begin 
  Position :=AdvSmoothTimeLine1.Range.RangeFrom + ((AdvSmoothTimeLine1.Range.RangeTo - AdvSmoothTimeLine1.Range.RangeFrom) / AdvSmoothTimeLine1.Range.SubDivisions); 
  Shape := isDiamond; 
  Color := clWhite; 
  ColorTo := clGreen; 
  Hint := 'This is a new Indicator on February'; 
end;

AdvSmoothTimeLine1.TimeLineBar.AnnotationFont.Color := clWhite; 
with AdvSmoothTimeLine1.TimeLineIndicators.Add do 
begin 
  Annotation := 'This is an Annotation'; 
  Position := IncSecond(AdvSmoothTimeLine1.Range.RangeFrom, 5); 
  AnnotationColor := clGreen; 
end;

with AdvSmoothTimeLine1.TimeLineSections.Add do 
begin 
  StartTime := AdvSmoothTimeLine1.Range.RangeFrom + ((AdvSmoothTimeLine1.Range.RangeTo - AdvSmoothTimeLine1.Range.RangeFrom) / AdvSmoothTimeLine1.Range.SubDivisions) * 3; 
  EndTime := AdvSmoothTimeLine1.Range.RangeFrom + ((AdvSmoothTimeLine1.Range.RangeTo - AdvSmoothTimeLine1.Range.RangeFrom) / AdvSmoothTimeLine1.Range.SubDivisions) * 5;
  Hint := 'This is a new Section between March and June'; 
end;

var 
  md: TAdvSmoothMessagedialog; 
begin 
  md := TAdvSmoothMessageDialog.Create(Self); 
  md.Caption := 'Game over !'; 
  with md.Buttons.Add do 
begin 
  Caption := 'Yes'; 
  ButtonResult := mrYes; 
end;
with md.Buttons.Add do 
begin 
  Caption := 'No'; 
  ButtonResult := mrNo; 
end; 
md.HTMLText.Text := 'Do you want to start a new game?'; 
md.HTMLText.Location := hlCenterCenter; 
md.SetComponentStyle(tsOffice2007Silver); 
md.Execute;

procedure ShowSmoothMessage(const Msg: string; AStyle: TTMSStyle = tsOffice2007Luna);

function SmoothMessageDlg(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; AStyle: TTMSStyle = tsOffice2007Luna): Integer; overload; 

function SmoothMessageDlg(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; DefaultButton: TMsgDlgBtn; AStyle: TTMSStyle = tsOffice2007Luna): Integer; overload;

function SmoothMessageDlgPos(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; AStyle: TTMSStyle = tsOffice2007Luna): Integer; overload;

function SmoothMessageDlgPos(const Title, Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; DefaultButton: TMsgDlgBtn; AStyle: TTMSStyle = tsOffice2007Luna): Integer; overload;

AdvSmoothMessageDialog1.Buttons.Clear; 
AdvSmoothMessageDialog1.Position := poScreenCenter; 
with AdvSmoothMessageDialog1.Buttons.Add do 
begin 
  ButtonResult := mrOk; 
  Caption := 'Ok'; 
end; 
with AdvSmoothMessageDialog1.Buttons.Add do 
begin 
  ButtonResult := mrCancel; 
  Caption := 'Cancel'; 
end;
 
if AdvSmoothMessageDialog1.Execute then 
  Label1.Caption := 'Ok Button clicked';

procedure TForm1.AdvSmoothMessageDialog1AnchorClick(Sender: TObject; Anchor: string); 
begin 
  ShellExecute(0,'open',pchar(Anchor),nil,nil,SW_NORMAL); 
end;

AdvSmoothMessageDialog1.Caption := 'Message Dialog with texture'; 
AdvSmoothMessageDialog1.Position := poScreenCenter; 
AdvSmoothMessageDialog1.Execute;

procedure TForm1.AddPoints; 
var 
  i: integer; 
begin 
//Adds 20 items 
  for i := 0 to 20 do 
  begin 
    with AdvSmoothListBox.Items.Add do 
    begin 
      Enabled := True; 
      //If enabled false then the item will be drawn in disabled fill
      GraphicLeftType := gtCheckBox 
      Checked := False; 
      //the item will be checked if the type is a checkbox or a radiobutton
      Caption := ‘Item ’+ inttostr(i);
      Info := ‘Info ’+ inttostr(i);
      Notes := ‘Notes ’ + link 
      Splitter := false; 
      //if splitter is true a empty space will be drawn between 2 items 
      DetailControl := Panel1 
      //depending on the action chosen to visualize the details the detailcontrol will be shown. 
      Level := 1; 
      //Set the level property to allow expanding and collapsing item groups 
      Indent := 30; 
      //Set the indent property to visually indent the item. 
    end; 
  end; 
end;

with AdvSmoothListBox5.Items.Add do
begin
  Caption := 'Mercedes';
  GraphicLeftType := gtSmoothButton;
  ButtonCaption := '-';
  ButtonBevelColor := clBlack;
  ButtonColor := clGreen;
  GraphicLeftWidth := 25;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Mercedes SLK Roadster';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Mercedes SLR Coupé';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Mercedes GLK 4x4';
  Indent := 30;
end;

with AdvSmoothListBox5.Items.Add do
begin
  Caption := 'BMW';
  GraphicLeftType := gtSmoothButton;
  ButtonCaption := '-';
  ButtonBevelColor := clBlack;
  ButtonColor := clGreen;
  GraphicLeftWidth := 25;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'BMW M3';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'BMW Z4';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'BMW X5';
  Indent := 30;
end;

with AdvSmoothListBox5.Items.Add do
begin
  Caption := 'Land Rover';
  GraphicLeftType := gtSmoothButton;
  ButtonCaption := '-';
  ButtonBevelColor := clBlack;
  ButtonColor := clGreen;
  GraphicLeftWidth := 25;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Land Rover Defender 90';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Land Rover Series III';
  Indent := 30;
end;
with AdvSmoothListBox5.Items.Add do
begin
  Level := 1;
  Caption := 'Range Rover Sport V8';
  Indent := 30;
end;