GetGradient     Procedure (Sub)

Public Sub GetGradient(EcColor1 As Long, EcColor2 As Long, gAngle As Single, gShift As Single, gStyle As Integer)

Retrieve the current color gradient details from the gradient picker.

Parameter	Type	Description
EcColor1	Long	Ec color 1
EcColor2	Long	Ec color 2
gAngle	Single	G angle
gShift	Single	Shift (bias) the color gradient towards or away from Color1. 0=normal, <0 to -1 shifts the gradient towards Color1, >0 to 1 shifts towards Color2.
gStyle	Integer	Gradient style. 0=plain, 1=gradient, 2=rectangle, 3=star, 4=corner, 5=spotlight

Example

Call ecGraph1.GetGradient(eccolor1, eccolor2, gangle, gshift, gstyle) 

Copyright © 2007, Encore Consulting Pty Ltd