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

Merge pull request #3 from ngeor/instarepo_branch

Browse Source 
instarepo automatic PR
This commit is contained in:
Nikolaos Georgiou 2021-11-01 07:15:37 +01:00 committed by GitHub
commit 30ef83a1d2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
about1.pas
View File

@ -48,4 +48,4 @@ begin
end; end;
end. end.

3
frmMain.pas
View File

@ -132,7 +132,8 @@ begin
SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext)); SendMessage(wnd, CB_GETLBTEXT, i - 1, longint(@itemtext));
node2 := AddChild(node1, 'Item #' + IntToStr(i)); node2 := AddChild(node1, 'Item #' + IntToStr(i));
AddChild(node2, 'Text = ' + itemtext); AddChild(node2, 'Text = ' + itemtext);
AddChild(node2, 'Data = ' + IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0))); AddChild(node2, 'Data = ' +
IntToStr(SendMessage(wnd, CB_GETITEMDATA, i - 1, 0)));
end; end;
end; end;
if childlist.Count > 0 then if childlist.Count > 0 then