All pastes #391119 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-03-11 22:11 UTC
rendered paste body
Procedure TCSettingsFunctions.LoadPositions;
Var
  X     : Integer;
  Y     : Integer;
  sINI  : TIniFile;
Begin
  If SavePositions = 1 Then
  Begin
    sINI := TIniFile.Create('/.Settings.ini');
    X    := sINI.ReadInteger('InterFace', 'X', 0);
    Y    := sINI.ReadInteger('InterFace', 'Y', 0);

    Form1.Left := X;
    Form1.Top  := Y;
  End;
End;