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

IDE: High-DPI: Fixed image sizes of in IDE used TTreeFilterEdits and TListFilterEdits.

Browse Source 
git-svn-id: trunk@55498 -
This commit is contained in:
michl 2017-07-13 19:32:16 +00:00
parent e297288037
commit 6f5300c1e9
18 changed files with 40 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/changeparentdlg.pas
View File

@ -17,8 +17,8 @@ unit ChangeParentDlg;
interface
uses
Classes, SysUtils, strutils, FileUtil, ListFilterEdit, PropEditUtils, Forms,
Controls, Graphics, Dialogs, StdCtrls, ButtonPanel;
Classes, SysUtils, strutils, FileUtil, ListFilterEdit, PropEditUtils,
IDEImagesIntf, Forms, Controls, Graphics, Dialogs, StdCtrls, ButtonPanel;
type
@ -103,6 +103,8 @@ begin
Caption := oisChangeParent;
chShowClasses.Caption := oisShowClasses;
TIDEImages.AssignImage(ListFilterEdit.Glyph, 'btnfiltercancel');
end;
{$HINTS OFF}

1
ide/componentlist.lfm
View File

@ -9,6 +9,7 @@ object ComponentListForm: TComponentListForm
KeyPreview = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
LCLVersion = '1.7'

6
ide/componentlist.pas
View File

@ -68,6 +68,7 @@ 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);
@ -235,6 +236,11 @@ 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,6 +118,7 @@ begin
OpenButton.Hint:=lisActivateSelected;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
TIDEImages.AssignImage(SortAlphabeticallyButton.Glyph, 'pkg_sortalphabetically');
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TEditorFileManagerForm.CheckListBox1Click(Sender: TObject);

3
ide/frames/compiler_messages_options.pas
View File

@ -7,7 +7,7 @@ interface
uses
Classes, SysUtils, FileUtil, LazFileCache, LazLoggerBase, ListFilterEdit,
StdCtrls, CheckLst, Dialogs, IDEOptionsIntf, IDEExternToolIntf,
IDEDialogs, CompOptsIntf, CodeToolsFPCMsgs, CompilerOptions,
IDEDialogs, CompOptsIntf, IDEImagesIntf, CodeToolsFPCMsgs, CompilerOptions,
LazarusIDEStrConsts, etFPCMsgParser;
type
@ -102,6 +102,7 @@ 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,6 +188,7 @@ begin
EditButton.Enabled:=false;
ClearButton.Enabled:=false;
fModified:=False;
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
destructor TEditorKeymappingOptionsFrame.Destroy;

1
ide/ideoptionsdlg.lfm
View File

@ -9,6 +9,7 @@ object IDEOptionsDialog: TIDEOptionsDialog
ClientWidth = 800
Constraints.MinHeight = 350
Constraints.MinWidth = 500
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'

7
ide/ideoptionsdlg.pas
View File

@ -35,6 +35,7 @@ uses
Dialogs, TreeFilterEdit,
// IdeIntf
IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf,
IDEImagesIntf,
// IDE
EnvironmentOpts, EditorOptions, BuildModesManager, Compiler_ModeMatrix,
Project, LazarusIDEStrConsts,
@ -64,6 +65,7 @@ type
EditorsPanel: TScrollBox;
FilterEdit: TTreeFilterEdit;
SettingsPanel: TPanel;
procedure FormCreate(Sender: TObject);
procedure UseBuildModeCheckBoxChange(Sender: TObject);
procedure BuildModeComboBoxSelect(Sender: TObject);
procedure BuildModeManageButtonClick(Sender: TObject);
@ -233,6 +235,11 @@ 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.lfm
View File

@ -8,6 +8,7 @@ object ProjectInspectorForm: TProjectInspectorForm
Caption = 'ProjectInspectorForm'
ClientHeight = 456
ClientWidth = 299
OnCreate = FormCreate
OnDropFiles = FormDropFiles
LCLVersion = '1.7'
object ItemsTreeView: TTreeView

6
ide/projectinspector.pas
View File

