tlistview+farben

[Zero1]

hi!

hab ne frage zu tlistview+farben *g

wie man einzelne zeilen färbt weiß ich nu aber wie ich die farbeinträge speichern kann so das es beim nächsten start des programme weiterhin die farbe hat, dahinter bin ich noch nicht gekommen :/

hat vielleicht jemand nen plan?



# Delphi 6, Indy 9 #

[bitsetter]

hallo,
das kommt natürlich drauf an, wie du das programmiert hast. Muss z.B. immer nur eine Zeilenposition gespeichert werden, kannst du es einfach über eine INI Datei speichern. Bei mehreren Zeilen wird es schon ein bischen komlizierter. Ein bischen Code von dir wäre darum nicht schlecht.

Ansonsten geht es z.B. auch so:

Delphi-Quellcode:

//speichern
procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
begin
  FileStream:= TFileStream.Create(extractfilepath(Application.ExeName)+'MeinListView.txt', fmCreate);
  try
    FileStream.WriteComponent(ListView1);
  finally
    FileStream.Free;
  end;
end;

//laden
procedure TForm1.Button2Click(Sender: TObject);
var
  FileStream: TFileStream;
  Pfad: AnsiString;
begin
  Pfad:= extractfilepath(Application.ExeName)+ 'MeinListView.txt';
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenRead);
    try
      FileStream.ReadComponent(ListView1);
    finally
      FileStream.Free;
    end;
  end;
end;