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

TLCLTaskDialog: remove unused variable and related comment.

Browse Source
This commit is contained in:
Bart 2023-07-31 15:40:44 +02:00
parent d33896d6c2
commit 925ffd19ad
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/taskdlgemulation.pp
View File

@ -30,7 +30,7 @@ type
//CustomButtons, Radios: TStringList;
DialogCaption, DlgTitle, DlgText,
ExpandedButtonCaption, ExpandedText, FooterText,
VerificationText, Selection: String;
VerificationText: String;
CommonButtons: TTaskDialogCommonButtons;
Panel: TPanel;
@ -655,10 +655,6 @@ begin
CustomButtonsTextLength := CustomButtonsTextLength + Length(B.Caption);
//ToDo
//This field/parameter is currently not used in Dialogs.TTaskDialog and not passed so we cannot initialize it properly yet
Selection := '';
DialogCaption := FDlg.Caption;
DlgTitle := FDlg.Title;
DlgText := FDlg.Text;