From 026c894cb49e82f998a7452266ccde0c5e63f18a Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sun, 4 Jan 2015 18:31:56 +0100 Subject: [PATCH] converted static explorer widget, use shared icons --- src/ce_staticexplorer.lfm | 36 ------------------------------------ src/ce_staticexplorer.pas | 12 +++++++++++- 2 files changed, 11 insertions(+), 37 deletions(-) diff --git a/src/ce_staticexplorer.lfm b/src/ce_staticexplorer.lfm index a441f41e..b8706dc2 100644 --- a/src/ce_staticexplorer.lfm +++ b/src/ce_staticexplorer.lfm @@ -89,42 +89,6 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget Width = 28 Align = alLeft 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 OnClick = btnRefreshClick Spacing = 0 diff --git a/src/ce_staticexplorer.pas b/src/ce_staticexplorer.pas index fcf8d24d..f032843a 100644 --- a/src/ce_staticexplorer.pas +++ b/src/ce_staticexplorer.pas @@ -91,12 +91,14 @@ uses LCLProc, ce_libman, ce_symstring; {$REGION Standard Comp/Obj------------------------------------------------------} constructor TCEStaticExplorerWidget.create(aOwner: TComponent); +var + png: TPortableNetworkGraphic; begin fLogMessager := TCELogMessageSubject.create; fAutoRefresh := false; fRefreshOnFocus := true; fRefreshOnChange := false; - + // fActCopyIdent := TAction.Create(self); fActCopyIdent.OnExecute:=@actCopyIdentExecute; fActCopyIdent.Caption := 'Copy identifier'; @@ -135,6 +137,14 @@ begin ndTmp := Tree.Items[8]; ndVar := Tree.Items[9]; // + png := TPortableNetworkGraphic.Create; + try + png.LoadFromLazarusResource('arrow_update'); + btnRefresh.Glyph.Assign(png); + finally + png.Free; + end; + // Tree.OnDblClick := @TreeDblClick; Tree.PopupMenu := contextMenu; //