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

IDE: remove redundant glyph assignments

Browse Source 
git-svn-id: trunk@57723 -
This commit is contained in:
ondrej 2018-04-26 10:02:59 +00:00
parent 801f6efb1b
commit a711fb97c0
17 changed files with 25 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/changeparentdlg.pas
View File

@ -107,7 +107,6 @@ begin
Caption := oisChangeParent;
chShowClasses.Caption := oisShowClasses;
TIDEImages.AssignImage(ListFilterEdit.Glyph, 'btnfiltercancel');
IDEDialogLayoutList.ApplyLayout(Self);
end;

2
components/ideintf/objectinspector.pp
View File

@ -4348,7 +4348,6 @@ begin
ComponentPanel.Constraints.MinHeight := 8;
ComponentPanel.Visible := FShowComponentTree;
CompFilterEdit.FilteredTreeview := ComponentTree;
TIDEImages.AssignImage(CompFilterEdit.Glyph, 'btnfiltercancel');
InfoPanel := TPanel.Create(Self);
with InfoPanel do
@ -4410,7 +4409,6 @@ begin
OnAfterFilter := @PropFilterEditAfterFilter;
OnResize := @PropFilterEditResize;
end;
TIDEImages.AssignImage(PropFilterEdit.Glyph, 'btnfiltercancel');
CreateNoteBook;
// TabOrder has no effect. TAB key is handled by TObjectInspectorDlg.KeyDown().

6
ide/componentlist.lfm
View File

@ -9,10 +9,9 @@ object ComponentListForm: TComponentListForm
KeyPreview = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '1.7'
LCLVersion = '1.9.0.0'
object PageControl: TPageControl
Left = 0
Height = 397
@ -44,7 +43,6 @@ object ComponentListForm: TComponentListForm
Top = 2
Width = 288
Align = alClient
DefaultItemHeight = 24
Images = imListPalette
Indent = 25
ReadOnly = True
@ -82,7 +80,6 @@ object ComponentListForm: TComponentListForm
Top = 5
Width = 282
Align = alClient
DefaultItemHeight = 24
Images = imListPalette
PopupMenu = pmCollapseExpand
ReadOnly = True
@ -119,7 +116,6 @@ object ComponentListForm: TComponentListForm
Top = 5
Width = 282
Align = alClient
DefaultItemHeight = 24
Images = imListPalette
Indent = 20
PopupMenu = pmCollapseExpand

6
ide/componentlist.pas
View File

