Frequently Asked Component Specific Questions
Options |
|
Display all FAQ items |
Displaying items 1 to 1 of 1, page 1 of 1
<< previous next >>
TDBAdvTrackBarDisplaying custom tickmarks
Using the event OnGetTickMarkText it is easy to customize the value that is displayed for each tickmark on the TAdvTrackbar. This event is triggered for every tickmark to be displayed. In the example code snippet, this formats values as 0.1,0.2,0.3 etc....
procedure TForm1.FormCreate(Sender: TObject);
begin
advtrackbar1.TickMark.ShowText := true;
end;
procedure TForm1.AdvTrackBar1GetTickMarkText(Sender: TObject; Index: Integer;
var value: string);
var
v: double;
begin
v := 0.1 * index;
value := Format('%.1f',[v]);
end;