mirror of
https://github.com/ngeor/Chameleon.git
synced 2025-12-19 09:53:43 +01:00
refactor: Move logic of populating the information tree to Results form
This commit is contained in:
Nikolaos Georgiou
parent
64ee641bd2
commit
3c412959b6
122
frmMain.pas
122
frmMain.pas
@ -51,9 +51,6 @@ type
|
||||
procedure GenerateDfmFile(const filename, frmname: string; wnd: HWND;
|
||||
PasList: TStrings);
|
||||
procedure GeneratePasFile(const filename, frmname: string; PasList: TStrings);
|
||||
procedure GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
|
||||
procedure GetWinInfoStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
procedure GetWinInfoExtendedStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
procedure EnableSavePas;
|
||||
procedure EnableWndInput;
|
||||
public
|
||||
@ -65,125 +62,10 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
uses frmResults, Writers, DfmEngine, StyleNames, about1;
|
||||
uses frmResults, Writers, DfmEngine, about1;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
procedure TMainForm.GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
len, i, cbcount: integer;
|
||||
Text: PChar;
|
||||
class_name: array [0..100] of char;
|
||||
R1, R2: TRect;
|
||||
node1, node2: TTreeNode;
|
||||
childlist: TList;
|
||||
EnumParams: TEnumParams;
|
||||
parentWnd: HWND;
|
||||
itemtext: array [0..300] of char;
|
||||
begin
|
||||
if not IsWindow(wnd) then
|
||||
begin
|
||||
Results.TreeView1.Items.AddChild(ParentNode, 'Handle = (INVALID HANDLE)');
|
||||
Exit;
|
||||
end;
|
||||
childlist := TList.Create;
|
||||
len := GetWindowTextLength(wnd) + 1;
|
||||
GetMem(Text, len);
|
||||
GetWindowText(wnd, Text, len);
|
||||
GetWindowRect(wnd, R1);
|
||||
Windows.GetClientRect(wnd, R2);
|
||||
GetClassName(wnd, class_name, 100);
|
||||
parentWnd := GetParent(wnd);
|
||||
EnumParams.List := childlist;
|
||||
EnumParams.ParentWnd := wnd;
|
||||
EnumChildWindows(wnd, @EnumChildrenProc, integer(@EnumParams));
|
||||
|
||||
with Results.TreeView1.Items do
|
||||
begin
|
||||
AddChild(ParentNode, 'Handle = ' + IntToStr(wnd));
|
||||
AddChild(ParentNode, 'Caption = ' + Text);
|
||||
AddChild(ParentNode, 'Class name = ' + class_name);
|
||||
AddChild(ParentNode, 'Parent Handle = ' + IntToStr(parentWnd));
|
||||
GetWinInfoStyle(wnd, ParentNode);
|
||||
GetWinInfoExtendedStyle(wnd, ParentNode);
|
||||
node1 := AddChild(ParentNode, 'Placement');
|
||||
AddChild(node1, 'Left = ' + IntToStr(R1.Left));
|
||||
AddChild(node1, 'Top = ' + IntToStr(R1.Top));
|
||||
AddChild(node1, 'Width = ' + IntToStr(R1.Right - R1.Left));
|
||||
AddChild(node1, 'Height = ' + IntToStr(R1.Bottom - R1.Top));
|
||||
AddChild(node1, 'ClientWidth = ' + IntToStr(R2.Right));
|
||||
AddChild(node1, 'ClientHeight = ' + IntToStr(R2.Bottom));
|
||||
if (CompareText(class_name, 'COMBOBOX') = 0) then
|
||||
begin
|
||||
node1 := AddChild(ParentNode, '[List Data]');
|
||||
cbcount := SendMessage(wnd, CB_GETCOUNT, 0, 0);
|
||||
for i := 1 to cbcount do
|
||||
begin
|
||||
SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext));
|
||||
node2 := AddChild(node1, 'Item #' + IntToStr(i));
|
||||
AddChild(node2, 'Text = ' + itemtext);
|
||||
AddChild(node2, 'Data = ' +
|
||||
IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
|
||||
end;
|
||||
end;
|
||||
if childlist.Count > 0 then
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Children information');
|
||||
for i := 1 to childlist.Count do
|
||||
begin
|
||||
node2 := AddChild(node1, 'Child #' + IntToStr(i));
|
||||
GetWinInfo(integer(childlist[i - 1]), node2);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
FreeMem(Text);
|
||||
childlist.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetWinInfoStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
style: Integer;
|
||||
list: TStringList;
|
||||
node1: TTreeNode;
|
||||
i: Integer;
|
||||
begin
|
||||
style := GetWindowLong(wnd, GWL_STYLE);
|
||||
list := GetWindowStyleNames(style);
|
||||
|
||||
with Results.TreeView1.Items do
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Style');
|
||||
AddChild(node1, 'Value = ' + IntToStr(style));
|
||||
|
||||
for i := 0 to list.Count - 1 do
|
||||
AddChild(node1, list[i]);
|
||||
end;
|
||||
|
||||
list.Free();
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetWinInfoExtendedStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
style: Integer;
|
||||
list: TStringList;
|
||||
node1: TTreeNode;
|
||||
i: Integer;
|
||||
begin
|
||||
style := GetWindowLong(wnd, GWL_EXSTYLE);
|
||||
list := GetExtendedWindowStyleNames(style);
|
||||
|
||||
with Results.TreeView1.Items do
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Extended Style');
|
||||
AddChild(node1, 'Value = ' + IntToStr(style));
|
||||
|
||||
for i := 0 to list.Count - 1 do
|
||||
AddChild(node1, list[i]);
|
||||
end;
|
||||
|
||||
list.Free();
|
||||
end;
|
||||
|
||||
procedure TMainForm.InformationClick(Sender: TObject);
|
||||
var
|
||||
wnd: HWND;
|
||||
@ -200,7 +82,7 @@ begin
|
||||
|
||||
Results.Show;
|
||||
Results.TreeView1.Items.Clear;
|
||||
GetWinInfo(wnd, nil);
|
||||
Results.GetWinInfo(wnd, nil);
|
||||
end;
|
||||
|
||||
procedure TMainForm.BrowsePasClick(Sender: TObject);
|
||||
|
||||
123
frmResults.pas
123
frmResults.pas
@ -16,9 +16,10 @@ type
|
||||
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
|
||||
procedure Savelistdata1Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure GetWinInfoStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
procedure GetWinInfoExtendedStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
public
|
||||
{ Public declarations }
|
||||
procedure GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
|
||||
end;
|
||||
|
||||
var
|
||||
@ -26,8 +27,9 @@ var
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
uses DfmEngine, StyleNames;
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
procedure TResults.TreeView1Change(Sender: TObject; Node: TTreeNode);
|
||||
begin
|
||||
@ -63,4 +65,119 @@ begin
|
||||
CloseFile(f);
|
||||
end;
|
||||
|
||||
procedure TResults.GetWinInfo(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
len, i, cbcount: integer;
|
||||
Text: PChar;
|
||||
class_name: array [0..100] of char;
|
||||
R1, R2: TRect;
|
||||
node1, node2: TTreeNode;
|
||||
childlist: TList;
|
||||
EnumParams: TEnumParams;
|
||||
parentWnd: HWND;
|
||||
itemtext: array [0..300] of char;
|
||||
begin
|
||||
if not IsWindow(wnd) then
|
||||
begin
|
||||
TreeView1.Items.AddChild(ParentNode, 'Handle = (INVALID HANDLE)');
|
||||
Exit;
|
||||
end;
|
||||
childlist := TList.Create;
|
||||
len := GetWindowTextLength(wnd) + 1;
|
||||
GetMem(Text, len);
|
||||
GetWindowText(wnd, Text, len);
|
||||
GetWindowRect(wnd, R1);
|
||||
Windows.GetClientRect(wnd, R2);
|
||||
GetClassName(wnd, class_name, 100);
|
||||
parentWnd := GetParent(wnd);
|
||||
EnumParams.List := childlist;
|
||||
EnumParams.ParentWnd := wnd;
|
||||
EnumChildWindows(wnd, @EnumChildrenProc, integer(@EnumParams));
|
||||
|
||||
with TreeView1.Items do
|
||||
begin
|
||||
AddChild(ParentNode, 'Handle = ' + IntToStr(wnd));
|
||||
AddChild(ParentNode, 'Caption = ' + Text);
|
||||
AddChild(ParentNode, 'Class name = ' + class_name);
|
||||
AddChild(ParentNode, 'Parent Handle = ' + IntToStr(parentWnd));
|
||||
GetWinInfoStyle(wnd, ParentNode);
|
||||
GetWinInfoExtendedStyle(wnd, ParentNode);
|
||||
node1 := AddChild(ParentNode, 'Placement');
|
||||
AddChild(node1, 'Left = ' + IntToStr(R1.Left));
|
||||
AddChild(node1, 'Top = ' + IntToStr(R1.Top));
|
||||
AddChild(node1, 'Width = ' + IntToStr(R1.Right - R1.Left));
|
||||
AddChild(node1, 'Height = ' + IntToStr(R1.Bottom - R1.Top));
|
||||
AddChild(node1, 'ClientWidth = ' + IntToStr(R2.Right));
|
||||
AddChild(node1, 'ClientHeight = ' + IntToStr(R2.Bottom));
|
||||
if (CompareText(class_name, 'COMBOBOX') = 0) then
|
||||
begin
|
||||
node1 := AddChild(ParentNode, '[List Data]');
|
||||
cbcount := SendMessage(wnd, CB_GETCOUNT, 0, 0);
|
||||
for i := 1 to cbcount do
|
||||
begin
|
||||
SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext));
|
||||
node2 := AddChild(node1, 'Item #' + IntToStr(i));
|
||||
AddChild(node2, 'Text = ' + itemtext);
|
||||
AddChild(node2, 'Data = ' +
|
||||
IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
|
||||
end;
|
||||
end;
|
||||
if childlist.Count > 0 then
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Children information');
|
||||
for i := 1 to childlist.Count do
|
||||
begin
|
||||
node2 := AddChild(node1, 'Child #' + IntToStr(i));
|
||||
GetWinInfo(integer(childlist[i - 1]), node2);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
FreeMem(Text);
|
||||
childlist.Free;
|
||||
end;
|
||||
|
||||
procedure TResults.GetWinInfoStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
style: Integer;
|
||||
list: TStringList;
|
||||
node1: TTreeNode;
|
||||
i: Integer;
|
||||
begin
|
||||
style := GetWindowLong(wnd, GWL_STYLE);
|
||||
list := GetWindowStyleNames(style);
|
||||
|
||||
with TreeView1.Items do
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Style');
|
||||
AddChild(node1, 'Value = ' + IntToStr(style));
|
||||
|
||||
for i := 0 to list.Count - 1 do
|
||||
AddChild(node1, list[i]);
|
||||
end;
|
||||
|
||||
list.Free();
|
||||
end;
|
||||
|
||||
procedure TResults.GetWinInfoExtendedStyle(wnd: HWND; ParentNode: TTreeNode);
|
||||
var
|
||||
style: Integer;
|
||||
list: TStringList;
|
||||
node1: TTreeNode;
|
||||
i: Integer;
|
||||
begin
|
||||
style := GetWindowLong(wnd, GWL_EXSTYLE);
|
||||
list := GetExtendedWindowStyleNames(style);
|
||||
|
||||
with TreeView1.Items do
|
||||
begin
|
||||
node1 := AddChild(ParentNode, 'Extended Style');
|
||||
AddChild(node1, 'Value = ' + IntToStr(style));
|
||||
|
||||
for i := 0 to list.Count - 1 do
|
||||
AddChild(node1, list[i]);
|
||||
end;
|
||||
|
||||
list.Free();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user