LiveCode Forums.

Code: Select all

global gTheChosenColor
on mouseUp pBtnNum
    if pBtnNum is 1 then
        answer color with the effective backgroundcolor of me
        if the result is not "cancel" then
            put it into gTheChosenColor
            set the backgroundcolor of me to gTheChosenColor
        end if
     end if
     set the textColor of fld "fSample" to gTheChosenColor
end mouseUp

Code: Select all

global gTextColor, gBackColor
on mouseUp
   put the effective rect of img  "palette" of me into tPalette
   if the mouseH > item 1 of tPalette and the mouseH < item 3 of tPalette \ 
         and the mouseV > item 2 of tPalette and the mouseV < item 4 of tPalette then
      if the hilite of btn "font" of me then
         put the mouseColor into gTextColor
         set the textColor of fld "fSample" to gTextColor
      else if the hilite of btn "bckgr" of me then
         put the mouseColor into gBackColor
         set the backColor of fld "fSample" to gBackColor
      end if
   end if
   changeColor
end mouseUp

on changeColor
   set the itemDel to comma
   repeat with i = 1 to the number of cards of this stack
      if the mark of card i is true then
         put the name of cd i & comma after tMarkedCards
         if the hilite of btn "bckgr" of me then set the backColor of cd i to gBackColor
      end if
   end repeat
   
   repeat for each item tCard in tMarkedCards
      repeat with j = 1 to the number of flds of tCard
         if the hilite of btn "font" of me then
            if the short name of fld j of tCard contains "f" then set the textColor of fld j of tCard to gTextColor
         end if
      end repeat
   end repeat
end changeColor