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

IDE: High-DPI: CodeBrowser: Fixed image sizes.

Browse Source 
git-svn-id: trunk@55514 -
This commit is contained in:
michl 2017-07-15 20:56:52 +00:00
parent 8cbf3a8724
commit 35f9e8200f
1 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
ide/codebrowser.pas
View File

@ -58,6 +58,7 @@ uses
// IDEIntf // IDEIntf
IDEWindowIntf, SrcEditorIntf, IDEMsgIntf, IDEDialogs, LazConfigStorage, IDEWindowIntf, SrcEditorIntf, IDEMsgIntf, IDEDialogs, LazConfigStorage,
IDEHelpIntf, PackageIntf, IDECommands, LazIDEIntf, IDEExternToolIntf, IDEHelpIntf, PackageIntf, IDECommands, LazIDEIntf, IDEExternToolIntf,
IDEImagesIntf,
// IDE // IDE
Project, DialogProcs, PackageSystem, PackageDefs, LazarusIDEStrConsts, Project, DialogProcs, PackageSystem, PackageDefs, LazarusIDEStrConsts,
IDEOptionDefs, etFPCMsgParser, BasePkgManager, EnvironmentOpts; IDEOptionDefs, etFPCMsgParser, BasePkgManager, EnvironmentOpts;
@ -813,25 +814,30 @@ begin
end; end;
procedure TCodeBrowserView.InitImageList; procedure TCodeBrowserView.InitImageList;
var
ImageSize: Integer;
begin begin
ImgIDDefault := Imagelist1.AddResourceName(HInstance, 'ce_default'); ImageSize := TIDEImages.ScaledSize;
ImgIDProgramCode := Imagelist1.AddResourceName(HInstance, 'ce_program'); ImageList1.Width := ImageSize;
ImgIDUnitCode := Imagelist1.AddResourceName(HInstance, 'ce_unit'); ImageList1.Height := ImageSize;
ImgIDInterfaceSection := Imagelist1.AddResourceName(HInstance, 'ce_interface'); ImgIDDefault := TIDEImages.AddImageToImageList(Imagelist1, 'ce_default');
ImgIDImplementation := Imagelist1.AddResourceName(HInstance, 'ce_implementation'); ImgIDProgramCode := TIDEImages.AddImageToImageList(Imagelist1, 'ce_program');
ImgIDInitialization := Imagelist1.AddResourceName(HInstance, 'ce_initialization'); ImgIDUnitCode := TIDEImages.AddImageToImageList(Imagelist1, 'ce_unit');
ImgIDFinalization := Imagelist1.AddResourceName(HInstance, 'ce_finalization'); ImgIDInterfaceSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_interface');
ImgIDTypeSection := Imagelist1.AddResourceName(HInstance, 'ce_type'); ImgIDImplementation := TIDEImages.AddImageToImageList(Imagelist1, 'ce_implementation');
ImgIDType := Imagelist1.AddResourceName(HInstance, 'ce_type'); ImgIDInitialization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_initialization');
ImgIDVarSection := Imagelist1.AddResourceName(HInstance, 'ce_variable'); ImgIDFinalization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_finalization');
ImgIDVariable := Imagelist1.AddResourceName(HInstance, 'ce_variable'); ImgIDTypeSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_type');
ImgIDConstSection := Imagelist1.AddResourceName(HInstance, 'ce_const'); ImgIDType := TIDEImages.AddImageToImageList(Imagelist1, 'ce_type');
ImgIDConst := Imagelist1.AddResourceName(HInstance, 'ce_const'); ImgIDVarSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_variable');
ImgIDClass := Imagelist1.AddResourceName(HInstance, 'ce_class'); ImgIDVariable := TIDEImages.AddImageToImageList(Imagelist1, 'ce_variable');
ImgIDProc := Imagelist1.AddResourceName(HInstance, 'ce_procedure'); ImgIDConstSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_const');
ImgIDProperty := Imagelist1.AddResourceName(HInstance, 'ce_property'); ImgIDConst := TIDEImages.AddImageToImageList(Imagelist1, 'ce_const');
ImgIDPackage := Imagelist1.AddResourceName(HInstance, 'item_package'); ImgIDClass := TIDEImages.AddImageToImageList(Imagelist1, 'ce_class');
ImgIDProject := Imagelist1.AddResourceName(HInstance, 'item_project'); ImgIDProc := TIDEImages.AddImageToImageList(Imagelist1, 'ce_procedure');
ImgIDProperty := TIDEImages.AddImageToImageList(Imagelist1, 'ce_property');
ImgIDPackage := TIDEImages.AddImageToImageList(Imagelist1, 'item_package');
ImgIDProject := TIDEImages.AddImageToImageList(Imagelist1, 'item_project');
end; end;
procedure TCodeBrowserView.SetScannedBytes(const AValue: PtrInt); procedure TCodeBrowserView.SetScannedBytes(const AValue: PtrInt);