forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

converted static explorer widget, use shared icons

This commit is contained in:
Basile Burg 2015-01-04 18:31:56 +01:00
parent 97ddb7dd5f
commit 026c894cb4
2 changed files with 11 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/ce_staticexplorer.lfm
View File

@ -89,42 +89,6 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget
Width = 28 Width = 28
Align = alLeft Align = alLeft
BorderSpacing.Around = 2 BorderSpacing.Around = 2
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF000000
000000000000000000000000000A000000250000003300000033000000000000
0000000000000000000000000000000000000000000000000000FFFFFF000000
00000000000000000022664A265CAB7B3FC9B88444FFB98545FF000000000000
0000000000330000003300000033000000330000003300000032FFFFFF000000
00000000001EA8783FBBBE8A4AFFDEAC66FFF4C57BFFB88343FF000000000000
0000B98545FFB78343FFB68142FFB78242FFB98444FFBA8646FBFFFFFF000000
0006A3753DAAC18C4CFFECBC72FFF1C581FFF8D39DFFB78242FF000000000000
0000B78343FFF9C97EFFF6C67BFFF5CC8CFFCFA269F100000000FFFFFF005F44
243DBA8646FFE9B86DFFEDC07DFFEFCE9CFFD5AC71FFB88343FF000000000000
0000B68141FFF2C47EFFF0C482FFEAB86FFFBC8947FF0000001AFFFFFF00A879
3FB9D2A059FFE6B368FFEDCC9AFFC08F51FFB882428FBA854523000000000000
0000B78241FFF5D9ACFFF0CF9FFFEAB86CFFD4A25CFF9B6F3999FFFFFF00B884
44FFDDAB61FFE2B167FFD4AB77FFB782418E0000000000000000000000000000
0000B98443FFC5975CFAD7B282FFE6B266FFE0AE65FFB78243F9FFFFFF00B883
44FFDFAB5FFFE2B774FFC6995FFFB98544050000000100000000000000000000
0000BA8646F5B8834209C6975FFFE6BB79FFE5B36AFFB78344FFFFFFFF00B883
43FFDFB373FFDBA85EFFB78243FF000000020F0B063400000000000000000000
0000BB87470300000001B68242FFDFAC63FFE4B877FFB78243FFFFFFFF00B883
42FFE2BB83FFD59F52FFBF8B48FF251B0E32BA8646F800000000000000000000
0000000000001D150B20C08C49FFD9A557FFE5C087FFB78242FFFFFFFF00B782
42F8E1C192FFCF9A4AFFC18C48FFB58343DABA8545FF00000000000000000000
00070000001D9F723CA5C7924BFFD39E4FFFE3C395FFB88241FFFFFFFF00B984
4281D6B386FFD4A661FFC99243FFE4C79DFFB98443FF0000000000000000533C
1F4FA1743DA5BC8746FFCD984AFFD8AC6DFFD9B98EFFB78141AAFFFFFF000000
0000BD8D4FFFD1A668FFC48B39FFD9B580FFB88241FF0000000000000000BA86
46FFC28D45FFC99344FFD09E56FFE7CEAAFFBD8B4FFFB985441FFFFFFF000000
0032C99F6AF1E6CFACFFE9D3B2FFEAD5B4FFB88341FF0000000000000000B984
44FFCD9C54FFDAB57FFFEAD5B5FFC69A64FFB984429500000000FFFFFF00BB86
46FBB98444FFB88241FFB8813FFFB88241FFBA8545FF0000000000000000B983
42FFEAD5B6FFDBBD95FFC09054FFB98342AA0000000000000000FFFFFF000000
000000000000000000000000000000000000000000000000000000000000BA85
44FFBB8849FFB88241BBB9854433000000000000000000000000
}
Layout = blGlyphBottom Layout = blGlyphBottom
OnClick = btnRefreshClick OnClick = btnRefreshClick
Spacing = 0 Spacing = 0

12
src/ce_staticexplorer.pas
View File

@ -91,12 +91,14 @@ uses LCLProc, ce_libman, ce_symstring;
{$REGION Standard Comp/Obj------------------------------------------------------} {$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCEStaticExplorerWidget.create(aOwner: TComponent); constructor TCEStaticExplorerWidget.create(aOwner: TComponent);
var
png: TPortableNetworkGraphic;
begin begin
fLogMessager := TCELogMessageSubject.create; fLogMessager := TCELogMessageSubject.create;
fAutoRefresh := false; fAutoRefresh := false;
fRefreshOnFocus := true; fRefreshOnFocus := true;
fRefreshOnChange := false; fRefreshOnChange := false;
//
fActCopyIdent := TAction.Create(self); fActCopyIdent := TAction.Create(self);
fActCopyIdent.OnExecute:=@actCopyIdentExecute; fActCopyIdent.OnExecute:=@actCopyIdentExecute;
fActCopyIdent.Caption := 'Copy identifier'; fActCopyIdent.Caption := 'Copy identifier';
@ -135,6 +137,14 @@ begin
ndTmp := Tree.Items[8]; ndTmp := Tree.Items[8];
ndVar := Tree.Items[9]; ndVar := Tree.Items[9];
// //
png := TPortableNetworkGraphic.Create;
try
png.LoadFromLazarusResource('arrow_update');
btnRefresh.Glyph.Assign(png);
finally
png.Free;
end;
//
Tree.OnDblClick := @TreeDblClick; Tree.OnDblClick := @TreeDblClick;
Tree.PopupMenu := contextMenu; Tree.PopupMenu := contextMenu;
// //