Hi ariopax,
As I said, we use ResetProps function in our demo project.
This function will reset all properties to default, so you need change to something like this:
delphi code
procedure TIWForm1.CGPanelItemClick(Sender: TObject; AParams: TStringList);
var
PanelListItem: TIWCGPanelListItem;
IsSubHeader: boolean; //CGDEVTOOLS 27-07-2015
begin
PanelListItem:= Sender as TIWCGPanelListItem;
if Assigned(FPrevPanelItem) then // REMOVE ICON FROM LAST ITEM
begin
IsSubHeader:= FPrevPanelItem.SubHeader; //CGDEVTOOLS 27-07-2015
FPrevPanelItem.ResetProps;
FPrevPanelItem.SubHeader:= IsSubHeader; //CGDEVTOOLS 27-07-2015
FPrevPanelItem.UpdateHTML;
end;
PanelListItem.PictureOptions.Icon:= 'ui-icon-triangle-1-e';
PanelListItem.PictureOptions.Align:= cgplpaRight;
PanelListItem.ItemCss:= DefItemCss + ' cgdev-left-menu-li-clicked';
PanelListItem.UpdateHTML;
FPrevPanelItem:= PanelListItem;
ShowFrame(PanelListItem,nil);
end;