uflxformats.hpp

来自「TMSPack基本上涵盖了Delphi所有的基础控件」· HPP 代码 · 共 124 行

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Uflxformats.pas' rev: 10.00

#ifndef UflxformatsHPP
#define UflxformatsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit

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

namespace Uflxformats
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum THFlxAlignment { fha_general, fha_left, fha_center, fha_right, fha_fill, fha_justify, fha_center_across_selection };
#pragma option pop

#pragma option push -b-
enum TVFlxAlignment { fva_top, fva_center, fva_bottom, fva_justify };
#pragma option pop

#pragma option push -b-
enum TFlxBorderStyle { fbs_None, fbs_Thin, fbs_Medium, fbs_Dashed, fbs_Dotted, fbs_Thick, fbs_Double, fbs_Hair, fbs_Medium_dashed, fbs_Dash_dot, fbs_Medium_dash_dot, fbs_Dash_dot_dot, fbs_Medium_dash_dot_dot, fbs_Slanted_dash_dot };
#pragma option pop

typedef Shortint TFlxPatternStyle;

#pragma option push -b-
enum TFlxDiagonalBorder { fdb_None, fdb_DiagDown, fdb_DiagUp, fdb_Both };
#pragma option pop

#pragma option push -b-
enum TFlxFontStyle { flsBold, flsItalic, flsStrikeOut, flsSuperscript, flsSubscript };
#pragma option pop

#pragma option push -b-
enum TFlxUnderline { fu_None, fu_Single, fu_Double, fu_SingleAccounting, fu_DoubleAccounting };
#pragma option pop

typedef Set<TFlxFontStyle, flsBold, flsSubscript>  SetOfTFlxFontStyle;

struct TFlxFont
{
	
public:
	WideString Name;
	Word Size20;
	int ColorIndex;
	SetOfTFlxFontStyle Style;
	TFlxUnderline Underline;
	Byte Family;
	Byte CharSet;
} ;

struct TFlxOneBorder
{
	
public:
	TFlxBorderStyle Style;
	int ColorIndex;
} ;

struct TFlxBorders
{
	
public:
	TFlxOneBorder Left;
	TFlxOneBorder Right;
	TFlxOneBorder Top;
	TFlxOneBorder Bottom;
	TFlxOneBorder Diagonal;
	TFlxDiagonalBorder DiagonalStyle;
} ;

struct TFlxFillPattern
{
	
public:
	TFlxPatternStyle Pattern;
	int FgColorIndex;
	int BgColorIndex;
} ;

struct TFlxFormat
{
	
public:
	TFlxFont Font;
	TFlxBorders Borders;
	WideString Format;
	TFlxFillPattern FillPattern;
	THFlxAlignment HAlignment;
	TVFlxAlignment VAlignment;
	bool Locked;
	bool Hidden;
	int Parent;
	bool WrapText;
	bool ShrinkToFit;
	Byte Rotation;
	Byte Indent;
} ;

typedef TFlxFormat *PFlxFormat;

//-- var, const, procedure ---------------------------------------------------

}	/* namespace Uflxformats */
using namespace Uflxformats;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Uflxformats