freepascal.compiler/packages/extra/palmunits/privaterecords.pp

{$MACRO ON}

(******************************************************************************
 *
 * Copyright (c) 1996-2000 Palm, Inc. or its subsidiaries.
 * All rights reserved.
 *
 * File: PrivateRecords.h
 *
 * Release: Palm OS SDK 4.0 (63220)
 *
 * Description:
 *   This header file defines a generic private record maintainance dialogs, etc.
 *
 * History:
 *    6/23/99. Created by Craig Skinner
 *
 *****************************************************************************)

unit privaterecords;

interface

uses palmos, coretraps;

// Defines needed for hidden record visual determination.
type
  privateRecordViewEnum = Enum;

const
  showPrivateRecords = $00;
  maskPrivateRecords = Succ(showPrivateRecords);
  hidePrivateRecords = Succ(maskPrivateRecords);

//-----------------------------------------------------------------------
// Prototypes
//-----------------------------------------------------------------------

function SecSelectViewStatus: privateRecordViewEnum; syscall sysTrapSecSelectViewStatus;

function SecVerifyPW(newSecLevel: privateRecordViewEnum): Boolean; syscall sysTrapSecVerifyPW;

implementation

end.