ラジオグループの複数列について (ID:28346)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

KHE00221 です

TRadioGroup の Button は RadioGroup.Butttons で操作する事が可能ですのでボタンの座標を直接変更する事により横向きに配置する事が可能です

(*) RadioGroup の Items に追加されると元に戻ってしまいます

var
   I,X,TopMargin,ButtonWidth,ButtonHeight,ButtonsPerCol : Integer;
   DC : HDC;
   SaveFont : HFont;
   Metrics: TTextMetric;
begin
   DC := GetDC(0);
   SaveFont := SelectObject(DC, Font.Handle);
   GetTextMetrics(DC, Metrics);
   SelectObject(DC, SaveFont);
   ReleaseDC(0, DC);

ButtonsPerCol := (RadioGroup1.Items.Count + RadioGroup1.Columns -1) div RadioGroup1.Columns;
   ButtonWidth   := (RadioGroup1.Width - 10) div RadioGroup1.Columns;
   I := RadioGroup1.Height - Metrics.tmHeight - 5;
   ButtonHeight := I div (ButtonsPerCol);
   TopMargin := Metrics.tmHeight + 1 + (I mod ButtonsPerCol) div 2;
   for I:=0 to RadioGroup1.Items.Count -1 do
   begin
     RadioGroup1.Buttons[I].Left   := (I mod RadioGroup1.Columns) * ButtonWidth  + 8;
     RadioGroup1.Buttons[I].Top    := (I div RadioGroup1.Columns) * ButtonHeight + TopMargin;
     RadioGroup1.Buttons[I].Width  := ButtonWidth;
     RadioGroup1.Buttons[I].Height := ButtonHeight;
   end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る