Mega Code Archive
Find Item by Name(Caption or Tag) in TMenu.Items
<![CDATA[
Title: find Item by Name(Caption or Tag) in TMenu.Items?
//... find Item by Name(Caption or Tag) in TMenu.Items?
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, Menus;
//Bypass of Source.Items (it's clone of IterateMenus from Menus unit)
procedure BypassMenuItem(Func: Pointer; Source: TMenuItem);
//Finds Item.Name = Value in the aMenuItem.Items
function FindItemByName(aMenuItem: TMenuItem; Value: string): TMenuItem;
var
//global vars
StringValue: string;
IntegerValue: Integer;...implementation
//...
//Bypass of Source.Items (it's clone of IterateMenus from Menu unit)
procedure BypassMenuItem(Func: Pointer; Source: TMenuItem);
var
I, J: Integer;
MenuSize: Integer;
Done: Boolean;
function ByPass(var I: Integer; aMenuItem: TMenuItem; AFunc: Pointer): Boolean;
var
Item: TMenuItem;
begin
if aMenuItem = nil then Exit;
Result := False;
while not Result and (I do
begin
Item := aMenuItem[I];
asm
MOV EAX,Item
MOV EDX,[EBP+8]
PUSH DWORD PTR [EDX]
CALL DWORD PTR AFunc
ADD ESP,4
MOV Result,AL
end;
Inc(I);
end;
end;
begin
I := 0;
J := 0;
MenuSize := 0;
if Source nil then MenuSize := Source.Count;
Done := False;
while not Done and (I do
begin
Done := Bypass(I, Source, Func);
while (I do Inc(I);
end;
end;
//Finds Item.Name = ItemName in the aMenuItem.Items
// Returns found item or nil.
function FindItemByName(aMenuItem: TMenuItem; ItemName: string): TMenuItem;
// As variant: ItemTag:Integer; instead ItemName
function Find(Item: TMenuItem): Boolean;
var
I: Integer;
begin
Result := False;
if (StringValue = Item.Name) then
// As variant: if (IntegerValue = Item.Tag) then
begin
FoundItem := Item;
Result := True;
Exit;
end
else
for I := 0 to Item.Count - 1 do
if Find(Item[I]) then
begin
Result := True;
Exit;
end;
end;
begin
FoundItem := nil;
StringValue := ItemName; // Assigns Find argument to global variable.
// As variant: IntegerValue := ItemTag;
BypassMenuItem(@Find, aMenuItem);
Result := FoundItem;
end;
]]>