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

use RCDATA resources instead of old hex strings system

This commit is contained in:
Basile Burg 2016-06-19 07:13:32 +02:00
parent e58f7f9974
commit d2bbe29e88
26 changed files with 184 additions and 2413 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
icons/generate_res.d
View File

@ -1,26 +0,0 @@
// generate the Pascal code for using Coedit icon data at run-time.
// usage: open in Coedit then click File, compile and run file.
module generate_res;
import std.file;
import std.path;
import std.string;
import std.process;
version(linux) string pathto = "/usr/lib64/lazarus/tools/";
else string pathto = "";
void main(string[] args)
{
auto path = args[0].dirName;
string[] cmd;
// resource compiler
cmd ~= pathto ~ "lazres";
// pascal source to include
cmd ~= ".." ~ dirSeparator ~ "src" ~ dirSeparator ~ "ce_icons.inc";
// resource items
foreach(f; dirEntries(path, "*.png", SpanMode.depth)) {
cmd ~= format("%s=%s",f.name, f.name.baseName.stripExtension);
}
spawnProcess(cmd).wait;
}

4
icons/readme.md
View File

@ -7,9 +7,7 @@
The sub folders standing in this directory contains the shared ***Coedit*** icons.
They are currently used by the widgets.
The resource script can be generated by running ***generate_res.d*** as a runnable
module in Coedit itself (this is rather a script than a program).
The program ***LazRes*** must be known by the operating system.
New icons can be added from Lazarus, Project options, Resources.
Editors: note that the icons shouldn't be renamed because they are also used by the wiki.

86
lazproj/coedit.lpi
View File

