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 Windows::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 Windows::TPoint TfcPolyGonPoints[21];

typedef Windows::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;

struct TfcInteger
{
	int Value;
} ;

class DELPHICLASS TfcAnimateListItem;
class PASCALIMPLEMENTATION TfcAnimateListItem : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Controls::TWinControl* Control;
	Graphics::TBitmap* Bitmap;
	Windows::TRect OrigRect;
	Windows::TRect CurRect;
	Windows::TRect FinalRect;
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
	
};


//-- var, const, procedure ---------------------------------------------------
static const int clNullColor = 0xfffffff;
extern PACKAGE AnsiString fcVersion1stClass;
extern PACKAGE Byte BitMask[8];
static const int fcComCtlVersionIE3 = 0x40046;
static const int fcComCtlVersionIE4 = 0x40047;
static const int fcComCtlVersionIE401 = 0x40048;
#define fcComCtlDllName "comctl32.dll"
extern PACKAGE int __fastcall fcGetComCtlVersion(void);
extern PACKAGE Classes::TShiftState __fastcall fcGetShiftState(void);
extern PACKAGE bool __fastcall fcStrToFloat2(const AnsiString S, Extended &FloatValue, AnsiString DisplayFormat
	);
extern PACKAGE Extended __fastcall fcStrToFloat(AnsiString str, AnsiString DisplayFormat);
extern PACKAGE double __fastcall fcStrToRealDef(const AnsiString S, Extended Default);
extern PACKAGE bool __fastcall fcIsClass(TMetaClass* ClassType, const AnsiString Name);
extern PACKAGE bool __fastcall fcParentGridFocused(Controls::TControl* AControl);
extern PACKAGE bool __fastcall fcIsInwwGrid(Controls::TControl* AControl);
extern PACKAGE bool __fastcall fcIsInwwObjectView(Controls::TWinControl* control);
extern PACKAGE bool __fastcall fcIsInwwObjectViewPaint(Controls::TWinControl* control);
extern PACKAGE bool __fastcall fcIsInwwGridPaint(Controls::TWinControl* control);
extern PACKAGE TwwDBGridOptions __fastcall fcGetGridOptions(Controls::TControl* AControl);
extern PACKAGE void __fastcall fcStripPreceding(AnsiString &s);
extern PACKAGE void __fastcall fcStripTrailing(AnsiString &s);
extern PACKAGE void __fastcall fcStripWhiteSpace(AnsiString &s);
extern PACKAGE void __fastcall fcColorToByteValues(Graphics::TColor AColor, Byte &Reserved, Byte &Blue