Разрешение приложения - чтобы приложение подстраивалось под разрешение экрана

form->SetBounds( 0, 0, Screen->Width, Screen->Height );

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Form1->SetBounds(0, 0, Screen->Width, Screen->Height);
}

void __fastcall TForm1::FormShow( TObject *Sender )
{
    SetBounds( Screen->WorkAreaLeft, Screen->WorkAreaTop, Screen->WorkAreaWidth, Screen->WorkAreaHeight );
}

void __fastcall Tlink_prop_form::rearrange_form( void ) // динамическая компоновка компонентов формы
{
    TControl *btns_arr[20] = {NULL}; // массивы соответственно кнопок, labels и edits
    TControl *lbls_arr[20] = {NULL};
    TControl *edits_arr[20] = {NULL};
 
    int i, temp, max, maxh;
    int edits_text_h = Canvas->TextHeight( "Fkij?!@iЁ(" ) + 6;
    // --------------------------------------
    int fields_count = 7;
 
    btns_arr[0] = name_fix_btn;
    btns_arr[1] = target_path_btn;
    btns_arr[2] = folder_path_btn;
    btns_arr[4] = icon_path_btn;
 
    lbls_arr[0] = name_lbl;
    lbls_arr[1] = target_lbl;
    lbls_arr[2] = folder_lbl;
    lbls_arr[3] = param_lbl;
    lbls_arr[4] = icon_lbl;
    lbls_arr[5] = win_lbl; // 5 и 6 забиты только для того, чтоб сдвинуть их направо и учесть их ширину при выставлении ширины labels_pnl
    lbls_arr[6] = set_lbl;
 
    edits_arr[0] = name_edit;
    edits_arr[1] = target_edit;
    edits_arr[2] = folder_edit;
    edits_arr[3] = param_edit;
    edits_arr[4] = icon_edit;
    // --------------------------------------
    arranged = false;
    // --------------------------------------
    Left = 0; // форма должна быть на экране (большой шрифт может ее сдвинуть за границы экрана)
    Top = 0;
    OnConstrainedResize = NULL; // избежим конфликта ограничений размера и перестройки формы - в конце перестройки восстановим событие
    // --------------------------------------
    Canvas->Font->Assign( Font ); // расположим панели так, чтоб не перекрывали caption of target_gb
    labels_pnl->Top = Canvas->TextHeight( target_gb->Caption );
    edits_pnl->Top = labels_pnl->Top;
    // --------------------------------------
    max = 0;
    for ( i = fields_count - 1; i >= 0; i-- ) { // изменим ширину labels_pnl до минимума, выяснив наибольшую ширину одной из label
        if ( lbls_arr[i] ) {
            if ( lbls_arr[i]->Width > max ) {
                max = lbls_arr[i]->Width;
            }
        }
    }
    labels_pnl->Width = max;
    // --------------------------------------
    edits_pnl->Left = labels_pnl->Left + labels_pnl->Width; // сдвинем edits_pnl встык к labels_pnl
    edits_pnl->Width = target_gb->Width - labels_pnl->Left - labels_pnl->Width - 3; // подгоним ширину edits_pnl, чтоб влазила в target_gb
    // --------------------------------------
    for ( i = fields_count - 1; i >= 0; i-- ) { // сдвинем на labels_pnl все label направо
        if ( lbls_arr[i] ) {
            lbls_arr[i]->Left = labels_pnl->Width - lbls_arr[i]->Width;
        }
    }
    // установим ширину и высоту кнопок на edits_pnl
    maxh = 0;
    for ( i = fields_count - 1; i >= 0; i-- ) {
        if ( btns_arr[i] ) {
            temp = Canvas->TextHeight( ( ( TButton* )btns_arr[i] )->Caption );
            if ( maxh < temp ) { // выясним наибольшую высоту
                maxh = temp;
            }
            btns_arr[i]->Width = Canvas->TextWidth( ( ( TButton* )btns_arr[i] )->Caption ) + 10; // установим ширину в зависимости от текста
        }
    }
    for ( i = fields_count - 1; i >= 0; i-- ) { // установим всем кнопкам одинаковую высоту
        if ( btns_arr[i] ) {
            btns_arr[i]->Height = maxh + 6;
        }
    }
    // равномерно распределим edits на edits_pnl ; их ширина зависит от ширины соответствующих кнопок
    edits_arr[0]->SetBounds( 3, 0, edits_pnl->Width - btns_arr[0]->Width - 7, edits_text_h );
    for ( i = 1; i < fields_count; i++ ) {
        if ( edits_arr[i] ) {
            edits_arr[i]->Height = edits_text_h;
            edits_arr[i]->Top = edits_arr[i - 1]->Top + edits_arr[i - 1]->Height + 2;
            edits_arr[i]->Left = 3;
        }
        if ( btns_arr[i] && edits_arr[i] ) {
            edits_arr[i]->Width = edits_pnl->Width - btns_arr[i]->Width - 7;
        }
        else if ( edits_arr[i] ) {
            edits_arr[i]->Width = edits_pnl->Width - 4;
        }
    }
    // отцентрируем все кнопки на edits_pnl относительно соответствующих edits
    for ( i = 0; i < fields_count; i++ ) {
        if ( btns_arr[i] && edits_arr[i] ) {
            btns_arr[i]->Left = edits_arr[i]->Width + edits_arr[i]->Left + 2;
            btns_arr[i]->Top = edits_arr[i]->Top - 1 + ( edits_arr[i]->Height - btns_arr[i]->Height ) / 2;
        }
    }
    // отцентрируем все labels на labels_pnl относительно соответствующих edits
    for ( i = 0; i < fields_count; i++ ) {
        if ( lbls_arr[i] && edits_arr[i] ) {
            lbls_arr[i]->Top = edits_arr[i]->Top - 1 + ( edits_arr[i]->Height - lbls_arr[i]->Height ) / 2;
        }
    }
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // <<<<<<<<<<<<<<<<< упорядочим содержимое add_prop_pnl >>>>>>>>>>>>>>>>>>>>>
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // загоним чек-боксы и эдиты в массивы
    TCheckBox *chbox[] = {group_chbox, win_confirm_chbox, win_adm_chbox, win_on_top_chbox, win_pos_chbox, win_size_chbox};
    TEdit *edits[] = {win_height_edit, win_pos_x_edit, win_pos_y_edit, win_width_edit};
    // сперва выставим top, left и width самой панели; ее высоту выставим позже
    add_prop_pnl->Top = edits_arr[4]->Top + edits_arr[4]->Height;
    add_prop_pnl->Left = 0;
    add_prop_pnl->Width = add_prop_pnl->Parent->Width;
    // установим высоту и ширину всех CheckBox, а также ширину одного win_state_cbox
    for ( i = 0; i < sizeof( chbox ) / sizeof( chbox[0] ); i++ ) {
        chbox[i]->Height = Canvas->TextHeight( chbox[i]->Caption );
        chbox[i]->Width = Canvas->TextWidth( chbox[i]->Caption ) + 25;
    }
    for ( i = 0, maxh = 0; i < win_state_cbox->Items->Count; i++ ) {
        temp = Canvas->TextWidth( win_state_cbox->Items->Strings[i] );
        if ( maxh < temp ) {
            maxh = temp;
        }
    }
    win_state_cbox->Width = maxh + 25;
    // высота и ширина edits по алгоритму под 4х-значное число
    for ( i = 0, temp = Canvas->TextWidth( "9086" ); i < sizeof( edits ) / sizeof( edits[0] ); i++ ) {
        edits[i]->Height = edits_text_h;
        edits[i]->Width = temp + 10;
    }
    // -- сперва left и top левых-верхних элементов
    win_state_cbox->Left = 3;
    win_state_cbox->Top = 2;
    win_on_top_chbox->Left = win_state_cbox->Left + win_state_cbox->Width + 6;
    win_on_top_chbox->Top = win_state_cbox->Top - 1 + ( win_state_cbox->Height - win_on_top_chbox->Height ) / 2;
    // -- все top эдитов
    win_width_edit->Top = win_state_cbox->Top + win_state_cbox->Height + 2;
    win_height_edit->Top = win_width_edit->Top;
    win_pos_x_edit->Top = win_width_edit->Top + win_width_edit->Height + 2;
    win_pos_y_edit->Top = win_pos_x_edit->Top;
    // -- левые check box - топы относительно эдитов
    win_size_chbox->Left = 3;
    win_size_chbox->Top = win_width_edit->Top - 1 + ( win_width_edit->Height - win_size_chbox->Height ) / 2;
    win_pos_chbox->Left = 3;
    win_pos_chbox->Top = win_pos_x_edit->Top - 1 + ( win_pos_x_edit->Height - win_pos_chbox->Height ) / 2;
    // -- следующие labels - left встык к width левых check-box - выравнивание вправо - tops по edits
    if ( win_size_chbox->Width > win_pos_chbox->Width ) {
        win_width_lbl->Left = win_size_chbox->Left + win_size_chbox->Width + 5;
    }
    else {
        win_width_lbl->Left = win_pos_chbox->Left + win_pos_chbox->Width + 5;
    }
    win_pos_x_lbl->Left = win_width_lbl->Left + ( win_width_lbl->Width - win_pos_x_lbl->Width );
    win_width_lbl->Top = win_width_edit->Top - 1 + ( win_width_edit->Height - win_width_lbl->Height ) / 2;
    win_pos_x_lbl->Top = win_pos_x_edit->Top - 1 + ( win_pos_x_edit->Height - win_pos_x_lbl->Height ) / 2;
    // -- следующие edits - встык к width предыдущих labels - tops не трогать!
    win_width_edit->Left = win_width_lbl->Left + win_width_lbl->Width + 5;
    win_pos_x_edit->Left = win_width_edit->Left;
    // -- следующие labels - встык к width левых edits - выравнивание вправо - tops предыдущим labels
    win_height_lbl->Left = win_width_edit->Left + win_width_edit->Width + 10;
    win_pos_y_lbl->Left = win_height_lbl->Left + ( win_height_lbl->Width - win_pos_y_lbl->Width );
    win_height_lbl->Top = win_width_lbl->Top;
    win_pos_y_lbl->Top = win_pos_x_lbl->Top;
    // -- следующие edits - встык к width предыдущих labels - tops не трогать!
    win_height_edit->Left = win_height_lbl->Left + win_height_lbl->Width + 5;
    win_pos_y_edit->Left = win_height_edit->Left;
    // -- правая колонка check-box - left встык к width последних edits - отступ 20 pix - tops левым check-boxes
    for ( i = 0; i < 3; i++ ) {
        chbox[i]->Left = win_height_edit->Left + win_height_edit->Width + 20;
    }
    win_confirm_chbox->Top = win_on_top_chbox->Top;
    win_adm_chbox->Top = win_size_chbox->Top;
    group_chbox->Top = win_pos_chbox->Top;
    // -- кнопка group_btn - высоту под другие кнопки, ширину по алгоритму, left встык с check-box, top отцентровать по edits
    group_btn->Height = icon_path_btn->Height;
    group_btn->Width = Canvas->TextWidth( group_btn->Caption ) + 10;
    group_btn->Left = group_chbox->Left + group_chbox->Width + 5;
    group_btn->Top = win_pos_x_edit->Top - 1 + ( win_pos_x_edit->Height - group_btn->Height ) / 2;
    // выставим высоту add_prop_pnl относительно последнего поля Edit - win_pos_x_edit
    add_prop_pnl->Height = win_pos_x_edit->Top + win_pos_x_edit->Height + 2;
    // наконец, выровняем пару labels, имеющих отношение в компонентам на add_prop_pnl
    win_lbl->Top = add_prop_pnl->Top + win_state_cbox->Top + ( win_state_cbox->Height - win_lbl->Height ) / 2;
    set_lbl->Top = add_prop_pnl->Top + win_width_edit->Top + ( win_width_edit->Height - set_lbl->Height ) / 2;
 
    // -------- подгоним высоту панелей и target_gb под содержимое --------------------
    max = add_prop_pnl->Top + add_prop_pnl->Height; // выясним максимальную высоту содержимого
    labels_pnl->Height = max + 2;
    edits_pnl->Height = max + 2;
    target_gb->Height = labels_pnl->Top + labels_pnl->Height + 6;
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // <<<<<<<<<<<<<<<<<<< упорядочим содержимое style_gb >>>>>>>>>>>>>>>>>>>>>>>
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    style_gb->Top = target_gb->Top + target_gb->Height + 3;
    // -------- выставим stext_gb ----------
    // выставим height & tops эдитов и combo-box
    stextsize_ed->Width = Canvas->TextWidth( "99" ) + 10;
    stextsize_ed->Height = edits_text_h;
    stextsize_ed->Top = Canvas->TextHeight( style_gb->Caption );
    stextplace_cb->Top = stextsize_ed->Top + stextsize_ed->Height + 4;
    // первая строчка - последовательно top, left, width, height
    stextcol_lbl->Left = 6;
    stextcol_lbl->Top = stextsize_ed->Top + ( stextsize_ed->Height - stextcol_lbl->Height ) / 2;
    stextcol_pnl->Left = stextcol_lbl->Left + stextcol_lbl->Width + 3;
    stextcol_pnl->Top = stextsize_ed->Top + ( stextsize_ed->Height - stextcol_pnl->Height ) / 2;
    stextsize_lbl->Left = stextcol_pnl->Left + stextcol_pnl->Width + 10;
    stextsize_lbl->Top = stextsize_ed->Top + ( stextsize_ed->Height - stextsize_lbl->Height ) / 2;
    stextsize_ed->Left = stextsize_lbl->Left + stextsize_lbl->Width + 3;
    stextbold_chb->Left = stextsize_ed->Left + stextsize_ed->Width + 10;
    stextbold_chb->Width = Canvas->TextWidth( stextbold_chb->Caption ) + 25;
    stextbold_chb->Height = Canvas->TextHeight( stextbold_chb->Caption );
    stextbold_chb->Top = stextsize_ed->Top + ( stextsize_ed->Height - stextbold_chb->Height ) / 2;
    // вторая строчка
    stextfont_btn->SetBounds( 6, stextplace_cb->Top, Canvas->TextWidth( stextfont_btn->Caption ) + 10,
        stextplace_cb->Height );
    stextplace_lbl->Left = stextfont_btn->Left + stextfont_btn->Width + 10;
    stextplace_lbl->Top = stextplace_cb->Top + ( stextplace_cb->Height - stextplace_lbl->Height ) / 2;
    stextplace_cb->Left = stextplace_lbl->Left + stextplace_lbl->Width + 3;
    stextplace_cb->Width = Canvas->TextWidth( stextplace_cb->Items->Strings[0] ) + 60;
    // увеличим ширину всплывающего списка stextplace_cb, выяснив ширину самой длинной строчки
    for ( i = 0, max = 0; i < stextplace_cb->Items->Count; i++ ) {
        temp = Canvas->TextWidth( stextplace_cb->Items->Strings[i] );
        if ( max < temp ) {
            max = temp;
        }
    }
    stextplace_cb->Perform( CB_SETDROPPEDWIDTH, max + 30, 0 );
    // сам stext_gb
    stext_gb->SetBounds( 6, Canvas->TextHeight( style_gb->Caption ),
        stextplace_cb->Left + stextplace_cb->Width + 6,
        stextplace_cb->Top + stextplace_cb->Height + 6 );
    // -------- выставим sicon_gb ----------
    // tops & heights & widths of edits
    siconsizew_edit->Height = edits_text_h;
    siconsizeh_edit->Height = edits_text_h;
    siconsizew_edit->Top = Canvas->TextHeight( sicon_gb->Caption ) + 4;
    siconsizeh_edit->Top = siconsizew_edit->Top;
    siconsizeh_edit->Width = Canvas->TextWidth( "999" ) + 10;
    siconsizew_edit->Width = siconsizeh_edit->Width;
    // первая строчка, кроме ширины siconsize_trbar - ее выставим после выравнивания ширины sicon_gb & stext_gb
    siconsize_lbl->Left = 6;
    siconsize_lbl->Top = siconsizew_edit->Top + ( siconsizew_edit->Height - siconsize_lbl->Height ) / 2;
    siconsizew_edit->Left = siconsize_lbl->Left + siconsize_lbl->Width + 3;
    siconsizex_lbl->Top = siconsize_lbl->Top;
    siconsizex_lbl->Left = siconsizew_edit->Left + siconsizew_edit->Width + 3;
    siconsizeh_edit->Left = siconsizex_lbl->Left + siconsizex_lbl->Width + 3;
    siconsize_trbar->Left = siconsizeh_edit->Left + siconsizeh_edit->Width + 6;
    siconsize_trbar->Top = siconsizeh_edit->Top + ( siconsizeh_edit->Height - siconsize_trbar->Height ) / 2;
    // вторая строчка
    siconproport_chb->SetBounds( 6, siconsizew_edit->Top + siconsizew_edit->Height + 6,
        Canvas->TextWidth( siconproport_chb->Caption ) + 25,
        Canvas->TextHeight( siconproport_chb->Caption ) );
    siconcol_chb->SetBounds( siconproport_chb->Left + siconproport_chb->Width + 20, siconproport_chb->Top,
        Canvas->TextWidth( siconcol_chb->Caption ) + 25,
        Canvas->TextHeight( siconcol_chb->Caption ) );
    siconcol_pnl->Left = siconcol_chb->Left + siconcol_chb->Width;
    siconcol_pnl->Top = siconcol_chb->Top + 1 + ( siconcol_chb->Height - siconcol_pnl->Height ) / 2;
    // сам sicon_gb
    sicon_gb->SetBounds( stext_gb->Left,
        stext_gb->Top + stext_gb->Height + 3,
        siconcol_pnl->Left + siconcol_pnl->Width + 6,
        siconproport_chb->Top + siconproport_chb->Height + 10 );
    // выровняем ширину sicon_gb & stext_gb
    if ( stext_gb->Width > sicon_gb->Width ) {
        sicon_gb->Width = stext_gb->Width;
    }
    else {
        stext_gb->Width = sicon_gb->Width;
    }
    // выставим ширину siconsize_trbar для максимального заполнения
    siconsize_trbar->Width = sicon_gb->Width - siconsize_trbar->Left - 3;
    // высота style_gb под сумму высот stext_gb & sicon_gb
    style_gb->Height = sicon_gb->Top + sicon_gb->Height + 6;
    // ssample_gb умещаем в остатке места
    ssample_gb->SetBounds( stext_gb->Left + stext_gb->Width + 6,
        stext_gb->Top,
        style_gb->Width - ( stext_gb->Left + stext_gb->Width ) - 12,
        style_gb->Height - stext_gb->Top - 6 );
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // <<<<<<<<<<<<<<<<<<< кнопки и форма >>>>>>>>>>>>>>>>>>>>>>>
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    TButton *modal_btns[] = {reset_btn, apply_btn, cancel_btn};
    // top & высота кнопок; ширина кнопок - минимум 111
    for ( i = 0, max = 0; i < 3; i++ ) { // выясним наибольшую ширину текста
        temp = Canvas->TextWidth( modal_btns[i]->Caption );
        if ( max < temp ) {
            max = temp;
        }
    }
    temp = Canvas->TextHeight( reset_btn->Caption ) + 8; // высота у всех одинаковая
    for ( i = 0; i < 3; i++ ) {
        modal_btns[i]->Height = temp;
        modal_btns[i]->Top = this->ClientHeight - temp - 3;
        if ( max > 111 ) {
            modal_btns[i]->Width = max;
        }
        else {
            modal_btns[i]->Width = 111;
        }
    }
    // left кнопок
    cancel_btn->Left = this->ClientWidth - cancel_btn->Width - 3;
    apply_btn->Left = cancel_btn->Left - apply_btn->Width - 5;
    reset_btn->Left = apply_btn->Left - reset_btn->Width - 15;
    // форма - ширина, высота
    ClientWidth = target_gb->Left + labels_pnl->Left + labels_pnl->Width + group_btn->Left + group_btn->Width + 15;
    ClientHeight = style_gb->Top + style_gb->Height + cancel_btn->Height + 10;
 
    OnConstrainedResize = FormConstrainedResize; // восстановим отключенное в начале перестройки формы
    arranged = true;
}