Any Alternate ways for Delphi's TTracBar properties: PositionToolTip, SelEnd, SelStart, ShowSelRange, SliderVisible, ThumbLength, TickMarks, TickStyle

[vishal.tiwari]

Hi

 

Is there any alternate ways to get workaround for below properties of Delphi's TTrackBar?

 

1. PositionToolTip
2. SelEnd
3. SelStart
4. ShowSelRange
5. SliderVisible
6. ThumbLength
7. TickMarks
8. TickStyle

 

Thanks In Advance.

 

Vishal

[vishal.tiwari]

Any Idea?

[Sherzod]

Hi,

 

We will try analyze it..

 

Best regards.

[Sherzod]

Hi,

Regarding the "PositionToolTip", for now we can use like this:

function beforeInit(sender, config)
{
  config.useTips = true;
  // tipText - function used to display custom text for the slider tip
  config.tipText = function(thumb){
    return Ext.String.format('{0}% complete', thumb.value);
  }
}

Best regards.

[Sherzod]

Hi,

 

"SliderVisible", for now exemplary implementation:

procedure TMainForm.SliderVisible(AUniTrackBar: TUniTrackBar; AVisible: Boolean);
var
  HideOrShow: string;
begin
  if AVisible then
    HideOrShow := '.show();'
  else
    HideOrShow := '.hide();';

  UniSession.AddJS(AUniTrackBar.JSName + '.el.select(''.x-slider-thumb'').elements.forEach(function(el){Ext.get(el)'+ HideOrShow +'});'+
                   AUniTrackBar.JSName + '.disabled = '+ BoolToStr(not AVisible) +';');
end;

procedure TMainForm.UniButton4Click(Sender: TObject);
begin
  SliderVisible(UniTrackBar2, False);
end;

procedure TMainForm.UniButton5Click(Sender: TObject);
begin
  SliderVisible(UniTrackBar2, True);
end;

Best regards.