home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 September
/
Chip_2001-09_cd1.bin
/
zkuste
/
delphi
/
kolekce
/
d12345
/
MISC.ZIP
/
Checkgrp.hpp
< prev
next >
Wrap
C/C++ Source or Header
|
2001-05-09
|
2KB
|
75 lines
// Borland C++ Builder
// Copyright (c) 1995, 1998 by Borland International
// All rights reserved
// (DO NOT EDIT: machine generated header) 'Checkgrp.pas' rev: 3.00
#ifndef CheckgrpHPP
#define CheckgrpHPP
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Messages.hpp>
#include <Graphics.hpp>
#include <Windows.hpp>
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <SysInit.hpp>
#include <System.hpp>
//-- user supplied -----------------------------------------------------------
namespace Checkgrp
{
//-- type declarations -------------------------------------------------------
typedef Stdctrls::TCheckBox* TCheckBoxArray[1024];
typedef TCheckBoxArray *pCheckBoxArray;
typedef void __fastcall (__closure *TOnBoxClick)(System::TObject* Sender, int Tag);
class DELPHICLASS TCheckGroup;
class PASCALIMPLEMENTATION TCheckGroup : public Stdctrls::TGroupBox
{
typedef Stdctrls::TGroupBox inherited;
private:
Classes::TStringList* FItems;
int FNo_CheckBoxes;
Byte FColumns;
TOnBoxClick FOnBoxClick;
void __fastcall SetColumns(Byte Value);
void __fastcall SetItems(Classes::TStringList* Value);
HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Message);
protected:
virtual void __fastcall DoBoxClick(System::TObject* Sender);
virtual void __fastcall Loaded(void);
void __fastcall SetNoCheckBoxes(int Value);
virtual void __fastcall OnItemsChange(System::TObject* Sender);
public:
TCheckBoxArray *CheckBoxes;
__fastcall virtual TCheckGroup(Classes::TComponent* AOwner);
__fastcall virtual ~TCheckGroup(void);
void __fastcall ArrangeCheckBoxes(void);
__published:
__property Byte Columns = {read=FColumns, write=SetColumns, nodefault};
__property Classes::TStringList* Items = {read=FItems, write=SetItems};
__property TOnBoxClick OnBoxClick = {read=FOnBoxClick, write=FOnBoxClick};
public:
/* TWinControl.CreateParented */ __fastcall TCheckGroup(HWND ParentWindow) : Stdctrls::TGroupBox(ParentWindow
) { }
};
//-- var, const, procedure ---------------------------------------------------
#define TCHECKGROUP_VERSION (Byte)(100)
} /* namespace Checkgrp */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Checkgrp;
#endif
//-- end unit ----------------------------------------------------------------
#endif // Checkgrp