Positionen mehrerer TImage speichern

[smart]

Zitat:

Zitat von Sharky

Hai Spider und Heike,

ich würde in solch einem Fall einfach alle Komponenten der Form durchlaufen, prüfen ob es ein TImage ist und dann wie von Spider gezeigt das ganze speichern. Um die ganzen unnötigen Schreib/Lesezugriffe auf die INI-Datei zu vermeiden sollte man ausserdem mit TMemIniFile arbeiten.

Hallo Stephan!

Oder alle doch einzeln speichern ;-) Ist, glaube ich auch nicht viel mehr Aufwand, oder?

Heike

[Die Muhkuh]

Hi,

hast du auch mal überprüft, ob deine Images auch wirklich bei 0 anfangen? Ich hab gerade mal eins auf eine Form gesetzt und der Name war Image1.

[smart]

Zitat:

Zitat von Spider

Hi,

hast du auch mal überprüft, ob deine Images auch wirklich bei 0 anfangen? Ich hab gerade mal eins auf eine Form gesetzt und der Name war Image1.

Spider,

Du hast fast Recht. Ich habe den Fehler gefunden! Es fehlte zwischen Image11 und Image13, Image12. Jetzt klapp es.
Hab nochmals vielen Dank!

Gruß
Heike

[Sharky]

Zitat:

Zitat von smart

...Ist, glaube ich auch nicht viel mehr Aufwand, oder? ...

Der Vorteil ist: Dich brauchen die Namen der Images nicht zu interessieren ;-)

Delphi-Quellcode:

uses
  IniFiles;

var
  myIniFile : string; // natürlich als private Variable.


procedure SaveImagePos(aForm: TForm; aFileName : string);
var
  ndx: Integer;
  PositionIni: TMemIniFile;
  CurrentCompo: TComponent;
begin
  PositionIni := TMemIniFile.Create(aFileName);
  try
    for ndx := 0 to Pred(aForm.ComponentCount) do
    begin
      CurrentCompo := aForm.Components[ndx];
      if (CurrentCompo is TImage) then
      begin
        with (CurrentCompo as TImage) do
        begin
          PositionIni.WriteInteger(Name, 'Top', Top);
          PositionIni.WriteInteger(Name, 'Width', Width);
        end;
      end;
    end;
    PositionIni.UpdateFile;
  finally
    PositionIni.free;
  end;
end;

procedure LoadImagePos(aForm: TForm; aFileName : string);
var
  ndx: Integer;
  PositionIni: TMemIniFile;
  CurrentCompo: TComponent;
begin
  PositionIni := TMemIniFile.Create(aFileName);
  try
    for ndx := 0 to Pred(aForm.ComponentCount) do
    begin
      CurrentCompo := aForm.Components[ndx];
      if (CurrentCompo is TImage) then
      begin
        with (CurrentCompo as TImage) do
        begin
          Top := PositionIni.ReadInteger(Name, 'Top', 0);
          Width := PositionIni.ReadInteger(Name, 'Width', 0);
        end;
      end;
    end;
//    PositionIni.UpdateFile; // Das UpDateFile ist beim lesen natürlich blödniss gewesen.
  finally
    PositionIni.free;
  end;
end;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  myIniFile := ExtractFilePath(ParamStr(0)) + 'position.ini';
  if FileExists(myIniFile) then
  begin
    LoadImagePos(self,myIniFile);
  end;
end;

procedure TDemoForm.FormDestroy(Sender: TObject);
begin
  SaveImagePos(self,myIniFile);
end;

[smart]

Zitat:

Zitat von Sharky

Zitat:

Zitat von smart

...Ist, glaube ich auch nicht viel mehr Aufwand, oder? ...

Der Vorteil ist: Dich brauchen die Namen der Images nicht zu interessieren ;-)

Ein toller Code. So wie ich den Code verstehe, kann man damit alle Positionen von allen Comps. speichern.

Heike

[Sharky]

Zitat:

Zitat von smart

... kann man damit alle Positionen von allen Comps. speichern. ...

Mit einer kleinen änderung ist das ganz einfach möglich.

[smart]

Zitat:

Zitat von Sharky

Zitat:

Zitat von smart

... kann man damit alle Positionen von allen Comps. speichern. ...

Mit einer kleinen änderung ist das ganz einfach möglich.

Hallo Stephan,

ich möchte ja nicht meckern, aber so ganz klappt die Wiederherstellung nicht. Es klappt nur wenn ich die Position mehrere cm. verschiebe, wenn es mm sind ändert sich nichts. Obwohl die Positionen richtig gespeichert wurden. Ich werde mal versuchen woran es liegt.

Gruß
Heike

[Sharky]

hihi..

Hai Heike,

Du hast aber bemerkt das ich in meinem Beispiel nur die Eigenschaft Top und Width speichere aber nicht LEFT