Class TGlyphComboBox (unit GlyphCMB)

Inherits from

TComboBox

Constructors


constructor Create(AOwner: TComponent);

public declerations

text first



Functions

procedure AddItemAndGlyph(const Item : String; Glyph : TBitMap);


function AddItemAndGlyphFile(const Item, FileName : String) : Boolean;


procedure Clear;

destructor TGlyphComboBox.

procedure DeleteItemAndGlyph(Index : Integer);


procedure Free;

destructor Destroy; override;

procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure SetAlignment(ta : TAlignment);


procedure SetAlignmentV(ta : TAlignmentV);

update

procedure SetGapGlyph(NewGap : Integer);

update

procedure SetGapText(NewGap : Integer);

update

procedure SeTGlyphAlignH(GPH : TGlyphAlignH);

update

procedure SeTGlyphAlignV(GPV : TGlyphAlignV);

update

procedure SetLinedUpText(Strait : Boolean);

update

procedure SetOrder(NewOrder : TGlyphTextOrder);

update

Properties

property About : TAboutGlyphComboBoxProperty

published declerations

property Alignment : TAlignment


property AlignmentV : TAlignmentV


property GapGlyph : Integer


property GapText : Integer


property GlyphAlignH : TGlyphAlignH


property GlyphAlignV : TGlyphAlignV


property LinedUpText : Boolean


property Order : TGlyphTextOrder


Events

Variables

FMaxWidth : SmallInt;

protected declerations

FAbout : TAboutGlyphComboBoxProperty;

private declerations

FAlignment : TAlignment;


FAlignmentV : TAlignmentV;


FGapGlyph : Integer;


FGapText : Integer;


FGlyphAlignH : TGlyphAlignH;


FGlyphAlignV : TGlyphAlignV;


FLinedUpText : Boolean;


FOrder : TGlyphTextOrder;



Constructors


constructor Create(AOwner: TComponent);

public declerations

text first


Functions


procedure AddItemAndGlyph(const Item : String; Glyph : TBitMap);


function AddItemAndGlyphFile(const Item, FileName : String) : Boolean;


procedure Clear;

destructor TGlyphComboBox.Destroy; var i : Integer; tbmp : TTransBitMap; begin for i := 0 to (Items.Count - 1) do begin tbmp := TTransBitMap(Items.Objects[i]); if Assigned(tbmp) then tbmp.Free; end; inherited destroy; end;


procedure DeleteItemAndGlyph(Index : Integer);


procedure Free;

destructor Destroy; override;


procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure SetAlignment(ta : TAlignment);


procedure SetAlignmentV(ta : TAlignmentV);

update


procedure SetGapGlyph(NewGap : Integer);

update


procedure SetGapText(NewGap : Integer);

update


procedure SeTGlyphAlignH(GPH : TGlyphAlignH);

update


procedure SeTGlyphAlignV(GPV : TGlyphAlignV);

update


procedure SetLinedUpText(Strait : Boolean);

update


procedure SetOrder(NewOrder : TGlyphTextOrder);

update


Properties


property About : TAboutGlyphComboBoxProperty

published declerations


property Alignment : TAlignment


property AlignmentV : TAlignmentV


property GapGlyph : Integer


property GapText : Integer


property GlyphAlignH : TGlyphAlignH


property GlyphAlignV : TGlyphAlignV


property LinedUpText : Boolean


property Order : TGlyphTextOrder


Events


Variables


FMaxWidth : SmallInt;

protected declerations


FAbout : TAboutGlyphComboBoxProperty;

private declerations


FAlignment : TAlignment;


FAlignmentV : TAlignmentV;


FGapGlyph : Integer;


FGapText : Integer;


FGlyphAlignH : TGlyphAlignH;


FGlyphAlignV : TGlyphAlignV;


FLinedUpText : Boolean;


FOrder : TGlyphTextOrder;