hi experts,

i will restart again qow (question of the week)

(thanks robert_marquardt for remembering :-))

each week i will introduce a new simple? question.

now qow 21

against the rules of the previous qows

all expert are allowed to solving this question.

the rule are:

- you must post your source here in this question.

- each different solution gets the points provided with this question

(means one expert can get multiple points, if the solutions are different)

- bonus (only for one solution), if a solution is special simple or clever,

or provides mutliple effects, this solution gets double-double-points (4x)

well the question is:

How to make fading/blending effects with two pictures?

Scenario Description:

i have two pictures, and want to see one after one with a nice noticeable,

fading/blending effect on my form.

for fast Validations, if you can, additional to the source-posting here,

send me your compiled project to

kretzschmar@experts-exchange.com

each different solution may get 125 pts (a-graded).

this question will be closed after 7 days.

have fun and let see

meikl ;-)

i will restart again qow (question of the week)

(thanks robert_marquardt for remembering :-))

each week i will introduce a new simple? question.

now qow 21

against the rules of the previous qows

all expert are allowed to solving this question.

the rule are:

- you must post your source here in this question.

- each different solution gets the points provided with this question

(means one expert can get multiple points, if the solutions are different)

- bonus (only for one solution), if a solution is special simple or clever,

or provides mutliple effects, this solution gets double-double-points (4x)

well the question is:

How to make fading/blending effects with two pictures?

Scenario Description:

i have two pictures, and want to see one after one with a nice noticeable,

fading/blending effect on my form.

for fast Validations, if you can, additional to the source-posting here,

send me your compiled project to

kretzschmar@experts-exchan

each different solution may get 125 pts (a-graded).

this question will be closed after 7 days.

have fun and let see

meikl ;-)

Regards Jacco

PS: There is a small bug in the framework:

...

if not Fade then

begin

img.Invalidate; <<<< need to be inserted to show the last step to user

...

function TfrmFade.Blend: Boolean;

type

TRGBQuadArray = array[0..0] of TRGBQuad;

PRGBQuadArray = ^TRGBQuadArray;

var

i, s, d: PRGBQuadArray;

liX, liY, liSteps: Integer;

begin

liSteps := 500 div Speed;

for liY := 0 to imgHeight-1 do

begin

i := img.Picture.Bitmap.ScanLin

s := src.Picture.Bitmap.ScanLin

d := dst.Picture.Bitmap.ScanLin

for liX := 0 to imgWidth-1 do

begin

i[liX].rgbRed := EnsureRange(Round(s[liX].r

i[liX].rgbGreen := EnsureRange(Round(s[liX].r

i[liX].rgbBlue := EnsureRange(Round(s[liX].r

end;

end;

Inc(Step);

Result := not (Step = liSteps + 1);

end;

Thank you meikl, for the time and effort you have put here at EE ! !

you can do whatever seems best to you, I do not really need the points. . . . I put this fade thing here so it might help somebody. . .

I was really hoping for some more partisipation, entries, for this qow

but EE seems so different now to me? ?

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.