[Trollatsos]

First of all since this is my very 1st post, alphacontrols rulez! 🙂 Excellent work!

Working on Win7 / DXE2, I'm having troubles with sListView. I'm attaching a screenshot to let you understand what's happening.

There's no code at form at all.

At screenshot 2 (double-clicking column's splitter) i've added several listitems:

Code:

var
i: integer;
li: tlistitem;
begin
for i := 0 to 5000 do begin
li := slistview1.Items.Add;
li.Caption := inttostr(i);
end;
end;

I also tried several fonts and skins. Same results.

Is there a way to fix this? Maybe with OnDrawItem or OnCustomDraw?

Thank you in advance!

Edit: I think i found something by myself:

Code:

procedure TForm1.sListView1DrawItem(Sender: TCustomListView; Item: TListItem;
Rect: TRect; State: TOwnerDrawState);
begin
Application.ProcessMessages;
end;

Using this, there's no problem with double-clicking and resizing. Items caption aliasing only get messed if the item from 1st column is selected. If the whole row is selected (RowSelect := true) then everything again is working fine.

[Support]

Hello and thank you for using AlphaSkins!

What is version of used package?

Can you give me this demo for tests, please?

[Author]

Posts