tutorials/lazarus-tutorials
1
0
Fork 0
Code Releases Activity

Add Dialogs and Misc tabs to Component Browser

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
compbrowser/comp_browser_main.pas
View File

@ -8,10 +8,19 @@ uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
Buttons, StdCtrls, ExtCtrls, ActnList, MaskEdit, grids, CheckLst, PairSplitter,
ColorBox, ValEdit, SynHighlighterPosition, strutils, SynEdit, DateTimePicker,
PopupNotifier, typinfo;
PopupNotifier, ExtDlgs, ComboEx, ShellCtrls, PrintersDlgs, Spin, EditBtn,
FileCtrl, Arrow, XMLPropStorage, IniPropStorage, JsonPropStorage,
IDEWindowIntf, ButtonPanel, typinfo;
type
TPalettePage = (ppStandard, ppAdditional, ppCommonControls, ppOtherPagesNotListedHere);
TPalettePage = (
ppStandard,
ppAdditional,
ppCommonControls,
ppDialogs,
ppMisc,
ppOtherPagesNotListedHere
);
{ TForm1 }
TForm1 = class(TForm)
@ -39,7 +48,7 @@ type
const
MaxComponentsOnAPage = 21; // AdditionalPage
PageNames : array[TPalettePage] of shortstring =
('Standard', 'Additional', 'Common Controls', 'Other unlisted pages');
('Standard', 'Additional', 'Common Controls', 'Dialogs', 'Misc', 'Other unlisted pages');
var
Form1: TForm1;
@ -320,6 +329,7 @@ begin
18: result := TActionList;
else result := nil;
end;
ppAdditional: case anIndex of
1: result := TBitBtn;
2: result := TSpeedbutton;
@ -344,6 +354,7 @@ begin
21: result := TValueListEditor;
else result := nil;
end;
ppCommonControls: case anIndex of
1: result := TTrackBar;
2: result := TProgressBar;
@ -361,6 +372,51 @@ begin
14: result := TDateTimePicker;
else result := nil;
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;
end;
end;

14
compbrowser/compbrowser.lpi
View File

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

2
compbrowser/compbrowser.lpr
View File

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