Class TfrmRVSEdit (unit RVSEdit) |
Inherits from
TForm
----------------------------------------------------------
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;
--------------------------------------------------------
Bevel1 : TBevel;
btnAdd : TButton;
btnDel : TButton;
btnEdit : TButton;
btnOk : TButton;
Label1 : TLabel;
lst : TListBox;
Modified : Boolean;
Public declarations
TextStyles : TFontInfos;
Private declarations
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;
--------------------------------------------------------
Bevel1 : TBevel;
btnAdd : TButton;
btnDel : TButton;
btnEdit : TButton;
btnOk : TButton;
Label1 : TLabel;
lst : TListBox;
Modified : Boolean;
Public declarations
TextStyles : TFontInfos;
Private declarations