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

IDE: use tbsButtonDrop instead of '>>' buttons

Browse Source 
git-svn-id: trunk@50903 -
This commit is contained in:
ondrej 2015-12-18 10:39:04 +00:00
parent d57608b610
commit e9d1b1acd4
6 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/exttooldialog.pas
View File

@ -142,7 +142,8 @@ begin
MoveUpButton.Caption:=lisUp; MoveUpButton.Caption:=lisUp;
MoveDownButton.Caption:=lisDown; MoveDownButton.Caption:=lisDown;
ExtraButton.Caption:=lisMoreSub; ExtraButton.Caption:=lisMore;
ExtraButton.Style:=tbsButtonDrop;
MenuItemClone.Caption:=lisClone; MenuItemClone.Caption:=lisClone;
MenuItemExport.Caption:=lisDlgExport; MenuItemExport.Caption:=lisDlgExport;
MenuItemImport.Caption:=lisDlgImport; MenuItemImport.Caption:=lisDlgImport;

28
ide/frames/compiler_modematrix.lfm
View File

@ -28,7 +28,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object BMMMoveDownButton: TToolButton object BMMMoveDownButton: TToolButton
Left = 26 Left = 24
Top = 0 Top = 0
Caption = 'Down' Caption = 'Down'
OnClick = BMMMoveDownButtonClick OnClick = BMMMoveDownButtonClick
@ -36,7 +36,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object BMMUndoButton: TToolButton object BMMUndoButton: TToolButton
Left = 79 Left = 73
Top = 0 Top = 0
Caption = 'Undo' Caption = 'Undo'
OnClick = BMMUndoButtonClick OnClick = BMMUndoButtonClick
@ -44,7 +44,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object BMMRedoToolButton: TToolButton object BMMRedoToolButton: TToolButton
Left = 120 Left = 110
Top = 0 Top = 0
Caption = 'Redo' Caption = 'Redo'
OnClick = BMMRedoToolButtonClick OnClick = BMMRedoToolButtonClick
@ -52,7 +52,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object BMMDeleteButton: TToolButton object BMMDeleteButton: TToolButton
Left = 555 Left = 505
Top = 0 Top = 0
Caption = 'Delete' Caption = 'Delete'
OnClick = BMMDeleteButtonClick OnClick = BMMDeleteButtonClick
@ -60,7 +60,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object MoveSepToolButton: TToolButton object MoveSepToolButton: TToolButton
Left = 69 Left = 63
Height = 25 Height = 25
Top = 0 Top = 0
Width = 10 Width = 10
@ -68,7 +68,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator Style = tbsSeparator
end end
object DoSepToolButton: TToolButton object DoSepToolButton: TToolButton
Left = 159 Left = 145
Height = 25 Height = 25
Top = 0 Top = 0
Width = 10 Width = 10
@ -76,7 +76,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator Style = tbsSeparator
end end
object SystemEncodingSepToolButton: TToolButton object SystemEncodingSepToolButton: TToolButton
Left = 545 Left = 495
Height = 25 Height = 25
Top = 0 Top = 0
Width = 10 Width = 10
@ -84,22 +84,22 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator Style = tbsSeparator
end end
object BMMAddOtherButton: TToolButton object BMMAddOtherButton: TToolButton
Left = 319 Left = 292
Top = 0 Top = 0
Caption = 'Add Other' Caption = 'Add Other'
DropdownMenu = BMMAddOtherPopupMenu DropdownMenu = BMMAddOtherPopupMenu
OnClick = BMMAddOtherButtonClick OnClick = BMMAddOtherButtonClick
Style = tbsDropDown Style = tbsButtonDrop
end end
object BMMAddLclWidgetButton: TToolButton object BMMAddLclWidgetButton: TToolButton
Left = 169 Left = 155
Top = 0 Top = 0
Caption = 'Add LCLWidgetType' Caption = 'Add LCLWidgetType'
OnClick = BMMAddLclWidgetButtonClick OnClick = BMMAddLclWidgetButtonClick
Style = tbsDropDown Style = tbsButtonDrop
end end
object LCLMacroSepToolButton: TToolButton object LCLMacroSepToolButton: TToolButton
Left = 309 Left = 282
Height = 25 Height = 25
Top = 0 Top = 0
Width = 10 Width = 10
@ -107,7 +107,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator Style = tbsSeparator
end end
object BMMSystemEncodingButton: TToolButton object BMMSystemEncodingButton: TToolButton
Left = 411 Left = 375
Top = 0 Top = 0
Caption = 'Use system encoding' Caption = 'Use system encoding'
OnClick = BMMSystemEncodingButtonClick OnClick = BMMSystemEncodingButtonClick
@ -115,7 +115,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True ShowHint = True
end end
object AddOtherSepToolButton: TToolButton object AddOtherSepToolButton: TToolButton
Left = 401 Left = 365
Height = 25 Height = 25
Top = 0 Top = 0
Width = 10 Width = 10

4
ide/lazarusidestrconsts.pas
View File

@ -126,7 +126,6 @@ resourcestring
lisLess = 'Less'; lisLess = 'Less';
lisMore = 'More'; lisMore = 'More';
lisDlgMore = 'More ...'; lisDlgMore = 'More ...';
lisMoreSub = 'More >>';
lisDefault = 'Default'; lisDefault = 'Default';
lisClone = 'Clone'; lisClone = 'Clone';
lisExport = 'Export'; lisExport = 'Export';
@ -4459,8 +4458,7 @@ resourcestring
lisPckEditAddFilesFromFileSystem = 'Add Files from File System'; lisPckEditAddFilesFromFileSystem = 'Add Files from File System';
lisPckEditAddOtherItems = 'Add other items'; lisPckEditAddOtherItems = 'Add other items';
lisPckEditRemoveSelectedItem = 'Remove selected item'; lisPckEditRemoveSelectedItem = 'Remove selected item';
lisUseSub = 'Use >>'; lisUse = 'Use';
lisAddSub = 'Add >>';
lisClickToSeeTheChoices = 'Click to see the choices'; lisClickToSeeTheChoices = 'Click to see the choices';
lisPckEditEditGeneralOptions = 'Edit general options'; lisPckEditEditGeneralOptions = 'Edit general options';
lisPkgEdMoreFunctionsForThePackage = 'More functions for the package'; lisPkgEdMoreFunctionsForThePackage = 'More functions for the package';

