Jump to content
uniGUI Discussion Forums

sysjames

uniGUI Subscriber
  • Content Count

    28
  • Joined

  • Last visited

  • Days Won

    1

sysjames last won the day on July 6 2017

sysjames had the most liked content!

Community Reputation

5 Neutral

About sysjames

  • Rank
    Newbie

Profile Information

  • Gender
    Male
  • Location
    Texas

Recent Profile Visitors

257 profile views
  1. sysjames

    Spell Check

    I didn't know about htat. Thank you again.
  2. sysjames

    Spell Check

    Well, I guess it is a non-issue. Thank you very much for letting me know that the browser handles it.
  3. sysjames

    Spell Check

    I am testing using chrome, but the app would have to work with any browser (within reason). How would this work with even the chrome browser. I test a number of memo (on the FMsoft example site) and none of them exhibited a spell check behaviour. But this screen does. Whatever this text box is doing, I need to happen in my app.
  4. sysjames

    Spell Check

    What would be the best way to implement a spell check feature in one of the memo components? Has anyone done this?
  5. sysjames

    TUniDateTimePicker Won't display date in a TUniFrame

    Sorry for the false lead. It was in some other portion of my code. When you stop trying to follow a false assumption, often the real cause becomes obvious. Thank you to the other forum members who replied, leading me away from my false cause.
  6. sysjames

    TUniDateTimePicker Won't display date in a TUniFrame

    In trying to construct a test case, I am unable to make it fail. I apologize for stating the problem incorrectly. There has to be something else in my code that is doing it. I'll let you know what I find out.
  7. I'm trying to use TUniDateTimePicker located on a TUniFrame, but it will not show a date. It sets the date time, but will not display it. I tried the same control on my main form and it works great. Any help?
  8. sysjames

    Still having problems with login form

    EnableAsynchronousOperations was set to false. I don't know how I managed to unset it. That fixed the problem. Thanks to all for your help.
  9. sysjames

    Still having problems with login form

    I'm sorry. I'm not sophisticated enough to understand your post. I'm not using a SQL Database, but rather Amazon S3 for object storage. I do thank you for your reply, however.
  10. I am still having problems with my login form that I hope someone can help me with. The relevant code in the login form follows. The problem is that it will not present the error message at all, but just loops and finally exits without presenting an error message. I hope someone can give me a clue as to why it is behaving this way. Procedure TUniLoginForm1.LoginBtnClick(Sender: TObject); Var Acct: TAccount; Begin Acct := TAccount.Create; Try ModalResult := mrNone; While ModalResult = mrNone Do If LoadAccount(EmailEntry.Text, PassEntry.Text, Acct) Then Begin UniMainModule.SetAcct(Acct.SerialClass); ModalResult := mrOK End Else Begin MessageDlg('Password or Email is in error',mtWarning,[mbOK]); <<<<<<<Does not present this message dialog Inc(ErrorCount); If ErrorCount > 3 Then ModalResult := mrCancel; End; Finally Acct.Free; End; End; The LoadAccount that is called is: Function LoadAccount(Const Email, Pass: String; Var acct: TAccount): Boolean; Var MS: TMemoryStream; Begin MS := TMemoryStream.Create; Result := True; Try Try DoGetObject('acct.' + StringToHex(LowerCase(Email)), MS); acct.SerialClass := MS; Except Result := False; End; If (acct.Pass <> Pass) And (acct.AltPass <> Pass) Then Result := False; Finally MS.Free; End; End;
  11. I want to use FastSpring as my payment service in my web app. What is the best way to do this? I am selling a yearly subscription. All help is appreciated.
  12. sysjames

    AWS Elastic Beanstalk

    Can UniGui applications be deployed in the AWS Elastic Beanstalk service?
  13. sysjames

    How to present error message in login screen

    Thank you so much! The sample has really been helpful. Thanks again!
  14. sysjames

    How to present error message in login screen

    Thank you for your reply. However, my problem remains. In the code shown below, I still get to the MessageDlg line and the main program is invoked (which causes a problem, since the account object is used in the creation of the main form), the message isn't presented until the main form is created. Procedure TUniLoginForm1.LoginBtnClick(Sender: TObject); Begin ModalResult := mrNone; If AccountExtant(EmailEntry.Text, PassEntry.Text) Then Begin UniMainModule.Account := LoadAccount(EmailEntry.Text, PassEntry.Text); ModalResult := mrOK; Close; End Else messagedlg('The account or the password is in error', mtWarning, [mbOK]); End;
  15. sysjames

    How to present error message in login screen

    This was my last attempt: I had a panel called "MessageArea" with a label called "MessageText". I was putting the message text into MessageText and making MessageArea visible (It was not visible at the start). The trouble with this approach was that nothing stopped the loop (as a real dialog would). I also tried MessageDlg and even UniSF's SweetAlert, None of which worked (they did not display). (I am about to conclude that I should bypass the login screen altogether, main my own (Main) and use secondary created screens as to process the application. My current code follows: Procedure TUniLoginForm1.CancelBtnClick(Sender: TObject); Begin ModalResult := mrCancel; Close End; Procedure TUniLoginForm1.CreateBtnClick(Sender: TObject); Var CreateOK: Boolean; Begin CreateOK := False; While Not CreateOK Do Begin If (Email.Text <> '') And (Password.Text <> '') And (FName.Text <> '') And (LName.Text <> '') Then Begin Try UniMainModule.Account := CreateAccount(Email.Text, Password.Text, FName.Text, LName.Text, 0); ModalResult := mrOK; Close; Except On E: PlErrAcctAExist Do Begin MessageText.Text := 'That account already exists'; MessageArea.Visible := True; End; End; End; End; End; Procedure TUniLoginForm1.LoginBtnClick(Sender: TObject); Var LoginOK: Boolean; Begin LoginOK := False; While Not LoginOK Do Begin Try UniMainModule.Account := LoadAccount(EmailEntry.Text, PassEntry.Text); LoginOK := True; Except On E: PlErrAcctNF Do LoginOK := False; On E: PlErrBadPass Do LoginOK := False; End; If LoginOK Then Begin ModalResult := mrOK; Close; End Else Begin MessageText.Text := 'The account or the password is in error'; MessageArea.Visible := True; End; End; End; Procedure TUniLoginForm1.MessageCancelBtnClick(Sender: TObject); Begin ModalResult := mrCancel; Close; End; Procedure TUniLoginForm1.TryAgainBtnClick(Sender: TObject); Begin MessageArea.Visible := False End;
×