fccommon.hpp

一套及时通讯的原码

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'fcCommon.pas' rev: 5.00

#ifndef fcCommonHPP
#define fcCommonHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ComCtrls.hpp>	// Pascal unit
#include <fcBitmap.hpp>	// Pascal unit
#include <CommCtrl.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Fccommon
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TfcPointSet { psGlyph, psText, psOffset };
#pragma option pop

typedef Set<TfcPointSet, psGlyph, psOffset>  TfcPointSets;

typedef void __fastcall (__closure *TfcProcMeth)(void);

typedef bool __fastcall (__closure *TfcBoolFunc)(void);

typedef void __fastcall (__closure *TfcSetBoundsProc)(Controls::TWinControl* Control, const Types::TRect &Rect);

#pragma option push -b-
enum TfcLayout { loVertical, loHorizontal };
#pragma option pop

#pragma option push -b-
enum TfcFontType { ftPrinter, ftTrueType, ftOther };
#pragma option pop

typedef TfcFontType *PfcFontType;

typedef Types::TPoint TfcPolyGonPoints[21];

typedef Types::TPoint *PfcPolyGonPoints;

#pragma option push -b-
enum TwwDBGridOption { dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowFixedLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgMultiSelect };
#pragma option pop

typedef Set<TwwDBGridOption, dgEditing, dgMultiSelect>  TwwDBGridOptions;

typedef int __fastcall (*TwwListSortCompare)(AnsiString Item1, AnsiString Item2);

typedef AnsiString __fastcall (*TwwGetCompareString)(Classes::TStrings* SList, int Index);

#pragma option push -b-
enum TfcOrientation { fcTopLeft, fcTopRight, fcBottomLeft, fcBottomRight, fcTop, fcRight, fcLeft, fcBottom };
#pragma option pop

typedef TfcOrientation TfcDiagonals;

typedef TfcOrientation TfcStraights;

#pragma option push -b-
enum TfcGetWordOption { fcgwSkipLeadingBlanks, fcgwQuotesAsWords, fcgwStripQuotes, fcgwSpacesInWords };
#pragma option pop

typedef Set<TfcGetWordOption, fcgwSkipLeadingBlanks, fcgwSpacesInWords>  TfcGetWordOptions;

typedef Set<char, 0, 255>  fcstrCharSet;

#pragma pack(push, 4)
struct TfcInteger
{
	int Value;
} ;
#pragma pack(pop)

class DELPHICLASS TfcAnimateListItem;
class PASCALIMPLEMENTATION TfcAnimateListItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Controls::TWinControl* Control;
	Graphics::TBitmap* Bitmap;
	#pragma pack(push, 1)
	Types::TRect OrigRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect CurRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect FinalRect;
	#pragma pack(pop)
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TfcAnimateListItem(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfcAnimateListItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TfcGroupAnimateItem;
class PASCALIMPLEMENTATION TfcGroupAnimateItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	TfcAnimateListItem* MainItem;
	TfcAnimateListItem* SecondItem;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TfcGroupAnimateItem(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TfcGroupAnimateItem(void) { }
	#pragma option pop
	
};