ffind.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 93 行

# Gambas Form File 1.0

{ FFind Form
  Move(354,46,576,201)
  Text = ("Find & Replace")
  Icon = Picture["img/16/find.png"]
  Persistent = True
  { Label1 Label
    Move(8,8,80,24)
    Text = ("Find")
  }
  { Label2 Label
    Move(8,40,80,24)
    Text = ("Replace")
  }
  { Frame1 Frame
    Move(152,72,264,120)
    Text = ("Options")
    { chkCase CheckBox
      Move(16,24,208,16)
      Text = ("&Case sensitive")
    }
    { chkWord CheckBox
      Move(16,48,216,16)
      Text = ("&Word only")
    }
    { chkComment CheckBox
      Move(16,72,224,16)
      Text = ("Ignore co&mments")
    }
    { chkList CheckBox
      Move(16,96,240,16)
      Text = ("Search &List")
    }
  }
  { btnFind Button
    Move(432,8,136,24)
    Text = ("Find &next")
  }
  { btnReplace Button
    Move(432,72,136,24)
    Text = ("&Replace")
  }
  { btnReplaceAll Button
    Move(432,104,136,24)
    Text = ("Replace &all")
  }
  { frmSearch Frame
    Move(8,72,136,120)
    Text = ("Search in")
    { optProject RadioButton
      Move(16,72,96,16)
      Text = ("Pro&ject")
    }
    { optFile RadioButton
      Move(16,48,96,16)
      Text = ("&File")
      Value = True
    }
    { optProcedure RadioButton
      Move(16,24,96,16)
      Text = ("Proce&dure")
    }
    { chkInForm CheckBox
      Move(16,96,112,16)
      Visible = False
      Enabled = False
      Text = ("In Forms")
    }
  }
  { btnFindPrevious Button
    Move(432,40,136,24)
    Text = ("Find &previous")
  }
  { cmbFind ComboBox
    Move(96,8,320,24)
    Text = ("")
  }
  { cmbReplace ComboBox
    Move(96,40,320,24)
    Text = ("")
  }
  { btnClose Button
    Move(432,136,136,24)
    Text = ("Close")
    Cancel = True
  }
  { cvwFindList ColumnView
    Move(8,200,560,192)
    AutoResize = True
  }
}