Class TMyDBRadioGroup (unit MyGroup)

Inherits from

TCustomRadioGroup

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Paint;


procedure UpdateMyRadioGroup(Sender: TObject);


function CanModify: Boolean;

code which allows you to type first character of an item in the item list

procedure Change;


procedure Click;


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CaptionFontChanged(Sender: TObject);


procedure CMExit(var Message: TCMExit);


procedure CMFontChanged(var message: TMessage);


procedure CMParentFontChanged(var message: TMessage);


procedure DataChange(Sender: TObject);


function GetButtonValue(Index: Integer): string;


function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


function GetValue: string;


procedure SetCaptionFont(Value: TFont);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetItems(Value: TStrings);


procedure SetReadOnly(Value: Boolean);


procedure SetSearchFirstChar(A: Boolean);


procedure SetShowFrame(A: Boolean);


procedure SetValue(const Value: string);


procedure SetValues(Value: TStrings);


procedure UpdateData(Sender: TObject);


Properties

property Align :


property Caption :


property CaptionFont : TFont


property Color :


property Columns :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Items :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly : Boolean


property SearchFirstChar : Boolean


property ShowFrame : Boolean


property ShowHint :


property TabOrder :


property TabStop :


property Values : TStrings


property Visible :


property Field : TField


property ItemIndex :


property Value : string


property DataLink : TFieldDataLink


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


Variables

FCaptionFont : TFont;


FDataLink : TFieldDataLink;


FIndex : Integer;


FOnChange : TNotifyEvent;


FSearchFirstChar : Boolean;


FSelfChangingCaptionFont : Boolean;


FShowFrame : Boolean;


FValue : PString;


FValues : TStrings;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Paint;


procedure UpdateMyRadioGroup(Sender: TObject);


function CanModify: Boolean;

code which allows you to type first character of an item in the item list


procedure Change;


procedure Click;


procedure KeyPress(var Key: Char);


procedure Notification(AComponent: TComponent; Operation: TOperation);


procedure CaptionFontChanged(Sender: TObject);


procedure CMExit(var Message: TCMExit);


procedure CMFontChanged(var message: TMessage);


procedure CMParentFontChanged(var message: TMessage);


procedure DataChange(Sender: TObject);


function GetButtonValue(Index: Integer): string;


function GetDataField: string;


function GetDataSource: TDataSource;


function GetField: TField;


function GetReadOnly: Boolean;


function GetValue: string;


procedure SetCaptionFont(Value: TFont);


procedure SetDataField(const Value: string);


procedure SetDataSource(Value: TDataSource);


procedure SetItems(Value: TStrings);


procedure SetReadOnly(Value: Boolean);


procedure SetSearchFirstChar(A: Boolean);


procedure SetShowFrame(A: Boolean);


procedure SetValue(const Value: string);


procedure SetValues(Value: TStrings);


procedure UpdateData(Sender: TObject);


Properties


property Align :


property Caption :


property CaptionFont : TFont


property Color :


property Columns :


property Ctl3D :


property DataField : string


property DataSource : TDataSource


property DragCursor :


property DragMode :


property Enabled :


property Font :


property Items :


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ReadOnly : Boolean


property SearchFirstChar : Boolean


property ShowFrame : Boolean


property ShowHint :


property TabOrder :


property TabStop :


property Values : TStrings


property Visible :


property Field : TField


property ItemIndex :


property Value : string


property DataLink : TFieldDataLink


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


Variables


FCaptionFont : TFont;


FDataLink : TFieldDataLink;


FIndex : Integer;


FOnChange : TNotifyEvent;


FSearchFirstChar : Boolean;


FSelfChangingCaptionFont : Boolean;


FShowFrame : Boolean;


FValue : PString;


FValues : TStrings;