config.module

来自「Gambas is a graphical development enviro」· MODULE 代码 · 共 37 行

' Gambas module file

PUBLIC SUB LoadWindow(hWindow AS Window, sKey AS String)

  DIM sPos AS String
  DIM cPos AS String[]

  sPos = Settings[sKey]
  IF NOT sPos THEN RETURN

  cPos = Split(sPos, ",")
  IF cPos.Count = 4 AND hWindow.Border = Window.Resizable THEN
    IF hWindow.Modal THEN
      hWindow.Resize(cPos[2], cPos[3])
    ELSE
      hWindow.Move(cPos[0], cPos[1], cPos[2], cPos[3])
    ENDIF
  ELSE
    IF NOT hWindow.Modal THEN hWindow.Move(cPos[0], cPos[1])
  ENDIF

END


PUBLIC SUB SaveWindow(hWindow AS Window, sKey AS String)

  DIM sPos AS String

  sPos = CStr(hWindow.X) & "," & CStr(hWindow.Y)
  'IF hWindow.Border = Window.Resizable THEN
    sPos = sPos & "," & CStr(hWindow.Width) & "," & CStr(hWindow.Height)
  'ENDIF

  Settings[sKey] = sPos

END