| Class TfrmRVSEdit (unit RVSEdit) |
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;
TextStyles : TFontInfos;| 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