sbondalapati
asked on
Problem with TlistView.Repaint
I used Tlistview Control and Tlistitem to display items.But i am not getting the items displayed properly.
var
varListItem: TListItem;
begin
varListItem := lvSteps.Items.Add();
varListItem.Caption := DateTimeToStr(Now);
varListItem.SubItems.Add(AStepMessage);
varListItem.ImageIndex := AImageIndex;
varListItem.MakeVisible(false);
lvSteps.Repaint();
ASKER
after repaint its showing blank listview.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
move the MakeVisible line down
var
varListItem: TListItem;
begin
lvSteps.Items.BeginUpdate;
try
varListItem := lvSteps.Items.Add;
varListItem.Caption := DateTimeToStr(Now);
varListItem.SubItems.Add(A StepMessag e);
varListItem.ImageIndex := AImageIndex;
finally
lvSteps.Items.EndUpdate;
end;
varListItem.MakeVisible(fa lse);
var
varListItem: TListItem;
begin
lvSteps.Items.BeginUpdate;
try
varListItem := lvSteps.Items.Add;
varListItem.Caption := DateTimeToStr(Now);
varListItem.SubItems.Add(A
varListItem.ImageIndex := AImageIndex;
finally
lvSteps.Items.EndUpdate;
end;
varListItem.MakeVisible(fa
ASKER
thanks
maybe a screen-shot?