Изменение размеров кнопок с одинаковой шириной, когда некоторые кнопки невидимы

Question

Я бы хотел, чтобы кнопки автоматического изменения размера сохраняли ту же ширину, когда некоторые кнопки невидимы. Я использовал код, подготовленный Andreas Rejbrand at this link, но проблема сложнее, когда я устанавливал некоторые кнопки невидимыми. В тех местах, где у нас есть невидимые кнопки, есть пробелы. Моя идея - проверить, сколько кнопок невидимо и следующий набор btnWidth в зависимости от количества видимых кнопок. Я действительно не знаю, как я могу проверить, невидимы ли кнопки в этом случае.

Я хочу использовать TAdvGlowButton компонента для кнопок и TPanel компонента для панели и добавить OnResize процедуры панели, как показано ниже:

procedure TForm3.Panel4Resize(Sender: TObject); 
var 
    i: Integer; 
    btnWidth: Integer; 
begin 
    btnWidth := Panel4.Width div Panel4.ControlCount; 
    for i := 0 to Panel4.ControlCount - 1 do 
     begin 
     Panel4.Controls[i].Left := i * btnWidth; 
     Panel4.Controls[i].Width := btnWidth; 
     end; 
end; 

Не могли бы вы дать мне какие-либо идеи, как решить Эта проблема?

Answer 1

procedure TForm3.Panel4Resize(Sender: TObject); 
const 
    cLeftMargin = 10; //Margin at the left side of the group of buttons 
    cSpacing = 10;  //Spacing/Margin between the buttons 
    cRightMargin = 10; //Margin at the right side of the group of buttons 
var 
    i, VisibleControls, lLeft: Integer; 
    btnWidth: Integer; 
begin 
    //count number of visible controls 
    VisibleControls := 0; 
    for i := 0 to Panel4.ControlCount - 1 do 
     if Panel4.Controls[i].Visible then 
     inc(VisibleControls); 

    btnWidth := (Panel4.Width-cLeftMargin-cRightMargin - cSpacing*(VisibleControls-1)) div VisibleControls; 

    //distribute the visible controls 
    lLeft := cLeftMargin; 
    for i := 0 to Panel4.ControlCount - 1 do 
     if Panel4.Controls[i].Visible then 
     begin 
     Panel4.Controls[i].Left := lLeft; 
     Panel4.Controls[i].Width := btnWidth; 
     lLeft := lLeft + btnWidth + cSpacing; 
     end; 
end;