@ -13,6 +13,91 @@
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
<Resources Count="83">
<Resource_0 FileName="../icons/window/layout_add.png" Type="RCDATA" ResourceName="LAYOUT_ADD"/>
<Resource_1 FileName="../icons/window/layout.png" Type="RCDATA" ResourceName="LAYOUT"/>
<Resource_2 FileName="../icons/window/application_go.png" Type="RCDATA" ResourceName="APPLICATION_GO"/>
<Resource_3 FileName="../icons/window/application_flash.png" Type="RCDATA" ResourceName="APPLICATION_FLASH"/>
<Resource_4 FileName="../icons/window/application_edit.png" Type="RCDATA" ResourceName="APPLICATION_EDIT"/>
<Resource_5 FileName="../icons/window/application_double.png" Type="RCDATA" ResourceName="APPLICATION_DOUBLE"/>
<Resource_6 FileName="../icons/window/application_delete.png" Type="RCDATA" ResourceName="APPLICATION_DELETE"/>
<Resource_7 FileName="../icons/window/application_add.png" Type="RCDATA" ResourceName="APPLICATION_ADD"/>
<Resource_8 FileName="../icons/window/application.png" Type="RCDATA" ResourceName="APPLICATION"/>
<Resource_9 FileName="../icons/other/tree_list.png" Type="RCDATA" ResourceName="TREE_LIST"/>
<Resource_10 FileName="../icons/other/textfield_delete.png" Type="RCDATA" ResourceName="TEXTFIELD_DELETE"/>
<Resource_11 FileName="../icons/other/textfield_add.png" Type="RCDATA" ResourceName="TEXTFIELD_ADD"/>
<Resource_12 FileName="../icons/other/splitter.png" Type="RCDATA" ResourceName="SPLITTER"/>
<Resource_13 FileName="../icons/other/script_bricks.png" Type="RCDATA" ResourceName="SCRIPT_BRICKS"/>
<Resource_14 FileName="../icons/other/pencil_go.png" Type="RCDATA" ResourceName="PENCIL_GO"/>
<Resource_15 FileName="../icons/other/pencil_delete.png" Type="RCDATA" ResourceName="PENCIL_DELETE"/>
<Resource_16 FileName="../icons/other/pencil.png" Type="RCDATA" ResourceName="PENCIL"/>
<Resource_17 FileName="../icons/other/paste.png" Type="RCDATA" ResourceName="PASTE"/>
<Resource_18 FileName="../icons/other/package_delete.png" Type="RCDATA" ResourceName="PACKAGE_DELETE"/>
<Resource_19 FileName="../icons/other/package_add.png" Type="RCDATA" ResourceName="PACKAGE_ADD"/>
<Resource_20 FileName="../icons/other/keyboard_pencil.png" Type="RCDATA" ResourceName="KEYBOARD_PENCIL"/>
<Resource_21 FileName="../icons/other/information.png" Type="RCDATA" ResourceName="INFORMATION"/>
<Resource_22 FileName="../icons/other/flash.png" Type="RCDATA" ResourceName="FLASH"/>
<Resource_23 FileName="../icons/other/dub_small.png" Type="RCDATA" ResourceName="DUB_SMALL"/>
<Resource_24 FileName="../icons/other/dub.png" Type="RCDATA" ResourceName="DUB"/>
<Resource_25 FileName="../icons/other/cut.png" Type="RCDATA" ResourceName="CUT"/>
<Resource_26 FileName="../icons/other/copy.png" Type="RCDATA" ResourceName="COPY"/>
<Resource_27 FileName="../icons/other/clean.png" Type="RCDATA" ResourceName="CLEAN"/>
<Resource_28 FileName="../icons/other/cancel.png" Type="RCDATA" ResourceName="CANCEL"/>
<Resource_29 FileName="../icons/other/bricks.png" Type="RCDATA" ResourceName="BRICKS"/>
<Resource_30 FileName="../icons/other/accept.png" Type="RCDATA" ResourceName="ACCEPT"/>
<Resource_31 FileName="../icons/link/link_edit.png" Type="RCDATA" ResourceName="LINK_EDIT"/>
<Resource_32 FileName="../icons/link/link_break.png" Type="RCDATA" ResourceName="LINK_BREAK"/>
<Resource_33 FileName="../icons/link/link.png" Type="RCDATA" ResourceName="LINK"/>
<Resource_34 FileName="../icons/folder/folder_star.png" Type="RCDATA" ResourceName="FOLDER_STAR"/>
<Resource_35 FileName="../icons/folder/folder_go.png" Type="RCDATA" ResourceName="FOLDER_GO"/>
<Resource_36 FileName="../icons/folder/folder_delete.png" Type="RCDATA" ResourceName="FOLDER_DELETE"/>
<Resource_37 FileName="../icons/folder/folder_brick.png" Type="RCDATA" ResourceName="FOLDER_BRICK"/>
<Resource_38 FileName="../icons/folder/folder_add.png" Type="RCDATA" ResourceName="FOLDER_ADD"/>
<Resource_39 FileName="../icons/folder/folder.png" Type="RCDATA" ResourceName="FOLDER"/>
<Resource_40 FileName="../icons/file/script_gear.png" Type="RCDATA" ResourceName="SCRIPT_GEAR"/>
<Resource_41 FileName="../icons/file/document_plus.png" Type="RCDATA" ResourceName="DOCUMENT_PLUS"/>
<Resource_42 FileName="../icons/file/document_next.png" Type="RCDATA" ResourceName="DOCUMENT_NEXT"/>
<Resource_43 FileName="../icons/file/document_delete.png" Type="RCDATA" ResourceName="DOCUMENT_DELETE"/>
<Resource_44 FileName="../icons/file/document_back.png" Type="RCDATA" ResourceName="DOCUMENT_BACK"/>
<Resource_45 FileName="../icons/file/document_all.png" Type="RCDATA" ResourceName="DOCUMENT_ALL"/>
<Resource_46 FileName="../icons/file/document_add.png" Type="RCDATA" ResourceName="DOCUMENT_ADD"/>
<Resource_47 FileName="../icons/file/document.png" Type="RCDATA" ResourceName="DOCUMENT"/>
<Resource_48 FileName="../icons/disk/disk_pen.png" Type="RCDATA" ResourceName="DISK_PEN"/>
<Resource_49 FileName="../icons/disk/disk_multiple.png" Type="RCDATA" ResourceName="DISK_MULTIPLE"/>
<Resource_50 FileName="../icons/disk/disk.png" Type="RCDATA" ResourceName="DISK"/>
<Resource_51 FileName="../icons/cog/wrench_orange.png" Type="RCDATA" ResourceName="WRENCH_ORANGE"/>
<Resource_52 FileName="../icons/cog/wrench.png" Type="RCDATA" ResourceName="WRENCH"/>
<Resource_53 FileName="../icons/cog/cog_go.png" Type="RCDATA" ResourceName="COG_GO"/>
<Resource_54 FileName="../icons/cog/cog_edit.png" Type="RCDATA" ResourceName="COG_EDIT"/>
<Resource_55 FileName="../icons/cog/cog_delete.png" Type="RCDATA" ResourceName="COG_DELETE"/>
<Resource_56 FileName="../icons/cog/cog_add.png" Type="RCDATA" ResourceName="COG_ADD"/>
<Resource_57 FileName="../icons/cog/cog.png" Type="RCDATA" ResourceName="COG"/>
<Resource_58 FileName="../icons/bullet/bullet_yellow.png" Type="RCDATA" ResourceName="BULLET_YELLOW"/>
<Resource_59 FileName="../icons/bullet/bullet_star.png" Type="RCDATA" ResourceName="BULLET_STAR"/>
<Resource_60 FileName="../icons/bullet/bullet_red.png" Type="RCDATA" ResourceName="BULLET_RED"/>
<Resource_61 FileName="../icons/bullet/bullet_purple.png" Type="RCDATA" ResourceName="BULLET_PURPLE"/>
<Resource_62 FileName="../icons/bullet/bullet_pink.png" Type="RCDATA" ResourceName="BULLET_PINK"/>
<Resource_63 FileName="../icons/bullet/bullet_orange.png" Type="RCDATA" ResourceName="BULLET_ORANGE"/>
<Resource_64 FileName="../icons/bullet/bullet_green.png" Type="RCDATA" ResourceName="BULLET_GREEN"/>
<Resource_65 FileName="../icons/bullet/bullet_blue.png" Type="RCDATA" ResourceName="BULLET_BLUE"/>
<Resource_66 FileName="../icons/bullet/bullet_black.png" Type="RCDATA" ResourceName="BULLET_BLACK"/>
<Resource_67 FileName="../icons/book/book_open.png" Type="RCDATA" ResourceName="BOOK_OPEN"/>
<Resource_68 FileName="../icons/book/book_link.png" Type="RCDATA" ResourceName="BOOK_LINK"/>
<Resource_69 FileName="../icons/book/book_grey.png" Type="RCDATA" ResourceName="BOOK_GREY"/>
<Resource_70 FileName="../icons/book/book_edit.png" Type="RCDATA" ResourceName="BOOK_EDIT"/>
<Resource_71 FileName="../icons/book/book_delete.png" Type="RCDATA" ResourceName="BOOK_DELETE"/>
<Resource_72 FileName="../icons/book/book_add.png" Type="RCDATA" ResourceName="BOOK_ADD"/>
<Resource_73 FileName="../icons/book/book.png" Type="RCDATA" ResourceName="BOOK"/>
<Resource_74 FileName="../icons/arrow/go_previous.png" Type="RCDATA" ResourceName="GO_PREVIOUS"/>
<Resource_75 FileName="../icons/arrow/go_next.png" Type="RCDATA" ResourceName="GO_NEXT"/>
<Resource_76 FileName="../icons/arrow/arrow_update.png" Type="RCDATA" ResourceName="ARROW_UPDATE"/>
<Resource_77 FileName="../icons/arrow/arrow_up.png" Type="RCDATA" ResourceName="ARROW_UP"/>
<Resource_78 FileName="../icons/arrow/arrow_undo.png" Type="RCDATA" ResourceName="ARROW_UNDO"/>
<Resource_79 FileName="../icons/arrow/arrow_shoe.png" Type="RCDATA" ResourceName="ARROW_SHOE"/>
<Resource_80 FileName="../icons/arrow/arrow_redo.png" Type="RCDATA" ResourceName="ARROW_REDO"/>
<Resource_81 FileName="../icons/arrow/arrow_pen.png" Type="RCDATA" ResourceName="ARROW_PEN"/>
<Resource_82 FileName="../icons/arrow/arrow_down.png" Type="RCDATA" ResourceName="ARROW_DOWN"/>
</Resources>
</General>
<i18n>
<EnableI18N LFM="False"/>
@ -54,7 +139,6 @@
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
<TrashVariables Value="True"/>
</Debugging>
</Linking>
<Other>

