[Sereby]

hi,

i was able to solve a very annoying bug that raised all the time exceptions when showing the ListView inside the IDE!

Code:

procedure TacListGroup.Paint(Canvas: TCanvas; BgErase, PaintSelectionFrame: boolean);
var
..
..
..
SD: TsCommonData;
begin
if not Visible or (csDestroying in KssListView.ComponentState) or (csLoading in KssListView.ComponentState) then Exit;
..
..
..
SkinIndex := -1;
SD := KssListView.SkinData;
if Assigned(SD.SkinManager) and SD.SkinManager.IsValidSkinIndex(SD.SkinIndex) then
begin
..
..
..
end;
..
..
..
end;

Problem was that Skinmanager was not availabe when checking IsValidSkinIndex!

[Sereby]

because AC7 uses the magnify API and not something else 😉

and inside this API is the issue

[Sereby]

'TAZ' wrote:

Also, the magnifying glass still exhibits problems when using Windows 7.

if you mean the black magnifying glass problem: this is a microsoft issue! They know about it and maybe its solved in SP1.

[Sereby]

do you use synchronize to call this procedure?

else its not working correctly and not thread safe!

and try to update your package. 7.08 already exist!

[Sereby]

first of all the new Delphi version with x64 compiler should be created and then released.

if that happen then it will be a new version available!

The new RAD Studio XE or how its called has no x64 compiler inside. thats moved to the next version because its too buggy atm

[Sereby]

hey, nice new version!

But some things about your source-code:

Code:

DrawText(OutBitmap, OutText, TxtRec, false, SkinIndex, Boolean(State > 0), Self.Group.FOwner.SkinData.SkinManager);

must be the following else it would raise an AC

Code:

DrawText(OutBitmap, OutText, TxtRec, false, SkinIndex, Boolean(State > 0), FOwner.SkinData.SkinManager);

Code:

procedure TacListColumns.UpdateColumns;
begin
if not Owner.HandleAllocated then Exit;
BeginUpdate;
try
Owner.UpdateColumns;
finally
EndUpdate;
end;
end;
…
…
procedure TacListView.UpdateColumns;
begin
if HandleAllocated then
Paint;
end;

must be the following else the listview cannot be cut and paste inside the IDE

Code:

procedure TacListColumns.UpdateColumns;
begin
if not Owner.HandleAllocated or (csDestroying in Owner.ComponentState) then Exit;
BeginUpdate;
try
Owner.UpdateColumns;
finally
EndUpdate;
end;
end;
…
…
procedure TacListView.UpdateColumns;
begin
if HandleAllocated and not (csDestroying in Owner.ComponentState) then Paint;
end;

first line of procedure TacListView.SetGroupImages(Value: TCustomImageList);
if not Visible or (csDestroying in ComponentState) or (csLoading in ComponentState) then Exit;

and another thing:

could you base your pack on the ACExtra package now?

else every user have to update the source code so that its possible to replace the file inside the ACExtra package

[Sereby]

read the install.txt inside this directory!

[Sereby]

you have to update the skin files, too.

That means you have to update the Skins you added to SkinManager

[Sereby]

Hey KSS,

found a AV caused by your ListView:

if and item has a progressbar and the value is set (eg. to 56) then try to resize a column. After releasing the mouse a AV will occure!

[Sereby]

I'm using D5 and D2009 under Win7 x64 and all is working fine.

What type of error do you get? if its something that only happen when opening the project then just click ignore (open all forms to ignore it for all) and re-save the project.

if its something else then you have to tell us what error you get

[Sereby]

@ zbugz:

you have to use the latest version from the ACExtra package!

[Sereby]

hey,

I was looking for a way to display as much items as possible inside the list. but with the ability to use groups.

maybe i have to think about something completely different but the idea i got now is to use a listview style where the items are displayed from left to right side and from top to bottom (vsIcon, vsSmallIcon, etc.).

Could that maybe possible?

[Sereby]

