paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 17:40:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Refactoring TTaskDialog: remove some comments from TaskDialogEmulation unit.

Browse Source
This commit is contained in:
Bart 2023-07-24 11:00:52 +02:00
parent 80dc2c89b0
commit c343cfe0d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/taskdlgemulation.pp
View File

@ -636,9 +636,9 @@ begin
CustomButtons := TStringList.Create; CustomButtons := TStringList.Create;
for B in FDlg.Buttons do for B in FDlg.Buttons do
CustomButtons.Add(B.Caption); //********** ModalResult and Default??? CustomButtons.Add(B.Caption);
Radios := TStringList.Create; Radios := TStringList.Create;
for B in FDlg.RadioButtons do //********** Default? for B in FDlg.RadioButtons do
Radios.Add(B.Caption); Radios.Add(B.Caption);
//ToDo //ToDo