[VB6] - animated gif function errors:(

why you create these files:
p1B94.GIF
p5D90.GIF
and more, but without delete them?

Quote:

---

Originally Posted by joaquim

yes.. thanks... now i must do the same on my Sprite control.
let me ask 1 thing... when you need change a control, normaly, you use the screen properties?

---

Not sure I Understand your question.

Also, when trying to open the zip for your Sprite not all files could be extracted.

Please rename all the .bas files and all the .ocx files to .txt like this"

AnimatedGif.ocx.txt

mdlAnimatedCursors.bas.txt

and I'll see if they work after I extract them and rename them back to their real name.

Quote:

---

Originally Posted by joaquim

yes.. thanks... now i must do the same on my Sprite control.
let me ask 1 thing... when you need change a control, normaly, you use the screen properties?

---

Not sure I Understand your question.

Also, when trying to open the zip for your Sprite not all files could be extracted.

Please rename all the .bas files and all the .ocx files to .txt like this:

AnimatedGif.ocx.txt

mdlAnimatedCursors.bas.txt

and I'll see if they work after I extract them and rename them back to their real name.

Quote:

---

Originally Posted by joaquim

why you create these files:
p1B94.GIF
p5D90.GIF
and more, but without delete them?

---

I didn't know I was creating them. What are they?

no.. you don't create them. but i can't change the folder name:(
i delete them, but they came back... it's a virus???? ... strange

Well I really don't know what you mean as no such problem occurs on my computer. Can you give me more detail? Are they files or folders and where do they occur and when do they occur. What do you do that makes them occur?

Quote:

---

Originally Posted by jmsrickland

Well I really don't know what you mean as no such problem occurs on my computer. Can you give me more detail? Are they files or folders and where do they occur and when do they occur. What do you do that makes them occur?

---

i belive that i resolve it;)
i have 1 question: on that mail that i give you, theres that files?
p1B94.GIF
p5D90.GIF
if so and you can't delete them, then enter on safe mode(speaking on windows) and delete the files. then reboot the pc and it's ok.
sorry about that. i didn't knew. sorry

No, they were not on that mail, I have no such names on my computer. Have no idea how you got them.

Did you see my post #243

Quote:

---

Originally Posted by jmsrickland

No, they were not on that mail, I have no such names on my computer. Have no idea how you got them.

Did you see my post #243

---

honestly, forget the animatedgif.ocx, but i will do it;)

You didn't understand my post. I need all of the .BAS and all of the .OCX files. I can't extract any of them and I have no idea why but my windows says they may be considered unsafe and won't allow me to extract them - dumb, isn't it.

Quote:

---

Originally Posted by jmsrickland

You didn't understand my post. I need all of the .BAS and all of the .OCX files. I can't extract any of them and I have no idea why but my windows says they may be considered unsafe and won't allow me to extract them - dumb, isn't it.

---

sorry... i didn't see it. but now i send it. thanks

Well, I'm having some problems with your Sprite project. I'm not sure what is going on but when I load it up it actually loads into VB5 (did you make it in VB5?) and there are some minor functions that are not valid in VB5 like Split, for example. So, I had to comment out all occurances of using the Split function. Did you notice that the meter.gif is not correct? It's missing the box and the meter scale is solid and should be little pieces going up/down the meter face. Also, I loaded some of my gif images into your project and the timing is way off. I have this one gif in particular that animates hand-writing at the normal speed of someone writing a letter but your project animates it like extremely slow - so slow it took a minute just to animate the first letter. Another gif file I have you make it transparent but it is not meant to be transparent and it doesn't come out right.

Also, this is incorrect:

UserControl.Appearance() = New_Appearance

but when I try this:

UserControl.Appearance = New_Appearance

it says it is a read only property

Also, this is incorrect:

HasDC = UserControl.HasDC

There is no .HasDC property for the UserControl. Did you mean to use this:

HasDC = UserControl.hDC instead?


Not sure why you are doing this:

Code:

---

If aimg(i).AutoSize = True Then
  aimg(i).AutoSize = False
  aimg(i).Width = LSD.GifWidth + 4
  aimg(i).Height = LSD.GifHeight + 4
  aimg(i).AutoSize = True
End If

---

That would make all frames the same size, wouldn't it? Is that what you want? I tried doing something like that when I was testing the code I gave you over that meter.gif problem and it worked for some gif files but not for all so I decided not to put my code in that did the same thing that your code does.

Quote:

---

Originally Posted by jmsrickland

Well, I'm having some problems with your Sprite project. I'm not sure what is going on but when I load it up it actually loads into VB5 (did you make it in VB5?) and there are some minor functions that are not valid in VB5 like Split, for example. So, I had to comment out all occurances of using the Split function. Did you notice that the meter.gif is not correct? It's missing the box and the meter scale is solid and should be little pieces going up/down the meter face. Also, I loaded some of my gif images into your project and the timing is way off. I have this one gif in particular that animates hand-writing at the normal speed of someone writing a letter but your project animates it like extremely slow - so slow it took a minute just to animate the first letter. Another gif file I have you make it transparent but it is not meant to be transparent and it doesn't come out right.

