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

TTaskDialog: fix WS registration

Browse Source
This commit is contained in:
Martin 2023-07-26 01:03:34 +02:00
parent 4deab8fcb5
commit 89aefec06a
13 changed files with 40 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/carbon/carbonwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, StdCtrls, Spin, PairSplitter, Classes, Controls, ComCtrls, StdCtrls, Spin, PairSplitter,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Calendar, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Calendar,
WSLCLClasses, WSLCLClasses, WSDialogs,
// Carbon units // Carbon units
CarbonWSButtons, CarbonWSCheckLst, CarbonWSComCtrls, CarbonWSControls, CarbonWSButtons, CarbonWSCheckLst, CarbonWSComCtrls, CarbonWSControls,
@ -257,7 +257,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/cocoa/cocoawsfactory.pas
View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, Controls, ComCtrls, StdCtrls, Spin, PairSplitter, Classes, Controls, ComCtrls, StdCtrls, Spin, PairSplitter,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Calendar, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Calendar,
WSLCLClasses, WSLCLClasses, WSDialogs,
CocoaWSCommon, CocoaWSCommon,
CocoaWSButtons, CocoaWSButtons,
CocoaWSExtCtrls, CocoaWSExtCtrls,
@ -268,7 +268,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/customdrawn/customdrawnwsfactory.pas
View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin, Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin,
Dialogs, ExtCtrls, Buttons, Forms, Menus, Dialogs, ExtCtrls, Buttons, Forms, Menus,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -268,7 +268,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/fpgui/fpguiwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, StdCtrls, Forms, Menus, ExtCtrls, Dialogs, ComCtrls, Grids, Classes, Controls, StdCtrls, Forms, Menus, ExtCtrls, Dialogs, ComCtrls, Grids,
Buttons, PairSplitter, WSLCLClasses; Buttons, PairSplitter, WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -264,7 +264,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/gtk/gtkwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin, Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin,
Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus, Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus,
PairSplitter, WSLCLClasses; PairSplitter, WSLCLClasses, WSDialogs;
// imglist // imglist
@ -295,7 +295,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/gtk2/gtk2wsfactory.pas
View File

@ -10,7 +10,7 @@ uses
// LCL // LCL
Controls, ComCtrls, Calendar, StdCtrls, Spin, Controls, ComCtrls, Calendar, StdCtrls, Spin,
Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus, Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus,
PairSplitter, WSLCLClasses; PairSplitter, WSLCLClasses, WSDialogs;
// imglist // imglist
@ -295,7 +295,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

6
lcl/interfaces/gtk3/gtk3wsfactory.pas
View File

@ -20,7 +20,8 @@ unit Gtk3WSFactory;
interface interface
uses uses
Classes, Controls, ComCtrls, Calendar, StdCtrls, Dialogs, ExtCtrls, ExtDlgs, Classes, Controls, ComCtrls, Calendar, StdCtrls, Dialogs, ExtCtrls, ExtDlgs,
Buttons, Spin, CheckLst, Forms, Menus, ImgList, PairSplitter, WSLCLClasses; Buttons, Spin, CheckLst, Forms, Menus, ImgList, PairSplitter, WSLCLClasses,
WSDialogs;
// imglist // imglist
@ -306,7 +307,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/mui/muiwsfactory.pas
View File

@ -9,7 +9,7 @@ uses
Spin, Spin,
MuiWSControls, MUIwsforms, MuiWSMenus, MUIWSStdCtrls, MuiWSControls, MUIwsforms, MuiWSMenus, MUIWSStdCtrls,
MuiWSDialogs, MuiWSComCtrls, MUIWSButtons, MUIWSSpin, MuiWSDialogs, MuiWSComCtrls, MUIWSButtons, MUIWSSpin,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -257,7 +257,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/qt/qtwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids, Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -272,7 +272,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/qt5/qtwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids, Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -275,7 +275,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/qt6/qtwsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids, Classes, Controls, ComCtrls, Calendar, StdCtrls, Spin, Grids,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, RubberBand, PairSplitter,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -275,7 +275,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls

6
lcl/interfaces/win32/win32wsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin, Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin,
Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus, ShellCtrls, Dialogs, ExtCtrls, ExtDlgs, Buttons, CheckLst, Forms, Grids, Menus, ShellCtrls,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -276,8 +276,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
RegisterWSComponent(TTaskDialog, TWin32WSTaskDialog); RegisterWSComponent(TTaskDialog, TWin32WSTaskDialog);
Result := True; Result := True;
end; end;
// StdCtrls // StdCtrls

5
lcl/interfaces/wince/wincewsfactory.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin, Classes, Controls, ComCtrls, ImgList, Calendar, StdCtrls, Spin,
Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Grids, Dialogs, ExtCtrls, Buttons, CheckLst, Forms, Menus, Grids,
WSLCLClasses; WSLCLClasses, WSDialogs;
// imglist // imglist
function RegisterCustomImageListResolution: Boolean; function RegisterCustomImageListResolution: Boolean;
@ -266,7 +266,8 @@ end;
function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog'; function RegisterTaskDialog: Boolean; alias : 'WSRegisterTaskDialog';
begin begin
Result := False; RegisterWSComponent(TTaskDialog, TWSTaskDialog);
Result := True;
end; end;
// StdCtrls // StdCtrls