Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 517
Благодарности: 314

Профиль | Отправить PM | Цитировать


Цитата Gamattinol:
Как подогнать »
Выставляйте нужные значения:
Код: Выделить весь код
Left := ScaleX( положение контрола от левой границы );
Top := ScaleY( положение контрола от верхней границы );
Width := ScaleX( ширина контрола );
Height := ScaleY( высота контрола );
Тоже самое, только одной строкой:
Код: Выделить весь код
SetBounds( ScaleX( от левой границы ), ScaleY( от верхней границы ), ScaleX( ширина ), ScaleY( высота ) );
Цитата Gamattinol:
"caption" не знаю как там сделать »
Скрытый текст
Код: Выделить весь код
[code]
const
    STR_TXT = #32'Папка установки:'#32;


procedure _CtrlsEdit();
begin
    with WizardForm do
    begin
        with TBevel.Create( nil ) do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 115 ), ScaleX( 418 ), ScaleY( 50 ) );
            Shape := bsFrame;
        end;

        with TNewStaticText.Create( nil ) do
        begin
            Parent := SelectDirPage;
            Left := ScaleX( 8 );
            Top := ScaleY( 108 );
            AutoSize := True;
            Caption := STR_TXT;
        end;

        with DirBrowseButton do
        begin
            Top := ScaleY( 130 );
            Width := ScaleX( 65 );
        end;

        with DirEdit do
        begin
            Left := ScaleX( 15 );
            Top := ScaleY( 130 );
            Width := ScaleX( 315 );
        end;
    end;
end;


procedure InitializeWizard();
begin
    _CtrlsEdit();
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 17:41, 25-02-2016 | #1387