mirror of https://gitlab.com/basile.b/dexed.git
drw1
This commit is contained in:
Basile Burg
parent
d776f77d7f
commit
cac091a4d6
Binary file not shown.
|
After Width: | Height: | Size: 899 B |
Binary file not shown.
|
After Width: | Height: | Size: 891 B |
|
|
@ -140,7 +140,7 @@
|
|||
<PackageName Value="LCL"/>
|
||||
</Item6>
|
||||
</RequiredPackages>
|
||||
<Units Count="33">
|
||||
<Units Count="34">
|
||||
<Unit0>
|
||||
<Filename Value="coedit.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
|
|
@ -345,6 +345,14 @@
|
|||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="ce_icons"/>
|
||||
</Unit32>
|
||||
<Unit33>
|
||||
<Filename Value="..\src\ce_resman.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="CEResmanWidget"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="ce_resman"/>
|
||||
</Unit33>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
|
|
|||
|
|
@ -0,0 +1,8 @@
|
|||
Coedit resman
|
||||
=============
|
||||
|
||||
The interactive Coedit tool used to manage the resource of a project.
|
||||
This D program is based on the tool called resource.d
|
||||
|
||||
Tool: the source code of the program used by Coedit.
|
||||
Library: the source code if the static library to import in a module using the resman.
|
||||
|
|
@ -0,0 +1,23 @@
|
|||
object CurrentProject: TCEProject
|
||||
OptionsCollection = <
|
||||
item
|
||||
name = 'default'
|
||||
messagesOptions.showColumnsNumber = True
|
||||
outputOptions.boundsCheck = onAlways
|
||||
pathsOptions.outputFilename = 'C:\dev\sharedbin\resman.exe'
|
||||
preBuildProcess.options = []
|
||||
preBuildProcess.showWindow = swoNone
|
||||
postBuildProcess.options = []
|
||||
postBuildProcess.showWindow = swoNone
|
||||
runOptions.options = []
|
||||
runOptions.parameters.Strings = (
|
||||
'-v <CPFS>'
|
||||
)
|
||||
runOptions.showWindow = swoNone
|
||||
end>
|
||||
Sources.Strings = (
|
||||
'..\tool\resman.d'
|
||||
'..\tool\utils.d'
|
||||
)
|
||||
ConfigurationIndex = 0
|
||||
end
|
||||
|
|
@ -0,0 +1,46 @@
|
|||
/**
|
||||
* Coedit resource API
|
||||
*/
|
||||
module resman;
|
||||
|
||||
/**
|
||||
* Activate the resman mechanism. If the resources related to a
|
||||
* module have been generated using the Coedit *Resman* widget
|
||||
* then mixing this template will:
|
||||
* - import this module, thus the method to access the to resources
|
||||
* - import, at compile time, the resource data, located in the .res file
|
||||
* Examples:
|
||||
* ---
|
||||
* mixin activateResman;
|
||||
* ---
|
||||
*/
|
||||
mixin template activateResman()
|
||||
{
|
||||
mixin("private import resman;");
|
||||
enum f = (__FILE__.stripExtension.stripPath) ~ ".res";
|
||||
mixin(import(f));
|
||||
}
|
||||
|
||||
public enum ResFormat {
|
||||
bytes, //
|
||||
utf8, //
|
||||
base16, //
|
||||
base64 //
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
* Params:
|
||||
* identifiers = the array which holds the resource identifiers,
|
||||
* always named *residententifiers*.
|
||||
* identifier = the identifier to find.
|
||||
*
|
||||
* Return:
|
||||
* a positive value if the resource is found otherwise -1.
|
||||
*/
|
||||
public ptrdiff_t resourceIndex(string[] identifiers, string identifier)
|
||||
{
|
||||
return -1;
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,142 @@
|
|||
module resman;
|
||||
|
||||
import std.stdio, std.getopt, std.path;
|
||||
import std.json, std.file, std.conv;
|
||||
|
||||
enum ResType {aFile, aFolder}
|
||||
enum ResFormat {bytes, utf8, base16, base64}
|
||||
|
||||
struct ResourceItem{}
|
||||
alias ResourceItems = ResourceItem * [];
|
||||
|
||||
void main(string[] args)
|
||||
{
|
||||
string[] files;
|
||||
string basePath;
|
||||
bool verbose;
|
||||
ResourceItems items;
|
||||
|
||||
getopt(args, config.passThrough, "v|verbose", &verbose);
|
||||
getopt(args, config.passThrough, "b|basepath", &basePath);
|
||||
files = args[1..$];
|
||||
|
||||
if (basePath.length && basePath.exists)
|
||||
{/*setCUrrentDirectory(basePath) : use to solve relative resource path\name*/}
|
||||
|
||||
if (!files.length) return; // + verbose, msg
|
||||
foreach(f; files)
|
||||
{
|
||||
json2Items(f, items);
|
||||
Items2Module(f, items);
|
||||
}
|
||||
readln;
|
||||
}
|
||||
|
||||
void json2Items(string fname, out ResourceItems items)
|
||||
{
|
||||
if (!fname.exists) return; // + verbose, msg
|
||||
size_t size = cast(size_t) getSize(fname);
|
||||
if (size == 0) return; // + verbose, msg
|
||||
|
||||
auto json_string = cast(string) std.file.read(fname, size);
|
||||
JSONValue root = parseJSON(json_string);
|
||||
if (root.type != JSON_TYPE.OBJECT) return; // invalid format
|
||||
JSONValue * itms = ("items" in root.object);
|
||||
if (itms == null) return; // invalid format
|
||||
if (itms.type != JSON_TYPE.ARRAY) return; // invalid format
|
||||
foreach(itm; itms.array)
|
||||
{
|
||||
if (itm.type != JSON_TYPE.OBJECT) continue; // invalid format
|
||||
|
||||
JSONValue * itm_tpe = ("resourceType" in itm.object);
|
||||
JSONValue * itm_nme = ("name" in itm.object);
|
||||
JSONValue * itm_idt = ("identifier" in itm.object);
|
||||
JSONValue * itm_fmt = ("format" in itm.object);
|
||||
JSONValue * itm_mdt = ("metadata" in itm.object);
|
||||
|
||||
if (itm_tpe == null) continue; // invalid format
|
||||
if (itm_nme == null) continue; // invalid format
|
||||
if (itm_idt == null) continue; // invalid format
|
||||
if (itm_fmt == null) continue; // invalid format
|
||||
if (itm_mdt == null) continue; // invalid format
|
||||
|
||||
if (itm_tpe.type != JSON_TYPE.STRING) continue; // invalid format
|
||||
if (itm_nme.type != JSON_TYPE.STRING) continue; // invalid format
|
||||
if (itm_idt.type != JSON_TYPE.STRING) continue; // invalid format
|
||||
if (itm_fmt.type != JSON_TYPE.STRING) continue; // invalid format
|
||||
if (itm_mdt.type != JSON_TYPE.STRING) continue; // invalid format
|
||||
|
||||
string[] nme_vs;
|
||||
string nme_v = itm_nme.str;
|
||||
string idt_v = itm_idt.str;
|
||||
string mdt_v = itm_mdt.str;
|
||||
ResType tpe_v = to!ResType(itm_tpe.str);
|
||||
ResFormat fmt_v = to!ResFormat(itm_fmt.str);
|
||||
|
||||
if (!nme_v.exists) continue; // path or filename must exists
|
||||
|
||||
if (nme_v.isDir)
|
||||
foreach(e; dirEntries(nme_v, SpanMode.shallow))
|
||||
nme_vs ~= e;
|
||||
else nme_vs ~= nme_v;
|
||||
|
||||
foreach(n; nme_vs)
|
||||
{
|
||||
// creates item for the file n
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
void json_print(ref JSONValue value)
|
||||
{
|
||||
|
||||
writeln("-------------");
|
||||
JSON_TYPE tp = value.type;
|
||||
final switch(tp){
|
||||
case JSON_TYPE.ARRAY:
|
||||
foreach(v; value.array)
|
||||
json_print(v);
|
||||
break;
|
||||
case JSON_TYPE.FALSE:
|
||||
writeln(value);
|
||||
break;
|
||||
case JSON_TYPE.FLOAT:
|
||||
writeln(value);
|
||||
break;
|
||||
case JSON_TYPE.INTEGER:
|
||||
writeln(value);
|
||||
break;
|
||||
case JSON_TYPE.NULL:
|
||||
break;
|
||||
case JSON_TYPE.OBJECT:
|
||||
writeln(value);
|
||||
writeln(("identifier" in value.object) != null);
|
||||
foreach(v; value.object)
|
||||
json_print(v);
|
||||
break;
|
||||
case JSON_TYPE.STRING:
|
||||
writeln(value);
|
||||
break;
|
||||
case JSON_TYPE.TRUE:
|
||||
writeln(value);
|
||||
break;
|
||||
case JSON_TYPE.UINTEGER:
|
||||
writeln(value);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
json_print(root);
|
||||
}
|
||||
|
||||
void Items2Module(string fname, ref ResourceItems items)
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -0,0 +1 @@
|
|||
{ "Name" : "", "Tag" : 0, "items" : [{ "format" : "bytes", "identifier" : "img1", "metadata" : "bla|oops", "name" : "C:\\Dev\\dproj\\Resource.d\\res\\res_img1.png", "resourceType" : "aFile" }, { "format" : "bytes", "identifier" : "<id_for_item1>", "metadata" : "", "name" : "", "resourceType" : "aFile" }] }
|
||||
|
|
@ -0,0 +1 @@
|
|||
module utils;
|
||||
|
|
@ -1101,6 +1101,83 @@ LazarusResources.Add('link_break','PNG',[
|
|||
+#142#128#210#246#219#231#227#228'1Mn'#21#249#19#226#13#224#128#234'd'#129#31
|
||||
+#1#6#0'aG}'#171'6'#210#147','#0#0#0#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('package_add','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#6#0#0#0#31#243#255'a'
|
||||
+#0#0#0#4'gAMA'#0#0#175#200'7'#5#138#233#0#0#0#25'tEXtSoftware'#0'Adobe Image'
|
||||
+'Readyq'#201'e<'#0#0#3#21'IDAT8'#203'u'#147'Kh\u'#24'G'#207#157#153';s'''#205
|
||||
+#144'IR'#210'4'#213'('#164'i'#19'c'#210#164#8'J'#31'*'#168#217#8'mJ'#21'"'#8
|
||||
+#245#129'.'#20#221#20#165#20#151#22#20#170#8#6#197#138#136'n'#196#141#20#164
|
||||
+'&V'#163'!M['#163'I'#11#161#182'y'#140'i'#30'M&'#205'$'#157#204#251#206#220
|
||||
+#249#127#159#139#130#11#141#191#245#143#179'9'#28'KU'#217'lS'#231#14#181'!'
|
||||
+#242#174#138'FT'#228#173#214'#'#253'W7'#251'Y'#255#6'L'#247#31#174'S'#209'7U'
|
||||
+#228#245#218#166'#QSX'#227#206#220'`VE?S#'#31'>'#216';'#184#188')`f'#160#199
|
||||
+'V'#213#23'T'#228#237#200#142#238#157#219'Z'#159#193''''#134'l|'#12';'#228'g'
|
||||
+'56'#196#198#173#241'y'#21'9'#173'"_t'#30#27')'#252#3#152#30#232#233'F'#244
|
||||
+#157'Pu'#231#193'm-Gq'#170#155'AK'#148#147'3'#220#28':'#197#189#15#236#199'W'
|
||||
+'q'#31#197'\'#130#219#177'q2'#137#27#163'j'#204#169#189#175#140'~oM'#245#31
|
||||
+#254#18#145'c[w'#246'ZNM;nf'#141'T'#226#6#166#148#197#203#197#9'YE'#234#27'w'
|
||||
+#131#155#196'_'#217#136#207#137#144#142'Os;6N>9'#255'M@'#141'<'#191#235#201
|
||||
+'>'#203#203#172#145#141#15'!'#165'4'#161'|'#130'|:Nzq'#137#189#189#31'c'#135
|
||||
+#183'@n'#14#205#197#176#210#211#212'6tPU'#3'W~'#152'}6'#160'"9'#197#170#10':'
|
||||
+'!"5'#141#20#18#215#169#168#142#18#173#14#19'&'#15#238#2#152' '#184'KPX$'#191
|
||||
+'2Jv'#238#18#206#253'GQ#'#185#128#138#128#0'V'#16#187#170#25';'#20#193']'#29
|
||||
+'C'#178#171#216'~'#176#242#127#129'O)'#173#252'L&'#189'A9'#28#133'`'#8#245
|
||||
+#202#168#8#1'5'#194']'#15#6#180#8#129'-8u]'#148#131'a'#28'w'#29'Y'#249#137
|
||||
+#148#151#161#236'TbB'#17'$_'#130#178'"'#165'2j'#12#1'5'#230#174'P5 '#30'H'#30
|
||||
+#180'H'#160'r'#7#145#250']'#164#238#140#225#249#28'.,'#133#184#188#22'&'#237
|
||||
+#186#148#220#20#7#147#19#180#24'!'#160'"a'#159'm'#3'a('#175#131#20'A\0Ep'#26
|
||||
+'(+'#252#178#16'd'#202#174#229#241'G'#31#226#158#154'f~'#253#243','#231#175
|
||||
+']`r'#195#173#244#169#145#225#217#225#143'($'#23' '#212#0#254#10'0%P'#15#16
|
||||
+#212#19'~\'#240#232'l'#217#131#241#25#246'l'#127#10'cy<'#210#190#143#139'9'
|
||||
+#207#242#137'1Og'#22'G^'#157#28'8'#25#155#255#253'k'#12'A'#136#236#6';'#12#10
|
||||
+#166#232#145#200#172'c['#149#28'j}'#3#128#227'O'#156#161#169#174#3#163#248
|
||||
+#252#159'~7o'#234';_'#186#18#31';'#243'm>1'#227#197''''#206#181'c'#249#157'H'
|
||||
+#227#195'X'#246'VD'#194'|5:D'#245'v'#155#225#217#179#28'h'#234#225#189#243'/'
|
||||
+#146')'#172'smr'#202#253'OL'#127#244'u'#181#169#145#147'*'#242'\'#211'c/['
|
||||
+#133#213'9>'#191'8'#200#245'h'#153'}'#29#7'h'#174#239'bf'#229'*'#151'&F'#184
|
||||
+'u3'#245#129#245#127'9_>'#221#214#173'"'''#16#9#170#200#251#199#151's'#251
|
||||
+#129#215#128#8#144#1'>'#249#173'o'#249#196#223#15'#'#175')S'#227#135'-'#0#0#0
|
||||
+#0'IEND'#174'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('package_delete','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#6#0#0#0#31#243#255'a'
|
||||
+#0#0#0#4'gAMA'#0#0#175#200'7'#5#138#233#0#0#0#25'tEXtSoftware'#0'Adobe Image'
|
||||
+'Readyq'#201'e<'#0#0#3#13'IDAT8'#203'u'#147'Kh\u'#24#197#127'w'#230#206#220
|
||||
+';I'#198'L'#18'Icj'#211#150'$'#173'5Z'#211#138#136#136#232#162'D'#140'`'#19
|
||||
+'j!'#133'B'#10'E'#4#5#5#193#162'""b'#21#161#136'`ADD\'#185't!5'#165#15#9'!'
|
||||
+#180#132'&'#17#186#232'c:'#137#211#164#233'L2y'#206#243#206#220#251#255'>'#23
|
||||
+#149',4'#158#245#225#199#129's'#142#165#170'l'#165#219#231'^'#235'A'#228's'
|
||||
+#21#141#171#200#251#251#6'G'#254#220#202'g'#253#27#144#28'9'#220#170#162#239
|
||||
+#168#200#219'-'#157#131#9'SYf5}'#185#168#162#223#171#145#175#159#24#186'|'
|
||||
+#127'K'#192#157#243#3#17'U='#161'"'#167#226#219#251#186#182#237'{'#157#144#24
|
||||
+#138#153'I"N'#152#165#212'('#235#247#166#238#170#200#25#21#249#177'wx'#188
|
||||
+#178#9'H'#158#31#232'C'#244'c'#167#169#247#133'm'#143#29#193'm'#234#6#173#17
|
||||
+#172#221#225#175#209#211#236'x'#252'yBu;'#169#150'r,'#166#166'('#228'nN'#168
|
||||
+'1'#167#15#190'1'#241#155'u{'#228#240'O'#136#12'?'#220'5d'#185#205'O'#226#21
|
||||
+#150#217#200#221#196#212#138#248#165#12#142'U'#165#173'c/xk'#132#27':'#8#185
|
||||
+'q'#242#153'$'#139#169')'#202'kw'#127#177#213#200#241'='#135#206'Z~a'#153'bf'
|
||||
+#20#169#229'q'#202'9'#202#249#12#249#249#5#14#14'}K$V'#15#165'4ZJa'#229#147
|
||||
+#180#180#239#167#177#25#166#127#159'=j'#171'HI'#177#26#163#174'C'#188#185#131
|
||||
+'J'#238#6'uM'#9#18'M1b'#148#193#155#3#19#5'o'#1'*'#243#148#179#19#20#211'Wpw'
|
||||
+#29'A'#141#148'l'#21#1#1#172'('#145#198'n"N'#28'oi'#18').'#17#9#131'U'#158
|
||||
+#129#144'R'#203'^'#162#144'_'''#136'% '#234#160'~'#128#138'`'#171#17#30#244
|
||||
+'`@'#171'`'#215#227#182#30' '#136#198'p'#189#21'${'#145#13#191'@'#224'6`'#156
|
||||
+'8R'#174'A'#160'H-@'#141#193'Vc'#30#20#170#6#196#7')'#131'V'#177#27#182#19'o'
|
||||
+#219#195#198#234'$~'#200'ee"'#199#202#181'9'#188#197'uB'#15'Ei}'#142#127#18
|
||||
+#136#196'B'#145#8#16#131'`'#5#164#10#226#129#169#130#219'N'#160#176':'#177'B'
|
||||
+'-'#235#242#244#241#15'qv'#247'P'#185'~'#129#27#227#151#240#131#245#250#144
|
||||
+#26#25#155#29#251#134#202#218#28'8'#237#16#174#3'S'#3#245#1'A}!s%I'#247'KGqg'
|
||||
+'F'#177'~>F'#221#236#175#236#234'h'#166'6'#183#30#216'b'#204#171#133#249#241
|
||||
+#225'['#233#177'S'#205#157#135#186#30#221#223'O8'#190#23#202')'#240'J'#152
|
||||
+#170#143'Y'#171#225#182#237#134#254#247'6''l'#127#250#8'!O'#156#205')O'#255
|
||||
+#240'l'#171#138#188#171'F'#222'j'#127'j '#209#222#219#15#190'G~'#254'*'#211
|
||||
+#159'}'#201'3'#175#12'R?w'#142'j%K'#25'('#228#195#220#154'a'#225'?g'#186'v'
|
||||
+#246'@'#143#26#249'HE'#142'u'#190'x'#210#170','#165#153#191#248#7'v'#222#211
|
||||
+#29'-'#129'e'#135#238'Q'#200#5#164#23#195#198#247#244#19#235#255#238'|'#245
|
||||
+'LO'#159#138'|'#128'HTE'#190#226'z'#181#167#180'z'#255#205#176#177'v'#154#176
|
||||
+'.(|'#247#242#133#224#139#191#1't'#175#185#146#193#18'#X'#0#0#0#0'IEND'#174
|
||||
+'B`'#130
|
||||
]);
|
||||
LazarusResources.Add('page_white_copy','PNG',[
|
||||
#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0#16#0#0#0#16#8#4#0#0#0#181#250'7'
|
||||
+#234#0#0#0#4'gAMA'#0#0#175#200'7'#5#138#233#0#0#0#25'tEXtSoftware'#0'Adobe I'
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ uses
|
|||
Dialogs, Menus, ActnList, ExtCtrls, process, XMLPropStorage, dynlibs, SynExportHTML,
|
||||
ce_common, ce_dmdwrap, ce_project, ce_dcd, ce_plugin, ce_synmemo, ce_widget,
|
||||
ce_messages, ce_interfaces, ce_editor, ce_projinspect, ce_projconf, ce_search,
|
||||
ce_staticexplorer, ce_miniexplorer, ce_libman, ce_libmaneditor,
|
||||
ce_staticexplorer, ce_miniexplorer, ce_libman, ce_libmaneditor, ce_resman,
|
||||
ce_observer, ce_writableComponent, ce_toolseditor, ce_procinput, ce_cdbcmd;
|
||||
|
||||
type
|
||||
|
|
@ -177,6 +177,8 @@ type
|
|||
fDoc: TCESynMemo;
|
||||
fUpdateCount: NativeInt;
|
||||
fProject: TCEProject;
|
||||
fProjMru: TMruFileList;
|
||||
fFileMru: TMruFileList;
|
||||
fPlugList: TCEPlugDescriptorList;
|
||||
fWidgList: TCEWidgetList;
|
||||
fMesgWidg: TCEMessagesWidget;
|
||||
|
|
@ -188,17 +190,15 @@ type
|
|||
fExplWidg: TCEMiniExplorerWidget;
|
||||
fLibMWidg: TCELibManEditorWidget;
|
||||
fTlsEdWidg: TCEToolsEditorWidget;
|
||||
fProjMru: TMruFileList;
|
||||
fFileMru: TMruFileList;
|
||||
fPrInpWidg: TCEProcInputWidget;
|
||||
fInitialized: boolean;
|
||||
fRunnableSw: string;
|
||||
fResWidg: TCEResmanWidget;
|
||||
{$IFDEF WIN32}
|
||||
fCdbWidg: TCECdbWidget;
|
||||
{$ENDIF}
|
||||
|
||||
fInitialized: boolean;
|
||||
fRunnableSw: string;
|
||||
fRunProc: TCheckedAsyncProcess;
|
||||
|
||||
fLogMessager: TCELogMessageSubject;
|
||||
fMainMenuSubj: TCEMainMenuSubject;
|
||||
procedure updateMainMenuProviders;
|
||||
|
|
@ -239,7 +239,6 @@ type
|
|||
procedure FreeRunnableProc;
|
||||
|
||||
// widget interfaces subroutines
|
||||
procedure checkWidgetActions(const aWidget: TCEWidget);
|
||||
procedure widgetShowFromAction(sender: TObject);
|
||||
|
||||
// run & exec sub routines
|
||||
|
|
@ -462,6 +461,7 @@ begin
|
|||
fLibMWidg := TCELibManEditorWidget.create(self);
|
||||
fTlsEdWidg:= TCEToolsEditorWidget.create(self);
|
||||
fPrInpWidg:= TCEProcInputWidget.create(self);
|
||||
fResWidg := TCEResmanWidget.create(self);
|
||||
|
||||
{$IFDEF WIN32}
|
||||
fCdbWidg := TCECdbWidget.create(self);
|
||||
|
|
@ -477,6 +477,7 @@ begin
|
|||
fWidgList.addWidget(@fLibMWidg);
|
||||
fWidgList.addWidget(@fTlsEdWidg);
|
||||
fWidgList.addWidget(@fPrInpWidg);
|
||||
fWidgList.addWidget(@fResWidg);
|
||||
|
||||
{$IFDEF WIN32}
|
||||
fWidgList.addWidget(@fCdbWidg);
|
||||
|
|
@ -860,28 +861,6 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TCEMainForm.checkWidgetActions(const aWidget: TCEWidget);
|
||||
var
|
||||
tlt: string;
|
||||
cnt, i: NativeInt;
|
||||
prt, itm: TMenuItem;
|
||||
begin
|
||||
tlt := aWidget.contextName;
|
||||
if tlt = '' then exit;
|
||||
cnt := aWidget.contextActionCount;
|
||||
if cnt = 0 then exit;
|
||||
//
|
||||
prt := TMenuItem.Create(self);
|
||||
prt.Caption := tlt;
|
||||
mainMenu.Items.Add(prt);
|
||||
for i := 0 to cnt-1 do
|
||||
begin
|
||||
itm := TMenuItem.Create(prt);
|
||||
itm.Action := aWidget.contextAction(i);
|
||||
prt.Add(itm);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCEMainForm.mruChange(Sender: TObject);
|
||||
var
|
||||
srcLst: TMruFileList;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,103 @@
|
|||
inherited CEResmanWidget: TCEResmanWidget
|
||||
Left = 755
|
||||
Height = 331
|
||||
Top = 247
|
||||
Width = 432
|
||||
Caption = 'Resman'
|
||||
ClientHeight = 331
|
||||
ClientWidth = 432
|
||||
inherited Back: TPanel
|
||||
Height = 331
|
||||
Width = 432
|
||||
ClientHeight = 331
|
||||
ClientWidth = 432
|
||||
inherited Content: TPanel
|
||||
Height = 331
|
||||
Width = 432
|
||||
ClientHeight = 331
|
||||
ClientWidth = 432
|
||||
object Panel1: TPanel[0]
|
||||
Left = 4
|
||||
Height = 24
|
||||
Top = 4
|
||||
Width = 424
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 4
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 24
|
||||
ClientWidth = 424
|
||||
TabOrder = 0
|
||||
object BtnAddItem: TBitBtn
|
||||
Left = 0
|
||||
Height = 24
|
||||
Hint = 'add a resourcel'
|
||||
Top = 0
|
||||
Width = 28
|
||||
Align = alLeft
|
||||
Layout = blGlyphBottom
|
||||
OnClick = BtnAddItemClick
|
||||
Spacing = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnRemItem: TBitBtn
|
||||
Left = 28
|
||||
Height = 24
|
||||
Hint = 'remove selected resource'
|
||||
Top = 0
|
||||
Width = 28
|
||||
Align = alLeft
|
||||
Layout = blGlyphBottom
|
||||
OnClick = btnRemItemClick
|
||||
Spacing = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel[1]
|
||||
Left = 4
|
||||
Height = 295
|
||||
Top = 32
|
||||
Width = 424
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 4
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 295
|
||||
ClientWidth = 424
|
||||
TabOrder = 1
|
||||
object lstItems: TListBox
|
||||
Left = 0
|
||||
Height = 295
|
||||
Top = 0
|
||||
Width = 160
|
||||
Align = alLeft
|
||||
ItemHeight = 0
|
||||
OnSelectionChange = lstItemsSelectionChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object Splitter1: TSplitter
|
||||
Left = 160
|
||||
Height = 295
|
||||
Top = 0
|
||||
Width = 5
|
||||
AutoSnap = False
|
||||
end
|
||||
object propsEd: TTIPropertyGrid
|
||||
Left = 165
|
||||
Height = 295
|
||||
Top = 0
|
||||
Width = 259
|
||||
Align = alClient
|
||||
DefaultValueFont.Color = clWindowText
|
||||
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
|
||||
Indent = 16
|
||||
NameFont.Color = clWindowText
|
||||
OnModified = propsEdModified
|
||||
ValueFont.Color = clMaroon
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited contextMenu: TPopupMenu
|
||||
left = 16
|
||||
top = 8
|
||||
end
|
||||
end
|
||||
|
|
@ -0,0 +1,373 @@
|
|||
unit ce_resman;
|
||||
|
||||
{$I ce_defines.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
|
||||
ExtCtrls, Menus, Buttons, StdCtrls, ce_widget, ce_writableComponent, fpjson,
|
||||
ce_interfaces, ce_project, ce_synmemo, ce_common, process, fpjsonrtti, fpjsondataset;
|
||||
|
||||
type
|
||||
|
||||
|
||||
TResourceType = (aFile, aFolder);
|
||||
TResourceFormat = (bytes, utf8, base16, base64);
|
||||
|
||||
TResourceItem = class(TCollectionItem)
|
||||
private
|
||||
fResType: TResourceType;
|
||||
fIDentifier: string;
|
||||
fName: string;
|
||||
fFormat: TResourceFormat;
|
||||
fMetadata: string;
|
||||
published
|
||||
property resourceType: TResourceType read fResType write fResType stored true;
|
||||
property identifier: string read fIDentifier write fIDentifier stored true;
|
||||
property name: string read fName write fName stored true;
|
||||
property format: TResourceFormat read fFormat write fFormat stored true;
|
||||
property metadata: string read fMetadata write fMetadata stored true;
|
||||
end;
|
||||
|
||||
(**
|
||||
* Represents a resource script. The resource script use the
|
||||
* JSON format for a better compatibility with the tool.
|
||||
*)
|
||||
TResourceItems = class(TWritableComponent)
|
||||
private
|
||||
fItems: TCollection;
|
||||
procedure setItems(aValue: TCollection);
|
||||
published
|
||||
property items: TCollection read fItems write setItems;
|
||||
public
|
||||
constructor create(aOwner: TComponent); override;
|
||||
destructor destroy; override;
|
||||
// overides the component streaming methods to use JSON instead of lfm
|
||||
procedure saveToFile(const aFilename: string); override;
|
||||
procedure loadFromFile(const aFilename: string); override;
|
||||
end;
|
||||
|
||||
{ TCEResmanWidget }
|
||||
TCEResmanWidget = class(TCEWidget, ICEProjectObserver, ICEMultiDocObserver)
|
||||
BtnAddItem: TBitBtn;
|
||||
btnRemItem: TBitBtn;
|
||||
lstItems: TListBox;
|
||||
Panel1: TPanel;
|
||||
Panel2: TPanel;
|
||||
propsEd: TTIPropertyGrid;
|
||||
Splitter1: TSplitter;
|
||||
procedure BtnAddItemClick(Sender: TObject);
|
||||
procedure btnRemItemClick(Sender: TObject);
|
||||
procedure lstItemsSelectionChange(Sender: TObject; User: boolean);
|
||||
procedure propsEdModified(Sender: TObject);
|
||||
private
|
||||
fProj: TCEProject;
|
||||
fDoc: TCESynMemo;
|
||||
fResourceItems: TResourceItems;
|
||||
// try to load the json resource script for the current doc
|
||||
procedure loadDocResJson;
|
||||
// try to save the json resource script for the current doc
|
||||
procedure saveDocResJson;
|
||||
procedure refreshItemList;
|
||||
procedure updateIdentifierList;
|
||||
procedure genResources;
|
||||
//
|
||||
procedure projNew(aProject: TCEProject);
|
||||
procedure projChanged(aProject: TCEProject);
|
||||
procedure projClosing(aProject: TCEProject);
|
||||
procedure projFocused(aProject: TCEProject);
|
||||
procedure projCompiling(aProject: TCEProject);
|
||||
//
|
||||
procedure docNew(aDoc: TCESynMemo);
|
||||
procedure docFocused(aDoc: TCESynMemo);
|
||||
procedure docChanged(aDoc: TCESynMemo);
|
||||
procedure docClosing(aDoc: TCESynMemo);
|
||||
public
|
||||
constructor create(aOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
{$R *.lfm}
|
||||
|
||||
{$REGION TResourceItems --------------------------------------------------------}
|
||||
constructor TResourceItems.Create(aOwner: TCOmponent);
|
||||
begin
|
||||
inherited;
|
||||
fItems := TCollection.Create(TResourceItem);
|
||||
end;
|
||||
|
||||
destructor TResourceItems.destroy;
|
||||
begin
|
||||
fItems.Free;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TResourceItems.saveToFile(const aFilename: string);
|
||||
var
|
||||
json_streamer: TJSONStreamer;
|
||||
json_string: TJSONStringType;
|
||||
str: TMemoryStream;
|
||||
begin
|
||||
fHasSaved := true;
|
||||
beforeSave;
|
||||
try
|
||||
json_streamer := TJSONStreamer.Create(nil);
|
||||
str := TMemoryStream.Create;
|
||||
try
|
||||
json_string := json_streamer.ObjectToJSONString(self);
|
||||
str.Write(json_string[1], length(json_string));
|
||||
str.SaveToFile(aFilename);
|
||||
finally
|
||||
json_streamer.Free;
|
||||
str.Free;
|
||||
end;
|
||||
except
|
||||
fHasSaved := false;
|
||||
end;
|
||||
setFilename(aFilename);
|
||||
afterSave;
|
||||
end;
|
||||
|
||||
procedure TResourceItems.loadFromFile(const aFilename: string);
|
||||
var
|
||||
json_destreamer: TJSONDeStreamer;
|
||||
json_string: TJSONStringType;
|
||||
str: TMemoryStream;
|
||||
begin
|
||||
fHasLoaded := true;
|
||||
beforeLoad;
|
||||
setFilename(aFilename);
|
||||
json_destreamer := TJSONDeStreamer.Create(nil);
|
||||
str := TMemoryStream.Create;
|
||||
try
|
||||
str.LoadFromFile(aFilename);
|
||||
setLength(json_string, str.Size);
|
||||
str.Read(json_string[1], str.Size);
|
||||
json_destreamer.JSONToObject(json_string, self);
|
||||
finally
|
||||
json_destreamer.Free;
|
||||
str.Free;
|
||||
end;
|
||||
afterLoad;
|
||||
end;
|
||||
|
||||
procedure TResourceItems.setItems(aValue: TCollection);
|
||||
begin
|
||||
fItems.Assign(aValue);
|
||||
end;
|
||||
{$ENDREGION}
|
||||
|
||||
constructor TCEResmanWidget.create(aOwner: TComponent);
|
||||
var
|
||||
png: TPortableNetworkGraphic;
|
||||
begin
|
||||
inherited;
|
||||
fResourceItems := TResourceItems.create(self);
|
||||
//
|
||||
png := TPortableNetworkGraphic.Create;
|
||||
try
|
||||
png.LoadFromLazarusResource('package_add');
|
||||
BtnAddItem.Glyph.Assign(png);
|
||||
png.LoadFromLazarusResource('package_delete');
|
||||
btnRemItem.Glyph.Assign(png);
|
||||
finally
|
||||
png.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$REGION ICEProjectObserver ----------------------------------------------------}
|
||||
procedure TCEResmanWidget.projNew(aProject: TCEProject);
|
||||
begin
|
||||
fProj := aProject;
|
||||
loadDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.projChanged(aProject: TCEProject);
|
||||
begin
|
||||
if fProj <> aProject then exit;
|
||||
loadDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.projClosing(aProject: TCEProject);
|
||||
begin
|
||||
if fProj <> aProject then exit;
|
||||
fProj := nil;
|
||||
propsEd.TIObject := nil;
|
||||
propsEd.ItemIndex := -1;
|
||||
fResourceItems.Items.Clear;
|
||||
refreshItemList;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.projFocused(aProject: TCEProject);
|
||||
begin
|
||||
fProj := aProject;
|
||||
loadDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.projCompiling(aProject: TCEProject);
|
||||
begin
|
||||
if fProj <> aProject then exit;
|
||||
saveDocResJson;
|
||||
genResources;
|
||||
end;
|
||||
{$ENDREGION}
|
||||
|
||||
{$REGION ICEMultiDocObserver ---------------------------------------------------}
|
||||
procedure TCEResmanWidget.docNew(aDoc: TCESynMemo);
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.docChanged(aDoc: TCESynMemo);
|
||||
begin
|
||||
if fDoc <> aDoc then exit;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.docClosing(aDoc: TCESynMemo);
|
||||
begin
|
||||
if fDoc <> aDoc then exit;
|
||||
//
|
||||
saveDocResJson;
|
||||
fDoc := nil;
|
||||
refreshItemList;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.docFocused(aDoc: TCESynMemo);
|
||||
begin
|
||||
fDoc := aDoc;
|
||||
loadDocResJson;
|
||||
end;
|
||||
{$ENDREGION}
|
||||
|
||||
{$REGION Resources things -----------------------------------------------------}
|
||||
procedure TCEResmanWidget.lstItemsSelectionChange(Sender: TObject; User: boolean);
|
||||
begin
|
||||
if lstItems.Count = 0 then exit;
|
||||
if lstItems.ItemIndex = -1 then exit;
|
||||
//
|
||||
propsEd.TIObject := TPersistent(lstItems.Items.Objects[lstItems.ItemIndex]);
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.propsEdModified(Sender: TObject);
|
||||
begin
|
||||
if propsEd.ItemIndex = -1 then
|
||||
exit;
|
||||
if propsEd.Rows[propsEd.ItemIndex].Name = 'identifier' then
|
||||
updateIdentifierList;
|
||||
saveDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.BtnAddItemClick(Sender: TObject);
|
||||
var
|
||||
item: TResourceItem;
|
||||
begin
|
||||
item := TResourceItem(fResourceItems.items.Add);
|
||||
item.identifier := format('<id_for_item %d>' ,[item.ID]);
|
||||
refreshItemList;
|
||||
saveDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.btnRemItemClick(Sender: TObject);
|
||||
begin
|
||||
if lstItems.ItemIndex = -1 then
|
||||
exit;
|
||||
propsEd.TIObject := nil;
|
||||
propsEd.ItemIndex := -1;
|
||||
fResourceItems.items.Delete(lstItems.ItemIndex);
|
||||
refreshItemList;
|
||||
saveDocResJson;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.loadDocResJson;
|
||||
var
|
||||
fname: string;
|
||||
begin
|
||||
if fDoc = nil then exit;
|
||||
if fProj = nil then exit;
|
||||
if not fProj.isProjectSource(fDoc.fileName) then exit;
|
||||
//
|
||||
fname := stripFileExt(fDoc.fileName) + '.resman';
|
||||
propsEd.TIObject := nil;
|
||||
propsEd.ItemIndex := -1;
|
||||
fResourceItems.Items.Clear;
|
||||
if fileExists(fname) then
|
||||
fResourceItems.loadFromFile(fname);
|
||||
refreshItemList;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.saveDocResJson;
|
||||
var
|
||||
fname: string;
|
||||
begin
|
||||
if fDoc = nil then exit;
|
||||
if fProj = nil then exit;
|
||||
if not fProj.isProjectSource(fDoc.fileName) then exit;
|
||||
//
|
||||
fname := stripFileExt(fDoc.fileName) + '.resman';
|
||||
if fResourceItems.Items.Count = 0 then exit;
|
||||
//
|
||||
fResourceItems.saveToFile(fname);
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.genResources;
|
||||
var
|
||||
proc: TProcess;
|
||||
fname: string;
|
||||
i: Integer;
|
||||
begin
|
||||
if fProj = nil then exit;
|
||||
if not exeInSysPath('resman' + exeExt) then exit;
|
||||
//
|
||||
proc := Tprocess.Create(nil);
|
||||
try
|
||||
proc.Executable:= 'resman' + exeExt;
|
||||
//proc.Options := [poUsePipes, poStderrToOutPut];
|
||||
//proc.ShowWindow := swoHIDE;
|
||||
proc.Parameters.Add('-v');
|
||||
for i := 0 to fProj.Sources.Count-1 do
|
||||
begin
|
||||
fname := fProj.getAbsoluteSourceName(i);
|
||||
fname := stripFileExt(fname) + '.resman';
|
||||
if not FileExists(fname) then continue;
|
||||
proc.Parameters.Add(fname);
|
||||
end;
|
||||
proc.Execute;
|
||||
while proc.Running do;
|
||||
// output to project message...
|
||||
finally
|
||||
proc.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.refreshItemList;
|
||||
var
|
||||
i: Integer;
|
||||
item: TResourceItem;
|
||||
begin
|
||||
propsEd.TIObject := nil;
|
||||
propsEd.ItemIndex := -1;
|
||||
lstItems.Items.Clear;
|
||||
for i:= 0 to fResourceItems.items.Count-1 do
|
||||
begin
|
||||
item := TResourceItem(fResourceItems.items.Items[i]);
|
||||
lstItems.Items.AddObject(item.identifier, item);
|
||||
end;
|
||||
if lstItems.Count > 0 then
|
||||
lstItems.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TCEResmanWidget.updateIdentifierList;
|
||||
var
|
||||
i: Integer;
|
||||
item: TResourceItem;
|
||||
begin
|
||||
for i:= 0 to fResourceItems.items.Count-1 do
|
||||
begin
|
||||
item := TResourceItem(fResourceItems.items.Items[i]);
|
||||
lstItems.Items.Strings[i] := item.identifier;
|
||||
end;
|
||||
end;
|
||||
{$ENDREGION}
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue