Class TfrmRVSEdit (unit RVSEdit)

Inherits from

TForm

----------------------------------------------------------

Constructors



Functions

procedure btnAddClick(Sender: TObject);

--------------------------------------------------------

procedure btnDelClick(Sender: TObject);

--------------------------------------------------------

procedure btnEditClick(Sender: TObject);

--------------------------------------------------------

procedure FormCreate(Sender: TObject);

--------------------------------------------------------

procedure lstDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

--------------------------------------------------------

procedure lstMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

--------------------------------------------------------

procedure SetTextStyles(ATextStyles: TFontInfos);

--------------------------------------------------------

procedure UpdateList;

--------------------------------------------------------

Properties

Events

Variables

Bevel1 : TBevel;


btnAdd : TButton;


btnDel : TButton;


btnEdit : TButton;


btnOk : TButton;


Label1 : TLabel;


lst : TListBox;


Modified : Boolean;

Public declarations

TextStyles : TFontInfos;

Private declarations


Constructors


Functions


procedure btnAddClick(Sender: TObject);

--------------------------------------------------------


procedure btnDelClick(Sender: TObject);

--------------------------------------------------------


procedure btnEditClick(Sender: TObject);

--------------------------------------------------------


procedure FormCreate(Sender: TObject);

--------------------------------------------------------


procedure lstDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

--------------------------------------------------------


procedure lstMeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);

--------------------------------------------------------


procedure SetTextStyles(ATextStyles: TFontInfos);

--------------------------------------------------------


procedure UpdateList;

--------------------------------------------------------


Properties


Events


Variables


Bevel1 : TBevel;


btnAdd : TButton;


btnDel : TButton;


btnEdit : TButton;


btnOk : TButton;


Label1 : TLabel;


lst : TListBox;


Modified : Boolean;

Public declarations


TextStyles : TFontInfos;

Private declarations