diff options
Diffstat (limited to 'gui/radiobutton.inc')
-rw-r--r-- | gui/radiobutton.inc | 142 |
1 files changed, 142 insertions, 0 deletions
diff --git a/gui/radiobutton.inc b/gui/radiobutton.inc new file mode 100644 index 00000000..6b31c538 --- /dev/null +++ b/gui/radiobutton.inc @@ -0,0 +1,142 @@ +{ + fpGUI - Free Pascal Graphical User Interface + Copyright (C) 2000 - 2001 by + Areca Systems GmbH / Sebastian Guenther + Copyright (C) 2006 by Graeme Geldenhuys + member of the fpGUI development team. + + RadioButton class declarations + + See the file COPYING.fpGUI, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + + +{%mainunit fpgui.pp} + +{$IFDEF read_interface} + + { TCustomRadioButton } + + TCustomRadioButton = class(TWidget) + private + procedure SetChecked(AChecked: Boolean); + protected + FChecked: Boolean; + FLabelPos: TPoint; + procedure Click; override; + procedure Paint(Canvas: TFCanvas); override; + procedure CalcSizes; override; + property Checked: Boolean read FChecked write SetChecked; + public + constructor Create(AOwner: TComponent); override; + constructor Create(const pText: string; pOwner: TComponent); overload; + end; + + + TRadioButton = class(TCustomRadioButton) + published + property CanExpandWidth; + property CanExpandHeight; + property Enabled; + property Checked; + property Text; + property OnClick; + end; + +{$ENDIF read_interface} + + + +{$IFDEF read_implementation} + + +// =================================================================== +// TCustomRadioButton +// =================================================================== + +constructor TCustomRadioButton.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + WidgetStyle := WidgetStyle + [wsCaptureMouse, wsClickable]; +end; + + +constructor TCustomRadioButton.Create(const pText: string; pOwner: TComponent); +begin + Create(pOwner); + Text := pText; +end; + + +procedure TCustomRadioButton.Click; +begin + if not Checked then + SetChecked(True); + inherited Click; +end; + + +procedure TCustomRadioButton.Paint(Canvas: TFCanvas); +var + FontHeight: Integer; + LabelRect: TRect; + Flags: TCheckboxFlags; +begin + FontHeight := Canvas.FontCellHeight; + LabelRect.Left := FLabelPos.x; + LabelRect.Top := FLabelPos.y + (Height - MinSize.cy) div 2; + LabelRect.Right := LabelRect.Left + Canvas.TextWidth(Text); + LabelRect.Bottom := LabelRect.Top + FontHeight; + + Flags := []; + if (wsClicked in WidgetState) and (wsMouseInside in WidgetState) then + Include(Flags, cbIsPressed); + if (wsHasFocus in WidgetState) and FindForm.IsActive then + Include(Flags, cbHasFocus); + if wsEnabled in WidgetState then + Include(Flags, cbIsEnabled); + if Checked then + Include(Flags, cbIsChecked); + + Style.DrawRadioButton(Canvas, Rect(0, 0, Width, Height), LabelRect, Flags); + Canvas.SetColor(Style.GetUIColor(clWindowText)); + Style.DrawText(Canvas, LabelRect.TopLeft, Text, WidgetState); +end; + +procedure TCustomRadioButton.CalcSizes; +begin + with FindForm.Wnd.Canvas do + Style.GetRadioButtonLayout(gfxbase.Size(TextWidth(Text), FontCellHeight), + FMinSize, FLabelPos); +end; + +procedure TCustomRadioButton.SetChecked(AChecked: Boolean); +var + i: Integer; + Child: TWidget; +begin + if AChecked <> Checked then + begin + FChecked := AChecked; + Redraw; + + if Checked and Assigned(Parent) and + Parent.InheritsFrom(TContainerWidget) then + for i := 0 to TContainerWidget(Parent).ChildCount - 1 do + begin + Child := TContainerWidget(Parent).Children[i]; + if (Child <> Self) and Child.InheritsFrom(TCustomRadioButton) then + TCustomRadioButton(Child).Checked := False; + end; + end; +end; + + +{$ENDIF read_implementation} + |