unit tiGUIINI;

{$mode objfpc}{$H+}

{
  TODO:
    * When TfpgForm supports FormState property, implement the remaining functions
}

interface
uses
  tiINI
  ,gui_form
  ;

type

  TtiGUIINIFile = class(TtiINIFile)
  public
    procedure   ReadFormState(AForm: TfpgForm; AHeight: integer = -1; AWidth: integer = -1);
    procedure   WriteFormState(AForm : TfpgForm);
  end;

function GGUIINI(const AFileName: string = ''): TtiGUIINIFile;

implementation
uses
  fpgfx
  ;

var
  uGUIINI : TtiGUIINIFile;


function GGUIINI(const AFileName: string = ''): TtiGUIINIFile;
begin
  if UGUIINI = nil then
    UGUIINI := TtiGUIINIFile.CreateExt(AFileName);
  result := UGUIINI;
end;

procedure TtiGUIINIFile.ReadFormState(AForm: TfpgForm; AHeight : integer = -1; AWidth : integer = -1);
var
  LINISection : string;
  LTop : integer;
  LLeft : integer;
  LHeight : integer;
  LWidth : integer;
begin
  Assert(AForm <> nil, 'pForm not assigned');
  LINISection := AForm.Name + 'State';
  // Read form position, -1 if not stored in registry
  LTop := readInteger(LINISection, 'Top',    -1);
  LLeft := readInteger(LINISection, 'Left',   -1);
  // The form pos was found in the registr
  if (LTop <> -1) and (LLeft <> -1) then
  begin
    AForm.Top   := readInteger(LINISection, 'Top',    AForm.Top);
    AForm.Left  := readInteger(LINISection, 'Left',   AForm.Left);
    AForm.WindowPosition := wpUser;
  // No form pos in the registry, so default to screen center
  end
  else
  begin
    if Assigned(fpgApplication.MainForm) and (fpgApplication.MainForm <> AForm) then
      AForm.WindowPosition := wpAuto
    else
      AForm.WindowPosition := wpScreenCenter;
  end;
  // Only set the form size if a bsSizable window
  if AForm.Sizeable then
  begin
    if AHeight = -1 then
      LHeight := AForm.Height
    else
      LHeight := AHeight;
    if AWidth = -1 then
      LWidth := AForm.Width
    else
      LWidth := AWidth;
    AForm.Height  := readInteger(LINISection, 'Height', LHeight);
    AForm.Width   := readInteger(LINISection, 'Width',  LWidth);
  end;
//  AForm.WindowState := TWindowState(ReadInteger(LINISection, 'WindowState', ord(wsNormal)));

  // If the form is off screen (positioned outside all monitor screens) then
  // center the form on screen.
  //{$IFDEF MSWINDOWS}
  //if (AForm.FormStyle <> fsMDIChild) {$IFNDEF FPC} and tiFormOffScreen(AForm) {$ENDIF} then
  //begin
    //if Assigned(Application.MainForm) and (Application.MainForm <> AForm) then
      //AForm.Position := poMainFormCenter
    //else
      //AForm.Position:= poScreenCenter;
  //end;
  //{$ENDIF MSWINDOWS}
end;

procedure TtiGUIINIFile.WriteFormState(AForm: TfpgForm);
var
  LINISection: string;
begin
  LINISection := AForm.Name + 'State';
//  writeInteger(LINISection, 'WindowState', ord(AForm.WindowState));
//  if AForm.WindowState = wsNormal then
//  begin
    writeInteger(LINISection, 'Top',    AForm.Top);
    writeInteger(LINISection, 'Left',   AForm.Left);
    if AForm.Sizeable then
    begin
      writeInteger(LINISection, 'Height', AForm.Height);
      WriteInteger(LINISection, 'Width',  AForm.Width);
    end;
//  end;
end;

initialization
  uGUIINI := nil;

finalization
  uGUIINI.Free;

end.