Also, this is incorrect:

UserControl.Appearance() = New_Appearance

but when I try this:

UserControl.Appearance = New_Appearance

it says it is a read only property

Also, this is incorrect:

HasDC = UserControl.HasDC

There is no .HasDC property for the UserControl. Did you mean to use this:

HasDC = UserControl.hDC instead?


Not sure why you are doing this:

Code:

---

If aimg(i).AutoSize = True Then
  aimg(i).AutoSize = False
  aimg(i).Width = LSD.GifWidth + 4
  aimg(i).Height = LSD.GifHeight + 4
  aimg(i).AutoSize = True
End If

---

That would make all frames the same size, wouldn't it? Is that what you want? I tried doing something like that when I was testing the code I gave you over that meter.gif problem and it worked for some gif files but not for all so I decided not to put my code in that did the same thing that your code does.

---

sorry seems that i forget change it lol
my control was created on VB6 SP6. i never use VB5. i, always, use hdc. the meter.gif works fine to me. do me a favor, try enter again, but with VB6, maybe you can avoid that errors;)

I will have to convert all files to VB6 format. I know it's VB5 because I looked at the internal info for the files and it says VB5. I don't think once I change it over to VB6 it will change anythin about the meter.gif. And the other gif files don't come out correct either. I will convert to VB6, run the project again and test all gif files and get back with you.

Quote:

---

Originally Posted by jmsrickland

I will have to convert all files to VB6 format. I know it's VB5 because I looked at the internal info for the files and it says VB5. I don't think once I change it over to VB6 it will change anythin about the meter.gif. And the other gif files don't come out correct either. I will convert to VB6, run the project again and test all gif files and get back with you.

---

ok thanks;)
PS: have you seen that thread(about shadow graphic effect)?
is for i use on my sprite control, for be more faster hehehehe;)

Just a suggestion.

Put a dotted border around your user control so users can see where it is on their Form

Quote:

---

Originally Posted by jmsrickland

Just a suggestion.

Put a dotted border around your user control so users can see where it is on their Form

---

i have that property on properties window;)
i forget put it on Property Tags:(
but what you think about it?
(i have 1 old game with Sprite 2D older version, if you want it, just ask)

I don't understand the Automatic setting for transparency. Shouldn't automatic be the real transparent color? If I load up meter.gif and a few others they don't display correctly but if I change it to manual it displays correct. You have automatic as the default. Seems to me it should be manual as the default.

Also, there is problem with over-lapping images.

Another problem I see is that the timing seems to get off. The timing on the meter.gif is too slow and after loading several gif images the timing even gets slower and slower. I have one image that even from the start is not correct on the timing. It takes about a minute just to display the first letter but in one minuter it should have displayed all the letters and the entire image.

Rotate isn't quite right. If I rotate a image 90 part of the bottom is cut off

Quote:

---

Originally Posted by jmsrickland

I don't understand the Automatic setting for transparency. Shouldn't automatic be the real transparent color? If I load up meter.gif and a few others they don't display correctly but if I change it to manual it displays correct. You have automatic as the default. Seems to me it should be manual as the default.

Also, there is problem with over-lapping images.

Another problem I see is that the timing seems to get off. The timing on the meter.gif is too slow and after loading several gif images the timing even gets slower and slower. I have one image that even from the start is not correct on the timing. It takes about a minute just to display the first letter but in one minuter it should have displayed all the letters and the entire image.

Rotate isn't quite right. If I rotate a image 90 part of the bottom is cut off

---

"Shouldn't automatic be the real transparent color?"
it's the 0,0 pixel;)

"Also, there is problem with over-lapping images."
what you mean?

"Another problem I see is that the timing seems to get off. The timing on the meter.gif is too slow and after loading several gif images the timing even gets slower and slower. I have one image that even from the start is not correct on the timing. It takes about a minute just to display the first letter but in one minuter it should have displayed all the letters and the entire image."
so you find that error too;)
hey the problem isn't on my control. but i belive that your code have 1 bug. i repair it, but isn't 100%.

"Rotate isn't quite right. If I rotate a image 90 part of the bottom is cut off"
i belive on that. that's why i'm working on another way for tha graphics hehehe
my Graphic class will be more faster and easy to use;)
(don't use the Opacy... isn't working 100% and it's slow... i'm working on that too;))
what you think about my Select Graphic effect(i create it)?
anotherthing: do you know a faster way for capture a window\picturebox(inclued controls too)?

Try this gif images. It should be transparent white but your program does not show that and also at the end of each cycle it blacks out the image and starts over again which it is not supposed to do that either.

Quote:

---

Originally Posted by jmsrickland

Try this gif images. It should be transparent white but your program does not show that and also at the end of each cycle it blacks out the image and starts over again which it is not supposed to do that either.

---

i tested on my control and i see what you mean, but have you tried on animatedgif code? here you see the bug too, but in diferent way

Quote:

---

Originally Posted by joaquim