4
src/ce_d2synpresets.pas
View File

@ -428,7 +428,7 @@ begin
btn.BorderSpacing.Around:=2;
btn.OnClick:=@btnAddClick;
btn.Hint:='add preset';
AssignPng(btn, 'document_add');
AssignPng(btn, 'DOCUMENT_ADD');
//
btn := TBitBtn.Create(self);
btn.Parent := pnl;
@ -437,7 +437,7 @@ begin
btn.BorderSpacing.Around:=2;
btn.OnClick:=@btnDelClick;
btn.Hint:='delete preset';
AssignPng(btn, 'document_delete');
AssignPng(btn, 'DOCUMENT_DELETE');
//
fPropEd := TTIPropertyGrid.Create(self);
fPropEd.Parent := self;

4
src/ce_dfmt.pas
View File

@ -107,8 +107,8 @@ begin
//
btnCancel.OnClick := @doCancel;
btnApply.OnClick := @doApply;
AssignPng(btnCancel, 'cancel');
AssignPng(btnApply, 'accept');
AssignPng(btnCancel, 'CANCEL');
AssignPng(btnApply, 'ACCEPT');
//
dfmtOptionEditor.TIObject := fDmtWrapper;
end;

10
src/ce_dubprojeditor.pas
View File

@ -119,7 +119,7 @@ begin
fBtnValidate.Width:= 26;
fBtnValidate.OnClick:=@doValidate;
fBtnValidate.Hint:='accept and add a property';
AssignPng(fBtnValidate, 'accept');
AssignPng(fBtnValidate, 'ACCEPT');
end;
procedure TCEDubProjectPropAddPanel.doValidate(sender: TObject);
@ -146,10 +146,10 @@ begin
fNodeSources := treeInspect.Items[0];
fNodeConfig := treeInspect.Items[1];
//
AssignPng(btnAddProp, 'textfield_add');
AssignPng(btnDelProp, 'textfield_delete');
AssignPng(btnAcceptProp, 'accept');
AssignPng(btnRefresh, 'arrow_update');
AssignPng(btnAddProp, 'TEXTFIELD_ADD');
AssignPng(btnDelProp, 'TEXTFIELD_DELETE');
AssignPng(btnAcceptProp, 'ACCEPT');
AssignPng(btnRefresh, 'ARROW_UPDATE');
end;
procedure TCEDubProjectEditorWidget.SetVisible(Value: boolean);

