IVO GELOV

object baseFirma: TbaseFirma
  Left = 224
  Top = 600
  Width = 455
  Height = 230
  Caption = 'baseFirma'
  Color = clBtnFace
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object baseGrid: TNextGrid
    Left = 0
    Top = 40
    Width = 447
    Height = 162
    Align = alBottom
    AppearanceOptions = [aoHighlightSlideCells]
    AutoScroll = True
    EnableVisualStyles = False
    HeaderStyle = hsOldStyle
    Options = [goDisableColumnMoving, goGrid, goHeader, goSelectFullRow]
    ReadOnly = True
    PopupMenu = TntPopupMenu1
    TabOrder = 5
    TabStop = True
    object colName: TNxTextColumn
      DefaultWidth = 445
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Header.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      Options = [coAutoSize, coCanSort, coDisableMoving, coPublicUsing, coShowTextFitHint]
      ParentFont = False
      Position = 0
      Sorted = True
      SortType = stAlphabetic
      Width = 445
    end
  end
end

inherited frmUser: TfrmUser
  Left = 297
  Top = 365
  Caption = #1057#1087#1080#1089#1098#1082' '#1089' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1080#1090#1077
  PixelsPerInch = 96
  TextHeight = 13
  inherited baseGrid: TNextGrid
    inherited colName: TNxTextColumn
      DefaultWidth = 285
      Width = 285
    end
    object colRole: TNxTextColumn
      Header.Caption = #1044#1083#1098#1078#1085#1086#1089#1090
      MinWidth = 32
      Options = [coAutoSize, coCanSort, coDisableMoving, coPublicUsing, coShowTextFitHint]
      Position = 1
      SortType = stAlphabetic
    end
    object colActive: TNxCheckBoxColumn
      Alignment = taCenter
      DefaultWidth = 60
      Header.Caption = #1040#1082#1090#1080#1074#1077#1085
      Header.Alignment = taCenter
      MinWidth = 32
      Options = [coAutoSize, coDisableMoving, coPublicUsing]
      Position = 2
      SortType = stBoolean
    end
    object colUser: TNxTextColumn
      Header.Caption = 'Username'
      Position = 3
      SortType = stAlphabetic
      Visible = False
    end
    object colPass: TNxTextColumn
      Header.Caption = 'Password'
      Position = 4
      SortType = stAlphabetic
      Visible = False
    end
  end
end

procedure TNxColumns.UpdatePositionList(AColumn: TNxCustomColumn);
var
  i: Integer;
begin
  { note: this method shift column on right position }
  if FPositionItemsList.Count > 0 then
    for i := 0 to FPositionItemsList.Count - 1 do
    begin

              // ====== fix by IVO GELOV to support VFI ========
      if (AColumn.name<>'') and (AColumn.name = PositionItem[i].name) then
              begin
                PositionItem[i].Assign(AColumn);
                Exit;
              end;
              // ===================================

      if (AColumn.Position < PositionItem[i].Position) then
      begin
        FPositionItemsList.Insert(i, AColumn);
        Exit;
      end;
  end;
  FPositionItemsList.Add(AColumn);
end;