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

10
components/rx/vclutils.pas
View File

@ -74,6 +74,8 @@ function ReallocMemo(fpBlock: Pointer; Size: Longint): Pointer;
procedure FreeMemo(var fpBlock: Pointer);
}
procedure RaiseIndexOutOfBounds(Control: TControl; Items:TStrings; Index: integer);
{$IFDEF WIN32}
type
PCursorOrIcon = ^TCursorOrIcon;
@ -100,7 +102,7 @@ procedure OutOfResources;
{$ENDIF}
implementation
uses LCLProc, LCLIntf, LCLType;
uses LCLProc, LCLIntf, LCLType, LCLStrConsts;
function WidthOf(R: TRect): Integer;
begin
@ -650,6 +652,12 @@ begin
Canvas.Free;
end;
procedure RaiseIndexOutOfBounds(Control: TControl; Items:TStrings; Index: integer);
begin
raise Exception.CreateFmt(rsIndexOutOfBounds,
[Control.Name, Index, Items.Count - 1]);
end;
initialization
LazarusResources.Add('rxbtn_downarrow','XPM',[
'/* XPM */'#13#10'static char * btn_downarrow_xpm[] = {'#13#10'"5 3 2 1",'#13