Caption = " Some clipping may occur on final print-out. This does not affect the original picture."
Height = 585
Left = 1575
TabIndex = 57
Top = 2595
Width = 3135
End
Begin VB.Image Image1
Height = 1755
Left = 5580
Stretch = -1 'True
Top = 7770
Width = 2730
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "+"
Height = 195
Left = 2340
TabIndex = 50
Top = 4740
Width = 90
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2340
TabIndex = 49
Top = 3900
Width = 135
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "100 %"
Height = 315
Left = 7320
TabIndex = 48
Top = 4860
Width = 495
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "0 %"
Height = 315
Left = 8160
TabIndex = 47
Top = 3840
Width = 315
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "100 %"
Height = 315
Left = 7200
TabIndex = 46
Top = 3780
Width = 495
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "0 %"
Height = 315
Left = 6600
TabIndex = 45
Top = 4860
Width = 315
End
Begin VB.Label Label19
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "+"
Height = 195
Left = 600
TabIndex = 44
Top = 4740
Width = 90
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 43
Top = 3900
Width = 135
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "+"
Height = 195
Left = 1500
TabIndex = 42
Top = 4740
Width = 90
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1500
TabIndex = 41
Top = 3900
Width = 135
End
Begin VB.Shape Shape5
Height = 3015
Left = 7500
Top = 120
Width = 2715
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Green"
Height = 255
Left = 8820
TabIndex = 31
Top = 4740
Width = 435
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "Red"
Height = 255
Left = 9720
TabIndex = 30
Top = 3960
Width = 375
End
Begin VB.Shape Shape4
Height = 2475
Left = 8760
Top = 3240
Width = 1455
End
Begin VB.Shape Shape3
Height = 2475
Left = 6540
Top = 3240
Width = 1935
End
Begin VB.Shape Shape2
Height = 2475
Left = 2940
Top = 3240
Width = 3315
End
Begin VB.Shape Shape1
Height = 2475
Left = 60
Top = 3240
Width = 2595
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "To Black"
Height = 255
Left = 7620
TabIndex = 21
Top = 3360
Width = 915
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "To White"
Height = 255
Left = 6660
TabIndex = 19
Top = 3360
Width = 915
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Color"
Height = 255
Left = 1980
TabIndex = 17
Top = 3360
Width = 435
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Red/Green Tint"
Height = 255
Left = 8940
TabIndex = 15
Top = 3300
Width = 1275
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Brightness"
Height = 255
Left = 960
TabIndex = 13
Top = 3360
Width = 795
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Blue Gamma "
Height = 255
Left = 5280
TabIndex = 11
Top = 3360
Width = 1095
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Green Gamma "
Height = 255
Left = 4020
TabIndex = 10
Top = 3360
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Red Gamma "
Height = 255
Left = 3000
TabIndex = 7
Top = 3360
Width = 915
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Contrast"
Height = 255
Left = 120
TabIndex = 6
Top = 3360
Width = 795
End
End
Attribute VB_Name = "frmEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Change Color Ver. 1.0.0 27/2/2004
'
' This code show how to use the COLORADJUSTMENT API.
' Only for Windows NT/2000/XP
'
' This code is copyright Xip3000 -2004-
Const HALFTONE = 4
Const ILLUMINANT_DEVICE_DEFAULT = 0
Const ILLUMINANT_A = 1
Const ILLUMINANT_B = 2
Const ILLUMINANT_C = 3
Const ILLUMINANT_D50 = 4
Const ILLUMINANT_D55 = 5
Const ILLUMINANT_D65 = 6
Const ILLUMINANT_D75 = 7
Const ILLUMINANT_F2 = 8
Const NEGATIVE = &H1
Const NORMAL = &H0
Private Type COLORADJUSTMENT
caSize As Integer
caFlags As Integer
caIlluminantIndex As Integer
caRedGamma As Integer
caGreenGamma As Integer
caBlueGamma As Integer
caReferenceBlack As Integer
caReferenceWhite As Integer
caContrast As Integer
caBrightness As Integer
caColorfulness As Integer
caRedGreenTint As Integer
End Type
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetStretchBltMode Lib "gdi32" (ByVal hdc As Long, ByVal nStretchMode As Long) As Long
Private Declare Function GetColorAdjustment Lib "gdi32" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long
Private Declare Function SetColorAdjustment Lib "gdi32" (ByVal hdc As Long, lpca As COLORADJUSTMENT) As Long