| Class TRkTabStopEditDlg (unit RkTabEdt) |
TForm
| Constructors |
| Functions |
procedure BtnAddClick( Sender : TObject );
procedure BtnDeleteClick( Sender : TObject );
procedure FormCreate( Sender : TObject );
procedure FormShow( Sender : TObject );
procedure LstTabsClick( Sender : TObject );
procedure TrkTabPosChange( Sender : TObject );| Properties |
| Events |
| Variables |
BtnAdd : TBitBtn;
BtnCancel : TButton;
BtnDelete : TBitBtn;
BtnOK : TButton;
GrpPreview : TGroupBox;
GrpTabStops : TGroupBox;
Label3 : TLabel;
LblMax : TLabel;
LblMin : TLabel;
LblTabNum : TLabel;
LstPreview : TRkTabbedListBox;
LstTabs : TListBox;
TrkTabPos : TRkTrackBar;
FUpdating : Boolean;| Constructors |
| Functions |
procedure BtnAddClick( Sender : TObject );
procedure BtnDeleteClick( Sender : TObject );Update the track bar
procedure FormCreate( Sender : TObject );= TRkTabStopProperty.Edit =} {===============================} {== TRkTabStopEditDlg Methods ==} {===============================
procedure FormShow( Sender : TObject );Update TrackBar position to reflect currently selected tab stop
procedure LstTabsClick( Sender : TObject );========================================================================= TRkTabStopEditDlg.LstTabsClick This method updates the Min and Max values of the track bar to reflect the range a particular tab stop may move. A tab stop may not move past a tab stop that exists before or after it in the list. Setting the track bar range ensures that this cannot happen. The FUpdating flag is set at the beginning of this method to prevent a change in the TrackBar's Min or Max value from causing the TrkTabPosChange event from altering the display. =========================================================================
procedure TrkTabPosChange( Sender : TObject );========================================================================= TRkTabStopEditDlg.TrkTabPosChange As the track bar is moved, the value of the selected tab stop is updated. The change is immediately reflected in the tab and preview list boxes. =========================================================================
| Properties |
| Events |
| Variables |
BtnAdd : TBitBtn;
BtnCancel : TButton;
BtnDelete : TBitBtn;
BtnOK : TButton;
GrpPreview : TGroupBox;
GrpTabStops : TGroupBox;
Label3 : TLabel;
LblMax : TLabel;
LblMin : TLabel;
LblTabNum : TLabel;
LstPreview : TRkTabbedListBox;
LstTabs : TListBox;
TrkTabPos : TRkTrackBar;
FUpdating : Boolean;