Jump to content

Sign In Dialog Help


CharmedOne

Recommended Posts

some reasong i can add name but it will not let me add password whats making it do this????

 

 

 

 

 

 

;------------------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------
;------------[ Email Dialog ]--------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------


alias signin { 
  /dialog -m sign sign 
}


}
dialog sign {
alias sign { dialog -m sign sign }
alias csign { dll $rebar UnDock center | dialog -x sign sign }
alias rebar { return dll/rebar.dll }
dialog sign {
  title "Pass Word Dialog [ /signin ]"
  size -1 -1 191 73
  option dbu
  icon photos\icon.ico, 0
  edit "", 1, 37 15 78 10, return autohs
  text Email:, 2, 9 16 25 8, center
  edit "", 3, 37 29 78 10, pass return
  button "Add", 4, 116 15 19 10, flat
  button "Delete", 5, 116 29 19 10, flat
  text Password:, 6, 9 30 28 8, center
  edit "", 7, 37 43 96 10, read return
  text Nick:, 8, 9 45 25 8, center
  box , 12, 5 10 182 47
  box , 13, 5 10 134 47
  button "Ok / Cancel", 14, 70 59 37 9, ok cancel
  text "By &Aimz ©2010", 11, 124 62 65 8, center
  edit "Pass Word Dialog [/PASSW]", 15, 50 4 80 10, center
  box "", 16, 2 0 188 71
  icon 9, -38 -65 291 274,  images\back.jpg, 0, noborder
  icon 10, 141 17 43 37,  images\middle.jpg, 0, noborder
  icon 17, 2 74 187 126, Images\small.jpg, 0, noborder
}

on *:dialog:sign:init:*: {
  .timer -m 1 1 sign.an

  did -ra $dname 3 %password
  did -ra $dname 1 %email
  did -ra $dname 7 $buzz.decode($me)

  .splay mepart.wav | .timer.p 1 1 splay password.wav

  dll $rebar Dock $dialog($dname).hwnd > center
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetFont $dname
  dll $mdx SetColor $dname
  dll dll\mdx.dll SetBorderStyle 1,3,2,6,8,2,6,7,8  14 50 Georgia Bold
  dll dll\mdx.dll SetColor $dname 1,3,2,6,8,2,6,7,8 text $rgb(%list1colour,%list2colour,%list3colour)
  dll $mdx SetFont $dname 1,3,2,6,8,2,6,7,8 40 Georgia Bold
  mdx SetFont 1,3,2,6,8,2,6,7,8 +a 12 100 Verdana
  colorize 
}

on *:dialog:sign:sclick:*:{
  if ($did = 4) { if ($did = 4) { $iif($did(1), set %email $did(1)) | $iif($did(3), set %password $md5($did(3))) | .splay Data.wav | .loadbuf -ro sign 1,3 | .echo $active 0,4Email & Password 0,12Added } }
  if ($did = 5) { .unset %email | .unset %password | .loadbuf -ro sign 1 | .loadbuf -ro sign 3 | .echo $active 0,12Email & Password 0,4Deleted | did -r sign 5 }
  if ($did = 14) { .splay zip.wav }
}

alias refresh { did -r sign 5 }

alias colorize {
  var %x 1
  :lp
  dll $mdx SetDialog $dname bgcolor $rgb(155,0,0)
  dll $mdx SetColor $dname %x background $rgb(155,0,0)
  dll $mdx SetColor $dname %x text $rgb(255,255,255)
  dll $mdx SetColor $dname %x textbg $rgb(155,0,0)
  inc %x
  if (%x == 100) { goto nd }
  else { goto lp }
  :nd
}

alias sign.an {
  var %i 0
  while (%i <= 191) {
    dialog -srb sign -1 -1 %i %i
    var %t 1
    while (%t <= 73) inc %t
    inc %i
  }
  .timer -m 1 1 sign.tbar | .splay mepart.wav
}

alias sign {
  if ($dialog(sign)) {
    dialog -c sign sign
    dialog -mado sign sign
  }
  else { dialog -mado sign sign }
}

alias sign.die {
  var %i 231
  while (%i >= 0) {
    dialog -srb sign -1 -1 %i %i
    var %t 1
    while (%t <= 73) inc %t
    dec %i
  }
  dialog -c sign
}

alias -l sign.tbar {
  var %i 0
  while (%i <= 24) {
    timer.tbar 1 0 dialog -t sign $left(Email Dialog,%i)
    var %t 1
    while (%t <= 400) inc %t
    inc %i
  }
}
Link to comment
Share on other sites

mmm, Well I did test the code out (Without MDX), and it seemed to add a variable called %password <my password>

 

However your code has many issues with here is a copy of some edits I've made, to remove some of the errors :)

 

;------------------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------
;------------[ Email Dialog ]--------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------


alias signin dialog -m sign sign 
alias csign { dll $rebar UnDock center | dialog -x sign sign }
alias rebar { return dll/rebar.dll }
dialog sign {
  title "Pass Word Dialog [ /signin ]"
  size -1 -1 191 73
  option dbu
  icon photos\icon.ico, 0
  edit "", 1, 37 15 78 10, return autohs
  text Email:, 2, 9 16 25 8, center
  edit "", 3, 37 29 78 10, pass return
  button "Add", 4, 116 15 19 10, flat
  button "Delete", 5, 116 29 19 10, flat
  text Password:, 6, 9 30 28 8, center
  edit "", 7, 37 43 96 10, read return
  text Nick:, 8, 9 45 25 8, center
  box , 12, 5 10 182 47
  box , 13, 5 10 134 47
  button "Ok / Cancel", 14, 70 59 37 9, ok cancel
  text "By &Aimz ©2010", 11, 124 62 65 8, center
  edit "Pass Word Dialog [/PASSW]", 15, 50 4 80 10, center
  box "", 16, 2 0 188 71
  icon 9, -38 -65 291 274,  images\back.jpg, 0, noborder
  icon 10, 141 17 43 37,  images\middle.jpg, 0, noborder
  icon 17, 2 74 187 126, Images\small.jpg, 0, noborder
}

on *:dialog:sign:init:*: {
  .timer -m 1 1 sign.an

  did -ra $dname 3 %password
  did -ra $dname 1 %email
  did -ra $dname 7 $buzz.decode($me)

  .splay mepart.wav | .timer.p 1 1 splay password.wav

  dll $rebar Dock $dialog($dname).hwnd > center
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetFont $dname
  dll $mdx SetColor $dname
  dll dll\mdx.dll SetBorderStyle 1,3,2,6,8,2,6,7,8  14 50 Georgia Bold
  dll dll\mdx.dll SetColor $dname 1,3,2,6,8,2,6,7,8 text $rgb(%list1colour,%list2colour,%list3colour)
  dll $mdx SetFont $dname 1,3,2,6,8,2,6,7,8 40 Georgia Bold
  mdx SetFont 1,3,2,6,8,2,6,7,8 +a 12 100 Verdana
  colorize 
}

on *:dialog:sign:sclick:*:{
  if ($did = 4) { $iif($did(1), set %email $did(1)) | $iif($did(3), set %password $md5($did(3))) | .splay Data.wav | .echo $active 0,4Email & Password 0,12Added }
  if ($did = 5) { .unset %email | .unset %password | .echo $active 0,12Email & Password 0,4Deleted | did -r sign 5 }
  if ($did = 14) { .splay zip.wav }
}

alias refresh { did -r sign 5 }

alias colorize {
  var %x 1
  :lp
  dll $mdx SetDialog $dname bgcolor $rgb(155,0,0)
  dll $mdx SetColor $dname %x background $rgb(155,0,0)
  dll $mdx SetColor $dname %x text $rgb(255,255,255)
  dll $mdx SetColor $dname %x textbg $rgb(155,0,0)
  inc %x
  if (%x == 100) { goto nd }
  else { goto lp }
  :nd
}

alias sign.an {
  var %i 0
  while (%i <= 191) {
    dialog -srb sign -1 -1 %i %i
    var %t 1
    while (%t <= 73) inc %t
    inc %i
  }
  .timer -m 1 1 sign.tbar | .splay mepart.wav
}

alias sign {
  if ($dialog(sign)) {
    dialog -c sign sign
    dialog -mado sign sign
  }
  else { dialog -mado sign sign }
}

alias sign.die {
  var %i 231
  while (%i >= 0) {
    dialog -srb sign -1 -1 %i %i
    var %t 1
    while (%t <= 73) inc %t
    dec %i
  }
  dialog -c sign
}

alias -l sign.tbar {
  var %i 0
  while (%i <= 24) {
    timer.tbar 1 0 dialog -t sign $left(Email Dialog,%i)
    var %t 1
    while (%t <= 400) inc %t
    inc %i
  }
}

Okay, I haven't tested this new edit version :) But I'll explain some of the fixes I performed..

 

To my knowledge the /loadbuf command needs a filename specified to allow it to function... the .loadbuf command.. had not been specified a filename to perform correctly, so you would of experienced some "/loadbuf" error..

There were also 2 if ($did = 4) events, Pointless in my eyes... So I removed it to 1...

You had a miss match with your brackets... you had 2 dialog sign{ } commands..

You had 2 alias's which performed the same command.. stick to 1 for every function :)

Example: alias sign { dialog -m sign sign } and signin {dialog -m sign sign }

 

 

But, apart from that try it :) See what works etc.. :) As I mentioned at the start, I tested your original code by removing the icons and MDX.. and it worked :)

However my edits are based on just knowledge, and you could be experiencing these problems down the track :)

 

Unlikely, but your problem may also be not evalutating the $did(3) in the $md5() identifier, but this shouldnt be the case because I tested it without adding $eval() or [ ] brackets to evaluate it before hand :)

 

Hope this helps :)

 

Kind Regards,

Daniel

Link to comment
Share on other sites

Guest Travis

dialog sign {

alias sign { dialog -m sign sign }

alias csign { dll $rebar UnDock center | dialog -x sign sign }

alias rebar { return dll/rebar.dll }

dialog sign {

title "Pass Word Dialog [ /signin ]"

size -1 -1 191 73

 

 

This probably isn't helping.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...