paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 21:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed obsolete GetRadioMenuItemGroup

Browse Source 
git-svn-id: trunk@8037 -
This commit is contained in:
vincents 2005-11-02 18:55:21 +00:00
parent 31d5011a6e
commit 3406b21d43
2 changed files with 0 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lcl/interfaces/gtk/gtkproc.inc
View File

@ -5362,48 +5362,6 @@ begin
Result:=GTK_CHECK_MENU_ITEM_CLASS(gtk_object_get_class(widget));
end;
{------------------------------------------------------------------------------
function GetRadioMenuItemGroup(LCLMenuItem: TMenuItem): PGSList;
Returns the radio group list with the GroupIndex of the MenuItem
------------------------------------------------------------------------------}
function GetRadioMenuItemGroup(LCLMenuItem: TMenuItem): PGSList;
var
ParentMenuItem: TMenuItem;
i: integer;
begin
Result:=nil;
if (LCLMenuItem=nil) or (LCLMenuItem.GroupIndex=0) then exit;
ParentMenuItem:=LCLMenuItem.Parent;
if ParentMenuItem=nil then exit;
for i:=0 to ParentMenuItem.Count-1 do begin
if ParentMenuItem[i].RadioItem
and (ParentMenuItem[i].GroupIndex=LCLMenuItem.GroupIndex)
and (ParentMenuItem[i]<>LCLMenuItem)
and ParentMenuItem[i].HandleAllocated
and GtkWidgetIsA(Pointer(ParentMenuItem[i].Handle),
GTK_TYPE_RADIO_MENU_ITEM) then
begin
Result:=gtk_radio_menu_item_group(
GTK_RADIO_MENU_ITEM(Pointer(ParentMenuItem[i].Handle)));
exit;
end;
end;
end;
{------------------------------------------------------------------------------
function GetRadioMenuItemGroup(MenuItem: PGtkRadioMenuItem): PGSList;
Returns the radio group list with the GroupIndex of the MenuItem
------------------------------------------------------------------------------}
function GetRadioMenuItemGroup(MenuItem: PGtkRadioMenuItem): PGSList;
begin
if MenuItem=nil then
Result:=nil
else
Result:=GetRadioMenuItemGroup(TMenuItem(GetLCLObject(MenuItem)));
end;
{------------------------------------------------------------------------------
procedure LockRadioGroupOnChange(RadioGroup: PGSList; const ADelta: Integer);

2
lcl/interfaces/gtk/gtkproc.pp
View File

@ -665,8 +665,6 @@ function ExtractGdkBitmap(Bitmap: PGdkBitmap; const SrcRect: TRect): PGdkBitmap;
// menus
function MENU_ITEM_CLASS(widget: PGtkWidget): PGtkMenuItemClass;
function CHECK_MENU_ITEM_CLASS(widget: PGtkWidget): PGtkCheckMenuItemClass;
function GetRadioMenuItemGroup(LCLMenuItem: TMenuItem): PGSList;
function GetRadioMenuItemGroup(MenuItem: PGtkRadioMenuItem): PGSList;
procedure LockRadioGroupOnChange(RadioGroup: PGSList; const ADelta: Integer);
procedure UpdateRadioGroupChecks(RadioGroup: PGSList);
procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;