PageRenderTime 35ms CodeModel.GetById 31ms app.highlight 3ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/palmunits/src/uicontrols.pp

https://github.com/slibre/freepascal
Puppet | 47 lines | 37 code | 10 blank | 0 comment | 2 complexity | 981ca01ee5bd68a2024184a0dc63886a MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1{$MACRO ON}
 2(******************************************************************************
 3 *
 4 * Copyright (c) 1998-2000 Palm, Inc. or its subsidiaries.
 5 * All rights reserved.
 6 *
 7 * File: UIControls.h
 8 *
 9 * Release: Palm OS SDK 4.0 (63220)
10 *
11 * Description:
12 *                Contrast & brightness control for devices with
13 *                software contrast.
14 *
15 * History:
16 *       Name  Date     Description
17 *       ----  ----     -----------
18 *       bob   02/12/98 Initial version
19 *       bob   03/15/99 Added brightness
20 *       bob   08/27/99 Added UIPickColor, renamed UIControls.h
21 *
22 *****************************************************************************)
23
24unit uicontrols;
25
26interface
27
28uses palmos, coretraps, bitmap, window;
29
30// for UIPickColor
31const
32  UIPickColorStartPalette = 0;
33  UIPickColorStartRGB = 1;
34
35type
36  UIPickColorStartType = UInt16;
37
38procedure UIContrastAdjust; syscall sysTrapUIContrastAdjust;
39
40procedure UIBrightnessAdjust; syscall sysTrapUIBrightnessAdjust;
41
42function UIPickColor(var indexP: IndexedColorType; var rgbP: RGBColorType;
43                    start: UIPickColorStartType; const titleP, tipP: PChar): Boolean; syscall sysTrapUIPickColor;
44
45implementation
46
47end.