Как узнать ширину полосы прокрутки

[GASCHE]

Прошу помочь.

Как узнать ширину полосы прокрутки в выпадающем списке

В VCL GetSystemMetrics (SM_CXVSCROLL), а в FMX?

[Brovin Yaroslav]

Добрый день, 

 

Речь идет о TComboBox и TComboEdit?

[GASCHE]

O TComboBox !

[Равиль Зарипов (ZuBy)]

TComboBox это тот же TListBox, смотрите в эту сторону

[GASCHE]

Эх, еще бы ткнули носом куда конкретно смотреть.

Неужели ни кто не расширял выпадающий список?

[AngryOwl]

var
  VScrollBar: TScrollBar;
  aWidth : Single;

VScrollBar := TListBox(Sender) {или ваш объект}.VScrollBar;
if Assigned(VScrollBar) and VScrollBar.Visible then
  aWidth := VScrollBar.Width;

думаю, так

[GASCHE]

К сожалению VScrollBar не видно, и добраться до него мне не удается.

ComboTest.zip

[Brovin Yaroslav]

Я пправильно понимаю, что вы хотите узнать размер окна просмотра содержимого без учета размеров скроллбаров?

[AngryOwl]

К сожалению VScrollBar не видно, и добраться до него мне не удается.

 

создайте хелпер и тогда "увидите" VScrollBar

например так:

type
  TSB_Helper = class helper for TCustomScrollBox
    function VBar: TScrollBar;
  end;

{ TSB_Helper }

function TSB_Helper.VBar: TScrollBar;
begin
  Result:= Self.VScrollBar;
end;

{ --------- }

[Равиль Зарипов (ZuBy)]

// from uses FMX.ListView
{$IFDEF MSWINDOWS}
    DefaultScrollBarWidth = 16;
{$ELSE}
    DefaultScrollBarWidth = 7;
{$ENDIF}

могу вот это предложить, это из ListView стандарты

[GASCHE]

Я пправильно понимаю, что вы хотите узнать размер окна просмотра содержимого без учета размеров скроллбаров?

Нет, размер строки в выпадающем списке я определяю, как mItemWidth := ComboBox1.Canvas.TextWidth( ComboBox1.Items[ idx ] ), но если появляется скроллбар, то для полного определения ширины ComboBox1.ItemWidth необходимо к mItemWidth добавить его ширину, иначе строка в выпадающем списке полностью не отображается.

 

ZuBy

Не знаю почему, но при использовании  DefaultScrollBarWidth = 16 строки полностью не отображаются.

 

AlexG

Наверно я что-то не понимаю, но присвоение VScrollBar := TCustomScrollBox( ComboBox1 ).VBar; не получается.  

ComboTest2.zip

Изменено 15 августа, 2015 пользователем GASCHE

[Brovin Yaroslav]

DropDownKind = Custom

?

[GASCHE]

Нет, Native

Должно быть видно "Температура охлаждающей жидкости PID"

 

Изменено 15 августа, 2015 пользователем GASCHE