mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-13 13:52:08 +01:00
65 lines
1.6 KiB
ObjectPascal
65 lines
1.6 KiB
ObjectPascal
{$MACRO ON}
|
|
|
|
(******************************************************************************
|
|
*
|
|
* Copyright (c) 1994-2000 Palm, Inc. or its subsidiaries.
|
|
* All rights reserved.
|
|
*
|
|
* File: clipBoard.h
|
|
*
|
|
* Release: Palm OS SDK 4.0 (63220)
|
|
*
|
|
* Description:
|
|
* This file defines clipboard structures and routines.
|
|
*
|
|
* History:
|
|
* September 1, 1994 Created by Art Lamb
|
|
*
|
|
*****************************************************************************)
|
|
|
|
unit clipboard;
|
|
|
|
interface
|
|
|
|
uses palmos, coretraps;
|
|
|
|
const
|
|
numClipboardForamts = 3;
|
|
numClipboardFormats = numClipboardForamts;
|
|
cbdMaxTextLength = 1000;
|
|
|
|
// Clipboard standard formats
|
|
type
|
|
clipboardFormats = Enum;
|
|
|
|
const
|
|
clipboardText = 0;
|
|
clipboardInk = Succ(clipboardText);
|
|
clipboardBitmap = Succ(clipboardInk);
|
|
|
|
type
|
|
ClipboardFormatType = clipboardFormats;
|
|
|
|
type
|
|
ClipboardItem = record
|
|
{$ifdef ALLOW_ACCESS_TO_INTERNALS_OF_CLIPBOARDS} // These fields will not be available in the next OS release!
|
|
item: MemHandle;
|
|
length: UInt16;
|
|
{$endif}
|
|
end;
|
|
ClipboardItemTag = ClipboardItem;
|
|
|
|
//----------------------------------------------------------
|
|
// Clipboard Functions
|
|
//----------------------------------------------------------
|
|
|
|
procedure ClipboardAddItem(const format: ClipboardFormatType; const ptr: Pointer; length: UInt16); syscall sysTrapClipboardAddItem;
|
|
|
|
function ClipboardAppendItem(const format: ClipboardFormatType; const ptr: Pointer; length: UInt16): Err; syscall sysTrapClipboardAppendItem;
|
|
|
|
function ClipboardGetItem(const format: ClipboardFormatType; var length: UInt16): MemHandle; syscall sysTrapClipboardGetItem;
|
|
|
|
implementation
|
|
|
|
end.
|