-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-custcntl.ads,v $ 

-- $Revision: 1.11 $ $Date: 96/08/14 10:15:29 $ $Author: jr $ 

-- See end of file for Copyright (c) information.



with Win32.Windef;

with Win32.Winnt;



package Win32.Custcntl is



    CCHCCCLASS : constant := 32;                            -- custcntl.h:20

    CCHCCDESC  : constant := 32;                            -- custcntl.h:21

    CCHCCTEXT  : constant := 256;                           -- custcntl.h:22

    CCF_NOTEXT : constant := 16#1#;                         -- custcntl.h:123



    type CCSTYLEA;                                          -- custcntl.h:30

    type CCSTYLEW;                                          -- custcntl.h:38

    type CCSTYLEFLAGA;                                      -- custcntl.h:97

    type CCSTYLEFLAGW;                                      -- custcntl.h:103

    type CCINFOA;                                           -- custcntl.h:131

    type CCINFOW;                                           -- custcntl.h:149



    type LPCCSTYLEA is access all CCSTYLEA;                 -- custcntl.h:36

    subtype LPCCSTYLE is LPCCSTYLEA;                        -- custcntl.h:51

    type LPCCSTYLEW is access all CCSTYLEW;                 -- custcntl.h:44

    type LPCCSTYLEFLAGA is access all CCSTYLEFLAGA;         -- custcntl.h:101

    subtype LPCCSTYLEFLAG is LPCCSTYLEFLAGA;                -- custcntl.h:114

    type LPCCSTYLEFLAGW is access all CCSTYLEFLAGW;         -- custcntl.h:107

    type LPCCINFOA is access all CCINFOA;                   -- custcntl.h:147

    subtype LPCCINFO is LPCCINFOA;                          -- custcntl.h:172

    type LPCCINFOW is access all CCINFOW;                   -- custcntl.h:165

                                                        

    type CCSTYLEA is                                        -- custcntl.h:30

        record

            flStyle   : Win32.DWORD;                        -- custcntl.h:31

            flExtStyle: Win32.DWORD;                        -- custcntl.h:32

            szText    : Win32.CHAR_Array(0..CCHCCTEXT-1);   -- custcntl.h:33

            lgid      : Win32.Winnt.LANGID;                 -- custcntl.h:34

            wReserved1: Win32.WORD;                         -- custcntl.h:35

        end record;



    subtype CCSTYLE is CCSTYLEA;                            -- custcntl.h:50



    type CCSTYLEW is                                        -- custcntl.h:38

        record

            flStyle   : Win32.DWORD;                        -- custcntl.h:39

            flExtStyle: Win32.DWORD;                        -- custcntl.h:40

            szText    : Win32.WCHAR_Array(0..CCHCCTEXT-1);  -- custcntl.h:41

            lgid      : Win32.Winnt.LANGID;                 -- custcntl.h:42

            wReserved1: Win32.WORD;                         -- custcntl.h:43

        end record;



    type LPFNCCSTYLEA is access function (

                hwndParent: Win32.Windef.HWND;

                pccs      : LPCCSTYLEA)

               return Win32.BOOL;                           -- custcntl.h:62

    pragma Convention(Stdcall, LPFNCCSTYLEA);

    subtype LPFNCCSTYLE is LPFNCCSTYLEA;                    -- custcntl.h:68

    type LPFNCCSTYLEW is access function (

                hwndParent: Win32.Windef.HWND;

                pccs      : LPCCSTYLEW)

               return Win32.BOOL;                           -- custcntl.h:63

    pragma Convention(Stdcall, LPFNCCSTYLEW);

    type LPFNCCSIZETOTEXTA is access function (

                flStyle   : Win32.DWORD;

                flExtStyle: Win32.DWORD;

                hfont     : Win32.Windef.HFONT;

                pszText   : Win32.LPSTR)

               return Win32.INT;                            -- custcntl.h:80

    pragma Convention(Stdcall, LPFNCCSIZETOTEXTA);

    subtype LPFNCCSIZETOTEXT is LPFNCCSIZETOTEXTA;          -- custcntl.h:88

    type LPFNCCSIZETOTEXTW is access function (

                flStyle   : Win32.DWORD;

                flExtStyle: Win32.DWORD;

                hfont     : Win32.Windef.HFONT;

                pszText   : Win32.LPWSTR)

               return Win32.INT;                            -- custcntl.h:82

    pragma Convention(Stdcall, LPFNCCSIZETOTEXTW);



    type CCSTYLEFLAGA is                                    -- custcntl.h:97

        record

            flStyle    : Win32.DWORD;                       -- custcntl.h:98

            flStyleMask: Win32.DWORD;                       -- custcntl.h:99

            pszStyle   : Win32.LPSTR;                       -- custcntl.h:100

        end record;



    subtype CCSTYLEFLAG is CCSTYLEFLAGA;                    -- custcntl.h:113



    type CCSTYLEFLAGW is                                    -- custcntl.h:103

        record

            flStyle    : Win32.DWORD;                       -- custcntl.h:104

            flStyleMask: Win32.DWORD;                       -- custcntl.h:105

            pszStyle   : Win32.LPWSTR;                      -- custcntl.h:106

        end record;



    type CCINFOA is                                         -- custcntl.h:131

        record

            szClass          : Win32.CHAR_Array(0..31);     -- custcntl.h:132

            flOptions        : Win32.DWORD;                 -- custcntl.h:133

            szDesc           : Win32.CHAR_Array(0..31);     -- custcntl.h:134

            cxDefault        : Win32.UINT;                  -- custcntl.h:135

            cyDefault        : Win32.UINT;                  -- custcntl.h:136

            flStyleDefault   : Win32.DWORD;                 -- custcntl.h:137

            flExtStyleDefault: Win32.DWORD;                 -- custcntl.h:138

            flCtrlTypeMask   : Win32.DWORD;                 -- custcntl.h:139

            szTextDefault    : Win32.CHAR_Array(0..CCHCCTEXT-1);

                                                            -- custcntl.h:140

            cStyleFlags      : Win32.INT;                   -- custcntl.h:141

            aStyleFlags      : LPCCSTYLEFLAGA;              -- custcntl.h:142

            lpfnStyle        : LPFNCCSTYLEA;                -- custcntl.h:143

            lpfnSizeToText   : LPFNCCSIZETOTEXTA;           -- custcntl.h:144

            dwReserved1      : Win32.DWORD;                 -- custcntl.h:145

            dwReserved2      : Win32.DWORD;                 -- custcntl.h:146

        end record;



    subtype CCINFO is CCINFOA;                              -- custcntl.h:171

                                                        

    type CCINFOW is                                         -- custcntl.h:149

        record

            szClass          : Win32.WCHAR_Array(0..CCHCCCLASS-1);

                                                            -- custcntl.h:150

            flOptions        : Win32.DWORD;                 -- custcntl.h:151

            szDesc           : Win32.WCHAR_Array(0..CCHCCDESC-1);

                                                            -- custcntl.h:152

            cxDefault        : Win32.UINT;                  -- custcntl.h:153

            cyDefault        : Win32.UINT;                  -- custcntl.h:154

            flStyleDefault   : Win32.DWORD;                 -- custcntl.h:155

            flExtStyleDefault: Win32.DWORD;                 -- custcntl.h:156

            flCtrlTypeMask   : Win32.DWORD;                 -- custcntl.h:157

            cStyleFlags      : Win32.INT;                   -- custcntl.h:158

            aStyleFlags      : LPCCSTYLEFLAGW;              -- custcntl.h:159

            szTextDefault    : Win32.WCHAR_Array(0..CCHCCTEXT-1);

                                                            -- custcntl.h:160

            lpfnStyle        : LPFNCCSTYLEW;                -- custcntl.h:161

            lpfnSizeToText   : LPFNCCSIZETOTEXTW;           -- custcntl.h:162

            dwReserved1      : Win32.DWORD;                 -- custcntl.h:163

            dwReserved2      : Win32.DWORD;                 -- custcntl.h:164

        end record;



    type LPFNCCINFOA is access function (

                acci: LPCCINFOA)

               return Win32.UINT;                           -- custcntl.h:194

    pragma Convention(Stdcall, LPFNCCINFOA);



    subtype LPFNCCINFO is LPFNCCINFOA;                      -- custcntl.h:200



    type LPFNCCINFOW is access function (

                acci: LPCCINFOW)

               return Win32.UINT;                           -- custcntl.h:195

    pragma Convention(Stdcall, LPFNCCINFOW);



private



    pragma Convention(C, CCSTYLEA);                         -- custcntl.h:30

    pragma Convention(C, CCSTYLEW);                         -- custcntl.h:38

    pragma Convention(C, CCSTYLEFLAGA);                     -- custcntl.h:97

    pragma Convention(C, CCSTYLEFLAGW);                     -- custcntl.h:103

    pragma Convention(C, CCINFOA);                          -- custcntl.h:131

    pragma Convention(C, CCINFOW);                          -- custcntl.h:149



-------------------------------------------------------------------------------

--

-- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE

-- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING

-- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR

-- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to

-- the accuracy and the use of this file.  This file may be used, copied,

-- modified and distributed only by licensees of Microsoft Corporation's

-- WIN32 Software Development Kit in accordance with the terms of the 

-- licensee's End-User License Agreement for Microsoft Software for the

-- WIN32 Development Kit.

--

-- Copyright (c) Intermetrics, Inc. 1995

-- Portions (c) 1985-1994 Microsoft Corporation with permission.

-- Microsoft is a registered trademark and Windows and Windows NT are

-- trademarks of Microsoft Corporation.

--

-------------------------------------------------------------------------------



end Win32.Custcntl;