?
Solved

Scramble cards in animate way

Posted on 2013-11-26
14
Medium Priority
?
406 Views
Last Modified: 2013-11-29
Hello Guys

I have a TflowPanel and some cards on it, I'd like to scramble the cards in a animate way, where the cards could be scrambled as it was change place with another randomly and it is possible to see them floating from a place to another.

Well, I did a kind of scramble only changing the image of the pictures, but nothing visual.

I accept  any animation proposal only to make this more interesting.

Thanks
Alexandre
ScrambleCards.zip
0
Comment
Question by:hidrau
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 6
  • 6
  • 2
14 Comments
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 39681299
Made simple example where I animate card following half period of sine. First you must install component TImageWindow (given in another question). I replace all TImage with TImageWindow (dfm as text) in your source. Second, made procedure which move wincontrol object on form. Procedure Scramble will with given two different index of card (Tag value) find object to animate and set new position.

There are parameters to set:
amplitude - how high card goes
step - lower step (from 1..100) - smother animation
delay - delay between two frames

Have fun!
ImageWin.zip
ScrambleCards2.zip
0
 
LVL 1

Author Comment

by:hidrau
ID: 39681320
Sinisav, once again, I thank you a lot. I am gonna try it.

Tell me, what delphi version do you use?
0
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 39681392
For this example Delphi 2007.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:hidrau
ID: 39681442
For my application, I use Delphi XE4.

I have used for a long time Delphi 7, but now, I am using it only at my job.

I don't like delphi 7 anymore. After working with Delphi XE4, I don't want to work with D7 in my applications.

Have you tried XE4?
0
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 39681472
I work on XE3 too. My example should work on newer versions. Maybe some uses stuff modification is needed.
0
 
LVL 1

Expert Comment

by:livestuff
ID: 39681724
I think you need some pre-work done first before you do your scrambling. Personally, I would  use a TComponentList to store and maintain  TImages (cards).

You could use one list to store the entire deck and another one to store the current hand (7 random cards)

You can dynamically create your lists at runtime and add your all your images to the deck on start up, then randomly select cards from deck to add to current hand.

The TComponentList provides properties and methods to add, delete, rearrange, locate, access, and sort components (TImages).

From Delphi help " TComponentList controls the memory of its components; unless the OwnsObjects property
is set to false (or the components are removed with the Extract method). TComponentList frees its components
when they are removed from the list or when the TComponentList instance is itself destroyed."

OTTOMH

var
img: TImage;
Deck, Hand: TComponentList;
I: Intger;
card: integer;

Rondomize();

Deck:= TComponentList.Create;
try
 //Add cards to deck
 for I:= 1 to 52 do
 begin
  img:= TImage.Create(nil)
  Img.Loadfromfile('card' + IntToStr(I) + '.jpg'  )'
  Deck.Add(img);
 end;
finally
 Deck.Free
end;

Hand:= TComponentList.Create;
try
 //Add cards to list Hand here
 for I:= 1 to 7 do
 begin
   //Card = random # from 1 to 52
   //select the card from the deck and add it to the Hand
 end;
finally
 Hand.Free
end;

//Now
 Step through your hand and display the cards on your form or FlowPanel
adding the animation you need
0
 
LVL 1

Author Comment

by:hidrau
ID: 39682332
Hello Sinisav,

I tried your code but something went wront, the cards disappeared and only a part of one it was displayed.

Take a loo at the image

The result
0
 
LVL 1

Author Comment

by:hidrau
ID: 39682336
Hello  livestuff,

I need to understand many thing on this area. For example, the code that Sinisav gave me, it is very advanced to me. I don't have a good knowledge on delphi, my work is only with database and reports in Delphi.
0
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 39682884
Strange, I start example in XE3 and same happens. Seems that this flowpanel is changed/broken from D2007. Will look ....
0
 
LVL 27

Accepted Solution

by:
Sinisa Vuk earned 2000 total points
ID: 39683409
Found! Problem with double buffering. Another example - this time in XE3 (little closer...)
ImageWin.zip
ScrambleCards3.zip
0
 
LVL 1

Author Comment

by:hidrau
ID: 39683763
Thanks, I am gonna try afterwards.

Sinisav, what book could you recommend me to read where I can reach better knowledge on Delphi and animation? That is, if you know one :)
0
 
LVL 27

Expert Comment

by:Sinisa Vuk
ID: 39684075
Mastering ... books by Marco Cantù are good source - and source code of examples are available too....

More components which can help you, to teach you, are on Torry:
http://www.torry.net/pages.php?id=176
http://www.torry.net/pages.php?id=172
...like TAnimator component.
0
 
LVL 1

Author Closing Comment

by:hidrau
ID: 39684407
Worked perfectly friend, thanks very much
0
 
LVL 1

Expert Comment

by:livestuff
ID: 39685742
Sorry, It was Holiday here (Thanksgiving) and I had to go away for a couple of days.
I still think you should have gone the data structure router, bt Im glad you got a solution. I haven't looked at it yet.
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month10 days, 3 hours left to enroll

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question