i tested on my control and i see what you mean, but have you tried on animatedgif code? here you see the bug too, but in diferent way

---

What do you mean by animatedgif code and where is bug and what is it?

Quote:

---

Originally Posted by jmsrickland

What do you mean by animatedgif code and where is bug and what is it?

---

i have test that image you give me on our animated gif code. and i see the similar bug. the frame '0' is white, the rest i black. test it;)

When closing the test form (Form1) using the X button I get Run-time error 398 Client side not available

Code:

---

Private Sub tmrAnimation_Timer()
    If Animation = AnimationPause Or Animation = AnimationStopped Or Ambient.UserMode = False Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    If lngActualSubImage < PicAnimation.Count - 1 Then
        lngActualSubImage = lngActualSubImage + 1
    Else
        If Strip.Activate = True Then
            lngActualSubImage = 1
        Else
            lngActualSubImage = 0
        End If
    End If
    Call ShowImage
    API_DoEvents
End Sub

---

Quote:

---

Originally Posted by jmsrickland

When closing the test form (Form1) using the X button I get Run-time error 398 Client side not available

Code:

---

Private Sub tmrAnimation_Timer()
    If Animation = AnimationPause Or Animation = AnimationStopped Or Ambient.UserMode = False Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    If lngActualSubImage < PicAnimation.Count - 1 Then
        lngActualSubImage = lngActualSubImage + 1
    Else
        If Strip.Activate = True Then
            lngActualSubImage = 1
        Else
            lngActualSubImage = 0
        End If
    End If
    Call ShowImage
    API_DoEvents
End Sub

---

---

belive why these error. i belive that, when control is destroyed with aplication, the timer isn't terminated. maybe it's the problem.
that's why i change it:

Code:

---

Private Sub tmrAnimation_Timer()
    On Error GoTo err
    If Animation = AnimationPause Or Animation = AnimationStopped Or Ambient.UserMode = False Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    If lngActualSubImage < PicAnimation.Count - 1 Then
        lngActualSubImage = lngActualSubImage + 1
    Else
        If Strip.Activate = True Then
            lngActualSubImage = 1
        Else
            lngActualSubImage = 0
        End If
    End If
    Call ShowImage
    API_DoEvents
    Exit Sub
err:
    tmrAnimation.Enabled = False
End Sub

---

have you tested the selection and shadow graphics effects?
and the collision event?

Here's another example of not displaying correctly.

The image on top is how it is supposed to display. You do not see any white in the image.

The next one, bottom left, is from your project. On this I set the it to TransparentAutomatic. On this one it is being displayed on white which it should no and the blue ball is missing and there is also a grey ball that your program made because there is no grey ball in the gif image.

The one on the bottom right is also from your project. This one I set it to TransparentManualy. All the colored balls are being displayed but they are displayed on white which again there is no white in the gif image.

Quote:

---

Originally Posted by jmsrickland

Here's another example of not displaying correctly.

The image on top is how it is supposed to display. You do not see any white in the image.

The next one, bottom left, is from your project. On this I set the it to TransparentAutomatic. On this one it is being displayed on white which it should no and the blue ball is missing and there is also a grey ball that your program made because there is no grey ball in the gif image.

The one on the bottom right is also from your project. This one I set it to TransparentManualy. All the colored balls are being displayed but they are displayed on white which again there is no white in the gif image.

---

i belive it, because they are almost the same

I am really impressed with your Graphics Class. Nice job, joaquim.

Still some work needs to be done on your Sprite OCX, however. but you'll get it, I'm sure of that but nice job on that also.

"I am really impressed with your Graphics Class. Nice job, joaquim."
thanks... but need more work on Shadow and Selection Effects:(
these make me crazy, because the Y error(from view and not message) don't make sence to me:(

"Still some work needs to be done on your Sprite OCX, however. but you'll get it, I'm sure of that but nice job on that also."
yes. my next step is try read all controls with speed, but i think that isn't possible:(
at least we can choose the controls that we need;)

Quote:

---

Originally Posted by joaquim

"I am really impressed with your Graphics Class. Nice job, joaquim."
thanks... but need more work on Shadow and Selection Effects:(
these make me crazy, because the Y error(from view and not message) don't make sence to me:(

"Still some work needs to be done on your Sprite OCX, however. but you'll get it, I'm sure of that but nice job on that also."
yes. my next step is try read all controls with speed, but i think that isn't possible:(
at least we can choose the controls that we need;)

---

You still have problem with transparency. I loaded some gif images and you make them transparent when they are not transparent. I still do not understand why you use aimg(i).BackColor for transparency and why you use aimg(0).BackColor = GetPixel(aimg(0).hDC, 0, 0) for the backcolor. This causes gif to have incorrect transparent color and makes gif transparent when the gif is not to have transparency.

I loaded an invalid gif and your app went into endless loop. You need to code for invalid gif because there are many gif files that are incorrect and they will cause your app to freeze up.

that's why, on my control, you can change the transparency color;)
but now i have "big fish to fry":(
my class, on shadow effect, give me a view bugs:(
and i belive that it's by DIB's rules:(