| Class TGlyphComboBox (unit GlyphCMB) |
TComboBox
| Constructors |
constructor Create(AOwner: TComponent);text first
| Functions |
procedure AddItemAndGlyph(const Item : String; Glyph : TBitMap);
function AddItemAndGlyphFile(const Item, FileName : String) : Boolean;
procedure Clear;
procedure DeleteItemAndGlyph(Index : Integer);
procedure Free;
procedure DrawItem(Index: Integer; Rect: TRect; State: TOwnerDrawState);
procedure SetAlignment(ta : TAlignment);
procedure SetAlignmentV(ta : TAlignmentV);
procedure SetGapGlyph(NewGap : Integer);
procedure SetGapText(NewGap : Integer);
procedure SeTGlyphAlignH(GPH : TGlyphAlignH);
procedure SeTGlyphAlignV(GPV : TGlyphAlignV);
procedure SetLinedUpText(Strait : Boolean);
procedure SetOrder(NewOrder : TGlyphTextOrder);| Properties |
property About : TAboutGlyphComboBoxProperty
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;
FAbout : TAboutGlyphComboBoxProperty;
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 : TAboutGlyphComboBoxPropertypublished 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;