All pastes #391122 Raw Edit

Untitled

public text v1 · immutable
·published 2007-03-11 22:14 UTC
rendered paste body
Procedure TCSettingsFunctions.SavePosition;
Var
  sINI  : TIniFile;
Begin
  sINI := TIniFile.Create('./Settings.ini');
  sINI.WriteInteger('InterFace', 'X', Form1.Left);
  sINI.WriteInteger('InterFace', 'Y', Form1.Top);
End;

Procedure TCSettingsFunctions.LoadPositions;
Var
  sINI  : TIniFile;
Begin
  If SavePositions = 1 Then
  Begin
    sINI := TIniFile.Create('/.Settings.ini');
    Form1.Left := sINI.ReadInteger('InterFace', 'X', 0);
    Form1.Top  := sINI.ReadInteger('InterFace', 'Y', 0);
  End;
End;