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

libman, also sores the matching project file 

just in case of...
This commit is contained in:
Basile Burg 2015-09-26 21:56:55 +02:00
parent 5d17c139e9
commit 2d855e9f4d
5 changed files with 90 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
icons/other/script_bricks.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.5 KiB

42
src/ce_icons.inc
View File

@ -1606,6 +1606,48 @@ LazarusResources.Add('pencil','PNG',[
+#24'67'#197'a'#213#16'<'#235#26#10#31' '#192#0#180#149#19#130#202'Tj)'#0#0#0
+#0'IEND'#174'B`'#130
]);
LazarusResources.Add('script_bricks','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#25'tEXtSoftware'#0'Adobe ImageReadyq'#201'e<'#0#0#3'"iTXtXML:com.adob'
+'e.xmp'#0#0#0#0#0'<?xpacket begin="'#239#187#191'" id="W5M0MpCehiHzreSzNTczk'
+'c9d"?> <x:xmpmeta xmlns:x="adobe:ns:meta/" x:xmptk="Adobe XMP Core 5.0-c061'
+' 64.140949, 2010/12/07-10:57:01 "> <rdf:RDF xmlns:rdf="http://www.w3'
+'.org/1999/02/22-rdf-syntax-ns#"> <rdf:Description rdf:about="" xmlns:xmp="h'
+'ttp://ns.adobe.com/xap/1.0/" xmlns:xmpMM="http://ns.adobe.com/xap/1.0/mm/" '
+'xmlns:stRef="http://ns.adobe.com/xap/1.0/sType/ResourceRef#" xmp:CreatorToo'
+'l="Adobe Photoshop CS5.1 Windows" xmpMM:InstanceID="xmp.iid:4BA57644590011E'
+'297FA8BBCAE6D067A" xmpMM:DocumentID="xmp.did:4BA57645590011E297FA8BBCAE6D06'
+'7A"> <xmpMM:DerivedFrom stRef:instanceID="xmp.iid:4BA57642590011E297FA8BBCA'
+'E6D067A" stRef:documentID="xmp.did:4BA57643590011E297FA8BBCAE6D067A"/> </rd'
+'f:Description> </rdf:RDF> </x:xmpmeta> <?xpacket end="r"?>?'#188'F{'#0#0#2
+'yIDATx'#218#164'SKh'#19'A'#24#254'v'#178'1'#1'm'#210#218'&}'#145'*'#26'h'
+#168#193#136#16#21#177'hi'#17#170#208#163'-'#189#248'Bo'#130'7'#15#1'['#31' '
+'z)'#158#4#145'"('#138#7#15#30#218'j'#20'*Q'#148#180#190#210'C'#155'>m'#155
+'VI'#140#137#209'f'#147'n'#178'3'#206'nLL'#20'Q'#240'c'#127'v'#152#249#191'o'
+#254#215#8#248#5#230#179#131#17'g'#173#217'b2'#136#136#167#179'x'#181#244#5
+':'#1#16#180'S'#6'"'#8#208#243#13'=!0'#136#196'^B^'#223';t'#225#238#187'%'
+#246'7x'#167#194#204#191#24'cU='#131#195#164'X %g'#142'u'#185#234#181'u'#228
+#201'eD'#251'w#zc'#15#194#3'}'#160#218#253'9\'#26#158#197#170'B'#177#177'r'
+#237#190#18#129#22#187#181'N'#19#226#166'['#184#141#170'mM'#168#218#222#8#242
+#254#22'V'#248#158#148#205'I<'#157#139#162#251#206#27#196'R'#25#136'y'#178
+#229#252#195'u&'#163'Q[+'#220'>O.'#162#210#177#21#169#133' '#194#129'y'#168
+#202'z^'#8#202#227'0('#169#192#146#167#227#184#234'['#16'Pd'#217#177#195'V'
+#141#151#193'>'#12#189#189#6'['#189#25#194#243#17#148#233'*a=y'#19','#203#163
+'"'#2'FCq'#136#140'-r'#202#235#18#1#170#208#189#238#6#11#188'>'#15#170'k'#182
+'`^V'#208#147#236'D'#130'v'#128#190#0#14#172#204#224'T'#139#29'31'#9#132#202
+'sy^'#161#6#10'U'#28#229'F'#29'('#163'0Y'#140#16'i'#26'Q'#169#19#237'n'#23#26
+'j,'#184#247','#199#153#8#127#3#201#164#167#127#19'`:q'#167#211#10#236'r'#245
+'#4'#206#195#228'}f'#138#196'{NPQ^'#241'c'#14#128#177#143'_!'#200#210'x'#158
+'WH'#193'l4'#216#212#255#134#186'C'#216'd'#235#230'D'#192'>'#185#140#129#17
+'?'#178#148#226'p'#235'f'#205'o9'#145'F'#252#250'i'#127'A'#160#246#226'#'#150
+#228#249'&y_]W}'#220'Ym'#149#0'B'#4'MD'#157#186#253#141'V4;'#172#26'!'#248'I'
+'m('#164#130#192'j'#150'"q'#174#29#127#130'w:'#130#19#247#199'p'#212'mC'#136
+#223#174'g'#217'p'#241#185'H'#228#228#232#21#223#172#187#211'U'#139#140#194
+'J'#200'j'#20'M5&xZ'#237'('#211#139'834'#1'q%'#250#160#216'G0'#181#29'i['#211
+#220#245'8'#195'S'#160#140#161'XBPS'#225#213'S'#31#16#255'x'#193'h<'#210'{'
+#208#201#143'>'#252#244#1#12#220#156#248'7'#240'qB'#160'$'#2#254#184#240'?'
+#248'.'#192#0#5#181#10'l'#246#0'3S'#0#0#0#0'IEND'#174'B`'#130
]);
LazarusResources.Add('textfield_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'

2
src/ce_libman.pas
View File

@ -19,10 +19,12 @@ type
fAlias: string;
fSourcePath: string;
fLibFile: string;
fProjFile: string;
published
property libAlias: string read fAlias write fAlias;
property libSourcePath: string read fSourcePath write fSourcePath;
property libFile: string read fLibFile write fLibFile;
property projectFile: string read fProjFile write fProjFile;
end;
(**

24
src/ce_libmaneditor.lfm
View File

@ -50,7 +50,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
TabOrder = 1
end
object btnSelFile: TBitBtn
Left = 549
Left = 521
Height = 26
Hint = 'select the library file'
Top = 0
@ -61,7 +61,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
TabOrder = 2
end
object btnSelRoot: TBitBtn
Left = 605
Left = 577
Height = 26
Hint = 'select the sources root'
Top = 0
@ -72,7 +72,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
TabOrder = 3
end
object btnEditAlias: TBitBtn
Left = 521
Left = 493
Height = 26
Hint = 'edit the library alias'
Top = 0
@ -103,7 +103,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
TabOrder = 6
end
object btnSelfoldOfFiles: TBitBtn
Left = 577
Left = 549
Height = 26
Hint = 'select a folder of library files'
Top = 0
@ -135,6 +135,17 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Spacing = 0
TabOrder = 9
end
object btnSelProj: TBitBtn
Left = 605
Height = 26
Hint = 'select the project file'
Top = 0
Width = 28
Align = alRight
OnClick = btnSelProjClick
Spacing = 0
TabOrder = 10
end
end
object List: TListView[1]
Left = 4
@ -158,6 +169,11 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
AutoSize = True
Caption = 'Sources root'
Width = 78
end
item
AutoSize = True
Caption = 'project'
Width = 49
end>
GridLines = True
HideSelection = False

26
src/ce_libmaneditor.pas
View File

@ -24,6 +24,7 @@ type
btnEditAlias: TBitBtn;
btnSelfoldOfFiles: TBitBtn;
btnSelRoot: TBitBtn;
btnSelProj: TBitBtn;
List: TListView;
Panel1: TPanel;
procedure btnAddLibClick(Sender: TObject);
@ -33,6 +34,7 @@ type
procedure btnRemLibClick(Sender: TObject);
procedure btnSelFileClick(Sender: TObject);
procedure btnSelfoldOfFilesClick(Sender: TObject);
procedure btnSelProjClick(Sender: TObject);
procedure btnSelRootClick(Sender: TObject);
procedure btnMoveUpClick(Sender: TObject);
procedure btnMoveDownClick(Sender: TObject);
@ -77,6 +79,7 @@ begin
AssignPng(btnSelRoot, 'folder_add');
AssignPng(btnReg, 'book_link');
AssignPng(btnDubFetch, 'dub_small');
AssignPng(btnSelProj, 'script_bricks');
end;
procedure TCELibManEditorWidget.updateRegistrable;
@ -258,6 +261,7 @@ begin
cdy := ExtractFileDir(cdy);
end;
SubItems.Add(cdy);
SubItems.Add(prj.filename);
Selected:=true;
end;
finally
@ -331,6 +335,7 @@ begin
else
SubItems.add(fname);
SubItems.add(root);
SubItems.add(fProj.filename);
if not FileExists(SubItems[0]) then
dlgOkInfo('the library file does not exist, maybe the project not been already compiled ?');
Selected:= true;
@ -350,6 +355,25 @@ begin
gridToData;
end;
procedure TCELibManEditorWidget.btnSelProjClick(Sender: TObject);
var
ini: string = '';
begin
if List.Selected = nil then
exit;
if List.Selected.SubItems.Count > 2 then
ini := List.Selected.SubItems[2]
else while List.Selected.SubItems.Count < 3 do
List.Selected.SubItems.Add(ini);
with TOpenDialog.Create(nil) do try
if Execute then
List.Selected.SubItems[2] := FileName;
finally
free;
end;
gridToData;
end;
procedure TCELibManEditorWidget.btnSelFileClick(Sender: TObject);
var
ini: string = '';
@ -462,6 +486,7 @@ begin
row.Caption := itm.libAlias;
row.SubItems.Add(itm.libFile);
row.SubItems.Add(itm.libSourcePath);
row.SubItems.Add(itm.projectFile);
end;
List.EndUpdate;
end;
@ -481,6 +506,7 @@ begin
itm.libAlias := row.Caption;
itm.libFile := row.SubItems.Strings[0];
itm.libSourcePath := row.SubItems.Strings[1];
itm.projectFile:= row.SubItems.Strings[2];
end;
LibMan.libraries.EndUpdate;
LibMan.updateDCD;