2014-12-19 3 views
1

Как изменить высоту cxProgressBar?Как изменить высоту cxProgressBar

Я попытался это, но не везло до сих пор:

var 
    cxProgressBar1: TcxProgressBar; 
begin 
    cxProgressBar1 := TcxProgressBar.Create(Self); 

    with cxProgressBar1 do 
    begin 
    Parent := Self; 
    Position := 22; 
    Width := 113; 
    Height := 120; 
    Properties.Orientation := cxorVertical; 
    end; 
end; 

Высота остается неизменным.

ответ

1

Я забыл установить AutoSize: = false; Перед установкой ширины и/или высоты

Таким образом, это решение:

var 
    cxProgressBar1: TcxProgressBar; 
begin 
    cxProgressBar1 := TcxProgressBar.Create(Self); 

    with cxProgressBar1 do 
    begin 
    AutoSize := false; 
    ..... 
    end; 
end;