Bones
06-10-2008, 07:46 PM
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
//================================================== ==========================//
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.Engin e);
ReflectImage.Image := Image;
ReflectImage.X := X;
ReflectImage.Y := Y + 60;
ReflectImage.MirrorFlip := [rmfFlip];
ReflectImage.BlendMode := rtBlend;
ReflectImage.Alpha := 120;
End;
End;
end;
//================================================== ==========================//
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
//================================================== ==========================//
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.Engin e);
ReflectImage.Image := Image;
ReflectImage.X := X;
ReflectImage.Y := Y + 60;
ReflectImage.MirrorFlip := [rmfFlip];
ReflectImage.BlendMode := rtBlend;
ReflectImage.Alpha := 120;
End;
End;
end;
//================================================== ==========================//