"Tab control" GetColor?

[DCCD]

Hi, Is this the right way?

#include <GUIConstants.au3>
;
$hGui         = GUICreate("My GUI Tab", 600, 500, 193, 115 )

GUISetBkColor (0xE0FFFF)
$tab          = GUICtrlCreateTab (-1,-1, 604,504)
$tab0         = GUICtrlCreateTabitem ("If")
$tab1         = GUICtrlCreateTabitem ("@error")
$tab2         = GUICtrlCreateTabitem ("Then")
$tab3         = GUICtrlCreateTabitem ("Exit")
GUICtrlCreateTabitem ("")   ; end tabitem definition
;
GUISetState ()
_GetColor($hGui, $tab)
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Func _GetColor($hWnd, $hSysTab32) 
    $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
    ;
    ;$X = $aTabPos[0]
    ;$Y = $aTabPos[1]
    $W = $aTabPos[2]
    $H = $aTabPos[3]
    $var = PixelGetColor( $w , $h)
    TrayTip("GUICtrlCreateTab Stats...", "SIZE: " & $w &"," & $h &@CR&"HexColor = 0x"&Hex($var, 6), 10, 1)
    MsgBox(0,"The hex color is", "0x"&Hex($var, 6))
EndFunc

Edited May 3, 2009 by DCCD

[DCCD]

Hello . . . Is Anyone There?

[Melba23]

DCCD,

Please do not bump your own post within 24 hours. Remember this is not a 24/7 support forum - those who answer are only here because they like helping others and have some time to spare. You just have to wait until someone who knows something about your particular problem, and is willing to help, comes online. Be patient and someone will answer eventually. Or if not - tough! ;-)

This code will get the size and colour of a tab:

#Include <GuiTab.au3>

Opt('PixelCoordMode', 2)

$hGUI = GUICreate('Test', 380, 400)
$hTab = GUICtrlCreateTab(10, 10, 360, 380)
$hTab0 = GUICtrlCreateTabItem('Tab')
GUISetState()

$aTab_Size = _GUICtrlTab_GetDisplayRect(GUICtrlGetHandle($hTab))
$iTab_Colour = '0x' & StringRight(Hex(PixelGetColor(0, 0, $hTab)), 6)

MsgBox(0, '', 'Tab size:   ' & $aTab_Size[2] - $aTab_Size[0] & ' x ' & $aTab_Size[3] - $aTab_Size[1] & @CRLF & @CRLF& _
              'Tab colour: ' & $iTab_Colour)

Who can say whether it or your effort is more "right"? The most important criterion is that it works!

M23

[Yashied]

Hi, Is this the right way?

expandcollapse popup

#include <GUIConstants.au3>
;
$hGui         = GUICreate("My GUI Tab", 600, 500, 193, 115 )

GUISetBkColor (0xE0FFFF)
$tab          = GUICtrlCreateTab (-1,-1, 604,504)
$tab0         = GUICtrlCreateTabitem ("If")
$tab1         = GUICtrlCreateTabitem ("@error")
$tab2         = GUICtrlCreateTabitem ("Then")
$tab3         = GUICtrlCreateTabitem ("Exit")
GUICtrlCreateTabitem ("")   ; end tabitem definition
;
GUISetState ()
_GetColor($hGui, $tab)
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Func _GetColor($hWnd, $hSysTab32) 
    $aTabPos = ControlGetPos($hWnd, "", $hSysTab32)
    ;
    ;$X = $aTabPos[0]
    ;$Y = $aTabPos[1]
    $W = $aTabPos[2]
    $H = $aTabPos[3]
    $var = PixelGetColor( $w , $h)
    TrayTip("GUICtrlCreateTab Stats...", "SIZE: " & $w &"," & $h &@CR&"HexColor = 0x"&Hex($var, 6), 10, 1)
    MsgBox(0,"The hex color is", "0x"&Hex($var, 6))
EndFuncoÝ÷ Ûú®¢×¡K~e£ºÚ"µÍÚ[ÛYH  ÑÕRPÛÛÝ[Ë]LÉÝÂÚ[ÛYH  ÑÕRPÛÛÝ[Ë]LÉÝÂÜ
    ÌÎNÔ^[ÛÛÜ[ÙIÌÎNËBÌÍÚÝZHHÕRPÜX]J ][ÝÓ^HÕRHX][ÝË

LNLËLMH
BÕRTÙ]ÐÛÛÜ
LBÌÍÝXHÕRPÝÜX]UX



L
BÌÍÝXHÕRPÝÜX]UX][H
    ][ÝÒY][ÝÊBÌÍÝXHHÕRPÝÜX]UX][H
    ][ÝÐÜ][ÝÊBÌÍÝXHÕRPÝÜX]UX][H
    ][ÝÕ[][ÝÊBÌÍÝXÈHÕRPÝÜX]UX][H
    ][ÝÑ^]    ][ÝÊBÕRPÝÜX]UX][H
    ][ÝÉ][ÝÊBÕRTÙ]Ý]H

BÌÍÐÛÛXH^[Ù]ÛÛÜ
K   ÌÍÝXBÛÛÛÛUÜ]J   ÌÎNÌ ÌÎNÈ [È^
    ÌÍÐÛÛX
JBÚ[HB ÌÍÛÙÈHÕRQÙ]ÙÊ
BY  ÌÍÛÙÈH ÌÍÑÕRWÑUSÐÓÔÑH[^]ÛÜÙ[

[Yashied]

See this.

[DCCD]

I'm sorry to tell you "Melba23, Yashied", but this just won't work

===========================================================

Melba23

\TabGetColor2.au3 (11) : ==> Incorrect number of parameters in function call.:

===========================================================

$iTab_Colour = '0x' & StringRight(Hex(PixelGetColor(0, 0, $hTab)), 6)

$iTab_Colour = '0x' & StringRight(Hex(^ ERROR

===========================================================

###########################################################

===========================================================

Yashied

\TabGetColor3.au3 (11) : ==> Incorrect number of parameters in function call.:

===========================================================

$ColTab = PixelGetColor(5, 20, $tab)

$ColTab = ^ ERROR

===========================================================

And I Am still interested..

[Yashied]

http://www.autoitscript.com/autoit3/docs/functions/PixelGetColor.htm

[DCCD]

Upgrade to the latest version Of AutoIt ✔

Now it works....

PixelGetColor ( x , y [, hwnd] )

Thanks everyone!