Skip to content

Commit 3cbac3b

Browse files
Fixed Setup and check for Windows Theme
1 parent 3e9afd8 commit 3cbac3b

16 files changed

+70
-1255
lines changed
0 Bytes
Binary file not shown.

Debug/Preview Handlers/ThumbnailHandler/ThumbnailHost.dpr

Lines changed: 0 additions & 16 deletions
This file was deleted.

Debug/Preview Handlers/ThumbnailHandler/ThumbnailHost.dproj

Lines changed: 0 additions & 930 deletions
This file was deleted.
-110 KB
Binary file not shown.

Debug/Preview Handlers/ThumbnailHandler/uHostThumbnail.pas

Lines changed: 0 additions & 289 deletions
This file was deleted.

SVGShellExtensions.dll

-512 Bytes
Binary file not shown.

Setup/License_ENG.rtf

2.18 KB
Binary file not shown.

Setup/Licenza_ITA.rtf

2.31 KB
Binary file not shown.

Setup/SVGShellExtensions.iss

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,9 +45,12 @@ DisableWelcomePage=False
4545
AppCopyright=Copyright © 2021 Ethea S.r.l.
4646
ArchitecturesInstallIn64BitMode=x64
4747
MinVersion=0,6.0
48+
CloseApplications=force
4849

4950
[Languages]
50-
Name: ita; MessagesFile: compiler:Languages\Italian.isl
51+
Name: eng; MessagesFile: compiler:Default.isl; LicenseFile: .\License_ENG.rtf
52+
Name: ita; MessagesFile: compiler:Languages\Italian.isl; LicenseFile: .\Licenza_ITA.rtf
53+
5154

5255
[Code]
5356
function InitializeSetup(): Boolean;

Source/SVGEditor.pas

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -302,11 +302,19 @@ procedure TFrmEditor.LoadFromFile(const AFileName: string);
302302
end;
303303

304304
procedure TFrmEditor.LoadFromStream(const AStream: TStream);
305+
var
306+
LStringStream: TStringStream;
305307
begin
306308
TLogPreview.Add('TFrmEditor.LoadFromStream Init');
307309
AStream.Position := 0;
308-
SynEdit.Lines.LoadFromStream(AStream);
309-
SVGIconImage.LoadFromStream(AStream);
310+
LStringStream := TStringStream.Create;
311+
try
312+
LStringStream.LoadFromStream(AStream);
313+
SynEdit.Lines.Text := LStringStream.DataString;
314+
SVGIconImage.SVGText := LStringStream.DataString;
315+
finally
316+
LStringStream.Free;
317+
end;
310318
TLogPreview.Add('TFrmEditor.LoadFromStream Done');
311319
end;
312320

0 commit comments

Comments
 (0)