ListView verfärbt Icons

[TheCatcher]

Hallo und willkommen...


Habe ein Problem mit meiner TListView.
Nach mehrfachen verschieben der Icons in der ListView, verfärben sich die Icons nach und nach - siehe angehängtes Bild

Wie löse ich mein Problem?

[Matze]

Hallo, ebenfalls herzlich willkommen!

Sorry, wenn ich diese blöde Frage stelle: Es sieht so aus, als wären die Einträge selektiert. Du kannst ausschließen, dass die Einträge markiert sind? Denn normalerweise kann sich das Bild nicht so einfach verändern (ich nehme an, du realisierst das über eine ImageList und den ImageIndex).

Falls du das ausschließen kannst, wie verschiebst du denn die Einträge?

[TheCatcher]

Ja das kann ich ausschliessen!
Abgeshen davon, kann immer nur ein Icon makiert sein.
Ausserdem wird nach jedem verschieben die Farbe merklich dunkler! Sie ist ja nicht gleich so dunkle!


Es wird über eine ImageList und dem ImageIndex realisiert - ja

[TheCatcher]

habe nun mal ein demo Projekt angehängt in dem Ihr sehr was für SourceCode ich werdende und es am Objekt testen könnt das sich die Icons verfärben!

getestet unter WIndows XP Sp2


Wäre schön wenn jemand eine Lösung dafür hät!

[jfheins]

Lösung:

Delphi-Quellcode:

jvimagelist1.GetBitmap(ListView1.Selected.Index, ti_1);
    jvimagelist1.GetBitmap(TargetItem.Index, ti_2);

    jvimagelist1.Replace(ListView1.Selected.Index, ti_2, nil);
    jvimagelist1.Replace(TargetItem.Index, ti_1, nil);

Warum es nur mit TBitmap geht und nicht mit TIcon weis der Himmel ...

[Batman666]

hmm keine Lösung also nciht bei mir habe auch so ein Problem

[jfheins]

Also ich habe den Source auf folgendes reduziert, und bei mir keine verfärbungen mehr beobachten können. (Mit TIcon wurde es auch bei mir dunkler ...)

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  TargetItem: TListItem;
  Ti_1, Ti_2: TBitmap;
begin
  if not (Sender = Source) then
    Exit;

  TargetItem := ListView1.GetItemAt(X, Y);
  if (TargetItem <> nil) then
  begin
    Ti_1 := TBitmap.Create;
    Ti_2 := TBitmap.Create;

    ListView1.Items.BeginUpdate;

    jvimagelist1.GetBitmap(ListView1.Selected.Index, ti_1);
    jvimagelist1.GetBitmap(TargetItem.Index, ti_2);

    jvimagelist1.Replace(ListView1.Selected.Index, ti_2, nil);
    jvimagelist1.Replace(TargetItem.Index, ti_1, nil);

    Ti_1.Free;
    Ti_2.Free;

    ListView1.Items.EndUpdate;
  end;
end;


procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Sender = ListView1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 50 do
  begin
    Button2Click(Sender);
    Sleep (10);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Selected := ListView1.Items[1];
  ListView1DragDrop(ListView1, ListView1, 30, 30);
  ListView1.Repaint;
end;

[TheCatcher]

OK danke Euch - aber es ist wirklich so - wie der BlackBird schon schrieb!

Bei mir lösen sich die Icons auch auf!

Sie das Bild von BlackBird....

habe es ganz nach dem SourceCode von Dir (jfheins) gemacht.....
Klick auf Button 1 sieht es so aus wie auf dem Bild von BB

Also das Dunkle wurde besiegt ;) aber nun hat das Helle die Oberhand ;)

Edit: Das mit dem Blasswerden ist genauso auch wenn ich statt der Replace Geschichte NUR MOVE verwende!