Ir para conteúdo
Fórum Script Brasil

rafael martins

Membros
  • Total de itens

    7
  • Registro em

  • Última visita

Sobre rafael martins

rafael martins's Achievements

0

Reputação

  1. Ola gente. estou com um problema. o meu photoshop cs3 não ativa de maneira alguma. ele sempre aparece a msg “product license has expired” mesmo depois que eu coloquei a ativacao pelo telefone. ele nem aparece mais a tela pra coloca o cd-key porque ta verdadeiro mas quando ele vai abri ele aparece essa msg. já tentei mudar o nome do arquivo “application.sif” mas também não fuincionou já deletei ele também e nd de funcionar sempre aparece essa msg. que que eu posso fazer? me ajudem por favor. obrigado
  2. Ola amigo obrigado por me responder. é eu pensei nisso mesmo. mas puts vai dar um trampo pra eu fazer por isso que eu não testei. mas acho que vai ter que ser desse jeito mesmo. sera que não tem otro jeito não? brigadao
  3. Este é para quando as duas imagen sforem verdadeiras ele dexa as imagen s que foram verdadeiras desabilitadas para não poder mais clicar e elas vao ficar visiveis para o usuario. Esse valor é passado pra essa variavel para eu saber qual a imagem que foi clicada antes de da ultima que eu cliquei para eu poder saber qual a img que eu to associando para poder ver se são verdadeiras. esses valores tão todos dentro da matriz. porque nesse caso esse codigo eu tirei da image1. e quando for falso vai atribuir a img inicial.e na outra linha pode ver que vai atribuir a img inicial para a outra que já foi clicada caso não sejam iguais. Isso só estou mudando os valores de cada img na matriz. esse não habilita somente se ele inicializa de novo o programa. ai volta no inicio. pois esse comando esta para desabilitar as img que seram verdadeiras. esse num é só para dar 5 ponto para a pessoa se ela acertar. esses valores x que estao comentados no final de algumas linhas é so para eu saber quando eu for copiar esses codigos para cada img e que eu tenho que modificar para cada img. este jeito esta funcionado mas só tem esse problema d ter que clicar duas vezes na img para ela abrir apos ter clicado nela já uma vez. deu para entender? desculpe se a minha logica não é muito apurada pois eu estou estudando ainda. isso na verdade é um trabalho para a escola. Vlwww
  4. Rafael ... voce está complicando o codigo sem necessidade ... Dica: crie uma variavel global ex: fig : integer e depois em cada image coloque no evento on clique fig := 1 , fig := 2, e assim por diante ... depois acrescente este codigo em cada image para testar se as figuras são iguais; for j := 0 to ComponentCount -1 do begin if Components[i] is TImage then if TImage(Components[i]).Picture = TImage(Components[5]).Picture then // coloque o numero estatico da figura //(neste //caso a figura 5) showmessage('ACERTOU') else showmessage('ERROU') end; Espero que isso te ajude .... Ola amigo eu entendi o que você quis dizer. no meu ta dando certo essa parte de testar as img se são iguais. só que por exemplo no caso de dar errado ela tem que atribuir ao image a imagem 10.jpg (que é a em branco) e quando ele atribui essa imagem ao image ele fico com esse problema de ter que clicar duas vezes na proxima vez que for clicar nela. intendeu o que eu quiz dizer? nesse caso aqui: if pos[cont,1] = pos[1,1] then // pos[cont,1] = pos[x,1] begin image1.Enabled := false; TImage(Components[certo]).Enabled := false; num := strtoint(label2.Caption); num := num + 5; label2.caption := inttostr(num); end else begin application.ProcessMessages; sleep(500); image1.Picture.LoadFromFile('10.jpg'); TImage(Components[certo]).Picture.LoadFromFile('10.jpg');// caminho da figura end; se der falso ele atribui a img inicial para que as duas img deem a impresao de estarem desvirando. a minha logico eu criei uma matriz e coloquei um randometro para sortear os valores das imagens de 1 ateh 10 que é o numero de figuras que eu tenho. ai ele guarda tudo na matriz que eu acho que fica melhor para pode manuzear depois. você entendeu meu problema? é só essa parte de voltar pra img inicial que ta dano esse erro eu acho. não sei porque. sera que você pode me ajudar? OBRIGADO
  5. Ola amigo agora de certoo... Muito obrigado pela ajuda. Folgando um poco to com otro problema. é o seguinte eu estou fazendo um jogo da memoria para a escola e eu estou com outro problema. quando eu clico uma vez na imagem para mudar na proxima vez eu tenho que clicar duas vezes e na proxima 3 e assim vai. porque sera? olha o codigo como esta em cada imagem. var num: integer; i: integer; cont: integer; begin if pos[1,2] = 0 then // pos[x,2] begin image1.Picture.LoadFromFile( floattostr(pos[1,1]) + '.jpg'); // imagex pos[x,1] pos[1,2] := 1; //pos[x,2] certo := pos[1,3]; // pos[x,3] end else begin image1.Picture.LoadFromFile( '10.jpg'); //imagex pos[1,2] := 0; //pos[x,2] certo := pos[1,3]; //pos[x,3] end; for cont:=1 to 20 do begin if pos[cont,2] = 1 then begin if cont <> 1 then // cont <> x begin if pos[cont,1] = pos[1,1] then // pos[cont,1] = pos[x,1] begin image1.Enabled := false; TImage(Components[certo]).Enabled := false; num := strtoint(label2.Caption); num := num + 5; label2.caption := inttostr(num); end else begin application.ProcessMessages; sleep(500); image1.Picture.LoadFromFile('10.jpg'); TImage(Components[certo]).Picture.LoadFromFile('10.jpg');// caminho da figura end; end; end; end; end; veja se você entendeu. sera que você sabe o que pode esta acontecendo? só falta isso para que o programa fique perfeito. Tem como me ajudar? Obrigado
  6. AMigo não estou conseguindo. sera que funciona no delphi 7? ComponentCount -1 não esta alguma coisa errada? obrigado
  7. Ola amigos estou com um problema que não estou conseguindo resolver de maneira alguma. Algem poderia me ajudar? meu problema é o seguinte estou querendo concatenar um image. Por exemplo: var n : integer; for n :=0 to 20 do begin image+n.Picture.LoadFromFile('10.jpg'); end; como vocês podem ver eu gostaria de colocar a img 10.jpg para todos os image que eu tenho. Teria como fazer isso? POr favor espero que alguém possa me ajudar pois eu estou focando loco já... OBRIGADO
×
×
  • Criar Novo...