Re: Preferences on PC - AND

Robert Poland Sat, 30 Sep 2006 17:10:10 -0700


On Sep 30, 2006, at 2:41 PM, Arnaud Nicolet wrote:

Le 30 sept. 06 à 18:59 Soir, Robert Poland a écrit:

On Sep 30, 2006, at 10:31 AM, Terry Ford wrote:

On Sep 30, 2006, at 9:05 AM, Robert Poland wrote:

Hi,

This works on a Mac but not on a PC;

    Dim tOS As TextOutputStream

    tOS= fWinPrefs.CreateTextFile
    tOS.WriteLine Window2.EditField2.Text
    tOS.WriteLine Window2.EditField3.Text
    tOS.WriteLine Window2.EditField4.Text
    tOS.WriteLine Window2.EditField5.Text
    tOS.WriteLine Window2.EditField6.Text
    tOS.Close

Any clues on where to find an example?

I can't see why it would work in any platform without declaringwhat ( I assume is a FolderItem) fWinPrefs refers to.


Something like:

Dim fWinPrefs As Folderitem (or make it a property)

fWinPrefs= Preferences.Child("MyPrefs")

would work.

Example in the mail

Terry


fWinPrefs is declared as a "Property As FolderItem?

AND in App/Open

    fPrefs=PreferencesFolder.Child("Time Sheet Prefs")

If PreferencesFolder.Child("Time Sheet Prefs") does not exist, thenext line generates a nilObjectException:

    If fPrefs.Child("WinPrefs").Exists=False Then
      // "Time Sheet Prefs" does not exist.
      Window2.Visible=True
      TextWindow.FirstRun // Run as first time [no objects].
    Else
      // Setup folderitems for files existing.
      fWinPrefs=fPrefs.Child("WinPrefs")

      // Read the data and window settings
      ReadWinPrefs
    End If


Could it be your problem?

Changed name from "Time Sheet Prefs" to "TimeSheetPrefs" and droppedthe use of a preferences folder. Seems to be fixed now.


Thanks,

Robert Poland
[EMAIL PROTECTED]



_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Re: Preferences on PC - AND

Reply via email to