anchor.diff:    LVColumn.ColumnIndex := 2;
   
   
  -  FEdit := TfpgEdit.Create(Self);
  +  FEdit := TfpgEdit.Create(BottomPanel);
     with FEdit do begin
  -    Parent := Self;
  -    Top := 420;
  +    Parent := BottomPanel;
  +    Top := 10;
       Left := 10;
       Width := 100;
     end;
   
  -  FAddButton := TfpgButton.Create(Self);
  +  FAddButton := TfpgButton.Create(BottomPanel);
     with FAddButton do begin
  -    Parent := Self;
  -    Top := 420;
  +    Parent := BottomPanel;
  +    Top := 10;
       Left := 120;
       Width := 80;
       Text := 'Add';
       OnClick := @AddBttn;
     end;
   
  -  FQuitButton := TfpgButton.Create(Self);
  +  FQuitButton := TfpgButton.Create(BottomPanel);
     with FQuitButton do begin
  -    Parent := Self;
  +    Parent := BottomPanel;
       ImageName := 'stdimg.Quit';
       ShowImage := True;
  -    Top := 420;
  -    Left := 210;
  +    Top := 10;
  +    Left := -10;
       Width := 80;
       Text := 'Quit';
  +    Anchors := [anRight, anBottom];
       OnClick := @CloseBttn;
     end;
     
  -  FCheck := TfpgCheckBox.Create(Self);
  +  FCheck := TfpgCheckBox.Create(BottomPanel);
     with FCheck do begin
  -    Parent := Self;
  -    Top := 420;
  -    Left := 290;
  +    Parent := BottomPanel;
  +    Top := 10;
  +    Left := 205;
       Width := 110;
       Checked := True;
  -    Text := 'ShowHeaders';
  +    Text := 'Show Headers';
       OnChange := @ShowHeadersChange;
     end;
   
  
positive.code: constructor TMainForm.Create(AOwner: TComponent);
  var
    LVColumn: TfpgLVColumn;
  begin
    inherited Create(AOwner);
  
    WindowTitle := 'ListView Test';
    SetPosition(200, 200, 610, 455);
  
    FListView := TfpgListView.Create(Self);
    with FListView do begin
      Parent := Self;
      Top := 10;
      Left := 10;
      Width := 320;
      Height := 400;
      OnPaintItem := @PaintItem;
      OnSelectionChanged := @ItemSelectionChanged;
      MultiSelect := True;
    end;
  
    FTmpListView := TfpgListView.Create(Self);
    with FTmpListView do begin
      Parent := Self;
      Top := 10;
      Left := 335;
      Width := 270;
      Height := 400;
      //OnPaintItem := @PaintItem;
      Items := FListView.Items;
    end;
  
negative.code:     FEdit: TfpgEdit;
      FAddButton: TfpgButton;
      FListView: TfpgListView;
      FSplitter: TfpgSplitter;
      FTmpListView: TfpgListView;
      FQuitButton: TfpgButton;
      FCheck: TfpgCheckBox;
  