[tutorial] criando um botão basico em flash

bom galera eu ja conhecia o adobe flash só que comecei a mexer com action script a pouco tempo, nesse tutorial vou ensinar como criar um botao que sera resposavel por iniciar a animação, vou esta usando action script 2.0 e adobe flash pro cs5 portable



para começar temos que parar a animação para isso colocamos uma ação na no primeiro quadro da linha do tempo, aperte o botao direito do mouse em cima do quadro e aparte em ação, quando abrir a aba de ação voce digita a função stop

stop();

reparando o quadro acima podemos ver que fico um 'a' no quadro isso vai impedir que a animação continue, agora com a ferramenta retangulo (shift + r) ou oval (shift + o) fazemos o botao, podemos usar a ferramena texto (shift + t) para escrever alguma coisa nele, agora usamos a ferramenta de seleção (shift + v) circulamos o botao



com o botao circulado arrastamos ele para aba biblioteca, vai abrir uma aba escrevemos o nome dele (no caso coloquei fts), e no tipo mudamos para botao depois apertamos ok



ele esta pronto agora podemos usar varios desse botao com eventos diferente para isso basta arrasta os botao da biblioteca para o palco, como ja tem um botao no palco aperte botao direito do mouse em cima dele e depois em ação, na aba ação usamos a função on passamos como argumento para ela release e dentro do escopo usamos a função play

on(release)
{
play();
}

[tutorial] programas delphi em fullscreen

e ae galera sem nada pra fazer aq entao vou fazer esse micro mini hyper pequeno minusculo tutorial, nesse tuto vou ensinar como deixar seu programa delphi em fullscreen, va no object inspector do form principal depois evento e por fim de dois cliques no oncreate, vai gerar um codigo parecido com esse

procedure TForm1.FormCreate(Sender: TObject);
begin
end;

o procedimento acima vai abrir o programa ja em fullscreen, dentro do escopo begin e end mudamos o atributo top e left para 0 para deixar o form no canto superior esquerdo

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
end;

agora usamos colocamos o tamanho maximo nos atributos width e height, porem eu nao faço a minima ideia qual é o tamanho maximo dessa bagaça entao vamos usar o screen.width e screen.height e atribuir eles

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
Form1.Width := Screen.Width;
Form1.Height := Screen.Height;
end;

quase deu certo a maldita barra do iniciar fica em cima, para mudar isso va denovo no object inspector form1 e procure BorderStyle mude ele para none, ou coloque o codigo equivalente

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
Form1.Width := Screen.Width;
Form1.Height := Screen.Height;
Form1.BorderStyle := bsNone;
end;

agora quando executar vai ficar o form por cima de tudo, ai é so fazer oque vcs quiser no caso coloquei um label e um button (fico tudo cinza ate parece que fiz essa bagaça no paint kkkkkkkkk)



um outro que eu ja tinha feito para broquear o desktop ^^