Huston, we've got a problem...

[layer]

if you have checked in the scripts and scraps section, you will see im making a PixelShop program... and im doing some testing, but i came across that my loop, is not polling to see if mouse1 was pressed... maybe you could please check it out and see what the problem is? thanks a millioN!!

expandcollapse popup

#include <GUIConstants.au3>
#include <Color.au3>
Func GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth = 255, $nHeight = 20); this function from Lazycat, all credit goes to him!! :)
   Local $color1R = _ColorGetRed($nStartColor)
   Local $color1G = _ColorGetGreen($nStartColor)
   Local $color1B = _ColorGetBlue($nStartColor)
   
   Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nWidth
   Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nWidth
   Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nWidth
   
   For $i = 0 To $nWidth - $nX
      $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R + $nStepR * $i, $color1G + $nStepG * $i, $color1B + $nStepB * $i)
      GUICtrlCreateLabel("", $nX + $i, $nY, 1, $nY + $nHeight)
      GUICtrlSetBkColor(-1, $sColor)
   Next
EndFunc  ;==>GUICtrlCreateGradient
Func ChooseGradientDialog($GradTitle)
   GUICreate($GradTitle, 300, 500)
   GUICtrlCreateGradient(0x0000FF, 0xFF0000, 10, 5, 255, 50)
   GUICtrlCreateGradient(0x000000, 0xFFFFFF, 10, 50, 255)
   GUICtrlCreateGradient(0x00FF00, 0xFFFF00, 10, 105, 255, 10)
   GUICtrlCreateGradient(0x0000FF, 0x00FF48, 10, 160)
   GUICtrlCreateLabel("", 10, 220, 255, 120)
   GUICtrlCreateLabel("Current color: ", 10, 400)
   $curcol = GUICtrlCreateLabel("", 100, 400, 50, 50)
   $Ok = GUICtrlCreateButton("Ok", 10, 475)
   $Cancel = GUICtrlCreateButton("Cancel", 50, 475)
   GUISetState(@SW_SHOW, $GradTitle)
   While 1
      $cur = GUIGetCursorInfo(WinGetHandle($GradTitle))
      $get = GUIGetMsg(1)
      If $get[0] = -3 Then
        ;GUISetState(@SW_HIDE, $GradTitle) testing..
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
      EndIf
      If $get[0] = $Cancel Then
        ;GUISetState(@SW_HIDE, $GradTitle) testing...
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
         If $cur[2] = 1 Then Track()
      EndIf
   WEnd
EndFunc  ;==>ChooseGradientDialog

Func Track()
   Do
      $pos = MouseGetPos()
      $col = PixelGetColor($pos[0], $pos[1])
      GUICtrlSetBkColor($curcol, $col)
   Until $cur[2] = 0
EndFunc  ;==>Track
ChooseGradientDialog("Test...")

PS: i know larry has a Dll that has ChooseColorDialog, but personally, i like using my work only on projects, unless, its a real nesecity...

thanks

[layer]

you know you want to ...

[Tys]

...
      If $get[0] = $Cancel Then
       ;GUISetState(@SW_HIDE, $GradTitle) testing...
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
         If $cur[2] = 1 Then Track()
      EndIf
...

...

...
      If $get[0] = $Cancel Then
       ;GUISetState(@SW_HIDE, $GradTitle) testing...
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
      EndIf
      If $cur[2] = 1 Then Track()
...

See?

[layer]

omg... i feel like such a noob :"> thanks...

[Neoborn]

Don't worry you're in good company

[RazerM]

here it now works, but gets caught in a loop, i dont know what your trying to do with it so i left it

expandcollapse popup

#include <GUIConstants.au3>
#include <Color.au3>
Func GUICtrlCreateGradient($nStartColor, $nEndColor, $nX, $nY, $nWidth = 255, $nHeight = 20); this function from Lazycat, all credit goes to him!! :)
   Local $color1R = _ColorGetRed($nStartColor)
   Local $color1G = _ColorGetGreen($nStartColor)
   Local $color1B = _ColorGetBlue($nStartColor)
   
   Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $nWidth
   Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $nWidth
   Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $nWidth
   
   For $i = 0 To $nWidth - $nX
      $sColor = "0x" & StringFormat("%02X%02X%02X", $color1R + $nStepR * $i, $color1G + $nStepG * $i, $color1B + $nStepB * $i)
      GUICtrlCreateLabel("", $nX + $i, $nY, 1, $nY + $nHeight)
      GUICtrlSetBkColor(-1, $sColor)
   Next
EndFunc;==>GUICtrlCreateGradient
Func ChooseGradientDialog($GradTitle)
   GUICreate($GradTitle, 300, 500)
   GUICtrlCreateGradient(0x0000FF, 0xFF0000, 10, 5, 255, 50)
   GUICtrlCreateGradient(0x000000, 0xFFFFFF, 10, 50, 255)
   GUICtrlCreateGradient(0x00FF00, 0xFFFF00, 10, 105, 255, 10)
   GUICtrlCreateGradient(0x0000FF, 0x00FF48, 10, 160)
   GUICtrlCreateLabel("", 10, 220, 255, 120)
   GUICtrlCreateLabel("Current color: ", 10, 400)
   $curcol = GUICtrlCreateLabel("", 100, 400, 50, 50)
   $Ok = GUICtrlCreateButton("Ok", 10, 475)
   $Cancel = GUICtrlCreateButton("Cancel", 50, 475)
   GUISetState(@SW_SHOW, $GradTitle)
   While 1
      $cur = GUIGetCursorInfo(WinGetHandle($GradTitle))
      $get = GUIGetMsg(1)
      If $get[0] = -3 Then;$GUI_EVENT_CLOSE
      ;GUISetState(@SW_HIDE, $GradTitle) testing..
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
      EndIf
      If $get[0] = $Cancel Then
      ;GUISetState(@SW_HIDE, $GradTitle) testing...
         MsgBox(0, "", "");really in original script no msgbox, just MainLoop()
         Exit
     EndIf
     If $cur[2] = 1 Then Track($curcol, $cur)
   WEnd
EndFunc;==>ChooseGradientDialog

Func Track(ByRef $curcol, ByRef $cur)
   Do
      $pos = MouseGetPos()
      $col = PixelGetColor($pos[0], $pos[1])
      GUICtrlSetBkColor($curcol, $col)
  Until $cur[2] = 0
EndFunc;==>Track
ChooseGradientDialog("Test...")

edit: i was beat to it, but mine has no not yet declared errors.

Edited May 13, 2006 by RazerM