[Tutorial] Caixa de texto com barra de rolagem, sem dll

Spoiler:

Código:

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

Código:

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


Código:

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

}


Código:

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
}

Código:

if mouse_x>x and mouse_x<x+width
and
mouse_y>y and mouse_y<y+height//Se o mouse estiver dentro da caixa
{
window_set_cursor(cr_beam)//Muda o cursor
}
else//SENÃO
{
window_set_cursor(cr_default)//Fica o padrão
}

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<x+width+16
and mouse_y>y and mouse_y<y+16
//Estiver em cima do botão de rolagem
{
if barra<y+5//Se a barra não tiver o maximo em cima
barra+=5//Aumenta a barra
}

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

Código:

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
}

Código:

/* 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

Código:

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!!!!
}
}

Código:

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

Código:

text_box_input();
text_keys();
text_box_draw();

TRFN escreveu:Belo tutorial lucas.
Gostei do modo que você usou os scripts,facilitou muito.
O mais legal é o modo que você usa as funções de draw.
Parabéns.