paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +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;
MoveDownButton.Caption:=lisDown;
ExtraButton.Caption:=lisMoreSub;
ExtraButton.Caption:=lisMore;
ExtraButton.Style:=tbsButtonDrop;
MenuItemClone.Caption:=lisClone;
MenuItemExport.Caption:=lisDlgExport;
MenuItemImport.Caption:=lisDlgImport;

28
ide/frames/compiler_modematrix.lfm
View File

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

4
ide/lazarusidestrconsts.pas
View File

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

2
ide/projectinspector.lfm
View File

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

3
ide/projectinspector.pas
View File

@ -997,7 +997,8 @@ begin
ToolBar.Images := IDEImages.Images_16;
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);
CreateDivider;
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);
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;
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);
CreateDivider;
OptionsBitBtn := CreateToolButton('OptionsBitBtn', lisOptions, lisPckEditEditGeneralOptions, 'pkg_properties', @OptionsBitBtnClick);
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;
AddBitBtn.DropdownMenu := AddPopupMenu;