2
ide/projectinspector.lfm
View File

@ -9,7 +9,7 @@ object ProjectInspectorForm: TProjectInspectorForm
ClientHeight = 456 ClientHeight = 456
ClientWidth = 299 ClientWidth = 299
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
LCLVersion = '1.5' LCLVersion = '1.7'
object ItemsTreeView: TTreeView object ItemsTreeView: TTreeView
Left = 0 Left = 0
Height = 378 Height = 378

3
ide/projectinspector.pas
View File

@ -997,7 +997,8 @@ begin
ToolBar.Images := IDEImages.Images_16; ToolBar.Images := IDEImages.Images_16;
FilterEdit.OnGetImageIndex:=@OnTreeViewGetImageIndex; FilterEdit.OnGetImageIndex:=@OnTreeViewGetImageIndex;
AddBitBtn := CreateToolButton('AddBitBtn', lisAddSub, lisClickToSeeTheChoices, 'laz_add', nil); AddBitBtn := CreateToolButton('AddBitBtn', lisAdd, lisClickToSeeTheChoices, 'laz_add', nil);
AddBitBtn.Style:=tbsButtonDrop;
RemoveBitBtn := CreateToolButton('RemoveBitBtn', lisRemove, lisPckEditRemoveSelectedItem, 'laz_delete', @RemoveBitBtnClick); RemoveBitBtn := CreateToolButton('RemoveBitBtn', lisRemove, lisPckEditRemoveSelectedItem, 'laz_delete', @RemoveBitBtnClick);
CreateDivider; CreateDivider;
OptionsBitBtn := CreateToolButton('OptionsBitBtn', lisOptions, lisPckEditEditGeneralOptions, 'menu_environment_options', @OptionsBitBtnClick); OptionsBitBtn := CreateToolButton('OptionsBitBtn', lisOptions, lisPckEditEditGeneralOptions, 'menu_environment_options', @OptionsBitBtnClick);

9
packager/packageeditor.pas
View File

@ -1906,14 +1906,17 @@ begin
SaveBitBtn := CreateToolButton('SaveBitBtn', lisMenuSave, lisPckEditSavePackage, 'laz_save', @SaveBitBtnClick); SaveBitBtn := CreateToolButton('SaveBitBtn', lisMenuSave, lisPckEditSavePackage, 'laz_save', @SaveBitBtnClick);
CompileBitBtn := CreateToolButton('CompileBitBtn', lisCompile, lisPckEditCompilePackage, 'pkg_compile', @CompileBitBtnClick); CompileBitBtn := CreateToolButton('CompileBitBtn', lisCompile, lisPckEditCompilePackage, 'pkg_compile', @CompileBitBtnClick);
UseBitBtn := CreateToolButton('UseBitBtn', lisUseSub, lisClickToSeeTheChoices, 'pkg_install', nil); UseBitBtn := CreateToolButton('UseBitBtn', lisUse, lisClickToSeeTheChoices, 'pkg_install', nil);
UseBitBtn.Style:=tbsButtonDrop;
CreateDivider; CreateDivider;
AddBitBtn := CreateToolButton('AddBitBtn', lisAddSub, lisClickToSeeTheChoices, 'laz_add', nil); AddBitBtn := CreateToolButton('AddBitBtn', lisAdd, lisClickToSeeTheChoices, 'laz_add', nil);
AddBitBtn.Style:=tbsButtonDrop;
RemoveBitBtn := CreateToolButton('RemoveBitBtn', lisRemove, lisPckEditRemoveSelectedItem, 'laz_delete', @RemoveBitBtnClick); RemoveBitBtn := CreateToolButton('RemoveBitBtn', lisRemove, lisPckEditRemoveSelectedItem, 'laz_delete', @RemoveBitBtnClick);
CreateDivider; CreateDivider;
OptionsBitBtn := CreateToolButton('OptionsBitBtn', lisOptions, lisPckEditEditGeneralOptions, 'pkg_properties', @OptionsBitBtnClick); OptionsBitBtn := CreateToolButton('OptionsBitBtn', lisOptions, lisPckEditEditGeneralOptions, 'pkg_properties', @OptionsBitBtnClick);
HelpBitBtn := CreateToolButton('HelpBitBtn', GetButtonCaption(idButtonHelp), lisMenuOnlineHelp, 'menu_help', @HelpBitBtnClick); HelpBitBtn := CreateToolButton('HelpBitBtn', GetButtonCaption(idButtonHelp), lisMenuOnlineHelp, 'menu_help', @HelpBitBtnClick);
MoreBitBtn := CreateToolButton('MoreBitBtn', lisMoreSub, lisPkgEdMoreFunctionsForThePackage, '', nil); MoreBitBtn := CreateToolButton('MoreBitBtn', lisMore, lisPkgEdMoreFunctionsForThePackage, '', nil);
MoreBitBtn.Style:=tbsButtonDrop;
UseBitBtn.DropdownMenu := UsePopupMenu; UseBitBtn.DropdownMenu := UsePopupMenu;
AddBitBtn.DropdownMenu := AddPopupMenu; AddBitBtn.DropdownMenu := AddPopupMenu;