[JM-DG]

Good idea. I'll let you know how it went. 🙂

[JM-DG]

I only wanted to share some code in relation to aceListView. 🙂

Condition: Listview in viewstyle vsreport mode.

Using only one group.

Here's how I got the top & bottom index of the visible items.

Add these lines to the aceListView.pas file.

Code:

function TacListView.GetTopElement:Integer;
var Tmp:Integer;
Item: TacListElement;
begin
Item:= GetElementAt(Point(Left+5, Top + (ItemHeight + 1)));
if Assigned(Item) then
Tmp:= Item.Index
else
Tmp:= -1;
Result:= Tmp;
end;

function TacListView.GetBottomElement:Integer;
var Tmp:Integer;
Item: TacListElement;
begin
item:= GetElementAt(Point(Left+5, Height – (ItemHeight -1)));
if Assigned(Item) then
Tmp:= Item.Index
else
Tmp:= Items.Count – 1;
Result:= Tmp;
end;

Add these lines to the public section of the TacListview class in the aceListView.pas file. (Around line 536)

Code:

function GetTopElement:Integer;
function GetBottomElement:Integer;

@KSS Any future release plans?

[JM-DG]

I downloaded it this morning…

I was about to reply to say that it has fixed the problem.

Thank you very much for a fast fix.

A+++ the best

[JM-DG]

This may help also…

OS: Windows7 64 bits.

Compiler: Delphi7

[JM-DG]

Hi!

Ok, It really happens with some skins not all…

WMP11 is one of them doing the “bug”.

Here's a sample project I was able to make which reproduce the bug.

As I said earlier, v 7.34 does not have this bug.

Thank you for your time!

_______

JM-DG

[JM-DG]

Hi there mate!

I just wish to point out a memory leak.

In your procedure TacCollection.SetAllowItemsReorder(Value: boolean); you create a TList

Code:

if not Assigned(FOrderIndex) then
FOrderIndex := TList.Create

but FOrderIndex is never freed. Except if you set the columns property to false

(like this: LvPlaylist.Columns.AllowItemsReorder:= false;) before destroying your

form calling then the false branch of this same procedure:

Code:

if Assigned(FOrderIndex) then
FreeAndNil(FOrderIndex);

But else I really like this new version 😀

Sorry I don't know russian. :blush:

_______

JM-DG

[JM-DG]

OMG Thank you soooo much!

Now everything I need is included in your component.

Later!

_______

JM-DG

'KSS' wrote:

You can get Element object “TacListView.GetElementAt(MousePos: TPoint)”. See a new version of component with columns reorder on forum.

[JM-DG]

Ho! One last question…

Is it possible to get the row information when clicking on it?

Example: Retrieve the information of the 3rf column of the 2nd row clicked.

[JM-DG]

'KSS' wrote:

No, you had not missed anything 🙂 Columns reordering is not supported now, but this feature will appear in one of next component release 😉

Keep me informed. 😀

Thanks a lot for your work!

_______

JM-DG

[JM-DG]

Sorry, I meant reordering of the columns… 😀

Did I missed something?

[JM-DG]

It seems that this component does not allow the resizing of the columns…

I need this feature too… 🙂

Thanks!

______

JM-DG

[JM-DG]

Wow, Thank you!

It looks like it is what I need 😀

++

________

JM-DG

[JM-DG]

I “finally” bought Alpha Controls component today 😀

Just to let you know that the bug do not occur in

registered version. (only in demo version).

_______

JM-DG

[Author]

Posts