30
src/ce_editor.pas
View File

@ -279,24 +279,24 @@ begin
pageControl.addButton.OnClick:=@pageBtnAddCLick;
pageControl.OnDragDrop:= @ddHandler.DragDrop;
pageControl.OnDragOver:= @ddHandler.DragOver;
AssignPng(pageControl.moveLeftButton, 'go_previous');
AssignPng(pageControl.moveRightButton, 'go_next');
AssignPng(pageControl.addButton, 'document_add');
AssignPng(pageControl.closeButton, 'document_delete');
AssignPng(pageControl.splitButton, 'splitter');
AssignPng(pageControl.moveLeftButton, 'GO_PREVIOUS');
AssignPng(pageControl.moveRightButton, 'GO_NEXT');
AssignPng(pageControl.addButton, 'DOCUMENT_ADD');
AssignPng(pageControl.closeButton, 'DOCUMENT_DELETE');
AssignPng(pageControl.splitButton, 'SPLITTER');
fTokList := TLexTokenList.Create;
//
AssignPng(mnuedCopy.Bitmap, 'copy');
AssignPng(mnuedCut.Bitmap, 'cut');
AssignPng(mnuedPaste.Bitmap, 'paste');
AssignPng(mnuedUndo.Bitmap, 'arrow_undo');
AssignPng(mnuedRedo.Bitmap, 'arrow_redo');
AssignPng(mnuedJum2Decl.Bitmap, 'arrow_shoe');
AssignPng(mnuedCopy.Bitmap, 'copy');
AssignPng(mnuedNext.Bitmap, 'go_next');
AssignPng(mnuedPrev.Bitmap, 'go_previous');
AssignPng(mnuedRename.Bitmap, 'pencil');
AssignPng(mnuedCopy.Bitmap, 'COPY');
AssignPng(mnuedCut.Bitmap, 'CUT');
AssignPng(mnuedPaste.Bitmap, 'PASTE');
AssignPng(mnuedUndo.Bitmap, 'ARROW_UNDO');
AssignPng(mnuedRedo.Bitmap, 'ARROW_REDO');
AssignPng(mnuedJum2Decl.Bitmap, 'ARROW_SHOE');
AssignPng(mnuedCopy.Bitmap, 'COPY');
AssignPng(mnuedNext.Bitmap, 'GO_NEXT');
AssignPng(mnuedPrev.Bitmap, 'GO_PREVIOUS');
AssignPng(mnuedRename.Bitmap, 'PENCIL');
//
EntitiesConnector.addObserver(self);
EntitiesConnector.addSingleService(self);

