ScrollBox1.VertScrollBar.ButtonSize چیست؟

[nassim_20]

ظاهرا این کد باید اندازه button مربوط به ScrollBox (دکمه لغزنده) رو برگردونه ولی برای من عدد صفر رو برمی گردونه
من اندازه این دکمه رو می خوام با چه دستوری باید اونو پیدا کنم

[nassim_20]

چی شد؟ کسی تا به حال به این موضوع برخورد نکرده؟؟؟؟؟؟؟؟

[Felony]

تو تنضیمات ببین مقدار پیش فرضش 0 هست پس برنامه درست بر میگردونه .
میتونی طول نوار لغزنده رو با یه کلکی به دست بیاری من خودم اینطوری نوشتمش درست کار میکنه :


var
Size,Temp:Integer;
begin
Temp:=ScrollBox1.HorzScrollBar.Position;
ScrollBox1.HorzScrollBar.Position:=ScrollBox1.Horz ScrollBar.Range;
Size:=ScrollBox1.HorzScrollBar.Range - ScrollBox1.HorzScrollBar.Position;
ScrollBox1.HorzScrollBar.Position:=Temp;
Form1.Caption:=InttoStr(Size);
end;

[nassim_20]

ممنون دوست عزیز ولی این کدی که شما دادی همیشه عددی بدست می دهد که معادل ارتفاع ScrollBox است و نیازی به محاسبه ندارد
حالا اگه بخواهیم این اسکرول رو شبیه سازی کنیم و ارتفاع این اسکرول شبیه سازی شده رو با ارتفاع دکمه لغزنده یکی کنیم باید چکار کنیم

[nassim_20]

مشکل حل شد با یه تناسب ساده میشه سایز و ارتفاع دکمه لغزنده اسکرول رو پیدا کرد جواب اینه

ScrollBox1.Height*ScrollBox1.Height)/ScrollBox1.VertScrollBar.Range

[Felony]

ممنون دوست عزیز ولی این کدی که شما دادی همیشه عددی بدست می دهد که معادل ارتفاع ScrollBox است و نیازی به محاسبه نداردم
مطمئن هستید ؟ اول کد رو تست کنید ، من این کد رو امروز برای شما نوشتم و خودم تا به حال به این کار نیازی نداشتم و مطمئن هستن که درسته ...


مشکل حل شد با یه تناسب ساده میشه سایز و ارتفاع دکمه لغزنده اسکرول رو پیدا کرد جواب اینه
ScrollBox1.Height*ScrollBox1.Height)/ScrollBox1.VertScrollBar.Range

مطمئن هستید کدتون درسته ؟ من هرچی فکر میکنم دلیلی نمیبینم که کد شما درست باشه ، برای چی ارتفاع رو ضرب در خودش کردین و تقسیم بر رنج ؟

من نمونه ی زیر رو با استفاده از کد شما و کد خودم نوشتم ، اجرا کنید ببینید ، بنظرتون کدوم درسته ؟؟؟
کل رنج اسکرول 113 هست در صورتی که کد شما اندازه ی دکمه ی اسکرول رو میگه 147 یعنی 34 تا بیستر در صورتی که کد من اندازه ی اسکرول رو 108 رو برمیگردونه !!!