Imagelist behält die hinzugefügten Bitmaps nicht

[dot]

danke für die Antworten euch allen, ich habe nun dies gemacht:

jedesmal wenn ich auf meine Imageliste auf dem fdm_fkal_ico zugreife, lade ich diese neu mit:

Delphi-Quellcode:

procedure TDM_FKAL_ICONS.DataModuleCreate(Sender: TObject);
begin
  Laden;
end;

//**************************************************
procedure TDM_FKAL_ICONS.Laden;
var
  FS : TFileStream;
  Filename : String;
  AppPath : String;
begin
  AppPath:=ExtractFilePath(ParamStr(0));
  AppPath:=IncludeTrailingBackSlash(AppPath);
  Filename:=AppPath+'Imageliste.iml';
  FS:=TFileStream.Create(Filename,fmOpenRead);
Try
  FS.ReadComponent(Imageliste1);
Finally
  FS.Free;
end;
end;
//***************************************************
beim Freigeben des DM mache ich dies:

procedure TDM_FKAL_ICONS.DataModuleDestroy(Sender: TObject);
begin
  Speichern;
end;

procedure TDM_FKAL_ICONS.Speichern;
var
  FS : TFileStream;
  Filename : String;
  AppPath : String;
begin
  AppPath:=ExtractFilePath(ParamStr(0));
  AppPath:=IncludeTrailingBackSlash(AppPath);
  Filename:=AppPath+'Imageliste.iml';
  FS:=TFileStream.Create(Filename,fmCreate);
Try
  FS.WriteComponent(Send_lad);
Finally
  FS.Free;
end;
end;

somit ist meine liste immer abgespeichert.

und dann habe ich das mit dem Hinzufügen so gelöst, dass ich nach dem "Hinzufügen" des Bitmap auf dem FO_ICONS sage:

fdm_FKAL_ICO.Speichern

[edit=sakura] [delphi]-Tags. Mfg, sakura[/edit]

[mkinzler]

das was du machst ist wie erwähnt gefährlich unter Vista und wird unter XP ohne adminrechte u.U. auch fehlschlagen. benutzer haben/sollten keine Schreibrechte im Programmverzeichnis haben!

[dot]

ja dann werd ich wohl die liste nicht im Programmverzeichnis speichern müssen :lol:

[dot]

achja oben stehts ja schon, habs übersehen

gilt es denn dann für das gesamte Programmverzeichnis also:

/Programme/Mein Programm --> hier liegt die Exe
oder
kann ich das in

/Programme/Mein Programm/SystemOrdner/
speichern???

[sakura]

@dot: Ich habe zwei Deiner Beiträge editiert und [delphi]-Tags eingefügt. Erledige dieses bitte in Zukunft selbständig :) Dazu einfach den Delphi-Code einfügen, markieren und den Button Delphi-Code über dem Editfeld klicken.

Danke,
...:cat:...

[sakura]

Zitat:

Zitat von dot

/Programme/Mein Programm --> hier liegt die Exe
oder
kann ich das in

/Programme/Mein Programm/SystemOrdner/

Alles unterhalb /Programme geht nicht ;) Nutze dazu den Pfad Application Data im Benutzerverzeichnis. In der Code-Library findest Du Funktionen um dieses Systempfade zu ermitteln.

...:cat:...