1
0

Add Dialogs and Misc tabs to Component Browser

This commit is contained in:
Timothy Warren 2021-10-13 14:35:12 -04:00
parent ae20af005f
commit c280226e4d
3 changed files with 70 additions and 8 deletions

View File

@ -8,10 +8,19 @@ uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Menus, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
Buttons, StdCtrls, ExtCtrls, ActnList, MaskEdit, grids, CheckLst, PairSplitter, Buttons, StdCtrls, ExtCtrls, ActnList, MaskEdit, grids, CheckLst, PairSplitter,
ColorBox, ValEdit, SynHighlighterPosition, strutils, SynEdit, DateTimePicker, ColorBox, ValEdit, SynHighlighterPosition, strutils, SynEdit, DateTimePicker,
PopupNotifier, typinfo; PopupNotifier, ExtDlgs, ComboEx, ShellCtrls, PrintersDlgs, Spin, EditBtn,
FileCtrl, Arrow, XMLPropStorage, IniPropStorage, JsonPropStorage,
IDEWindowIntf, ButtonPanel, typinfo;
type type
TPalettePage = (ppStandard, ppAdditional, ppCommonControls, ppOtherPagesNotListedHere); TPalettePage = (
ppStandard,
ppAdditional,
ppCommonControls,
ppDialogs,
ppMisc,
ppOtherPagesNotListedHere
);
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
@ -39,7 +48,7 @@ type
const const
MaxComponentsOnAPage = 21; // AdditionalPage MaxComponentsOnAPage = 21; // AdditionalPage
PageNames : array[TPalettePage] of shortstring = PageNames : array[TPalettePage] of shortstring =
('Standard', 'Additional', 'Common Controls', 'Other unlisted pages'); ('Standard', 'Additional', 'Common Controls', 'Dialogs', 'Misc', 'Other unlisted pages');
var var
Form1: TForm1; Form1: TForm1;
@ -320,6 +329,7 @@ begin
18: result := TActionList; 18: result := TActionList;
else result := nil; else result := nil;
end; end;
ppAdditional: case anIndex of ppAdditional: case anIndex of
1: result := TBitBtn; 1: result := TBitBtn;
2: result := TSpeedbutton; 2: result := TSpeedbutton;
@ -344,6 +354,7 @@ begin
21: result := TValueListEditor; 21: result := TValueListEditor;
else result := nil; else result := nil;
end; end;
ppCommonControls: case anIndex of ppCommonControls: case anIndex of
1: result := TTrackBar; 1: result := TTrackBar;
2: result := TProgressBar; 2: result := TProgressBar;
@ -361,6 +372,51 @@ begin
14: result := TDateTimePicker; 14: result := TDateTimePicker;
else result := nil; else result := nil;
end; end;
ppDialogs: case anIndex of
1: result := TOpenDialog;
2: result := TSaveDialog;
3: result := TSelectDirectoryDialog;
4: result := TColorDialog;
5: result := TFontDialog;
6: result := TFindDialog;
7: result := TReplaceDialog;
8: result := TTaskDialog;
9: result := TOpenPictureDialog;
10: result := TSavePictureDialog;
11: result := TCalendarDialog;
12: result := TCalculatorDialog;
13: result := TPrinterSetupDialog;
14: result := TPrintDialog;
15: result := TPageSetupDialog;
else result := nil;
end;
ppMisc: case anIndex of
1: result := TColorButton;
2: result := TSpinEdit;
3: result := TFloatSpinEdit;
4: result := TArrow;
5: result := TEditButton;
6: result := TFileNameEdit;
7: result := TDirectoryEdit;
8: result := TDateEdit;
9: result := TTimeEdit;
10: result := TCalcEdit;
11: result := TFileListBox;
12: result := TFilterComboBox;
13: result := TComboBoxEx;
14: result := TCheckComboBox;
15: result := TButtonPanel;
16: result := TShellTreeView;
17: result := TShellListView;
18: result := TXMLPropStorage;
19: result := TIniPropStorage;
20: result := TJsonPropStorage;
21: result := TIDEDialogLayoutStorage;
else result := nil;
end;
else result := nil; else result := nil;
end; end;
end; end;

View File

@ -25,16 +25,22 @@
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="0"/> <Modes Count="0"/>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="5">
<Item1> <Item1>
<PackageName Value="DateTimeCtrls"/> <PackageName Value="IDEIntf"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="SynEdit"/> <PackageName Value="Printer4Lazarus"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LCL"/> <PackageName Value="DateTimeCtrls"/>
</Item3> </Item3>
<Item4>
<PackageName Value="SynEdit"/>
</Item4>
<Item5>
<PackageName Value="LCL"/>
</Item5>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="2">
<Unit0> <Unit0>

View File

@ -7,7 +7,7 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, datetimectrls, comp_browser_main Forms, datetimectrls, printer4lazarus, comp_browser_main
{ you can add units after this }; { you can add units after this };
{$R *.res} {$R *.res}