Hi All
I'm trying to create a mirror effect using delphix and delphi 6 (See code below).
Problem is , the MirrorFlip property of my sprite seems to do nothing. the alpha-blending is working fine, but the reflection sprites dont flip. Can anyone see what I'm doing wrong ?
Thx
Code://============================================================================// procedure TMainForm.FormActivate(Sender: TObject); var i : Integer; begin MainForm.DXDraw1.Initialize; MainForm.Timer1.Enabled := True; For i := 0 to 3 do begin With TjMenuitem.Create(MainForm.DXSpriteEngine1.Engine) do Begin Image := MainForm.Images1.Items[i]; X := 100 + (100 * i); Y := 0; ItemNo := i; ReflectImage := TImageSprite.Create(MainForm.DXSpriteEngine1.Engine); ReflectImage.Image := Image; ReflectImage.X := X; ReflectImage.Y := Y + 60; ReflectImage.MirrorFlip := [rmfFlip]; ReflectImage.BlendMode := rtBlend; ReflectImage.Alpha := 120; End; End; end; //============================================================================//
Bookmarks