# TFarDialogItem

The FarDialogItem stucture for Delphi:

      TFarPtr = packed record
        PtrFlags: DWORD;
        PtrLength: integer;
        PtrData: PChar;
        PtrTail: array[0..0] of char;
      end;

    TFarDialogItem = packed record
      ItemType: integer;
      X1: integer;
      Y1: integer;
      X2: integer;
      Y2: integer;
      Focus: integer;
      case integer of
        0: (History: PChar);
        1: (Mask: PChar);
        2: (ListItems: PFarListItemArr);
        3: (VBuf: PCharInfo);
        4: (Selected: integer;
            Flags: DWORD;
            DefaultButton: integer;
            case integer of
              0: (Data: packed array[0..511] of char);
              1: (Ptr: TFarPtr)
           );
    end;
    PFarDialogItem = ^TFarDialogItem;