Cyd
2b8ca921cb
Complete disaster-recovery snapshot: engine/game source, game data assets, VC6 toolchain + DX SDKs, build outputs, deployed game, and _UNUSED archive. Large binaries in Git LFS; text preserved byte-for-byte (core.autocrlf=false, no eol attributes). See RECOVERY.md for the one-clone rebuild procedure.
1787 lines
44 KiB
Plaintext
1787 lines
44 KiB
Plaintext
#include "Content\\ShellScripts\\ScriptStrings.h"
|
|
#include "Content\\ShellScripts\\stddefs.h"
|
|
//===================================================================================
|
|
//Object: s_editbox
|
|
//
|
|
//Description: a simple editbox
|
|
//
|
|
//Member Variables:
|
|
//
|
|
// Name: p_pane
|
|
// Type: pane
|
|
// Description: the texture you wish to draw, assumes 0,0 as top left corner. To move change location
|
|
//
|
|
// Name: backColor
|
|
// Type: int (color)
|
|
// Description: the color that will be drawn beneath the pane (will show if pane has alpha)
|
|
//
|
|
// Name: id
|
|
// Type: int
|
|
// Description: unique integer used so function handler objects know who is sending mail
|
|
//
|
|
//Initialization:
|
|
//
|
|
//Notes:
|
|
//
|
|
//TODO: upgrade this object to use the new textBox object
|
|
// update this comment box to match the new format
|
|
// need no species of edit box for the IP address and phone number
|
|
// allow the double click select and clear like windows
|
|
// support paste?
|
|
// trap all garbage chars not just tab or error
|
|
//
|
|
|
|
//===================================================================================
|
|
s_editbox
|
|
{
|
|
GUI_CREATE
|
|
{
|
|
//Member Variables
|
|
|
|
string boxValue = "" //CAN BE INITIALIZED holds the contents of the edit box
|
|
string backup = ""
|
|
int boxWidth = 0 //MUST BE INTIALIZED width of the edit field of the box
|
|
int boxHeight = 0 //MUST BE INTIALIZED height of the edit field of the box//
|
|
int boxtextlimit = 255 //CAN BE INTIALIZED
|
|
font3d boxFont3d = FPATH localize$(IDS_F_GEN_EDITBOX) //MUST BE INITIALIZED
|
|
position boxTextOffset = 0,0 //CAN BE INITIALIZED
|
|
|
|
int backColor = packcolor ( 0, 0, 0, 255) //CAN BE INITIALIZED
|
|
int borderColor = packcolor (255, 255, 255, 255) //CAN BE INITIALIZED
|
|
int boxTextColor = packcolor (255, 255, 255, 255) //CAN BE INITIALIZED
|
|
int labelTextColor = packcolor (255, 255, 255, 255) //CAN BE INITIALIZED
|
|
int selectedColor = packcolor (255, 255, 255, 255) //CAN BE INITIALIZED
|
|
int highlightedColor = packcolor (50, 125, 255, 255) //CAN BE INITIALIZED
|
|
int facecolor = packcolor (187, 187, 204, 255)
|
|
int shadowcolor = packcolor (119, 119, 119, 255)
|
|
int noEditColor = packcolor (255,255,255,128)
|
|
|
|
int blink = 0 //FOR CURSOR BLINK (ON/OFF)
|
|
int cursor_pos //LOC TO DRAW CURSOR
|
|
int letter_start_pos //REMEMBERS WHERE YOU STARTED TO HIGHLIGHT TEXT
|
|
int letter_pos //CURRENT LETTER BEING POINTED TO
|
|
int highlight_start_pos //REMEMBERS THE LOC (IN PIXELS) YOU STARTED TO HIGHLIGHT TEXT
|
|
int highlight_pos //CURRENT LOC OF HIGHLIGHT BAR
|
|
int find_pos //USED TO FIND DIFFERENT POS
|
|
int highlight //TRUE/FALSE
|
|
int displayed_start //POINTS TO FIRST LETTER TO PRINT IN BOX
|
|
int displayed_end //POINTS TO LAST LETTER TO PRINT IN BOX
|
|
string displayed_text //STRING THAT STORES WHAT THE USER SEES
|
|
string temp //used to temporarily slice and dice text before handing off the result to boxValue and displayed_tect
|
|
int cliplength
|
|
string clip
|
|
|
|
int PasswordBox = FALSE
|
|
int NumericOnly = FALSE
|
|
int keyboard_sound = FALSE
|
|
int Auto_Update = TRUE
|
|
string s_pword = ""
|
|
int scroll_x_value = 0
|
|
int find_first
|
|
int active = false
|
|
int over_me = false
|
|
int disable_forward_slash = false
|
|
|
|
int bl_noEdit = 0
|
|
int inserttext = true
|
|
int blink_count
|
|
int font_height
|
|
|
|
string label = "" //CAN BE INITIALIZED
|
|
font3d labelFont3d = FPATH localize$(IDS_F_GEN_EDITBOX)
|
|
position offset //CAN BE INITIALIZED offset of text from button
|
|
int TimeLimit = -2
|
|
|
|
int id = 0
|
|
|
|
sound typing
|
|
sound message
|
|
|
|
//Gosscript Variables
|
|
region = 0,0 to 0,0 //MUST BE INTIALIZED region should be set manually after the boxwidth and height are set
|
|
catchup = false
|
|
location= 0,0,0 //CAN BE INITIALIZED
|
|
framerate = 30
|
|
}
|
|
|
|
GUI_INIT
|
|
{
|
|
if keyboard_sound == TRUE
|
|
{
|
|
typing = SPATH "fx_button.wav"
|
|
message = SPATH "sfx_signal_inmessage.wav"
|
|
|
|
assign 2, typing
|
|
assign 3, message
|
|
|
|
setvolume (2, 100)
|
|
setvolume (3, 20)
|
|
}
|
|
region = 0,0 to boxWidth,boxHeight
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
font_height = getprint3dheight("Temp")
|
|
displayed_start = 0
|
|
letter_pos = length$(boxvalue) + 1
|
|
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
s_pword = 0
|
|
for(int i=0; i < length$(boxvalue); i++)
|
|
s_pword = s_pword "*"
|
|
}
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
callback($$ImeCallback$$, 1, inserttext) // notify GOS with insert mode.
|
|
}
|
|
|
|
REGION_ENTERED
|
|
{
|
|
over_me = true
|
|
|
|
if exists(@infobox@)
|
|
{
|
|
mail(id, @infobox@)
|
|
}
|
|
}
|
|
|
|
REGION_EXITED
|
|
{
|
|
over_me = false
|
|
|
|
if exists(@infobox@)
|
|
{
|
|
mail(-1, @infobox@)
|
|
}
|
|
}
|
|
|
|
GUI_FOCUS
|
|
{
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
active = true
|
|
highlight = true
|
|
highlight_start_pos = 0
|
|
letter_start_pos = 1
|
|
letter_pos = length$(boxvalue)+1
|
|
|
|
//Makes the display correct
|
|
for find_first = letter_pos-1; find_first > -1; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
displayed_end = letter_pos-1
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
highlight_pos = cursor_pos
|
|
}
|
|
|
|
GUI_UNFOCUS
|
|
{
|
|
active = false
|
|
highlight = false
|
|
displayed_start = 0
|
|
|
|
//Makes the display correct
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
if Auto_Update == TRUE
|
|
mail(2)
|
|
}
|
|
|
|
GUI_CHAR
|
|
{
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
if ((getchar() == char("\n")) || (getchar() == 9)) //9 is the value of a tab
|
|
{
|
|
if keyboard_sound == TRUE
|
|
play 3
|
|
|
|
highlight = false
|
|
mail(1)
|
|
if (getchar() == 9)
|
|
{
|
|
mail(M_TABEVENT, parent)
|
|
}
|
|
|
|
return
|
|
}
|
|
int key = getCTRLchar()
|
|
|
|
|
|
if KEY == 45 //Insert
|
|
{
|
|
if (getkeystate(key_lcontrol))
|
|
{
|
|
if letter_start_pos > letter_pos
|
|
setclipboard(mid$(boxValue,letter_pos-1,letter_start_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_start_pos-1,letter_pos-1))
|
|
}
|
|
else
|
|
if (getkeystate(key_lshift))
|
|
{
|
|
getclipboard(clip,boxTextLimit)
|
|
cliplength = length$(clip)
|
|
|
|
if highlight
|
|
{
|
|
if length$(boxValue)+cliplength-(abs(letter_start_pos-letter_pos)) <= boxTextLimit
|
|
{
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(boxValue,letter_start_pos-1) clip right$(boxValue,length$(boxValue)-(letter_pos-1))
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(boxValue,letter_pos-1) clip right$(boxValue,length$(boxValue)-(letter_start_pos-1))
|
|
}
|
|
|
|
letter_pos += cliplength
|
|
|
|
if (length$(temp) < 1)
|
|
{
|
|
boxValue = clip
|
|
letter_pos = 1
|
|
displayed_start = 0
|
|
displayed_end = 1
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if length$(boxValue)+cliplength <= boxTextLimit
|
|
{
|
|
temp = left$(boxValue,letter_pos-1) clip right$(boxValue,length$(boxValue)-(letter_pos-1))
|
|
letter_pos += cliplength
|
|
}
|
|
}
|
|
|
|
boxValue = temp
|
|
if letter_pos > displayed_end+1 //letter_pos > displayed_end &&
|
|
{
|
|
//Makes the display correct
|
|
for find_first = letter_pos-2; find_first > -1; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
displayed_end = letter_pos-1
|
|
}
|
|
else
|
|
{
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
}
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if highlight == false
|
|
{
|
|
letter_start_pos = letter_pos
|
|
highlight_start_pos = cursor_pos
|
|
highlight_pos = highlight_start_pos
|
|
}
|
|
// mail(CC_EDT_CHANGED,parent)
|
|
|
|
}
|
|
else
|
|
{
|
|
inserttext = !inserttext
|
|
callback($$ImeCallback$$, 1, inserttext) // notify GOS with insert mode.
|
|
}
|
|
}
|
|
else
|
|
if KEY == 36 //HOME
|
|
{
|
|
if (getkeystate(key_lshift))
|
|
{
|
|
displayed_start = 0
|
|
highlight = true
|
|
letter_pos = 1
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
highlight_pos = cursor_pos
|
|
}
|
|
else
|
|
{
|
|
displayed_start = 0
|
|
letter_pos = 1
|
|
letter_start_pos = letter_pos
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_start_pos = cursor_pos
|
|
highlight_pos = cursor_pos
|
|
}
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos-1 < displayed_start
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if KEY == 35 // END
|
|
{
|
|
if (getkeystate(key_lshift))
|
|
{
|
|
highlight = true
|
|
letter_pos = length$(boxvalue)+1
|
|
}
|
|
else
|
|
{
|
|
letter_pos = length$(boxvalue)+1
|
|
letter_start_pos = letter_pos
|
|
highlight_start_pos = cursor_pos
|
|
}
|
|
|
|
//Makes the display correct
|
|
for find_first = letter_pos-1; find_first > -1; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
displayed_end = letter_pos-1
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
highlight_pos = cursor_pos
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos >= displayed_start
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
}
|
|
else
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
}
|
|
}
|
|
return
|
|
}
|
|
else
|
|
if KEY == 37 //left arrow
|
|
{
|
|
if (getkeystate(key_lshift))
|
|
{
|
|
if highlight == false
|
|
{
|
|
highlight = true
|
|
// letter_start_pos = letter_pos
|
|
}
|
|
|
|
if (getkeystate(key_lcontrol))
|
|
{
|
|
if letter_pos > 1
|
|
{
|
|
//Checks for the beginning of the word
|
|
for find_first = letter_pos-2; find_first > 0; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
letter_pos = find_first+1
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if letter_pos > 1
|
|
letter_pos--
|
|
}
|
|
}
|
|
else
|
|
{
|
|
highlight = false
|
|
|
|
if (getkeystate(key_lcontrol))
|
|
{
|
|
if letter_pos > 1
|
|
{
|
|
//Checks for the beginning of the word
|
|
for find_first = letter_pos-2; find_first > 0; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
|
|
}
|
|
}
|
|
letter_pos = find_first+1
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if letter_pos > 1
|
|
{
|
|
letter_pos--
|
|
|
|
}
|
|
}
|
|
letter_start_pos = letter_pos
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
}
|
|
|
|
if letter_pos-1 < displayed_start
|
|
{
|
|
displayed_start = letter_pos-1
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
}
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos-1 < displayed_start
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
else
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
}
|
|
}
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
return
|
|
}
|
|
else
|
|
if KEY == 39 //right arrow------------------------------------------------------------------------------------------------
|
|
{
|
|
if (getkeystate(key_lshift))
|
|
{
|
|
if highlight == false
|
|
{
|
|
highlight = true
|
|
letter_start_pos = letter_pos
|
|
}
|
|
|
|
if (getkeystate(key_lcontrol))
|
|
{
|
|
if letter_pos < length$(boxValue)
|
|
{
|
|
//Checks for the end of the word
|
|
for find_first = letter_pos; find_first <= length$(boxValue)-1; find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
letter_pos = find_first+1
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if letter_pos <= length$(boxValue)
|
|
letter_pos++
|
|
}
|
|
}
|
|
else
|
|
{
|
|
highlight = false
|
|
|
|
if (getkeystate(key_lcontrol))
|
|
{
|
|
if letter_pos < length$(boxValue)
|
|
{
|
|
//Checks for the end of the word
|
|
for find_first = letter_pos; find_first <= length$(boxValue)-1; find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
letter_pos = find_first+1
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if letter_pos <= length$(boxValue)
|
|
{
|
|
letter_pos++
|
|
}
|
|
}
|
|
letter_start_pos = letter_pos
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
}
|
|
|
|
if letter_pos > displayed_end
|
|
{
|
|
int for_compare
|
|
//Makes the display correct
|
|
for find_first = letter_pos-1; find_first > -1; find_first--
|
|
{
|
|
|
|
if(PasswordBox == TRUE)
|
|
for_compare = getprint3dwidth(mid$(s_pword,find_first,letter_pos-1))
|
|
else
|
|
for_compare = getprint3dwidth(mid$(boxValue,find_first,letter_pos-1))
|
|
|
|
if for_compare > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
|
|
displayed_end = letter_pos-1
|
|
}
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos >= displayed_start
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
}
|
|
else
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
}
|
|
}
|
|
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
|
|
return
|
|
}
|
|
else
|
|
if KEY == 46 //DELETE KEY
|
|
{
|
|
if keyboard_sound == TRUE
|
|
play 2
|
|
|
|
if highlight
|
|
{
|
|
if (getkeystate(key_lshift)) //shift-del to cut
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if letter_start_pos > letter_pos
|
|
setclipboard(mid$(s_pword,letter_pos-1,letter_start_pos-1))
|
|
else
|
|
setclipboard(mid$(s_pword,letter_start_pos-1,letter_pos-1))
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos > letter_pos
|
|
setclipboard(mid$(boxValue,letter_pos-1,letter_start_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_start_pos-1,letter_pos-1))
|
|
}
|
|
}
|
|
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(boxValue,letter_start_pos-1) right$(boxValue,length$(boxValue)-(letter_pos-1))
|
|
|
|
if letter_start_pos < displayed_start
|
|
displayed_start = letter_start_pos-1
|
|
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(boxValue,letter_pos-1) right$(boxValue,length$(boxValue)-(letter_start_pos-1))
|
|
|
|
letter_pos = letter_pos
|
|
}
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(temp); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(temp,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
if (length$(temp) < 1)
|
|
{
|
|
displayed_start = 0
|
|
displayed_end = 0
|
|
boxValue = ""
|
|
letter_pos = 1
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
highlight_start_pos = cursor_pos
|
|
boxValue = temp
|
|
}
|
|
else
|
|
{
|
|
if (length$(boxValue)) && letter_pos < length$(boxValue)+1
|
|
{
|
|
temp = left$(boxValue,letter_pos-1) right$(boxValue,length$(boxValue)-(letter_pos))
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(temp); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(temp,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
boxValue = temp
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
highlight_start_pos = cursor_pos
|
|
}
|
|
|
|
if length$(boxValue) == 0
|
|
{
|
|
displayed_start = 0
|
|
displayed_end = 0
|
|
boxValue = ""
|
|
letter_pos = 1
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
}
|
|
|
|
}
|
|
return
|
|
}
|
|
|
|
|
|
key = getchar()
|
|
|
|
//TODO: set in gui_focus?
|
|
blink = 1
|
|
|
|
|
|
//handle backspace
|
|
//TODO: only if no_edit is TRUE
|
|
|
|
if ((key == 0x08) and (bl_noEdit == FALSE)) // Backspace
|
|
{
|
|
if keyboard_sound == TRUE
|
|
play 2
|
|
|
|
if (highlight && letter_start_pos == letter_pos)
|
|
highlight = false
|
|
if highlight
|
|
{
|
|
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(boxValue,letter_start_pos-1) right$(boxValue,length$(boxValue)-(letter_pos-1))
|
|
|
|
if letter_start_pos < displayed_start
|
|
displayed_start = letter_start_pos-1
|
|
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(boxValue,letter_pos-1) right$(boxValue,length$(boxValue)-(letter_start_pos-1))
|
|
|
|
letter_pos = letter_pos
|
|
}
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(temp); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(temp,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
if (length$(temp) < 1)
|
|
{
|
|
displayed_start = 0
|
|
displayed_end = 0
|
|
boxValue = ""
|
|
letter_pos = 1
|
|
}
|
|
|
|
boxValue = temp
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
s_pword = 0
|
|
for(int i=0; i < length$(boxvalue); i++)
|
|
s_pword = s_pword "*"
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
highlight_start_pos = cursor_pos
|
|
|
|
}
|
|
else
|
|
{
|
|
if (length$(boxValue)) && letter_pos > 1
|
|
{
|
|
temp = left$(boxValue,letter_pos-2) right$(boxValue,length$(boxValue)-(letter_pos-1))
|
|
|
|
if letter_pos-2 < displayed_start
|
|
{
|
|
displayed_start -= 8
|
|
if displayed_start < 0
|
|
displayed_start = 0
|
|
}
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(temp); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(temp,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
boxValue = temp
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
s_pword = 0
|
|
|
|
for(int i=0; i < length$(boxvalue); i++)
|
|
s_pword = s_pword "*"
|
|
}
|
|
|
|
letter_pos--
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
letter_start_pos = letter_pos
|
|
highlight_start_pos = cursor_pos
|
|
highlight_pos = highlight_start_pos
|
|
}
|
|
|
|
|
|
if (length$(boxValue) == 0)
|
|
{
|
|
displayed_start = 0
|
|
displayed_end = 0
|
|
boxValue = ""
|
|
letter_pos = 1
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
}
|
|
}
|
|
}
|
|
else
|
|
if(key < 1) || ((key > 1) && (key < 8)) || ((key > 8) && (key < 31)) || ((disable_forward_slash) && (key == 47))
|
|
{
|
|
// ignore unprintable characters and all non-dos recognized items
|
|
}
|
|
else
|
|
if (bl_noEdit == FALSE)
|
|
{
|
|
if NumericOnly
|
|
{
|
|
int kw = getchar()
|
|
|
|
if (kw < 48 or kw > 57)
|
|
return
|
|
}
|
|
|
|
if keyboard_sound == TRUE
|
|
play 2
|
|
|
|
temp = boxValue
|
|
|
|
if getkeystate(key_lcontrol)
|
|
{
|
|
if (key == 3) && highlight // "C" is pressed
|
|
{
|
|
if letter_start_pos > letter_pos
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
setclipboard(mid$(s_pword,letter_pos-1,letter_start_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_pos-1,letter_start_pos-1))
|
|
}
|
|
else
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
setclipboard(mid$(s_pword,letter_start_pos-1,letter_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_start_pos-1,letter_pos-1))
|
|
}
|
|
}
|
|
|
|
if (key == 24) && highlight// "x" is pressed
|
|
{
|
|
if letter_start_pos > letter_pos
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
setclipboard(mid$(s_pword,letter_pos-1,letter_start_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_pos-1,letter_start_pos-1))
|
|
}
|
|
else
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
setclipboard(mid$(boxValue,letter_start_pos-1,letter_pos-1))
|
|
else
|
|
setclipboard(mid$(boxValue,letter_pos-1,letter_start_pos-1))
|
|
}
|
|
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(temp,letter_start_pos-1) right$(temp,length$(temp)-(letter_pos-1))
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(temp,letter_pos-1) right$(temp,length$(temp)-(letter_start_pos-1))
|
|
}
|
|
if (length$(temp) < 1)
|
|
{
|
|
boxValue = chr$(key)
|
|
letter_pos = 1
|
|
displayed_start = 0
|
|
displayed_end = 1
|
|
}
|
|
}
|
|
|
|
if (key == 22)// "V" is pressed
|
|
{
|
|
getclipboard(clip,boxTextLimit)
|
|
cliplength = length$(clip)
|
|
|
|
if highlight
|
|
{
|
|
if length$(temp)+cliplength-(abs(letter_start_pos-letter_pos)) <= boxTextLimit
|
|
{
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(temp,letter_start_pos-1) clip right$(temp,length$(temp)-(letter_pos-1))
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(temp,letter_pos-1) clip right$(temp,length$(temp)-(letter_start_pos-1))
|
|
}
|
|
|
|
letter_pos += cliplength
|
|
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if length$(boxValue)+cliplength <= boxTextLimit
|
|
{
|
|
temp = left$(temp,letter_pos-1) clip right$(temp,length$(boxValue)-(letter_pos-1))
|
|
letter_pos += cliplength
|
|
}
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if highlight
|
|
{
|
|
highlight = false
|
|
if letter_start_pos < letter_pos
|
|
{
|
|
temp = left$(temp,letter_start_pos-1) chr$(key) right$(temp,length$(temp)-(letter_pos-1))
|
|
letter_pos = letter_start_pos
|
|
}
|
|
else
|
|
{
|
|
temp = left$(temp,letter_pos-1) chr$(key) right$(temp,length$(temp)-(letter_start_pos-1))
|
|
}
|
|
|
|
letter_pos++
|
|
|
|
}
|
|
else
|
|
{
|
|
if length$(temp)+1 <= boxtextlimit
|
|
{
|
|
if inserttext
|
|
{
|
|
temp = left$(temp,letter_pos-1) chr$(key) right$(temp,length$(boxValue)-(letter_pos-1))
|
|
}
|
|
else
|
|
{
|
|
temp = left$(temp,letter_pos-1) chr$(key) right$(temp,length$(boxValue)-(letter_pos))
|
|
}
|
|
letter_pos++
|
|
}
|
|
}
|
|
}
|
|
|
|
boxValue = temp
|
|
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
s_pword = 0
|
|
|
|
for(int i=0; i < length$(boxvalue); i++)
|
|
s_pword = s_pword "*"
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(s_pword) < boxWidth-8
|
|
displayed_start = 0
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(boxValue) < boxWidth-8
|
|
displayed_start = 0
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
int compare_this = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
int compare_this = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
if compare_this > boxWidth-8
|
|
{
|
|
//Makes the display correct
|
|
for find_first = letter_pos-1; find_first > -1; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
displayed_end = letter_pos-1
|
|
}
|
|
else
|
|
{
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
}
|
|
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
if highlight == false
|
|
{
|
|
letter_start_pos = letter_pos
|
|
highlight_start_pos = cursor_pos
|
|
highlight_pos = highlight_start_pos
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
GUI_MAILBOX
|
|
{
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
if (getmessage() == 0)
|
|
{
|
|
letter_pos = displayed_start+1
|
|
|
|
if letter_pos > 1
|
|
{
|
|
letter_pos -= 1
|
|
}
|
|
|
|
if letter_pos-1 < displayed_start
|
|
{
|
|
displayed_start = letter_pos-1
|
|
|
|
//Makes the display correct
|
|
for find_first = displayed_start; find_first < length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_first)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
displayed_end = find_first-1
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos-1 < displayed_start
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
if letter_start_pos <= displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
highlight_pos = cursor_pos
|
|
}
|
|
|
|
if (getmessage() == 1)
|
|
{
|
|
letter_pos = displayed_end+1
|
|
|
|
if letter_pos <= length$(boxValue)
|
|
letter_pos++
|
|
|
|
|
|
if letter_pos > displayed_end
|
|
{
|
|
//Makes the display correct
|
|
for find_first = letter_pos-1; find_first > -1; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,find_first,letter_pos-1)) > boxWidth-8
|
|
{
|
|
break
|
|
}
|
|
|
|
}
|
|
}
|
|
displayed_start = find_first+1
|
|
|
|
displayed_end = letter_pos-1
|
|
|
|
if highlight
|
|
{
|
|
if letter_start_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
else
|
|
{
|
|
if letter_start_pos >= displayed_start
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
}
|
|
else
|
|
highlight_start_pos = 0
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
|
|
highlight_pos = cursor_pos
|
|
}
|
|
|
|
}
|
|
|
|
|
|
LBUTTON_UPDATE
|
|
{
|
|
// if(exists(o_tabStops))
|
|
// mail(M_SELECTEVENT,o_tabStops)
|
|
// else
|
|
|
|
// Get the focus first if we don't have focus
|
|
if gotfocus(this) == false
|
|
{
|
|
focus(this)
|
|
}
|
|
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
|
|
if ((mouse.left == BUTTON_PRESSED) || (mouse.left == BUTTON_HELD) || (mouse.left == BUTTON_CLICKED))
|
|
{
|
|
if active && over_me
|
|
{
|
|
for find_pos = displayed_start+1; find_pos <= length$(boxvalue); find_pos++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if getprint3dwidth(mid$(s_pword,displayed_start,find_pos)) > mouse.x-(location.x+boxTextOffset.x)
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if getprint3dwidth(mid$(boxValue,displayed_start,find_pos)) > mouse.x-(location.x+boxTextOffset.x)
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
letter_pos = find_pos
|
|
}
|
|
}
|
|
|
|
if mouse.left == BUTTON_PRESSED
|
|
{
|
|
if active
|
|
{
|
|
highlight_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
cursor_pos = highlight_pos
|
|
letter_pos = find_pos
|
|
|
|
if letter_pos > length$(boxvalue)
|
|
{
|
|
letter_pos = length$(boxvalue)+1
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
}
|
|
|
|
highlight_start_pos = cursor_pos
|
|
letter_start_pos = letter_pos
|
|
}
|
|
return
|
|
}
|
|
|
|
if (mouse.left == BUTTON_HELD && active)
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
highlight_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
|
|
cursor_pos = highlight_pos
|
|
if letter_start_pos != letter_pos
|
|
{
|
|
highlight = true
|
|
}
|
|
|
|
if letter_pos > length$(boxvalue)
|
|
{
|
|
letter_pos = length$(boxvalue)+1
|
|
// cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
if(PasswordBox == TRUE)
|
|
cursor_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_pos-1))
|
|
else
|
|
cursor_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_pos-1))
|
|
highlight_pos = cursor_pos
|
|
}
|
|
return
|
|
}
|
|
|
|
if (mouse.left == BUTTON_CLICKED)
|
|
{
|
|
if timelimit > gettime()
|
|
{
|
|
highlight = true
|
|
|
|
//Checks for the beginning of the word
|
|
for find_first = letter_pos-1; find_first > 0; find_first--
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
letter_start_pos = find_first+1
|
|
if(PasswordBox == TRUE)
|
|
highlight_start_pos = getprint3dwidth(mid$(s_pword,displayed_start,letter_start_pos-1))
|
|
else
|
|
highlight_start_pos = getprint3dwidth(mid$(boxValue,displayed_start,letter_start_pos-1))
|
|
|
|
if letter_start_pos-1 < displayed_start
|
|
{
|
|
highlight_start_pos = 0
|
|
}
|
|
|
|
//Checks for the end of the word
|
|
for find_first = letter_pos; find_first <= length$(boxValue); find_first++
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
if equal$(mid$(s_pword,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if equal$(mid$(boxValue,find_first-1,find_first)," ")
|
|
{
|
|
break
|
|
}
|
|
}
|
|
}
|
|
|
|
if find_first > length$(boxValue)
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_pos = getprint3dwidth(mid$(s_pword,displayed_start,find_first-1))
|
|
else
|
|
highlight_pos = getprint3dwidth(mid$(boxValue,displayed_start,find_first-1))
|
|
letter_pos = find_first
|
|
}
|
|
else
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_pos = getprint3dwidth(mid$(s_pword,displayed_start,find_first))
|
|
else
|
|
highlight_pos = getprint3dwidth(mid$(boxValue,displayed_start,find_first))
|
|
|
|
letter_pos = find_first+1
|
|
}
|
|
|
|
|
|
if letter_pos > displayed_end
|
|
{
|
|
if(PasswordBox == TRUE)
|
|
highlight_pos = getprint3dwidth(mid$(s_pword,displayed_start,displayed_end))
|
|
else
|
|
highlight_pos = getprint3dwidth(mid$(boxValue,displayed_start,displayed_end))
|
|
}
|
|
cursor_pos = highlight_pos
|
|
|
|
}
|
|
|
|
if letter_start_pos == letter_pos
|
|
{
|
|
highlight = false
|
|
}
|
|
|
|
TimeLimit = gettime()+20
|
|
}
|
|
}
|
|
|
|
GUI_EXECUTE
|
|
{
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
if gotfocus(this)
|
|
{
|
|
if mouse.x < location.x && mouse.left == BUTTON_HELD
|
|
{
|
|
MAIL(0,this)
|
|
}
|
|
|
|
if mouse.x > (location.x+boxWidth) && mouse.left == BUTTON_HELD
|
|
{
|
|
MAIL(1,this)
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
{
|
|
s_pword = 0
|
|
|
|
for(int i=0; i < length$(boxvalue); i++)
|
|
s_pword = s_pword "*"
|
|
}
|
|
|
|
if (gotfocus(this))
|
|
{
|
|
blink_count++
|
|
if blink_count > 6
|
|
{
|
|
blink = !blink
|
|
blink_count = 0
|
|
}
|
|
}
|
|
|
|
//move into initializes
|
|
if(bl_noEdit == TRUE)
|
|
{
|
|
region = 0,0 to 0,0
|
|
}
|
|
}
|
|
|
|
if(PasswordBox == TRUE)
|
|
displayed_text = mid$(s_pword,displayed_start,displayed_end)
|
|
else
|
|
displayed_text = mid$(boxValue,displayed_start,displayed_end)
|
|
}
|
|
|
|
GUI_DRAW
|
|
{
|
|
|
|
//draw box background
|
|
//TODO: check if backspace causes ghost chars with no back color
|
|
if(backColor)
|
|
{
|
|
setpencolor(backColor)
|
|
drawrect location.x, location.y to location.x+boxWidth, location.y+boxHeight
|
|
}
|
|
//draw box border if one has been assigned
|
|
if (borderColor)
|
|
{
|
|
setpencolor(borderColor)
|
|
drawframe location.x,location.y to location.x+boxWidth,location.y+boxHeight
|
|
|
|
setpencolor(shadowcolor)
|
|
drawline location.x, location.y + boxHeight to location.x + boxWidth, location.y + boxHeight
|
|
drawline location.x + boxWidth, location.y to location.x + boxWidth, location.y + boxHeight
|
|
}
|
|
|
|
// draw hot border if box has focus
|
|
if (gotfocus(this) && (bl_noEdit == FALSE))
|
|
{
|
|
setpencolor(selectedColor)
|
|
drawframe location.x,location.y to location.x+boxWidth,location.y+boxHeight
|
|
}
|
|
|
|
//
|
|
if (highlight) && letter_pos != letter_start_pos)
|
|
{
|
|
setpencolor(highlightedColor)
|
|
ldrawrect boxTextOffset.x+highlight_start_pos-1,1 to boxTextOffset.x+highlight_pos,boxHeight-1
|
|
}
|
|
|
|
print3d_attributes = boxFont3d,boxTextColor,1,0,1,0,0,0,1
|
|
// print text
|
|
print3d_position = location.x+boxTextOffset.x, location.y+boxTextOffset.y
|
|
print3d_margins = location.x, location.y to location.x+boxWidth+10,location.y+boxHeight+3
|
|
print3d displayed_text
|
|
|
|
// set IME info
|
|
if (gotfocus(this))
|
|
{
|
|
position pos = boxTextOffset.x+cursor_pos, boxTextOffset.y
|
|
makeabsolute(pos)
|
|
setcaret (pos.x, pos.y)
|
|
}
|
|
|
|
//print blinky cursor
|
|
if (gotfocus(this) && blink && (bl_noEdit == FALSE) && callback($$ImeCallback$$, 2))
|
|
{
|
|
setpencolor (boxTextColor)
|
|
ldrawrect boxTextOffset.x+cursor_pos, boxTextOffset.y+1 to boxTextOffset.x+cursor_pos+2,boxTextOffset.y+font_height-1
|
|
}
|
|
|
|
//print label
|
|
// if(!equal$(label,""))
|
|
// {
|
|
print3d_attributes = labelFont3d,labelTextColor,1,0,1,0,0,0,1
|
|
lprint3d_position = offset.x, offset.y
|
|
lprint3d_margins = offset.x, offset.y to 800,600//(offset.x + getprint3dwidth(label)),(offset.y + getprint3dheight(label))+3
|
|
print3d label
|
|
// print3d boxvalue
|
|
// print3d mouse.left
|
|
// }
|
|
|
|
if (bl_noEdit)
|
|
{
|
|
setpencolor(noEditColor)
|
|
drawrect location.x,location.y to location.x+boxWidth,location.y+boxHeight
|
|
}
|
|
}
|
|
} |