Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit9717c58

Browse files
002-Version 14
Work in progress...(it isn't a revision). I send this for backup.
1 parent79bec1f commit9717c58

File tree

15 files changed

+1958
-1931
lines changed

15 files changed

+1958
-1931
lines changed

‎M2000.TLB‎

120 Bytes
Binary file not shown.

‎M2000.VBR‎

Lines changed: 540 additions & 540 deletions
Large diffs are not rendered by default.

‎M2000.exp‎

0 Bytes
Binary file not shown.

‎M2000.lib‎

0 Bytes
Binary file not shown.

‎M2000.vbw‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
gList = 226, 103, 784, 716,C, 26, 26, 703, 519, C
1+
gList = 226, 103, 784, 716, , 26, 26, 703, 519, C
22
AVI = 0, 0, 0, 0, C, 52, 52, 729, 545, C
33
Form4 = 0, 0, 0, 0, C, 78, 78, 755, 571, C
44
Form3 = 0, 0, 0, 0, C, 104, 104, 781, 597, C
@@ -11,18 +11,18 @@ databaseX = 0, 0, 818, 400,
1111
Module3 = 182, 182, 821, 628,
1212
gpp1 = 104, 104, 953, 700,
1313
AnyPrinter = 0, 0, 0, 0, C
14-
Module5 =0, 0, 0, 0, C
15-
Module2 = 234, 234, 827, 807,Z
14+
Module5 =182, 182, 1449, 741,
15+
Module2 = 234, 234, 827, 807,
1616
PicHandler = 26, 26, 585, 519,
1717
Module4 = 78, 78, 1526, 611,
18-
cDIBSection = 208, 208, 1528, 712,
18+
cDIBSection = 208, 208, 1528, 712,CI
1919
clsProfiler = 0, 0, 0, 0, C
2020
coder = 0, 0, 0, 0, C
2121
counter = 0, 0, 0, 0, C
2222
cRegistry = 0, 0, 0, 0, C
2323
TaskInterface = 0, 0, 0, 0, C
24-
mArray = 156, 156, 1334, 728,C
25-
MovieModule =0, 0, 0, 0, C
24+
mArray = 156, 156, 1334, 728,
25+
MovieModule =52, 52, 1415, 480,
2626
mStiva = 156, 156, 1435, 626,
2727
mThreadref = 0, 0, 0, 0, C
2828
MusicBox = 0, 0, 0, 0, C
@@ -33,7 +33,7 @@ TaskMaster = 0, 0, 0, 0, C
3333
VarItem = 0, 0, 0, 0, C
3434
mHLSRGB = 0, 0, 0, 0, C
3535
LoadFile = 78, 78, 935, 524, , 182, 182, 859, 675, C
36-
FontDialog =0, 0, 0, 0, C, 208, 208, 885, 701, C
36+
FontDialog =156, 156, 1447, 715,, 208, 208, 885, 701, C
3737
ColorDialog = 0, 0, 0, 0, C, 0, 0, 677, 493, C
3838
FileSelector = 156, 156, 1354, 689,
3939
Document = 104, 104, 1361, 700,
@@ -49,11 +49,11 @@ ExifRead = 0, 0, 0, 0, C
4949
Fcall = 208, 208, 1270, 666,
5050
Group = 156, 156, 1438, 734,
5151
stdCallFunction = 104, 104, 1166, 562,
52-
mdlIDispatch = 234, 234, 1521, 812,C
52+
mdlIDispatch = 234, 234, 1521, 812,
5353
PropReference = 208, 208, 859, 654,
54-
Module1 = 26, 26, 585, 519,
54+
Module1 = 26, 26, 585, 519,Z
5555
MyPopUp = 156, 156, 1013, 602, , 52, 52, 729, 545, C
56-
Module7 = 182, 182, 741, 675,C
56+
Module7 = 182, 182, 741, 675,
5757
cJpeg = 0, 0, 0, 0, C
5858
Hash = 182, 182, 1512, 761,
5959
sbHash = 0, 0, 0, 0, C

‎MetaDc.cls‎

Lines changed: 17 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -221,10 +221,10 @@ Dim emfP As StdPicture
221221
Set emfP = Me.getEmf
222222
If emfPIsNothingThenExit Function
223223
Set aPic =New MemBlock
224-
bytes = GetEnhMetaFileBits(emfP.Handle, bytes,ByVal0)
224+
bytes = GetEnhMetaFileBits(emfP.handle, bytes,ByVal0)
225225
If bytesThen
226226
aPic.Construct1, bytes
227-
CallGetEnhMetaFileBits(emfP.Handle, bytes,ByVal aPic.GetBytePtr(0))
227+
CallGetEnhMetaFileBits(emfP.handle, bytes,ByVal aPic.GetBytePtr(0))
228228
aPic.SubType =2' emf
229229
End If
230230
CopyMemoryByVal VarPtr(mHeader.iType),ByVal aPic.GetBytePtr(0),88
@@ -674,7 +674,7 @@ Public Sub PlayEmfInside(picthis As StdPicture, X As Long, Y As Long, Optional W
674674
SetWorldTransform m_hDC, myXForm
675675
kkx.Right = kkx.Right *1.00166666666667
676676
kkx.Bottom = kkx.Bottom *1.00333333333333
677-
PlayEnhMetaFile m_hDC, picthis.Handle, kkx
677+
PlayEnhMetaFile m_hDC, picthis.handle, kkx
678678
End If
679679

680680
SetWorldTransform m_hDC, gOldWorld
@@ -750,7 +750,7 @@ Private Sub PlayEmfInsideSimple(picthis As StdPicture, X As Long, Y As Long, Opt
750750
kkx.Right = kkx.Right *1.00166666666667
751751
kkx.Bottom = kkx.Bottom *1.00333333333333
752752
SetGraphicsMode m_hDC, GM_ADVANCED
753-
PlayEnhMetaFile m_hDC, picthis.Handle, kkx
753+
PlayEnhMetaFile m_hDC, picthis.handle, kkx
754754
SetGraphicsMode m_hDC, GM_COMPATIBLE
755755

756756

@@ -775,16 +775,16 @@ SetGraphicsMode m_hDC, GM_COMPATIBLE
775775
DeleteMetaFile pHandle
776776
End Sub
777777
PrivateFunctionbuildXForm(ByVal x0AsLong,ByVal y0AsLong,ByVal qAsSingle, piwAsLong, pihAsLong)AsXFORM
778-
Dim rAsSingle,KAsSingle
778+
Dim rAsSingle,kAsSingle
779779
q = -(CLng(q *100)Mod36000) *1.74532925199433E-04
780780

781781
r = Atn(piw / CSng(pih)) + Pi /2!
782-
K = piw / Cos(r) /2
782+
k = piw / Cos(r) /2
783783
buildXForm.eM11 = Round(Cos(q),4)
784784
buildXForm.eM12 = Round(Sin(q),4)
785785
buildXForm.eM21 = Round(-Sin(q),4)
786786
buildXForm.eM22 = Round(Cos(q),4)
787-
K = Abs(K)
787+
k = Abs(k)
788788
buildXForm.eDx = x0'Round((k - k * Cos(q - R)) / 2!, 0)
789789
buildXForm.eDy = y0'Round((k - k * Sin(q - R)) / 2!, 0)
790790

@@ -856,10 +856,10 @@ Private Function getEmfFromWmf(Wmf As StdPicture, W As Long, H As Long) As Long
856856

857857
Dim bytesAsLong
858858
Dim Buffer()AsByte
859-
bytes = GetMetaFileBitsEx(Wmf.Handle, bytes,ByVal0&)
859+
bytes = GetMetaFileBitsEx(Wmf.handle, bytes,ByVal0&)
860860
If bytesThen
861861
ReDim Buffer(1To bytes)AsByte
862-
CallGetMetaFileBitsEx(Wmf.Handle, bytes, Buffer(1))
862+
CallGetMetaFileBitsEx(Wmf.handle, bytes, Buffer(1))
863863
Else
864864

865865
Exit Function
@@ -877,3 +877,11 @@ Public Property Let Tag(ByVal RHS As Variant)
877877
' nothing
878878
End Property
879879

880+
881+
PublicPropertyGet ScaleMode()AsInteger
882+
ScaleMode =1
883+
End Property
884+
885+
PublicPropertyLet ScaleMode(ByVal vNewValueAsInteger)
886+
'do nothing
887+
End Property

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp