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

IDE: code browser, code explorer: use new High-DPI icons, issue #33056

Browse Source 
git-svn-id: trunk@57128 -
This commit is contained in:
ondrej 2018-01-20 10:56:23 +00:00
parent 427a4f600d
commit f46f474a77
3 changed files with 44 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/codebrowser.pas
View File

@ -822,20 +822,20 @@ begin
ImageList1.Height := ImageSize;
ImgIDDefault := TIDEImages.AddImageToImageList(Imagelist1, 'ce_default');
ImgIDProgramCode := TIDEImages.AddImageToImageList(Imagelist1, 'ce_program');
ImgIDUnitCode := TIDEImages.AddImageToImageList(Imagelist1, 'ce_unit');
ImgIDUnitCode := TIDEImages.AddImageToImageList(Imagelist1, 'cc_unit');
ImgIDInterfaceSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_interface');
ImgIDImplementation := TIDEImages.AddImageToImageList(Imagelist1, 'ce_implementation');
ImgIDInitialization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_initialization');
ImgIDFinalization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_finalization');
ImgIDTypeSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_type');
ImgIDType := TIDEImages.AddImageToImageList(Imagelist1, 'ce_type');
ImgIDVarSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_variable');
ImgIDVariable := TIDEImages.AddImageToImageList(Imagelist1, 'ce_variable');
ImgIDConstSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_const');
ImgIDConst := TIDEImages.AddImageToImageList(Imagelist1, 'ce_const');
ImgIDClass := TIDEImages.AddImageToImageList(Imagelist1, 'ce_class');
ImgIDProc := TIDEImages.AddImageToImageList(Imagelist1, 'ce_procedure');
ImgIDProperty := TIDEImages.AddImageToImageList(Imagelist1, 'ce_property');
ImgIDTypeSection := TIDEImages.AddImageToImageList(Imagelist1, 'cc_type');
ImgIDType := TIDEImages.AddImageToImageList(Imagelist1, 'cc_type');
ImgIDVarSection := TIDEImages.AddImageToImageList(Imagelist1, 'cc_variable');
ImgIDVariable := TIDEImages.AddImageToImageList(Imagelist1, 'cc_variable');
ImgIDConstSection := TIDEImages.AddImageToImageList(Imagelist1, 'cc_constant');
ImgIDConst := TIDEImages.AddImageToImageList(Imagelist1, 'cc_constant');
ImgIDClass := TIDEImages.AddImageToImageList(Imagelist1, 'cc_class');
ImgIDProc := TIDEImages.AddImageToImageList(Imagelist1, 'cc_procedure');
ImgIDProperty := TIDEImages.AddImageToImageList(Imagelist1, 'cc_property');
ImgIDPackage := TIDEImages.AddImageToImageList(Imagelist1, 'item_package');
ImgIDProject := TIDEImages.AddImageToImageList(Imagelist1, 'item_project');
end;

43
ide/codeexplorer.pas
View File

@ -182,6 +182,7 @@ type
ImgIDClass: Integer;
ImgIDClassInterface: Integer;
ImgIDRecord: Integer;
ImgIDEnum: Integer;
ImgIDHelper: Integer;
ImgIDConst: Integer;
ImgIDSection: Integer;
@ -192,6 +193,8 @@ type
ImgIDInterface: Integer;
ImgIDProcedure: Integer;
ImgIDFunction: Integer;
ImgIDConstructor: Integer;
ImgIDDestructor: Integer;
ImgIDProgram: Integer;
ImgIDProperty: Integer;
ImgIDPropertyReadOnly: Integer;
@ -199,6 +202,7 @@ type
ImgIDUnit: Integer;
ImgIDVariable: Integer;
ImgIDHint: Integer;
ImgIDLabel: Integer;
procedure AssignAllImages;
procedure ClearCodeTreeView;
procedure ClearDirectivesTreeView;
@ -727,22 +731,26 @@ begin
Imagelist1.Height := ImageSize;
ImgIDDefault := TIDEImages.AddImageToImageList(Imagelist1, 'ce_default');
ImgIDProgram := TIDEImages.AddImageToImageList(Imagelist1, 'ce_program');
ImgIDUnit := TIDEImages.AddImageToImageList(Imagelist1, 'ce_unit');
ImgIDUnit := TIDEImages.AddImageToImageList(Imagelist1, 'cc_unit');
ImgIDInterface := TIDEImages.AddImageToImageList(Imagelist1, 'ce_interface');
ImgIDImplementation := TIDEImages.AddImageToImageList(Imagelist1, 'ce_implementation');
ImgIDInitialization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_initialization');
ImgIDFinalization := TIDEImages.AddImageToImageList(Imagelist1, 'ce_finalization');
ImgIDType := TIDEImages.AddImageToImageList(Imagelist1, 'ce_type');
ImgIDVariable := TIDEImages.AddImageToImageList(Imagelist1, 'ce_variable');
ImgIDConst := TIDEImages.AddImageToImageList(Imagelist1, 'ce_const');
ImgIDClass := TIDEImages.AddImageToImageList(Imagelist1, 'ce_class');
ImgIDType := TIDEImages.AddImageToImageList(Imagelist1, 'cc_type');
ImgIDVariable := TIDEImages.AddImageToImageList(Imagelist1, 'cc_variable');
ImgIDConst := TIDEImages.AddImageToImageList(Imagelist1, 'cc_constant');
ImgIDClass := TIDEImages.AddImageToImageList(Imagelist1, 'cc_class');
ImgIDClassInterface := TIDEImages.AddImageToImageList(Imagelist1, 'ce_classinterface');
ImgIDHelper := TIDEImages.AddImageToImageList(Imagelist1, 'ce_helper');
ImgIDRecord := TIDEImages.AddImageToImageList(Imagelist1, 'ce_record');
ImgIDProcedure := TIDEImages.AddImageToImageList(Imagelist1, 'ce_procedure');
ImgIDFunction := TIDEImages.AddImageToImageList(Imagelist1, 'ce_function');
ImgIDProperty := TIDEImages.AddImageToImageList(Imagelist1, 'ce_property');
ImgIDPropertyReadOnly := TIDEImages.AddImageToImageList(Imagelist1, 'ce_property_readonly');
ImgIDRecord := TIDEImages.AddImageToImageList(Imagelist1, 'cc_record');
ImgIDEnum := TIDEImages.AddImageToImageList(Imagelist1, 'cc_enum');
ImgIDProcedure := TIDEImages.AddImageToImageList(Imagelist1, 'cc_procedure');
ImgIDFunction := TIDEImages.AddImageToImageList(Imagelist1, 'cc_function');
ImgIDConstructor := TIDEImages.AddImageToImageList(Imagelist1, 'cc_constructor');
ImgIDDestructor := TIDEImages.AddImageToImageList(Imagelist1, 'cc_destructor');
ImgIDLabel := TIDEImages.AddImageToImageList(Imagelist1, 'cc_label');
ImgIDProperty := TIDEImages.AddImageToImageList(Imagelist1, 'cc_property');
ImgIDPropertyReadOnly := TIDEImages.AddImageToImageList(Imagelist1, 'cc_property_ro');
// sections
ImgIDSection := TIDEImages.AddImageToImageList(Imagelist1, 'ce_section');
ImgIDHint := TIDEImages.AddImageToImageList(Imagelist1, 'state_hint');
@ -907,6 +915,8 @@ begin
Result := ImgIDClass;
ctnObject,ctnRecordType:
Result := ImgIDRecord;
ctnEnumerationType,ctnEnumIdentifier:
Result:=ImgIDEnum;
ctnClassHelper,ctnRecordHelper,ctnTypeHelper:
Result := ImgIDHelper;
else
@ -925,15 +935,26 @@ begin
ctnObjCClass,ctnObjCCategory,ctnCPPClass:
Result:=ImgIDClass;
ctnRecordType: Result:=ImgIDRecord;
ctnEnumerationType,ctnEnumIdentifier:
Result:=ImgIDEnum;
ctnClassHelper,ctnRecordHelper,ctnTypeHelper:
Result:=ImgIDHelper;
ctnProcedure: if Tool.NodeIsFunction(CodeNode) then
ctnProcedure:
if Tool.NodeIsConstructor(CodeNode) then
Result:=ImgIDConstructor
else
if Tool.NodeIsDestructor(CodeNode) then
Result:=ImgIDDestructor
else
if Tool.NodeIsFunction(CodeNode) then
Result:=ImgIDFunction
else
Result:=ImgIDProcedure;
ctnProperty: Result:=ImgIDProperty;
ctnUsesSection: Result:=ImgIDSection;
ctnUseUnit: Result:=ImgIDUnit;
ctnLabelSection: Result:=ImgIDSection;
ctnLabel: Result:=ImgIDLabel;
else
Result:=ImgIDDefault;
end;

4
ide/procedurelist.pas
View File

@ -361,8 +361,8 @@ begin
SG.Columns[SG_COLIDX_TYPE].Width := 110;
SG.Columns[SG_COLIDX_LINE].Width := 60;
FImageIdxProcedure := IDEImages.LoadImage('ce_procedure');
FImageIdxFunction := IDEImages.LoadImage('ce_function');;
FImageIdxProcedure := IDEImages.LoadImage('cc_procedure');
FImageIdxFunction := IDEImages.LoadImage('cc_function');;
cbObjects.Style := csDropDownList;
cbObjects.Sorted := True;