today Serge released ACExtra v7 where aceListView is included.
Its based on KssListview but with fixes that are needed to run proper with v7 of AC.

would be nice if you could base your work on that version now!

[Sereby]

you should remove all ac*.bpl files from alphacontrols and ACextra.

Then reinstall alphacontrols and then install the newest ACExtra package.
Then it shoudl work. and you may have to rename the unit in the uses clause to aceScrollPanel

[Sereby]

great that I could help you

in reply to: problems when installing 702 #43008

[Sereby]

I had the same problem.

you have to uninstall all AC components first (remove the bpl files)..
remove ACextra, DB-Components, AC itself and then reinstall one by one and click recreate (or how its called… dont know because I just have the german version) on the packages and then install.

this worked for me!

For ACExtra you have to use a newer version which Serge did not released until now dont know why.
(i already got it

in reply to: ListView с поддержкой групп; ProgressBar с градиентом #42661

[Sereby]

Hi,
my compiler (D2009) told me some things about unused variables etc. so I removed them and initialized some other variables..
changes:

CODE

— outcommented lines:
92, 97, 375, 422, 833-853, 3111-3119, 3901-3923

— removed lines:
299, 322, 585, 667, 668, 681, 682, 1254, 1255, 1588, 2519, 2591, 2592, 2670, 2671, 2761, 2762, 3725, 3732, 3733, 4096, 4097

— added lines
940:
  State := 0;
  ItemIndex := 0;
  DividerSkinIndex := 0;

1326: Changed := False;

1785: State := 0;

2034: CheckIndex := 0;

3514:
  FScrollPos := nil;
  FScrollMax := nil;
  LineValue  := 0;

I dont know if the added lines are correct initializated..
here the fixed file

[Sereby]

thank you very very much!
now its looking exactly like what i was searching for <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

2 litte things which could be optimized
– Autoheight of groups when images or descriptions are added. Because if i add a 32×32 img to the group or add a description it does not have enought space to be displayed. But after setting the groupheight to 35 it's no big problem <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />

– when using skDoInvertCheckSelected and have checkonclick enabled it should call the onclick event after pressing the spacebar, too!

else very good work! thanks again.

[Sereby]

found another Memoryleak:
if i press a column header to sort the items there is some Unknown resource not beeing freed (FastMM4)

here the callstack

CODE

This block was allocated by thread 0xD08, and the stack trace (return addresses) at the time was:
4032E5 [System][System.@ReallocMem]
61092B [KssListView.pas][KssListView][KssListView.TacListView.GetItemsArray][4096]
610A45 [KssListView.pas][KssListView][KssListView.TacListView.SortItems][4140]
60BB00 [KssListView.pas][KssListView][KssListView.TacListColumn.Click][1642]
610D3C [KssListView.pas][KssListView][KssListView.TacListView.MouseUp][4205]
49B061 [Controls][Controls.TControl.DoMouseUp]
49B0DE [Controls][Controls.TControl.WMLButtonUp]
49A6F5 [Controls][Controls.TControl.WndProc]
407035 [System][System.@FinalizeArray]
406F7D [System][System.@FinalizeRecord]
529494 [sAlphaGraph.pas][sAlphaGraph][sAlphaGraph.UpdateCorners][1268]

edit:
another thing i found which is missing: a H-ScrollBar when Columns are autosized and the text does not fit the with of the ListView

[Sereby]

Hi, thanks for the new version!
got some suggestions to improve this component:

1. (Feature) is it possible to add big images to the group so that it looks like the TListView in this example?
http://www.alphaskins.com/forum/index.php?…ost&id=2976

2. (Feature) could you add a extra option for the group counter? to enable view of (6) or (1/6) or so

3. (Bug) if i have multiselect enabled and then press space it just selects one selected item

4. With your compiled demo i'm getting some weird hover events on the buttons on the right (losing and getting focus of the form). then after some time i get some invalid pointer message and i have to kill the process. if i recompile it with D2009 its working ?! maybe AC bug?

[Author]

Posts