@ -111,6 +111,7 @@ type
procedure CopyMoveToDirMenuItemClick(Sender: TObject);
procedure DirectoryHierarchyButtonClick(Sender: TObject);
procedure FilterEditKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure ItemsPopupMenuPopup(Sender: TObject);
procedure ItemsTreeViewAdvancedCustomDrawItem(Sender: TCustomTreeView;
@ -542,6 +543,11 @@ begin
end;
end;
procedure TProjectInspectorForm.FormCreate(Sender: TObject);
begin
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
end;
procedure TProjectInspectorForm.FormDropFiles(Sender: TObject;
const FileNames: array of String);
var

1
ide/restrictionbrowser.pas
View File

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

14
ide/searchresultview.pp
View File

@ -283,8 +283,6 @@ end;
procedure TSearchResultsView.Form1Create(Sender: TObject);
var
CloseCommand: TIDECommand;
ScaledIcon: TGraphic;
NewScaledIcon: Boolean;
begin
FMaxItems:=50000;
ResultsNoteBook.Options:= ResultsNoteBook.Options+[nboShowCloseButtons];
@ -320,17 +318,7 @@ begin
ClosePageButton.ImageIndex := IDEImages.LoadImage('menu_close');
ActionList.Images := IDEImages.Images_16;
actClosePage.ImageIndex := IDEImages.LoadImage('menu_close');
ScaledIcon := TIDEImages.ScaleImage(SearchInListEdit.Glyph, NewScaledIcon,
MulDiv(SearchInListEdit.Glyph.Width, TIDEImages.GetScalePercent, 100),
MulDiv(SearchInListEdit.Glyph.Height, TIDEImages.GetScalePercent, 100),
TIDEImages.GetScalePercent / 100);
try
SearchInListEdit.Glyph.Assign(ScaledIcon);
finally
if NewScaledIcon then
ScaledIcon.Free;
end;
TIDEImages.AssignImage(SearchInListEdit.Glyph, 'btnfiltercancel');
end;
procedure TSearchResultsView.FormClose(Sender: TObject; var CloseAction: TCloseAction);

1
ide/toolbarconfig.pas
View File

@ -195,6 +195,7 @@ begin
TIDEImages.AssignImage(btnMoveUp.Glyph, 'arrow__darkgreen_up');
TIDEImages.AssignImage(btnMoveDown.Glyph, 'arrow__darkgreen_down');
TIDEImages.AssignImage(btnAddDivider.Glyph, 'menu_divider16');
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
btnAddDivider.Caption := '---';

1
ide/useunitdlg.pas
View File

@ -194,6 +194,7 @@ begin
ButtonPanel1.OKButton.Caption:=lisMenuOk;
ButtonPanel1.CancelButton.Caption:=lisCancel;
UnitImgInd := IDEImages.LoadImage('item_unit');
TIDEImages.AssignImage(FilterEdit.Glyph, 'btnfiltercancel');
FProjUnits:=TStringList.Create;
end;

1
ide/viewunit_dlg.pp
View File

@ -323,6 +323,7 @@ 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);

3
packager/addpkgdependencydlg.pas
View File

@ -11,7 +11,7 @@ uses
// LazControls
ListFilterEdit,
// IDEIntf
IDEWindowIntf, PackageDependencyIntf, PackageIntf, IDEDialogs,
IDEWindowIntf, PackageDependencyIntf, PackageIntf, IDEDialogs, IDEImagesIntf,
// IDE
LazarusIDEStrConsts, PackageDefs, PackageSystem, ProjPackCommon, ProjPackChecks;
@ -80,6 +80,7 @@ begin
Caption:=lisProjAddNewRequirement;
fPackages:=TAVLTree.Create(@CompareLazPackageIDNames);
IDEDialogLayoutList.ApplyLayout(Self,400,360);
TIDEImages.AssignImage(DependPkgNameFilter.Glyph, 'btnfiltercancel');
DependPkgNameLabel.Caption:=lisProjAddPackageName;
DependMinVersionLabel.Caption:=lisProjAddMinimumVersionOptional;

2
packager/installpkgsetdlg.pas
View File

@ -227,6 +227,8 @@ 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

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