vishal.tiwari Posted March 11, 2016 Share Posted March 11, 2016 Hi Is there any alternate ways to get workaround for below properties of Delphi's TTrackBar? PositionToolTip SelEnd SelStart ShowSelRange SliderVisible ThumbLength TickMarks TickStyle Thanks In Advance. Vishal Quote Link to comment Share on other sites More sharing options...
vishal.tiwari Posted March 18, 2016 Author Share Posted March 18, 2016 Any Idea? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 18, 2016 Share Posted March 18, 2016 Hi, We will try analyze it.. Best regards. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 18, 2016 Share Posted March 18, 2016 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. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted March 18, 2016 Share Posted March 18, 2016 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.