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

Auto-formatted Pascal files: about1.pas, frmMain.pas

Browse Source
This commit is contained in:
Nikolaos Georgiou 2021-11-01 07:07:58 +01:00
parent 0f64d31bfa
commit 42e274e30f
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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