2
src/ce_gdb.pas
View File

@ -288,7 +288,7 @@ begin
fInspState := TInspectableState.Create;
stateViewer.TIObject := fInspState;
//
AssignPng(btnSendCom, 'accept');
AssignPng(btnSendCom, 'ACCEPT');
end;
destructor TCEGdbWidget.destroy;

2278
src/ce_icons.inc
View File

File diff suppressed because it is too large Load Diff

14
src/ce_infos.pas
View File

@ -122,12 +122,12 @@ begin
if pth.isEmpty then
begin
fStatus.Caption:= ' the tool cannot be found';
AssignPng(fIco, 'bullet_red');
AssignPng(fIco, 'BULLET_RED');
end
else
begin
fStatus.Caption:= ' the tool is available';
AssignPng(fIco, 'bullet_green');
AssignPng(fIco, 'BULLET_GREEN');
end;
end;
tikOptional:
@ -136,12 +136,12 @@ begin
if pth.isEmpty then
begin
fStatus.Caption:= ' the tool cannot be found';
AssignPng(fIco, 'bullet_yellow');
AssignPng(fIco, 'BULLET_YELLOW');
end
else
begin
fStatus.Caption:= ' the tool is available';
AssignPng(fIco, 'bullet_green');
AssignPng(fIco, 'BULLET_GREEN');
end;
end;
tikRunning:
@ -150,17 +150,17 @@ begin
if pth.isEmpty then
begin
fStatus.Caption:= ' the tool cannot be found';
AssignPng(fIco, 'bullet_red');
AssignPng(fIco, 'BULLET_RED');
end
else if AppIsRunning(fToolName + exeExt) then
begin
fStatus.Caption:= ' the tool is available and running';
AssignPng(fIco, 'bullet_green');
AssignPng(fIco, 'BULLET_GREEN');
end
else
begin
fStatus.Caption:= ' the tool is available but is not running';
AssignPng(fIco, 'bullet_yellow');
AssignPng(fIco, 'BULLET_YELLOW');
end;
end;
end;

36
src/ce_libmaneditor.pas
View File

@ -91,19 +91,19 @@ const
constructor TCELibManEditorWidget.Create(aOwner: TComponent);
begin
inherited;
AssignPng(btnMoveDown, 'arrow_down');
AssignPng(btnMoveUp, 'arrow_up');
AssignPng(btnAddLib, 'book_add');
AssignPng(btnRemLib, 'book_delete');
AssignPng(btnEditAlias, 'book_edit');
AssignPng(btnSelFile, 'folder_brick');
AssignPng(btnSelfoldOfFiles, 'bricks');
AssignPng(btnSelRoot, 'folder_add');
AssignPng(btnReg, 'book_link');
AssignPng(btnDubFetch, 'dub');
AssignPng(btnSelProj, 'script_bricks');
AssignPng(btnOpenProj, 'book_open');
AssignPng(btnEnabled, 'book');
AssignPng(btnMoveDown, 'ARROW_DOWN');
AssignPng(btnMoveUp, 'ARROW_UP');
AssignPng(btnAddLib, 'BOOK_ADD');
AssignPng(btnRemLib, 'BOOK_DELETE');
AssignPng(btnEditAlias, 'BOOK_EDIT');
AssignPng(btnSelFile, 'FOLDER_BRICK');
AssignPng(btnSelfoldOfFiles, 'BRICKS');
AssignPng(btnSelRoot, 'FOLDER_ADD');
AssignPng(btnReg, 'BOOK_LINK');
AssignPng(btnDubFetch, 'DUB');
AssignPng(btnSelProj, 'SCRIPT_BRICKS');
AssignPng(btnOpenProj, 'BOOK_OPEN');
AssignPng(btnEnabled, 'BOOK');
end;
procedure TCELibManEditorWidget.updateButtonsState;
@ -114,9 +114,9 @@ begin
List.Selected.SubItems[2].fileExists;
if List.Selected.isNotNil and itemForRow(List.Selected).isNotNil and
itemForRow(List.Selected).enabled then
AssignPng(btnEnabled, 'book')
AssignPng(btnEnabled, 'BOOK')
else
AssignPng(btnEnabled, 'book_grey');
AssignPng(btnEnabled, 'BOOK_GREY');
end;
procedure TCELibManEditorWidget.projNew(aProject: ICECommonProject);
@ -222,7 +222,7 @@ begin
bww.OnClick:= @getList;
bww.Layout:= blGlyphTop;
bww.Spacing:= 2;
AssignPng(bww, 'arrow_update');
AssignPng(bww, 'ARROW_UPDATE');
bok := TBitBtn.Create(self);
bok.Parent := self;
@ -234,7 +234,7 @@ begin
bok.ShowHint := true;
bok.Layout:= blGlyphTop;
bok.Spacing:= 2;
AssignPng(bok, 'accept');
AssignPng(bok, 'ACCEPT');
bno := TBitBtn.Create(self);
bno.Parent := self;
@ -246,7 +246,7 @@ begin
bno.ShowHint := true;
bno.Layout:= blGlyphTop;
bno.Spacing:= 2;
AssignPng(bno, 'cancel');
AssignPng(bno, 'CANCEL');
end;
procedure TDubPackageQueryForm.getList(sender: TObject);

