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

IDE: project options: disable Set WidgetSet button instead of hiding it.

Browse Source 
git-svn-id: trunk@53326 -
This commit is contained in:
ondrej 2016-11-09 11:30:57 +00:00
parent 31944eda39
commit d487f8a68d
3 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/frames/compiler_modematrix.lfm
View File

@ -28,7 +28,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object BMMMoveDownButton: TToolButton
Left = 27
Left = 24
Top = 0
Caption = 'Down'
OnClick = BMMMoveDownButtonClick
@ -36,7 +36,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object BMMUndoButton: TToolButton
Left = 83
Left = 73
Top = 0
Caption = 'Undo'
OnClick = BMMUndoButtonClick
@ -44,7 +44,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object BMMRedoToolButton: TToolButton
Left = 126
Left = 110
Top = 0
Caption = 'Redo'
OnClick = BMMRedoToolButtonClick
@ -52,7 +52,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object BMMDeleteButton: TToolButton
Left = 436
Left = 375
Top = 0
Caption = 'Delete'
OnClick = BMMDeleteButtonClick
@ -60,7 +60,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object MoveSepToolButton: TToolButton
Left = 73
Left = 63
Height = 25
Top = 0
Width = 10
@ -68,7 +68,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator
end
object DoSepToolButton: TToolButton
Left = 167
Left = 145
Height = 25
Top = 0
Width = 10
@ -76,7 +76,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator
end
object AddSepToolButton: TToolButton
Left = 426
Left = 365
Height = 25
Top = 0
Width = 10
@ -84,7 +84,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator
end
object BMMAddOtherButton: TToolButton
Left = 338
Left = 292
Top = 0
Caption = 'Add Other'
DropdownMenu = BMMAddOtherPopupMenu
@ -92,14 +92,16 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsButtonDrop
end
object BMMAddLclWidgetButton: TToolButton
Left = 177
Left = 155
Top = 0
Caption = 'Add LCLWidgetType'
OnClick = BMMAddLclWidgetButtonClick
ParentShowHint = False
ShowHint = True
Style = tbsButtonDrop
end
object LCLMacroSepToolButton: TToolButton
Left = 328
Left = 282
Height = 25
Top = 0
Width = 10
@ -107,7 +109,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
Style = tbsSeparator
end
object BMMSystemEncodingButton: TToolButton
Left = 498
Left = 426
Top = 0
Caption = 'Use system encoding'
OnClick = BMMSystemEncodingButtonClick
@ -115,7 +117,7 @@ object CompOptModeMatrixFrame: TCompOptModeMatrixFrame
ShowHint = True
end
object DeleteSepToolButton: TToolButton
Left = 488
Left = 416
Height = 25
Top = 0
Width = 10

4
ide/frames/compiler_modematrix.pas
View File

@ -660,8 +660,7 @@ begin
end;
List.Sort;
// LCLWidgetType gets its own button.
BMMAddLclWidgetButton.Visible:=Assigned(LCLWidgetTypeMacro);
LCLMacroSepToolButton.Visible:=BMMAddLclWidgetButton.Visible;
BMMAddLclWidgetButton.Enabled:=Assigned(LCLWidgetTypeMacro);
if Assigned(LCLWidgetTypeMacro) then
AddLCLWidgetTypeValues(BMMAddLclWidgetPopupMenu, LCLWidgetTypeMacro);
// Place other macros to the popup menu opened from "Add" button.
@ -1234,6 +1233,7 @@ begin
fCaptionPatternMacroValue:=lisMMValueS;
BMMAddLclWidgetButton.Caption:=Format(fCaptionPatternMacroName,['LCLWidgetType']);
BMMAddLclWidgetButton.Hint := lisMMWidgetSetAvailableForLCLProject;
BMMAddOtherButton.Caption:=lisAdd;
BMMSystemEncodingButton.Caption:=lisMMUseSystemEncoding;

1
ide/lazarusidestrconsts.pas
View File

@ -6219,6 +6219,7 @@ resourcestring
lisMMOverrideOutputDirectory = 'Override output directory (-FU)';
lisMMUseSystemEncoding = 'Use system encoding';
lisMMUseSystemEncodingHint = 'Disable support for UTF-8 default string encoding.';
lisMMWidgetSetAvailableForLCLProject = 'WidgetSet change is available only for LCL projects';
lisPriority = 'Priority';
lisUDScanningUnits = 'Scanning: %s units ...';
lisUDFile = 'File: %s';