1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
// SPDX-License-Identifier: GPL-3.0-only
program createresource;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
BGRABitmap, BGRALazPaint, BGRABitmapTypes,
BGRALazResource, BGRAMultiFileType,
LazFileUtils, LazUTF8Classes, SysUtils,
LCVectorOriginal, LCVectorShapes, LCVectorPolyShapes;
{$R *.res}
const
imgWidth = 24;
imgHeight = 24;
procedure MakeResource(AVectorImagesPath: string; AListFile: string; AResourceFile: string; ACombinedImage: string);
var
search: TSearchRec;
res: TMultiFileContainer;
fs: TFileStreamUTF8;
lzp: TBGRALazPaintImage;
bigImg: TBGRABitmap;
i, idxEntry: Integer;
mem: TMemoryStreamUTF8;
combineList: TStringListUTF8;
begin
AVectorImagesPath := StringReplace(AVectorImagesPath,'/',PathDelim,[rfReplaceAll]);
AListFile := StringReplace(AListFile,'/',PathDelim,[rfReplaceAll]);
AResourceFile := StringReplace(AResourceFile,'/',PathDelim,[rfReplaceAll]);
ACombinedImage := StringReplace(ACombinedImage,'/',PathDelim,[rfReplaceAll]);
if FindFirstUTF8(AVectorImagesPath+'*.lzp', faAnyFile, search)=0 then
begin
res := TLazResourceContainer.Create;
writeln('Adding files to resource...');
repeat
fs := TFileStreamUTF8.Create(AVectorImagesPath+search.name, fmOpenRead);
res.Add(EntryFilename(search.name), fs, false, false);
fs.Free;
writeln(search.Name);
until FindNextUTF8(search)<>0;
FindClose(search);
combineList:= TStringListUTF8.Create;
if FileExists(AListFile) then
combineList.LoadFromFile(AListFile)
else
begin
for i := 0 to res.Count-1 do
combineList.Add(res.Entry[i].Name+'.'+res.Entry[i].Extension);
combineList.SaveToFile(AListFile);
end;
for i := combineList.Count-1 downto 0 do
if combineList[i]='' then combineList.Delete(i);
res.RawStringByFilename[ExtractFilename(AListFile)] := combineList.CommaText;
res.SaveToFile(AResourceFile);
writeln('Done Resource');
lzp := TBGRALazPaintImage.Create;
bigImg := TBGRABitmap.Create(imgWidth, imgHeight*combineList.Count);
for i := 0 to combineList.Count-1 do
begin
idxEntry := res.IndexOf(EntryFilename(combineList[i]));
if idxEntry = -1 then
begin
writeln('Cannot find "'+combineList[i]+'"');
continue;
end;
mem := TMemoryStreamUTF8.Create;
res.Entry[idxEntry].CopyTo(mem);
mem.Position:= 0;
lzp.LoadFromStream(mem);
mem.Free;
lzp.Resample(imgWidth,imgHeight,rmFineResample);
lzp.Draw(bigImg,0,i*imgHeight);
end;
combineList.Free;
res.Free;
bigImg.SaveToFileUTF8(ACombinedImage);
writeln('Done PNG');
bigImg.Free;
end;
end;
begin
MakeResource('../vector/', '../vectorimages.lst', '../vectorimages.lrs', '../vectorimages'+inttostr(imgHeight)+'.png');
MakeResource('../vector/fill/', '../fillimages.lst', '../fillimages.lrs', '../fillimages'+inttostr(imgHeight)+'.png');
end.
|
