Skip to content

Commit 8273a73

Browse files
PascalCorpsmanPascalCorpsman
committed
ADD: Update lib
1 parent fc54ed7 commit 8273a73

File tree

1 file changed

+34
-66
lines changed

1 file changed

+34
-66
lines changed

‎miniprojects/Imageshop/uopengl_graphikengine.pas

Lines changed: 34 additions & 66 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
(******************************************************************************)
22
(* uOpenGLGraphikEngine.pas ??.??.???? *)
33
(* *)
4-
(* Version : 0.09 *)
4+
(* Version : 0.10 *)
55
(* *)
66
(* Author : Uwe Schächterle (Corpsman) *)
77
(* *)
@@ -37,6 +37,7 @@
3737
(* 0.07 - LoadAlphaPNGGraphik *)
3838
(* 0.08 - Fix Memleaks *)
3939
(* 0.09 - Fix LoadAlphaColorGraphik *)
40+
(* 0.10 - Fix speedup graphik loading *)
4041
(* *)
4142
(******************************************************************************)
4243
Unit uopengl_graphikengine;
@@ -742,11 +743,8 @@
742743
Else Begin
743744
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), b, imNearestNeighbour);
744745
End;
745-
746-
b.Width := nw;
747-
b.height := nh;
748-
b.canvas.draw(0, 0, b2);
749-
b2.free;
746+
b.free;
747+
b := b2;
750748
End;
751749
End;
752750
smClamp: Begin
@@ -758,10 +756,8 @@
758756
b2.width := nw;
759757
b2.height := nh;
760758
b2.canvas.Draw(0, 0, b);
761-
b.Width := nw;
762-
b.height := nh;
763-
b.canvas.draw(0, 0, b2);
764-
b2.free;
759+
b.free;
760+
b := b2;
765761
End;
766762
End;
767763
End;
@@ -877,10 +873,8 @@
877873
Else Begin
878874
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), b, imNearestNeighbour);
879875
End;
880-
b.Width := nw;
881-
b.height := nh;
882-
b.canvas.draw(0, 0, b2);
883-
b2.free;
876+
b.free;
877+
b := b2;
884878
End;
885879
End;
886880
smClamp: Begin
@@ -892,10 +886,8 @@
892886
b2.width := nw;
893887
b2.height := nh;
894888
b2.canvas.Draw(0, 0, b);
895-
b.Width := nw;
896-
b.height := nh;
897-
b.canvas.draw(0, 0, b2);
898-
b2.free;
889+
b.free;
890+
b := b2;
899891
End;
900892
End;
901893
End;
@@ -1185,10 +1177,8 @@
11851177
Else Begin
11861178
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), b, imNearestNeighbour);
11871179
End;
1188-
b.Width := nw;
1189-
b.height := nh;
1190-
b.canvas.draw(0, 0, b2);
1191-
b2.free;
1180+
b.free;
1181+
b := b2;
11921182
End;
11931183
End;
11941184
smClamp: Begin
@@ -1200,10 +1190,8 @@
12001190
b2.width := nw;
12011191
b2.height := nh;
12021192
b2.canvas.Draw(0, 0, b);
1203-
b.Width := nw;
1204-
b.height := nh;
1205-
b.canvas.draw(0, 0, b2);
1206-
b2.free;
1193+
b.free;
1194+
b := b2;
12071195
End;
12081196
End;
12091197
End;
@@ -1406,10 +1394,8 @@
14061394
Else Begin
14071395
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), b, imNearestNeighbour);
14081396
End;
1409-
b.Width := nw;
1410-
b.height := nh;
1411-
b.canvas.draw(0, 0, b2);
1412-
b2.free;
1397+
b.free;
1398+
b := b2;
14131399
End;
14141400
End;
14151401
smClamp: Begin
@@ -1421,10 +1407,8 @@
14211407
b2.width := nw;
14221408
b2.height := nh;
14231409
b2.canvas.Draw(0, 0, b);
1424-
b.Width := nw;
1425-
b.height := nh;
1426-
b.canvas.draw(0, 0, b2);
1427-
b2.free;
1410+
b.free;
1411+
b := b2;
14281412
End;
14291413
End;
14301414
End;
@@ -1555,10 +1539,8 @@
15551539
Else Begin
15561540
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), g, imNearestNeighbour);
15571541
End;
1558-
g.Width := nw;
1559-
g.height := nh;
1560-
g.canvas.draw(0, 0, b2);
1561-
b2.free;
1542+
g.free;
1543+
g := b2;
15621544
End;
15631545
If (nw <> a.width) Or (nh <> a.height) Then Begin
15641546
b2 := TBitmap.create;
@@ -1571,10 +1553,8 @@
15711553
Else Begin
15721554
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), a, imNearestNeighbour);
15731555
End;
1574-
a.Width := nw;
1575-
a.height := nh;
1576-
a.canvas.draw(0, 0, b2);
1577-
b2.free;
1556+
a.free;
1557+
a := b2;
15781558
End;
15791559
End;
15801560
smClamp: Begin
@@ -1586,21 +1566,17 @@
15861566
b2.width := nw;
15871567
b2.height := nh;
15881568
b2.canvas.Draw(0, 0, g);
1589-
g.Width := nw;
1590-
g.height := nh;
1591-
g.canvas.draw(0, 0, b2);
1592-
b2.free;
1569+
g.free;
1570+
g := b2;
15931571
End;
15941572
If (nw <> a.width) Or (nh <> a.height) Then Begin
15951573
b2 := TBitmap.create;
15961574
b2.PixelFormat := pf24bit;
15971575
b2.width := nw;
15981576
b2.height := nh;
15991577
b2.canvas.Draw(0, 0, a);
1600-
a.Width := nw;
1601-
a.height := nh;
1602-
a.canvas.draw(0, 0, b2);
1603-
b2.free;
1578+
a.free;
1579+
a := b2;
16041580
End;
16051581
End;
16061582
End;
@@ -1774,21 +1750,17 @@
17741750
Else Begin
17751751
Stretchdraw(b2.canvas, rect(0, 0, nw, nh), b, imNearestNeighbour);
17761752
End;
1777-
b.Width := nw;
1778-
b.height := nh;
1779-
b.canvas.draw(0, 0, b2);
1780-
b2.free;
1753+
b.free;
1754+
b := b2;
17811755
End;
17821756
If (nw <> a.width) Or (nh <> a.height) Then Begin
17831757
b2 := TBitmap.create;
17841758
b2.PixelFormat := pf24bit;
17851759
b2.width := nw;
17861760
b2.height := nh;
17871761
b2.canvas.StretchDraw(rect(0, 0, nw, nh), a);
1788-
a.Width := nw;
1789-
a.height := nh;
1790-
a.canvas.draw(0, 0, b2);
1791-
b2.free;
1762+
a.free;
1763+
a := b2;
17921764
End;
17931765
End;
17941766
smClamp: Begin
@@ -1800,21 +1772,17 @@
18001772
b2.width := nw;
18011773
b2.height := nh;
18021774
b2.canvas.Draw(0, 0, b);
1803-
b.Width := nw;
1804-
b.height := nh;
1805-
b.canvas.draw(0, 0, b2);
1806-
b2.free;
1775+
b.free;
1776+
b := b2;
18071777
End;
18081778
If (nw <> a.width) Or (nh <> a.height) Then Begin
18091779
b2 := TBitmap.create;
18101780
b2.PixelFormat := pf24bit;
18111781
b2.width := nw;
18121782
b2.height := nh;
18131783
b2.canvas.Draw(0, 0, a);
1814-
a.Width := nw;
1815-
a.height := nh;
1816-
a.canvas.draw(0, 0, b2);
1817-
b2.free;
1784+
a.free;
1785+
a := b2;
18181786
End;
18191787
End;
18201788
End;

0 commit comments

Comments
 (0)