Personale/Chameleon
1
0
Fork 0
mirror of https://github.com/ngeor/Chameleon.git synced 2025-12-19 09:53:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

refactor: Simplify implementation of WindowEnumerator

Browse Source
This commit is contained in:
Nikolaos Georgiou 2022-09-06 20:40:52 +02:00
parent 91f81c941b
commit fa7f696a53
1 changed files with 16 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
WindowEnumerator.pas
View File

@ -8,59 +8,37 @@ uses
Windows;
type
{ An object method that accepts a HWND }
TWndConsumer = procedure (Wnd: HWND) of object;
{ Calls the given consumer for every child window of the given window }
procedure EnumerateChildWindows(Wnd: HWND; Consumer: TWndConsumer);
implementation
type
TWindowEnumerator = class
private
FWnd: HWND;
FConsumer: TWndConsumer;
class function MyEnumChildrenProc(Wnd: HWND; Lp: LPARAM): BOOL; static; stdcall;
procedure Add(Wnd: HWND);
public
constructor Create(Wnd: HWND; Consumer: TWndConsumer);
procedure Run;
{ Wrapper structure to hold the object procedure and pass it as a pointer }
PWrapper = ^TWrapper;
TWrapper = record
Consumer: TWndConsumer;
end;
procedure EnumerateChildWindows(Wnd: HWND; Consumer: TWndConsumer);
{ Callback for Windows' EnumChildWindows }
function MyEnumChildrenProc(Wnd: HWND; Lp: LPARAM): BOOL; stdcall;
var
Enumerator: TWindowEnumerator;
Wrapper: PWrapper;
begin
Enumerator := TWindowEnumerator.Create(Wnd, Consumer);
try
Enumerator.Run;
finally
Enumerator.Free;
end;
end;
constructor TWindowEnumerator.Create(Wnd: HWND; Consumer: TWndConsumer);
begin
FWnd := Wnd;
FConsumer := Consumer;
end;
procedure TWindowEnumerator.Run;
begin
EnumChildWindows(FWnd, @TWindowEnumerator.MyEnumChildrenProc, LPARAM(Self));
end;
class function TWindowEnumerator.MyEnumChildrenProc(Wnd: HWND; Lp: LPARAM): BOOL; static; stdcall;
var
Me: TWindowEnumerator;
begin
Me := TWindowEnumerator(Lp);
Me.Add(Wnd);
Wrapper := PWrapper(Lp);
Wrapper^.Consumer(Wnd);
Result := True;
end;
procedure TWindowEnumerator.Add(Wnd: HWND);
procedure EnumerateChildWindows(Wnd: HWND; Consumer: TWndConsumer);
var
Wrapper: TWrapper;
begin
FConsumer(wnd);
Wrapper.Consumer := Consumer;
EnumChildWindows(Wnd, @MyEnumChildrenProc, LPARAM(@Wrapper));
end;
end.