pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

add new components TRxRadioGroup and TRxDBRadioGroup - allow disable any of RadioButton from group

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1993 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-09-23 22:37:57 +00:00
parent 5e72832f78
commit d4c63d5b73
6 changed files with 120 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
components/rx/rxctrls.pas
View File

@ -797,14 +797,26 @@ function DrawShadowText(DC: HDC; Str: PChar; Count: Integer; var Rect: TRect;
function CheckBitmap: TBitmap;
*)
type
{ TRxDBRadioGroup }
{ TRxRadioGroup }
TRxRadioGroup = class(TRadioGroup)
private
function GetItemEnabled(Index: integer): boolean;
procedure SetItemEnabled(Index: integer; AValue: boolean);
public
property ItemEnabled[Index: integer]: boolean read GetItemEnabled write SetItemEnabled;
end;
implementation
uses SysUtils, Dialogs, {CommCtrl,} VCLUtils, Math, RxAppUtils, ImgList,
ActnList, InterfaceBase
(* Consts, {$IFDEF RX_D6}, RTLConsts{$ENDIF}
*)
;
uses SysUtils, Dialogs, VCLUtils, Math, RxAppUtils, ImgList,
ActnList, InterfaceBase;
const
Alignments: array [TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
WordWraps: array[Boolean] of Word = (0, DT_WORDBREAK);
@ -2541,6 +2553,32 @@ begin
UnionRect(Rect, RText, RShadow);
end;
{ TRxRadioGroup }
function TRxRadioGroup.GetItemEnabled(Index: integer): boolean;
var
R:TRadioButton;
begin
if (Index < -1) or (Index >= Items.Count) then
RaiseIndexOutOfBounds(Self, Items, Index);
R:=FindComponent('RadioButton'+IntToStr(Index)) as TRadioButton;
if Assigned(R) then
Result:=R.Enabled
else
Result:=False;
end;
procedure TRxRadioGroup.SetItemEnabled(Index: integer; AValue: boolean);
var
R:TRadioButton;
begin
if (Index < -1) or (Index >= Items.Count) then
RaiseIndexOutOfBounds(Self, Items, Index);
R:=FindComponent('RadioButton'+IntToStr(Index)) as TRadioButton;
if Assigned(R) then
R.Enabled:=AValue;
end;
constructor TRxCustomLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);