Skip to content

Commit 569e36d

Browse files
carloBarazzettacarloBarazzetta
committed
Version 1.0.1
- Updated to Skia4Delphi 4.0.1 - Fixed settings filename
1 parent a457302 commit 569e36d

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

58 files changed

+15190
-11561
lines changed

‎Debug/Preview Handlers/PreviewHandler Host/uMain.dfm‎

Lines changed: 74 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -10,48 +10,104 @@ object FrmMain: TFrmMain
1010
Font.Height = -11
1111
Font.Name = 'Tahoma'
1212
Font.Style = []
13-
OldCreateOrder = False
1413
OnCreate = FormCreate
1514
OnDestroy = FormDestroy
16-
PixelsPerInch = 96
1715
TextHeight = 13
1816
object Splitter1: TSplitter
19-
Left = 417
20-
Top = 0
17+
Left = 121
18+
Top = 35
19+
Width = 4
20+
Height = 524
21+
AutoSnap = False
22+
ExplicitLeft = 112
23+
ExplicitTop = -8
24+
ExplicitHeight = 559
25+
end
26+
object Splitter2: TSplitter
27+
Left = 542
28+
Top = 35
2129
Width = 4
22-
Height = 559
30+
Height = 524
2331
AutoSnap = False
24-
ExplicitLeft = 217
25-
ExplicitHeight = 338
32+
ExplicitLeft = 8
33+
ExplicitTop = -28
34+
ExplicitHeight = 559
2635
end
2736
object Panel1: TPanel
28-
Left = 421
29-
Top = 0
30-
Width = 539
31-
Height = 559
37+
Left = 546
38+
Top = 35
39+
Width = 414
40+
Height = 524
3241
Align = alClient
3342
TabOrder = 0
43+
ExplicitWidth = 410
44+
ExplicitHeight = 523
3445
end
3546
object Panel3: TPanel
36-
Left = 0
37-
Top = 0
47+
Left = 125
48+
Top = 35
3849
Width = 417
39-
Height = 559
50+
Height = 524
4051
Align = alLeft
4152
TabOrder = 1
42-
object ShellListView1: TShellListView
53+
ExplicitHeight = 523
54+
object ShellListView: TShellListView
4355
Left = 1
4456
Top = 1
4557
Width = 415
46-
Height = 557
58+
Height = 522
4759
ObjectTypes = [otFolders, otNonFolders]
48-
Root = 'D:\ETHEA\Icone\LottieFiles'
60+
Root = 'rfDesktop'
61+
ShellTreeView = ShellTreeView
4962
Sorted = True
5063
Align = alClient
5164
ReadOnly = False
5265
HideSelection = False
53-
OnChange = ShellListView1Change
66+
OnChange = ShellListViewChange
67+
TabOrder = 0
68+
end
69+
end
70+
object ShellTreeView: TShellTreeView
71+
Left = 0
72+
Top = 35
73+
Width = 121
74+
Height = 524
75+
ObjectTypes = [otFolders]
76+
Root = 'rfDesktop'
77+
ShellListView = ShellListView
78+
UseShellImages = True
79+
Align = alLeft
80+
AutoRefresh = False
81+
Indent = 19
82+
ParentColor = False
83+
RightClickSelect = True
84+
ShowRoot = False
85+
TabOrder = 2
86+
ExplicitHeight = 523
87+
end
88+
object Panel2: TPanel
89+
Left = 0
90+
Top = 0
91+
Width = 960
92+
Height = 35
93+
Align = alTop
94+
TabOrder = 3
95+
ExplicitWidth = 956
96+
object PathEditor: TEdit
97+
AlignWithMargins = True
98+
Left = 6
99+
Top = 6
100+
Width = 948
101+
Height = 23
102+
Margins.Left = 5
103+
Margins.Top = 5
104+
Margins.Right = 5
105+
Margins.Bottom = 5
106+
Align = alClient
54107
TabOrder = 0
108+
OnChange = PathEditorChange
109+
ExplicitWidth = 944
110+
ExplicitHeight = 21
55111
end
56112
end
57113
end

‎Debug/Preview Handlers/PreviewHandler Host/uMain.pas‎

