PureBasic Forums - English

Posted: **Wed Jan 24, 2007 10:32 pm**

Hey!!

I am using the following code but it says I can't write a string into a numerical value...

OpenPreferences("Projects/Language1.lng")
line=ReadPreferenceString("Translator", "")
SetGadgetText(6, line)
ClosePreferences()

What is actually wrong with it?!

Many Regards
Mindtrick :roll:

Posted: **Wed Jan 24, 2007 10:34 pm**

change line to line.s or line$

Posted: **Wed Jan 24, 2007 10:36 pm**

Thanks a lot

Question 2:

Is there anyway to read the whole preferences file and display it all?

Regards
Mindtrick

Posted: **Wed Jan 24, 2007 11:12 pm**

Code: Select all

Procedure DebugPreferences(File.s)
  Protected FileID.l = ReadFile(#PB_Any, File)
  
  If FileID
    
    While Not Eof(FileID)
      Debug ReadString(FileID)
    Wend
    
    CloseFile(FileID)
  EndIf
EndProcedure

DebugPreferences(#PB_Compiler_Home + "PureBasic.prefs")

Posted: **Wed Jan 24, 2007 11:25 pm**

Great!

How would I display it in an editor gadget?

Many Regards
Mindtrick

Posted: **Wed Jan 24, 2007 11:54 pm**

Change Debug ReadString(FileID) to: AddGadgetItem(#EDIT, #PB_Any, ReadString(FileID))
and please, show the examples and help

Posted: **Thu Jan 25, 2007 11:08 am**

This is the fastest way to display it in a EditorGadget:

Code: Select all

ReadFile(0, "c:\test.asm")
Memory = AllocateMemory(Lof(0)+2)
ReadData(0, Memory, Lof(0))
*S.String = @Memory
SetGadgetText(#EditorGadget, *S\s)
FreeMemory(Memory)

Posted: **Thu Jan 25, 2007 4:51 pm**

ts-soft wrote:Change Debug ReadString(FileID) to: AddGadgetItem(#EDIT, #PB_Any, ReadString(FileID))
and please, show the examples and help

Fantastic!

Thank you ever so much for being a great help

Finally.

I have the following code but how do I make it so when I click on a menu it does it aswell as the gadget?

Code: Select all

  Repeat
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget

      Select EventGadget()
      
        Case 5
          
          
        Case 20
        
        filename$ = SaveFileRequester("Save", "", "Language Pack Files|*.lng", 0)
         CreatePreferences(filename$+".lng")
          PreferenceGroup("Translation")
          WritePreferenceString("Translator", #Gadget_Author)
          WritePreferenceString("Language", #Gadget_Language)
          WritePreferenceString("E-Mail", #Gadget_EMail)
          WritePreferenceString("Date Created", #Gadget_Date)
          WritePreferenceString("Program Name", #Gadget_ProgramName)
          WritePreferenceString("Additional Information", #Gadget_AddInfo)
          PreferenceGroup("Menu")
          WritePreferenceString(#Gadget_Word1, #Gadget_Word2)
         ClosePreferences()
         
          
      EndSelect
   EndIf

  Until EventID = #PB_Event_CloseWindow

Cheers!
Mindtrick

PureBasic Forums - English

Variable Help!

Variable Help!