1
src/ce_messages.lfm
View File

@ -53,7 +53,6 @@ inherited CEMessagesWidget: TCEMessagesWidget
BorderSpacing.Around = 2
ButtonHeight = 24
ButtonWidth = 100
Flat = False
ShowCaptions = True
TabOrder = 1
Wrapable = False

2
src/ce_messages.pas
View File

@ -314,7 +314,7 @@ begin
fBtns[amcProj]:= btnSelProj;
//
btnClearCat.OnClick := @actClearCurCatExecute;
AssignPng(btnClearCat, 'clean');
AssignPng(btnClearCat, 'CLEAN');
//
fEditorMessagePos := TCEEditorMessagePos.Create;
//

8
src/ce_miniexplorer.pas
View File

@ -246,10 +246,10 @@ begin
//
fEditableOptions:= TCEMiniExplorerEditableOptions.create(self);
//
AssignPng(btnAddFav, 'folder_add');
AssignPng(btnRemFav, 'folder_delete');
AssignPng(btnShellOpen, 'flash');
AssignPng(btnEdit, 'pencil');
AssignPng(btnAddFav, 'FOLDER_ADD');
AssignPng(btnRemFav, 'FOLDER_DELETE');
AssignPng(btnShellOpen, 'FLASH');
AssignPng(btnEdit, 'PENCIL');
//
fFavorites := TStringList.Create;
fFavorites.onChange := @favStringsChange;

4
src/ce_optionseditor.pas
View File

@ -71,8 +71,8 @@ begin
inspector.CheckboxForBoolean := true;
inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified);
//
AssignPng(btnCancel, 'cancel');
AssignPng(btnAccept, 'accept');
AssignPng(btnCancel, 'CANCEL');
AssignPng(btnAccept, 'ACCEPT');
end;
destructor TCEOptionEditorWidget.destroy;

6
src/ce_procinput.pas
View File

@ -64,9 +64,9 @@ begin
fMru.LoadFromFile(fname);
if fMru.Count = 0 then
fMru.Insert(0, '(your input here)');
AssignPng(btnClose, 'pencil_delete');
AssignPng(btnSend, 'pencil_go');
AssignPng(btnKill, 'cancel');
AssignPng(btnClose, 'PENCIL_DELETE');
AssignPng(btnSend, 'PENCIL_GO');
AssignPng(btnKill, 'CANCEL');
end;
destructor TCEProcInputWidget.destroy;

12
src/ce_projconf.pas
View File

