anchor.diff:    LVColumn.Width := 150;
     LVColumn.Height := 50;
     LVColumn.Resizable := True;
  -  LVColumn.Alignment := taRightJustify;
  +  LVColumn.Alignment := taLeftJustify;
     FListView.Columns.Add(LVColumn);
     FTmpListView.Columns.Add(LVColumn);
     
  
positive.code:   LVColumn.ColumnIndex := 2;
  
  
    FEdit := TfpgEdit.Create(Self);
    with FEdit do begin
      Parent := Self;
      Top := 420;
      Left := 10;
      Width := 100;
    end;
  
    FAddButton := TfpgButton.Create(Self);
    with FAddButton do begin
      Parent := Self;
      Top := 420;
      Left := 120;
      Width := 80;
      Text := 'Add';
      OnClick := @AddBttn;
    end;
  
    FQuitButton := TfpgButton.Create(Self);
    with FQuitButton do begin
      Parent := Self;
      ImageName := 'stdimg.Quit';
      ShowImage := True;
      Top := 420;
      Left := 210;
      Width := 80;
      Text := 'Quit';
      OnClick := @CloseBttn;
    end;
    
    FCheck := TfpgCheckBox.Create(Self);
    with FCheck do begin
      Parent := Self;
      Top := 420;
      Left := 290;
      Width := 110;
      Checked := True;
      Text := 'ShowHeaders';
      OnChange := @ShowHeadersChange;
    end;
  
  
negative.code: constructor TMainForm.Create(AOwner: TComponent);
  var
    LVColumn: TfpgLVColumn;
    TopPanel,
    BottomPanel: TfpgPanel;
  begin
    inherited Create(AOwner);
  
    WindowTitle := 'ListView Test';
    SetPosition(200, 200, 640, 480);
  
  
    BottomPanel := TfpgPanel.Create(Self);
    BottomPanel.Align  := alBottom;
    BottomPanel.Height := 40;
    BottomPanel.Parent := Self;
    BottomPanel.Text   := '';
  
    TopPanel         := TfpgPanel.Create(Self);
    TopPanel.Align   := alClient;
    TopPanel.Parent  := Self;
    TopPanel.Text    := '';
  
  
    FListView := TfpgListView.Create(TopPanel);
    with FListView do begin
      Parent := TopPanel;
      Align := alLeft;
      Width := 320;
      OnPaintItem := @PaintItem;
      OnSelectionChanged := @ItemSelectionChanged;
      MultiSelect := True;
    end;
  
    FSplitter := TfpgSplitter.Create(TopPanel);
    with FSplitter do begin
      Parent := TopPanel;
      Align:=alLeft;
    end;
    FTmpListView := TfpgListView.Create(TopPanel);
    with FTmpListView do begin
      Parent := TopPanel;
      Align := alClient;
      //OnPaintItem := @PaintItem;
      Items := FListView.Items;
    end;
  