alles auf einmal speichern?

[smart]

Hallo!

ich habe hier eine Form mit 20 TImges, 15 TEdit und 5 TMemo. Alle sind frei beweglich. Um Die Postionen zu speichern müste ich alles einzelen speichern. Gibt es hier eine Möglichkeit alles in einem Rutsch zu speichern.

[Luckie]

FindComponente?

[p80286]

Zitat:

Zitat von smart (Beitrag 1135167)

ich habe hier eine Form mit 20 TImges, 15 TEdit und 5 TMemo. Alle sind frei beweglich.

Da diese Komponenten nicht in Relation zueinander stehen, wird Dir wohl nichts anderes übrig bleiben, als die notwendigen Abmessungen und Koordinaten für jede Komponente zu speichern.
Auf einen Rutsch? alles in einen Buffer packen und dann weg damit?

Gruß
K-H

[smart]

Zitat:

Zitat von p80286 (Beitrag 1135171)

Auf einen Rutsch? alles in einen Buffer packen und dann weg damit?

Das mit dem Rutsch war nur sybolisch gemeint. Ich meinte mit einer routine oö. alles zugleich ab zu speichern. Vorallen, mit wenig Aufwand.

[sx2008]

Schreib dir eine Funktion, die ein TIniFile-Objekt und ein TControl-Objekt entgegennimmt:

Delphi-Quellcode:

procedure TTMainForm.SaveControlProsition(ini:TIniFile; control:TControl);
begin
  ..
end;

TImge,TEdit und TMemo sind ja alle von TControl abgeleitet.
Die Koordinaten kann man über die Properties Top und Left auslesen und zuammen mit dem Namen des Controls in der Ini-Datei speichern.

In der Komponentensammlung RxLib und JVCL gibt es übrigens eine Komponente (TFormStorage),
mit der du die Positionen ohne Programmieraufwand speichern und laden kannst.

[v2afrank]

JvDesignUtils einbinden und über

Delphi-Quellcode:

procedure DesignSaveComponentToFile(AComp: TComponent; const AFileName: string);
var
  FS: TFileStream;
begin
  FS := TFileStream.Create(AFileName, fmCreate);
  try
    DesignSaveComponentToStream(AComp, FS);
  finally
    FS.Free;
  end;
end;

speichern

[ConnorMcLeod]

oder mit Delphi-Boardmitteln: die komplette Form auf einmal speichern. Das Laden ist Hausaufgabe ;-)

Delphi-Quellcode:

var
  BinStream: TMemoryStream;
  StrStream: TStringStream;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create('');
    try
      BinStream.WriteComponent(Form1);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      StrStream.SaveToFile('d:\temp\text.txt');
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;