[Lucas 5293] Caixa de Texto com barra de rolagem

Qualidade
Nome: Caixa de Texto com barra de rolagem
Blogueiro: Lucas 5293
Descrissao: Caixa de texto simples com barra de rolagem vertical
Versao: Lite e Pro
Foto(s): 

Tutorial:

Junte os recursos!

Primeiro crie uma sprite e nomeie com spr_seta, e ponha essa imagem nela:



Depois crie a spr_seta2:



ou crie elas, no tamanho 16x16 com a origem em 0x0.

Agora vamos criar os scripts:

text_box_create//Inicia as variáveis 
text_box_input//Detecta as letras a serem usadas na caixa
text_keys//Atribui espaços, nova linha, e a barra de rolagem
text_box_draw// Desenha tudo

Ponto todos os recursos foram criados.

Atribuindo as funções dos scripts

Abra o script text_box_create e nela ponha:

index=1//Serve para indicar a linha em que esta digitando
str=""//É a variável em que armazena tudo que foi desenhado
g[index]=''//Detecta o numero de letras em uma linha
/*Aqui são as dimensões da caixa e sua posição x e y */
width=argument2
height=argument3
x=argument0
y=argument1
/*-------------------------------------------------*/
barra_de_rolagem=argument4//Armazena se a caixa vai ter a barra de rolagem
tahoma=font_add("Tahoma",12,0,0,0,255)//Inicia a fonte
barra=y+5//Posição inicial da barra
ponteiro="|"//É o ponteiro quando você digita, que fica piscando
in=0//Para contar o tempo do ponteiro piscar

Agora abra o text_box_input e coloque:

if string_width(g[index]) < width - 17/*Se o numero de caracteres em uma linha não estiver cheio (Se houver bugs da palavra passar da caixa diminua 17 por menos )*/
{
str+=keyboard_string//Adiciona a caixa a letra em que você digita
g[index]+=keyboard_string//Adiciona ao contador
keyboard_string=''//Apaga as teclas do teclado
exit//SAI!!!!!
break//FREIA!!!!
}
else//Senão
{
index+=1//Adiciona mais 1 na index, ou adiciona mias uma linha
str+='
'//Adiciona mais uma linha na caixa
g[index]="
"//E no contador
}

Agora no text_keys

if keyboard_check_pressed(vk_backspace)// Se pressionar o botão de apagar
{
str=string_delete(str,string_length(str),string_length(str))//Deleta a ultima letra
g[index]=string_delete(g[index],string_length(str)-1,string_length(g[index]))//No contador também
}
if keyboard_check_pressed(vk_enter)//Se precionar enter
{
index+=1//Mais uma linha
str+='
'//Mais uma linha na caixa
g[index]="
"//E no contador
}

Ainda no text_keys:

if mouse_check_button(mb_left) and barra_de_rolagem=1/*Se pressionar o botão do mouse e a barra estiver ativa*/
{
if mouse_x>x+width
and mouse_x
and mouse_y>y and mouse_y
//Estiver em cima do botão de rolagem
{
if barra
barra+=5//Aumenta a barra
}

if mouse_x>x+width
and mouse_x
and mouse_y>y+height-16 and mouse_y
//Estiver em cima do botão de rolagem
{
barra-=5//Diminui a barra
}
}

Pronto a parte mais difícil se foi.

Por ultimo abra o text_box_draw
e nele coloque:

draw_set_font(tahoma)//Atribui a fonte
draw_set_color(c_white)//A cor branco
draw_rectangle(x,y,x+width,y+height,0)//Desenha o retângulo da caixa
draw_set_color(c_black)//Cor preto
draw_rectangle(x,y,x+width,y+height,1)//Desenha a borda do retângulo
draw_text(x+5,barra,string(str)+string(ponteiro))//Desenha o texto mais o ponteiro

/*Desenha aquelas setas para a rolagem*/
if barra_de_rolagem=1//Se a barra estiver ativa
{
draw_sprite(spr_seta,-1,x+width,y)//Seta de cima
draw_sprite(spr_seta2,-1,x+width,y+height-16)//Seta de baixo
}

ainda no text_box_draw

/* Desenha uma barra em volta da caixa de texto
para esconder as strings fora da caixa de texto, esse é o segredo o.O*/
draw_set_color(background_color)//Cor de fundo
draw_rectangle(0,0,room_width,y,0)//Desenha o retângulo de cima
draw_rectangle(0,room_height,room_width,y+height+1,0)//E o de baixo

Agora vamos criar o ponteiro, essa parte não é obrigatória para o funcionamento, mias se quiser algo profissional, é bom, ainda naquele script:

if !keyboard_check(vk_anykey)//Se não pressionar qualquer botão
in+=1//Adiciona mais 1 na contagem de tempo
else//Senão
ponteiro="|"//Acaba com a animação do ponteiro
if in=30//Se a contagem de tempo chegar a 30, ou um segundo
{
if ponteiro="|"//Se o ponteiro for '|'
{
ponteiro=""//O ponteiro é ''
in=0//Reinicia a contagem de tempo
exit//SAI!!!!
break//FREIA!!!
}
if ponteiro=""//Se for ''
{
ponteiro="|"//Ponteiro é igual a '|'
in=0//Reinicia a contagem de tempo
exit//SAI!!!!
break//FREIA!!!!
}
}

Fazendo acontecer!

Pronto todos os scripts prontos, agora crie um objeto.
no create ponha:

text_box_create(30,50,480,360,1);

no draw:

text_box_input();

text_keys();

text_box_draw();

Pronto teste e veja o que aconteceu!

O texto todo foi armazenado na variável str.
Faça o que quiser com ela ^^
FLWS

Creditos: Lucas 5293