Hallo,
ich möchte eine Box drucken, aber nicht einfarbig sondern mit Farbverlauf.
Praktisch so: ca. 75 % der Box von Dunkelblau in Hellblau, ab dann Hellrot bis Dunkelrot.
Kann mir jemand einen Tip geben, wie ich das anstellen könnte ?
DCPRINT BOX
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12911
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: DCPRINT BOX
hi,
da du allerdings 2 Übergänge haben möchtest müsstest du 2x GradientBox benutzten.
hier mal ein Beispiel für einen (2-farbige) GradientBox
ich weiss nicht wie man es mit Express++ macht, aber es ist ja "nur" eine GradientBox.Koverhage hat geschrieben:ich möchte eine Box drucken, aber nicht einfarbig sondern mit Farbverlauf.
Praktisch so: ca. 75 % der Box von Dunkelblau in Hellblau, ab dann Hellrot bis Dunkelrot.
Kann mir jemand einen Tip geben, wie ich das anstellen könnte ?
da du allerdings 2 Übergänge haben möchtest müsstest du 2x GradientBox benutzten.
hier mal ein Beispiel für einen (2-farbige) GradientBox
Code: Alles auswählen
METHOD OWcal:DrawGradient( oPS, aStart, aEnd, nColor1, nColor2, nDirection )
LOCAL aColors
DEFAULT nDirection TO GRA_GRADIENT_VERTICAL
IF NIL = nColor1 .OR. nColor1 = 0
RETURN .F.
ENDIF
IF NIL = nColor2 .OR. nColor2 = 0
RETURN .F.
ENDIF
IF ( ( nColor1 > 0 ) .AND. ( nColor2 > 0 ) )
aColors := { GraMakeRGBColor( GraGetRGBIntensity( nColor1 ) ), ;
GraMakeRGBColor( GraGetRGBIntensity( nColor2 ) ) }
GraGradient( oPS, aStart, { { aStart[ 1 ] + aEnd[ 1 ], ;
aStart[ 2 ] + aEnd[ 2 ] } }, ;
aColors, ;
nDirection )
ENDIF
RETURN .T.
gruss by OHR
Jimmy
Jimmy