@ -67,10 +67,10 @@ constructor TCEProjectConfigurationWidget.create(aOwner: TComponent);
begin
inherited;
//
AssignPng(btnAddConf, 'cog_add');
AssignPng(btnDelConf, 'cog_delete');
AssignPng(btnCloneConf, 'cog_go');
AssignPng(btnSyncEdit, 'link_break');
AssignPng(btnAddConf, 'COG_ADD');
AssignPng(btnDelConf, 'COG_DELETE');
AssignPng(btnCloneConf, 'COG_GO');
AssignPng(btnSyncEdit, 'LINK_BREAK');
//
fSynchroItem := TStringList.Create;
fSynchroValue := TStringList.Create;
@ -177,8 +177,8 @@ begin
if fSyncroMode = aValue then exit;
//
fSyncroMode := aValue;
if fSyncroMode then AssignPng(btnSyncEdit, 'link')
else AssignPng(btnSyncEdit, 'link_break');
if fSyncroMode then AssignPng(btnSyncEdit, 'LINK')
else AssignPng(btnSyncEdit, 'LINK_BREAK');
end;
function TCEProjectConfigurationWidget.syncroSetPropAsString(const ASection, Item, Default: string): string;

12
src/ce_projgroup.pas
View File

@ -311,12 +311,12 @@ end;
constructor TCEProjectGroupWidget.create(aOwner: TCOmponent);
begin
inherited;
AssignPng(btnMoveUp, 'arrow_up');
AssignPng(btnMoveDown, 'arrow_down');
AssignPng(BtnAddProj, 'document_add');
AssignPng(btnRemProj, 'document_delete');
AssignPng(btnFreeFocus, 'pencil');
AssignPng(btnAddUnfocused, 'document_add');
AssignPng(btnMoveUp, 'ARROW_UP');
AssignPng(btnMoveDown, 'ARROW_DOWN');
AssignPng(BtnAddProj, 'DOCUMENT_ADD');
AssignPng(btnRemProj, 'DOCUMENT_DELETE');
AssignPng(btnFreeFocus, 'PENCIL');
AssignPng(btnAddUnfocused, 'DOCUMENT_ADD');
projectGroup.onChanged:= @handleChanged;
fProjSubj:= TCEProjectSubject.Create;
end;

8
src/ce_projinspect.pas
View File

@ -86,10 +86,10 @@ begin
//
inherited;
//
AssignPng(btnAddFile, 'document_add');
AssignPng(btnRemFile, 'document_delete');
AssignPng(btnAddFold, 'folder_add');
AssignPng(btnRemFold, 'folder_delete');
AssignPng(btnAddFile, 'DOCUMENT_ADD');
AssignPng(btnRemFile, 'DOCUMENT_DELETE');
AssignPng(btnAddFold, 'FOLDER_ADD');
AssignPng(btnRemFold, 'FOLDER_DELETE');
//
Tree.OnDblClick := @TreeDblClick;
fFileNode := Tree.Items[0];

6
src/ce_search.pas
View File

@ -229,7 +229,7 @@ begin
btnReplace.Action := fActReplaceNext;
btnReplaceAll.Action := fActReplaceAll;
btnFindAll.Action := fActFindAll;
AssignPng(btnAllScope, 'document');
AssignPng(btnAllScope, 'DOCUMENT');
updateImperative;
//
EntitiesConnector.addObserver(self);
@ -540,12 +540,12 @@ begin
fAllInProj := not fAllInProj;
if fAllInProj then
begin
AssignPng(btnAllScope, 'document_all');
AssignPng(btnAllScope, 'DOCUMENT_ALL');
btnAllScope.Hint := 'all project sources';
end
else
begin
AssignPng(btnAllScope, 'document');
AssignPng(btnAllScope, 'DOCUMENT');
btnAllScope.Hint := 'selected source';
end;
updateImperative;

6
src/ce_sharedres.pas
View File

@ -3,7 +3,7 @@ unit ce_sharedres;
interface
uses
LResources, Classes, Controls, Buttons, Graphics;
Classes, Controls, Buttons, Graphics;
procedure AssignPng(ctrl: TPersistent; const resName: string);
@ -15,7 +15,7 @@ var
procedure AssignPng(ctrl: TPersistent; const resName: string);
begin
try
png.LoadFromLazarusResource(resName);
png.LoadFromResourceName(HINSTANCE, resName);
if ctrl is TCustomBitBtn then
TCustomBitBtn(ctrl).Glyph.Assign(png)
else if ctrl is TCustomSpeedButton then
@ -28,7 +28,7 @@ end;
initialization
png := TPortableNetworkGraphic.Create;
{$I ../src/ce_icons.inc}
//{$I ../src/ce_icons.inc}
finalization
png.Free;
end.

4
src/ce_shortcutseditor.pas
View File

