Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jfheins,
9. Apr 2006
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 ...)
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);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jfheins,
9. Apr 2006
Lösung: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 ...