最不像 VFP Grid 的 VFP Grid

firstxinjie

发布于 2024-12-06 06:23:46

11800

代码可运行

文章被收录于专栏：X#(XSharp)X#(XSharp)

运行总次数：0

代码可运行

我对 VFP 的 Grid 有一个说法：VFP 中最诡异的控件。

有很多人因为各种原因以使用 VFP 为“耻”。尤其是 Grid 又是最常用的控件之一，它的各种“特征”好像都是 VFP 独有的。因此，才有了下面的代码，使 VFP Grid 看上去不像是 VFP Grid：

基于 Grid 基类创建一个自定义基类，并添加一个名为“Mask”的自定义方法：

If !PemStatus(This.Parent, [tq_shape], 5)
  This.Parent.NewObject([tq_shape], [Shape])

Else
  Thisform.LockScreen = .T.
  This.Parent.tq_shape.visible = .F.
EndIf

With This.Parent.tq_shape As Shape
  .visible = .T.
  .BackColor    = This.BackColor
  .Bordercolor  = This.BackColor
  .BorderWidth  = 0
  .Top  = This.Top + This.HeaderHeight + 1
  .Left  = This.left
  .width   = 0

  For m.i = 1 To This.ColumnCount
    Try
      If  This.Columns(m.i).Visible    And ;
        This.Columns(m.i).Width <> 0  And ;
        Objtoclient(This.Columns(m.i).Objects(1), 3) <> 0
    
        .Left = .Left + This.Columns(m.i).Width + 1
      Endif
    Catch
    Endtry
  Endfor

  .Left  = .Left + Iif(This.RecordMark = .T., 10, 0) + 1

  m.lnWidth = This.Width + This.left - .Left - Iif(Inlist(This.ScrollBars, 2, 3), Sysmetric(5), 0) - 2

  If m.lnWidth > 0
    .Width = m.lnWidth

  Else
    .Width = 0
  EndIf

  .Height = This.Height - This.HeaderHeight - Iif(InList(This.ScrollBars, 1, 3), Sysmetric(8), 0) - 3


  Thisform.LockScreen = .F.
Endwith