Witam
Mam cos takiego:

procedure TForm1.Myclick(Sender: TObject);
var //y,
    x: integer;
begin
x:=(Sender as TImage).Tag;
TabK[x].Picture.LoadFromFile(katalog+IntToStr(TabG[x])+'.jpg');
TabK[x].BringToFront;
//y:=x;
if flaga[1]=0 then
begin
flaga[1]:=TabG[x];
zmienna:=x;
Form1.Label1.Caption:=IntToStr(zmienna);
end
else
 begin
  flaga[2]:=TabG[x];
   if (flaga[1]=flaga[2]) and (TabK[x].Tag<>TabK[zmienna].Tag) then
    begin
     TabK[x].Left:=850; TabK[x].Top:=480;
     TabK[zmienna].Left:=850; TabK[zmienna].Top:=480;
     flaga[1]:=0; flaga[2]:=0; zmienna:=0;
    end
   else if flaga[1]<>flaga[2] then
    begin
     Form1.Label2.Caption:=IntToStr(x);
     TabK[zmienna].Picture.LoadFromFile(Katalog+'Tlo.jpg');
     TabK[x].Picture.LoadFromFile(Katalog+'Tlo.jpg');
     flaga[1]:=0; flaga[2]:=0; zmienna:=0;
    end;
 end;
end;

Tylko jedno sie mi nie podoba jak klikniety zostanie juz drugi obrazek [image] i gdy karta jest różna od pierwszej to nie widac momentu załadowania sie obrazka tylko Od razu widac tło. Wiec mam pytanie/prosbe jak to zrobic zmienic??? jak macie jakies propozycje to napiszcie.... Dzieki z góry...

możesz zrobić sprite'y albo użyć canvas (zmniejszać karte do środka, a potem powiększać wizerunek z tłem)

możesz zrobić sprite'y albo użyć canvas (zmniejszać karte do środka, a potem powiększać wizerunek z tłem)

A mógłbyś to bardziej rozwinąć??

- obramowanie karty

1 - karta od strony obrazka
x - karta od strony tła

#11111#
#11111#
#11111#
#11111#

||
/

1.     #
   

2. 111 #
3. 111 #

4.     #
   

||
/

1.     #
   

2. 1 #
3. 1 #

4.     #
   

||
/

1.     #
   

2. x #
3. x #

4.     #
   

||
/

1.     #
   

2. xxx #
3. xxx #

4.     #
   

||
/

#xxxxx#
#xxxxx#
#xxxxx#
#xxxxx#

czyli, jak łatwo zauważyć obrazek karty się pomniejsza, następnie zamienia się w tło i zaczyna się powiększać. Jak nie wiesz o co chodzi to zajrzyj do PowerPoint'a

PS. jutro rozpoczęcie, potem integracja także napisać bym to mógł ew. jakoś koło 10 września, jakkolwiek myślę, że dasz sobie rade, bo problem nie wydaje się byc skomplikowany ;-)

:-D Ze tak spytam chciało ci sie to rysowac...
P.S. Moja integeracja jeszcze nie nastepuje ale do 10 to musze oddac ;)

A mógłbyś to bardziej rozwinąć??

sam chciałeś :>

poradzisz sobie, poczytaj o canvas i rusz głową. Jeżeli nie radzisz sobie z tym drugim to [glowa] pare razy...

A mógłbyś to bardziej rozwinąć??

sam chciałeś :>

poradzisz sobie, poczytaj o canvas i rusz głową. Jeżeli nie radzisz sobie z tym drugim to [glowa] pare razy...

Nie no co do rozwiniecia to było super ale liczyłem na jakis kod, fakt na canvasie sie zbytnio nie znam ale poradziłem sobie inaczej, ale DZIEKI za zainteresowanie i za rozpiske. A o canvasie poczytam jak znajde czas.... a głowe szanuje wole poczekac az sie na nią lampka zapali niz [glowa]