ich experimentiere z.Z. ja wieder viel rum .... mir kam heute doch noch eine coole Idee... da ich ja mal bestimmte Zeilen in meiner Listview einfärben wollte (ROT) wollte ich jetzt mal es so machen das ich auf einen Button klicke und mir dann nur noch die roten Zeilen Angezeigt werden.
Code: Alles auswählen
procedure TFtukv.Button5Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to Listview1.Items.Count-1 do
begin
if ListView1.Color <> $002424FF then
begin
Listview1.Selected := ListView1.Items[i];
Listview1.Selected.Delete;
end;
end;
end;
ich glaube entweder ist das if falsch das er den Wert einer Farbe nicht vergleichen kann oder er weiß einfach nicht durch ListView1.Color was für eine Farbe in der Zeile ist.
Mit welchen Befehl lese ich die Farbe der Zeile aus?
Ich dachte erst... so wie es rein geht... geht auch alles wieder raus ^^
unter CustomDraw habe ich die Farbe mit ListView1.Canvas.Brush.color := farbe; reingeschrieben....