LiveCode Forums.

Code: Select all

on closeCard
local vColor
put the foregroundColor of btn id 1100 into vColor
set the cChange[cColor] of this card to vColor
end closeCard

on preOpenCard
set the foregroundColor of btn id 1100 to cChange[cColor]
end preOpenCard

Code: Select all

## Local vars need to be declraed OUSIDE of any handler!
local vColor

on closeCard
   put the foregroundColor of btn id 1100 into vColor
end closeCard

on preOpenCard
   set the foregroundColor of btn id 1100 to cCvColor
end preOpenCard

Code: Select all

on closeCard
  put the foregroundColor of btn id 1100 into vColor

  ## NAMES of keys should go in QUOTES!
  set the cChange["cColor"] of this card to vColor
end closeCard

on preOpenCard

  ## Dont forget the identifier "of this card"
  set the foregroundColor of btn id 1100 to THE cChange["cColor"] OF THIS CD

  ## ... to cChange["cColor"] -> results in an empty variable = 0 = BLACK = 0,0,0 :-)
end preOpenCard

Code: Select all

local tCurrentData
on preOpenCard
   repeat with x=1 to the number of buttons on this card---This is not right either...
      
   end repeat
   
   set the default foler to specialFolderPath("documents")
   put url "file:myData.txt" into tCurrentData
   repeat for each line tLine in tCurrentData
      set the foregroundColor of btn id 1006, btn id 1010, btn id 1014 to tLine --This is not right, but I cannot seem to think of a way to do this....
   end repeat
end preOpenCard

Code: Select all

local vColor
on preOpenCard
   set the defaultFolder to specialFolerPath("documents")
put URL ("file:myFile.txt") into vColor
set the foregroundColor of fld id 1006 group id 1003 to line 1 of vColor
set the foregroundColor of fld id 1010 group id 1007 to line 2 of vColor
set the foregroundColor of fld id 1014 group id 1011 to line 3 of vColor
end preOpenCard

on CloseCard
set the defaultFolder to specialFolerPath("documents")
put the foregroundColor of fld id 1006 group id 1003 into line 1 of URL ("file:myFile.txt")
put the foregroundColor of fld id 1010 group id 1007 into line 2 of URL ("file:myFile.txt")
put the foregroundColor of fld id 1014 group id 1011 into line 3 of URL ("file:myFile.txt")
end CloseCar

Code: Select all

on preOpenCard
   set the defaultFolder to specialFolderPath("documents")
#If statement to check if the myFile.txt file is empty first
   if URL ("file:myFile.txt") is empty
   then
      else
set the foregroundColor of fld id 1006 group id 1003 to line 1 of URL ("file:myFile.txt")
set the foregroundColor of fld id 1010 group id 1007 to line 2 of URL ("file:myFile.txt")
set the foregroundColor of fld id 1014 group id 1011 to line 3 of URL ("file:myFile.txt")
end if
end preOpenCard

on CloseCard
set the defaultFolder to specialFolderPath("documents")
put the foregroundColor of fld id 1006 group id 1003 into line 1 of URL ("file:myFile.txt")
put the foregroundColor of fld id 1010 group id 1007 into line 2 of URL ("file:myFile.txt")
put the foregroundColor of fld id 1014 group id 1011 into line 3 of URL ("file:myFile.txt")


end CloseCard

Code: Select all

on openCard
put 0 into tNum
set the defaultFolder to specialFolderPath("documents")
put url("file:myFile.txt") into tFile
if tFile = ""  then exit openCard
repeat for each line tLine in tFile
add 1 to tNum
set the foregroundColor of fld tNum to tLine
end repeat
end openCard

on closeCard
set the defaultFolder to specialFolderPath("documents")
repeat N = 1 to the number of fields of this cd
put the foregroundColor of fld N into line N of tFile
end repeat
put tFile into url ("file:myFile.txt")
end closeCard

Code: Select all

on closeCard
set the defaultFolder to specialFolderPath("documents")
repeat N = 1 to the number of fields of this cd
put the foregroundColor of fld N into line N of tFile
end repeat
put tFile into url ("file:myFile.txt")
end closeCard