@ -177,7 +177,7 @@ begin
fObservers := TCEEditableShortCutSubject.create;
fShortcuts := TShortCutCollection.create(self);
fBackup := TShortCutCollection.create(self);
AssignPng(btnClear, 'clean');
AssignPng(btnClear, 'CLEAN');
EntitiesConnector.addObserver(self);
end;
@ -192,7 +192,7 @@ begin
inherited;
if not visible then exit;
//
AssignPng(btnActivate, 'keyboard_pencil');
AssignPng(btnActivate, 'KEYBOARD_PENCIL');
end;
{$ENDREGION}

12
src/ce_symlist.pas
View File

@ -7,7 +7,8 @@ interface
uses
Classes, SysUtils, TreeFilterEdit, Forms, Controls, Graphics, ExtCtrls, Menus,
ComCtrls, ce_widget, jsonparser, process, actnlist, Buttons, Clipbrd, LCLProc,
ce_common, ce_observer, ce_synmemo, ce_interfaces, ce_writableComponent, ce_processes;
ce_common, ce_observer, ce_synmemo, ce_interfaces, ce_writableComponent,
ce_processes, ce_sharedres;
type
@ -321,7 +322,6 @@ end;
{$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCESymbolListWidget.create(aOwner: TComponent);
var
png: TPortableNetworkGraphic;
fname: string;
begin
fAutoRefresh := false;
@ -380,13 +380,7 @@ begin
ndWarn := Tree.Items[12];
ndErr := Tree.Items[13];
//
png := TPortableNetworkGraphic.Create;
try
png.LoadFromLazarusResource('arrow_update');
btnRefresh.Glyph.Assign(png);
finally
png.Free;
end;
AssignPng(btnRefresh, 'ARROW_UPDATE');
//
Tree.OnDblClick := @TreeDblClick;
Tree.PopupMenu := contextMenu;

6
src/ce_synmemo.pas
View File

@ -525,7 +525,7 @@ begin
fSyncEdit := TSynPluginSyncroEdit.Create(self);
fSyncEdit.Editor := self;
fSyncEdit.CaseSensitive := true;
AssignPng(fSyncEdit.GutterGlyph, 'link_edit');
AssignPng(fSyncEdit.GutterGlyph, 'LINK_EDIT');
//
fCompletion := TSyncompletion.create(nil);
fCompletion.ShowSizeDrag := true;
@ -557,8 +557,8 @@ begin
TextBuffer.AddNotifyHandler(senrUndoRedoAdded, @changeNotify);
//
fImages := TImageList.Create(self);
fImages.AddLazarusResource('bullet_red');
fImages.AddLazarusResource('bullet_green');
fImages.AddResourceName(HINSTANCE, 'BULLET_RED');
fImages.AddResourceName(HINSTANCE, 'BULLET_GREEN');
fBreakPoints := TFPList.Create;
//
fPositions := TCESynMemoPositions.create(self);

4
src/ce_todolist.pas
View File

@ -221,8 +221,8 @@ begin
lstfilter.OnChange := @filterItems;
btnGo.OnClick := @handleListClick;
//
AssignPng(btnRefresh, 'arrow_update');
AssignPng(btnGo, 'arrow_pen');
AssignPng(btnRefresh, 'ARROW_UPDATE');
AssignPng(btnGo, 'ARROW_PEN');
//
fname := getCoeditDocPath + OptFname;
if fname.fileExists then

12
src/ce_toolseditor.pas
View File

@ -48,12 +48,12 @@ constructor TCEToolsEditorWidget.create(aOwner: TComponent);
begin
inherited;
//
AssignPng(btnMoveUp, 'arrow_up');
AssignPng(btnMoveDown, 'arrow_down');
AssignPng(BtnAddTool, 'application_add');
AssignPng(btnRemTool, 'application_delete');
AssignPng(btnRun, 'application_flash');
AssignPng(btnClone, 'application_double');
AssignPng(btnMoveUp, 'ARROW_UP');
AssignPng(btnMoveDown, 'ARROW_DOWN');
AssignPng(BtnAddTool, 'APPLICATION_ADD');
AssignPng(btnRemTool, 'APPLICATION_DELETE');
AssignPng(btnRun, 'APPLICATION_FLASH');
AssignPng(btnClone, 'APPLICATION_DOUBLE');
//
propsEd.CheckboxForBoolean := true;
rebuildToolList;