@ -68,7 +68,6 @@ type
TreeFilterEd: TTreeFilterEdit;
procedure chbKeepOpenChange(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListTreeSelectionChanged(Sender: TObject);
procedure miCollapseAllClick(Sender: TObject);
@ -238,11 +237,6 @@ begin
UpdateComponents;
end;
procedure TComponentListForm.FormCreate(Sender: TObject);
begin
TIDEImages.AssignImage(TreeFilterEd.Glyph, 'btnfiltercancel');
end;
procedure TComponentListForm.ClearSelection;
begin
ListTree.Selected := Nil;

1
ide/editorfilemanager.pas
View File

@ -118,7 +118,6 @@ begin
OpenButton.Hint:=lisActivateSelected;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
TIDEImages.AssignImage(SortAlphabeticallyButton.Glyph, 'pkg_sortalphabetically');
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TEditorFileManagerForm.CheckListBox1Click(Sender: TObject);

1
ide/frames/compiler_messages_options.pas
View File

@ -102,7 +102,6 @@ begin
UseMsgFileCheckBox.Visible:=false;
MsgFileEdit.Visible:=false;
MsgFileBrowseButton.Visible:=false;
TIDEImages.AssignImage(editMsgFilter.Glyph, 'btnfiltercancel');
end;
destructor TCompilerMessagesOptionsFrame.Destroy;

1
ide/frames/editor_keymapping_options.pas
View File

@ -188,7 +188,6 @@ begin
EditButton.Enabled:=false;
ClearButton.Enabled:=false;
fModified:=False;
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
destructor TEditorKeymappingOptionsFrame.Destroy;

17
ide/ideoptionsdlg.lfm
View File

@ -10,7 +10,6 @@ object IDEOptionsDialog: TIDEOptionsDialog
ClientWidth = 800
Constraints.MinHeight = 350
Constraints.MinWidth = 500
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
@ -20,8 +19,8 @@ object IDEOptionsDialog: TIDEOptionsDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
Left = 6
Height = 34
Top = 460
Height = 33
Top = 461
Width = 788
BorderSpacing.Left = 6
BorderSpacing.Right = 6
@ -41,7 +40,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
end
object CatTVSplitter: TSplitter
Left = 255
Height = 460
Height = 461
Top = 0
Width = 4
end
@ -49,12 +48,12 @@ object IDEOptionsDialog: TIDEOptionsDialog
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
Height = 460
Height = 461
Top = 0
Width = 255
Align = alLeft
BevelOuter = bvNone
ClientHeight = 460
ClientHeight = 461
ClientWidth = 255
Constraints.MinWidth = 150
TabOrder = 2
@ -66,7 +65,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = SettingsPanel
Left = 6
Height = 405
Height = 406
Top = 35
Width = 249
Anchors = [akTop, akLeft, akRight, akBottom]
@ -100,7 +99,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
object SettingsPanel: TPanel
Left = 0
Height = 20
Top = 440
Top = 441
Width = 255
Align = alBottom
AutoSize = True
@ -178,7 +177,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel
Left = 259
Height = 420
Height = 421
Top = 40
Width = 535
HorzScrollBar.Page = 1

6
ide/ideoptionsdlg.pas
View File

@ -65,7 +65,6 @@ type
EditorsPanel: TScrollBox;
FilterEdit: TTreeFilterEdit;
SettingsPanel: TPanel;
procedure FormCreate(Sender: TObject);
procedure UseBuildModeCheckBoxChange(Sender: TObject);
procedure BuildModeComboBoxSelect(Sender: TObject);
procedure BuildModeManageButtonClick(Sender: TObject);
@ -237,11 +236,6 @@ begin
UpdateBuildModeButtons;
end;
procedure TIDEOptionsDialog.FormCreate(Sender: TObject);
begin
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TIDEOptionsDialog.BuildModeComboBoxSelect(Sender: TObject);
begin
if AllBuildModes then begin

1
ide/projectinspector.pas
View File

@ -548,7 +548,6 @@ end;
procedure TProjectInspectorForm.FormCreate(Sender: TObject);
begin
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
if OPMInterface <> nil then
OPMInterface.OnPackageListAvailable := @DoOnPackageListAvailable;
end;

1
ide/restrictionbrowser.pas
View File

@ -112,7 +112,6 @@ begin
end;
end;
FilterEdit.OnAfterFilter := @SelectFirstVisible;
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
UpdateIssueList;
end;

34
ide/searchresultview.lfm
View File

@ -11,13 +11,13 @@ object SearchResultsView: TSearchResultsView
OnClose = FormClose
OnCreate = Form1Create
OnKeyDown = FormKeyDown
LCLVersion = '1.5'
LCLVersion = '1.9.0.0'
object ResultsNoteBook: TPageControl
AnchorSideTop.Control = ToolBar
AnchorSideTop.Side = asrBottom
Left = 0
Height = 249
Top = 24
Height = 251
Top = 22
Width = 799
Anchors = [akTop, akLeft, akRight, akBottom]
MultiLine = True
@ -29,30 +29,29 @@ object SearchResultsView: TSearchResultsView
end
object ToolBar: TToolBar
Left = 0
Height = 24
Height = 22
Top = 0
Width = 57
Width = 55
Align = alNone
AutoSize = True
EdgeBorders = []
TabOrder = 2
object SearchAgainButton: TToolButton
Left = 1
Top = 2
Top = 0
Caption = 'SearchAgainButton'
OnClick = SearchAgainButtonClick
end
object ClosePageButton: TToolButton
Left = 24
Top = 2
Top = 0
Caption = 'ClosePageButton'
OnClick = ClosePageButtonClick
end
object ToolButton3: TToolButton
Left = 47
Height = 22
Top = 2
Width = 10
Top = 0
Caption = 'ToolButton3'
Style = tbsSeparator
end
@ -64,22 +63,21 @@ object SearchResultsView: TSearchResultsView
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 63
Left = 61
Height = 23
Top = 1
Width = 296
UseFormActivate = True
Top = 0
Width = 738
ButtonWidth = 23
NumGlyphs = 1
BorderSpacing.Left = 6
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
MaxLength = 0
TabOrder = 0
OnChange = SearchInListChange
end
object popList: TPopupMenu
left = 190
top = 133
Left = 190
Top = 133
object mniCopyItem: TMenuItem
Caption = 'Copy Item'
OnClick = mniCopyItemClick
@ -105,8 +103,8 @@ object SearchResultsView: TSearchResultsView
end
end
object ActionList: TActionList
left = 93
top = 133
Left = 93
Top = 133
object actClosePage: TAction
OnExecute = ClosePageButtonClick
ShortCut = 16499

1
ide/toolbarconfig.pas
View File

@ -178,7 +178,6 @@ begin
TIDEImages.AssignImage(btnMoveUp.Glyph, 'arrow__darkgreen_up');
TIDEImages.AssignImage(btnMoveDown.Glyph, 'arrow__darkgreen_down');
//TIDEImages.AssignImage(btnAddDivider.Glyph, 'menu_divider16'); // uncomment if 'menu_divider16' exists (currently not)
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
btnAddDivider.Caption := '---';
btnAdd.Hint := lisCoolBarAddSelected;

1
ide/viewunit_dlg.pp
View File

@ -323,7 +323,6 @@ begin
ButtonPanel.CancelButton.Caption:=lisCancel;
SortAlphabeticallySpeedButton.Hint:=lisPESortFilesAlphabetically;
TIDEImages.AssignImage(SortAlphabeticallySpeedButton.Glyph, 'pkg_sortalphabetically');
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TViewUnitDialog.FormDestroy(Sender: TObject);

1
packager/addpkgdependencydlg.pas
View File

@ -96,7 +96,6 @@ begin
inherited Create(TheOwner);
Caption:=lisProjAddNewRequirement;
fPackages:=TAVLTree.Create(@CompareLazPackageIDNames);
TIDEImages.AssignImage(DependPkgNameFilter.Glyph, 'btnfiltercancel');
DependPkgNameLabel.Caption:=lisProjAddPackageName;
DependPkgTypeLabel.Caption:=lisProjAddPackageType;

2
packager/installpkgsetdlg.pas
View File

@ -231,8 +231,6 @@ begin
SaveAndExitButton.Caption:=lisSaveAndExitDialog;
HelpButton.Caption:=lisMenuHelp;
CancelButton.Caption:=lisCancel;
TIDEImages.AssignImage(AvailableFilterEdit.Glyph, 'btnfiltercancel');
TIDEImages.AssignImage(InstalledFilterEdit.Glyph, 'btnfiltercancel');
FNewInstalledPackages:=TObjectList.Create(true);
PkgInfoMemo.Clear;

1
packager/packageeditor.pas
View File

@ -1453,7 +1453,6 @@ begin
SetupComponents;
SortAlphabetically := EnvironmentOptions.PackageEditorSortAlphabetically;
ShowDirectoryHierarchy := EnvironmentOptions.PackageEditorShowDirHierarchy;
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TPackageEditorForm.FormDestroy(Sender: TObject);