Lines changed: 18 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -11,12 +11,17 @@ interface
1111
TFrmMain = class(TForm)
1212
Panel1: TPanel;
1313
Panel3: TPanel;
14-
ShellListView1: TShellListView;
14+
ShellListView: TShellListView;
1515
Splitter1: TSplitter;
16-
procedure ShellListView1Change(Sender: TObject; Item: TListItem;
16+
Splitter2: TSplitter;
17+
ShellTreeView: TShellTreeView;
18+
Panel2: TPanel;
19+
PathEditor: TEdit;
20+
procedure ShellListViewChange(Sender: TObject; Item: TListItem;
1721
Change: TItemChange);
1822
procedure FormCreate(Sender: TObject);
1923
procedure FormDestroy(Sender: TObject);
24+
procedure PathEditorChange(Sender: TObject);
2025
private
2126
FFileName: string;
2227
{ Private declarations }
@@ -70,14 +75,22 @@ procedure TFrmMain.LoadPreview(const FileName: string);
7075
THostPreviewHandlerClass(FPreview).Paint;
7176
end;
7277

73-
procedure TFrmMain.ShellListView1Change(Sender: TObject; Item: TListItem;
78+
procedure TFrmMain.PathEditorChange(Sender: TObject);
79+
begin
80+
if DirectoryExists(PathEditor.Text) then
81+
ShellTreeView.Root := PathEditor.Text
82+
else if PathEditor.Text = '' then
83+
ShellTreeView.Root := 'rfDesktop';
84+
end;
85+
86+
procedure TFrmMain.ShellListViewChange(Sender: TObject; Item: TListItem;
7487
Change: TItemChange);
7588
var
7689
LFileName: string;
7790
begin
78-
if (ShellListView1.SelectedFolder<>nil) then
91+
if (ShellListView.SelectedFolder<>nil) then
7992
begin
80-
LFileName := ShellListView1.SelectedFolder.PathName;
93+
LFileName := ShellListView.SelectedFolder.PathName;
8194
if (LFileName <> FFileName) and FileExists(LFileName) then
8295
begin
8396
LoadPreview(LFileName);

‎Ext/SVGIconImageList/Image32/source/Img32.CQ.pas‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2021 *
99
* Purpose : Color reduction for TImage32 *

‎Ext/SVGIconImageList/Image32/source/Img32.Clipper2.pas‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2022 *
99
* Purpose : Wrapper module for the Clipper library *

‎Ext/SVGIconImageList/Image32/source/Img32.Draw.pas‎

Lines changed: 10 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -2,8 +2,8 @@
22

33
(*******************************************************************************
44
* Author : Angus Johnson *
5-
* Version : 4.2 *
6-
* Date : 30 May 2022 *
5+
* Version : 4.3 *
6+
* Date : 27 September 2022 *
77
* Website : http://www.angusj.com *
88
* Copyright : Angus Johnson 2019-2021 *
99
* *
@@ -1025,25 +1025,23 @@ procedure Rasterize(const paths: TPathsD; const clipRec: TRect;
10251025
begin
10261026
byteBuffer[j] := Min(255, Round(Abs(accum) * 318));
10271027
end;
1028-
frPositive:
1029-
begin
10301028
{$IFDEF REVERSE_ORIENTATION}
1031-
if accum < -0.002 then
1032-
byteBuffer[j] := Min(255, Round(-accum * 318));
1029+
frPositive:
10331030
{$ELSE}
1034-
if accum > 0.002 then
1035-
byteBuffer[j] := Min(255, Round(accum * 318));
1036-
{$ENDIF}
1037-
end;
10381031
frNegative:
1032+
{$ENDIF}
10391033
begin
1040-
{$IFDEF REVERSE_ORIENTATION}
10411034
if accum > 0.002 then
10421035
byteBuffer[j] := Min(255, Round(accum * 318));
1036+
end;
1037+
{$IFDEF REVERSE_ORIENTATION}
1038+
frNegative:
10431039
{$ELSE}
1040+
frPositive:
1041+
{$ENDIF}
1042+
begin
10441043
if accum < -0.002 then
10451044
byteBuffer[j] := Min(255, Round(-accum * 318));
1046-
{$ENDIF}
10471045
end;
10481046
end;
10491047
end;

0 commit comments

Comments
 (0)