Strange - can't expand combobox $c03 in this script

jlorenz1 · December 21, 2006

I deleted the combobox and created a new one - but still the same problems

I restarted the PC - but still the same problems

I can change the content of this combobox, but i can't highlight the content and

I can't expand the combobox by clicking the right arrow. Has anyone an idea? Thanks Johannes

#include <GUIConstants.au3>

Global $sMyPic =''
Global $sMyFol1 =''
Global $sMyFol2 =''

Global $aPic [101]
Global $fPic [101][2]
Global $cPic = ''
Global $aGn  = StringSplit('Die Urheberrechts-Schutzdauer des hier abgebildeten flächigen Kunstwerks ist weltweit abgelaufen, da der Künstler bereits seit über 70 Jahren tot ist. Es ist somit gemeinfrei (»public domain«) |Ich bin Inhaber bzw. Fotograf des hier abgebildeten flächigen Werkes und erlaube es unter der freien Lizenz (»public domain«) zu veröffentlichen. ' & @MDAY & '.' & @Mon & '.' & @Year, '|')
Global $aGni = 1

GUICreate('WikipediaAusfüller', 320, 555, @Desktopwidth - 325, @DesktopHeight - 590, -1,$WS_EX_TOPMOST)
$filemenu = GUICtrlCreateMenu ("&Datei")
$fileitem = GUICtrlCreateMenuitem ("Ö&ffnen",$filemenu)

$tab=GUICtrlCreateTab (10, 5, 300, 480)
$tab0=GUICtrlCreateTabitem ('Eingabe')
GUICtrlCreateLabel('Ordner mit den hochzuladenden Bildern',20,35,200,15)
$c01 = GUICtrlCreateCombo('', 20, 50,255, 60)
$b01 = GUICtrlCreateButton('', 280, 48, 24, 24, $BS_ICON)
        GUICtrlSetImage ($b01, @ScriptDir & '\wiki.dll', 7)
        GUICtrlSetTip($b01, 'Ordner mit den hochzuladenden Bildern auswählen')     
$pic = GUICtrlCreatePic ( '', 212, 75 , 90, 90, -1, $SS_WHITEFRAME )
        GUICtrlSetImage (-1, @ScriptDir & '\wiki2.jpg')
        GUICtrlSetTip(-1, 'Ordner mit den hochzuladenden Bildern auswählen')
$c02 = GUICtrlCreateLabel('Bild in Bearbeitung', 20, 75, 190, 80)
;*********************************************************************
; I CAN CHANGE THE CONTENT OF THIS COMBOBOX, BUT I CAN'T HIGHLIGHT THE
; CONTENT OR EXPAND THE COMBOBOX BY CLICKLING THE ARROW AT THE RIGHT SIDE
; Try it first with a new combobox. I've gotten the same results.strange
$c03 = GUICtrlCreateCombo('wewretgwtwstwtetwew', 20, 90, 190, 80)


;*****************************************************************
$c04 = GUICtrlCreateLabel('Maße', 20, 118, 27, 15)
$c05 = GUICtrlCreateInput (' ', 50, 115, 80, 20, $ES_READONLY)
        GUICtrlCreateLabel('%', 135, 118, 10, 20)
$prg = GUICtrlCreateProgress (145,115,64,20,$PBS_SMOOTH)
$c06 = GUICtrlCreateLabel ('Status Textbausteine', 20, 145, 100, 20)
$b03 = GUICtrlCreateButton ('', 150,140,25,25, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 3)
        GUICtrlSetTip(-1, 'Bildpfad in den Zwischenspeicher')   
$b04 = GUICtrlCreateButton ('', 184,140,25,25, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 2)
        GUICtrlSetTip(-1, 'Bildangaben in den Zwischenspeicher')    

GUICtrlCreateGroup ( "Angaben zum Bild", 15, 170, 290, 310)
       GUICtrlCreateLabel ('Beschreibung', 22, 185, 100, 15)
$eBs = GUICtrlCreateEdit ('', 22, 200, 275, 30, $ES_MULTILINE)
       GUICtrlCreateLabel ('Urheber', 22, 230, 100, 15)
$eUh = GUICtrlCreateEdit ('', 22, 245, 275, 30, $ES_MULTILINE)
       GUICtrlCreateLabel ('Anmerkungen', 22, 275, 100, 15)
$eAm = GUICtrlCreateEdit ('', 22, 290, 275, 30, $ES_MULTILINE)
       GUICtrlCreateLabel ('Quelle', 22, 320, 100, 15)
$eQl = GUICtrlCreateEdit ('', 22, 335, 275, 30, $ES_MULTILINE)
       GUICtrlCreateLabel ('Seite/n', 180, 320, 35, 15)
$eSt = GUICtrlCreateInput ('', 217, 320, 80, 15)
       GUICtrlCreateLabel ('Genehmigung', 22, 365, 100, 15)
$b05 = GUICtrlCreateButton ('', 280, 365, 16, 16, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 8, 0)
        GUICtrlSetTip(-1, 'Andere Genehmigungsart laden')          
$eGn = GUICtrlCreateEdit ('', 22, 380, 275, 60, $ES_MULTILINE)
       GUICtrlCreateLabel ('Andere Versionen', 22, 440, 100, 15)
$eAV = GUICtrlCreateInput ('', 22, 455, 245, 20)
$b06 = GUICtrlCreateButton ('', 273, 452, 24, 24, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 4)
        GUICtrlSetTip(-1, 'Duplikate manuell finden')   
$tab1=GUICtrlCreateTabitem ('Einstellungen')
$tab1=GUICtrlCreateTabitem ('Ausfüllen')
GUICtrlCreateTabitem ('')

$b07 = GUICtrlCreateButton ('', 90, 490, 32, 32, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 0)
        GUICtrlSetTip(-1, 'Beenden')
$b08 = GUICtrlCreateButton ('', 129, 490, 32, 32, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 1)
        GUICtrlSetTip(-1, 'Textdatei mit den Bildangaben öffnen')
$b09 = GUICtrlCreateButton ('', 168, 490, 32, 32, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 9)
        GUICtrlSetTip(-1, 'Auf Standardeinstellungen zurücksetzen')        
$b10 = GUICtrlCreateButton ('', 240, 490, 32, 32, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 5)
        GUICtrlSetTip(-1, 'Bildangaben aufnehmen')  
$b11 = GUICtrlCreateButton ('', 279, 490, 32, 32, $BS_ICON)
        GUICtrlSetImage (-1, @ScriptDir & '\wiki.dll', 6)
        GUICtrlSetTip(-1, 'Nach Wikipedia übertragen')         
_Standard()
GUISetState ()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE;OR $b07
            Exit
        Case $msg = $c01
        Case $msg = $b01
        ;_FolderMyPic()
        Case $msg = $b05 
            $aGni = $aGni + 1
            If $aGni > $aGn[0] then $aGni = 1
            GUICtrlSetData($eGn,$aGn[$aGni])
        Case $msg = $b06
            _Doublette()
    EndSelect
Wend

Func _ComboWiz($sEntry)
    $sMyPic = $sEntry & '|' & $sMyPic
    GUICtrlSetData($c01,'','')
    GUICtrlSetData($c01,$sMyPic, $sEntry)
EndFunc 

Func _Doublette()
    $Dbl = FileOpenDialog ( 'Andere Versionen eines Bildes suchen', $sMyPic, 'Bilder (*.jpg;*.gif; *.png)', 3)
    If NOT @error Then
        $aDbl = StringSplit($Dbl,'\')
        $Dbl = $aDbl[$aDbl[0]]
        GUICtrlSetData($eAV, $Dbl)
    EndIf
EndFunc

Func _FolderMyPic() 
    $sWahl = FileSelectFolder ( 'Ordner der hochzuladenden Bilder', '' , 7 , $sMyPic )
    If NOT @error then _ComboWiz($sWahl)
    RunWait(@ComSpec & ' /c ' & 'dir "' & $sWahl & '\*.jpg";"' & $sWahl & '\*.gif";"' & $sWahl & '\*.png" /B > "' &  @ScriptDir & '\dir.tmp"','', @SW_HIDE)
    $h1 = FileOpen(@ScriptDir & '\dir.tmp',0)
    $iMax = 0
    For $i = 1 to 101
        $sZeile = FileReadLine($h1, $i)
        If @error = -1 Then ExitLoop
        $iMax = $iMax + 1
        $aPic[$i] = $sWahl & '\' & $sZeile
        $fPic[$i][0] = $sZeile
        $cPic = $cPic  & $sZeile & '|' 
    Next
    FileClose($h1)
    FileDelete(@ScriptDir &'\dir.tmp')
    $cPic = StringTrimRight($cPic, 1)   
    $fPic[0][0] = $iMax
    $aPic[0] = $iMax
    ReDim $aPic[$iMax + 1]
    GUICtrlSetImage ($pic, $aPic[1])
;GUICtrlSetData($c03,'','')
    Sleep(200)
    $y=GUICtrlSetData($c03, $cPic, $fPic[1][0])
    $aSize = _XGetImageSize($aPic[1])
    MsgBox(4160,'$cPic',$cPic & @CRLF & @CRLF & $y)
    GUICtrlSetData($c05,$aSize[0] & ' x ' & $aSize[1] & ' Px')  
;GUICtrlSetData ($prg,Round((100/$aPic[0])*1))
EndFunc

Func _Pic()
    For $i = 1 to $aPic[0]
        GuiCtrlCreateListViewItem($aPic[$i], $lvw)
    Next
EndFunc

Func _Standard()
    $sMyPic=RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','My Pictures')
    GUICtrlSetData($c01,$sMyPic,$sMyPic);$b05
    GUICtrlSetData($eGn,$aGn[1])

    
    
    
EndFunc

Func _XGUICtrlComboGetCurSel($h_combobox)
    If IsHWnd($h_combobox) Then
        Local $a_ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $h_combobox, "int", $CB_GETCURSEL, "int", 0, "int", 0)
        Return $a_ret[0]
    Else
        Return GUICtrlSendMsg($h_combobox, $CB_GETCURSEL, 0, 0)
    EndIf
EndFunc   

Func _XGetImageSize($file)
    Local $header = _XFileReadAtOffsetHEX($file, 1, 8); Get header bytes 
    Local $ident = StringSplit("FFD8 424D 89504E470D0A1A 4749463839 4749463837 4D4D 4949", " ")
    Local $size = ""
    For $ic = 1 To $ident[0]
        If StringInStr($header, $ident[$ic]) = 1 Then
            Select
                Case $ic = 1; JPEG
                    $size = _XGetJpegSize($file)
                    Exitloop
                Case $ic = 2; BMP
                    $size = _XGetSimpleSize($file, 19, 23, 0)
                    Exitloop
                Case $ic = 3; PNG
                    $size = _XGetSimpleSize($file, 19, 23, 1)
                    Exitloop
                Case ($ic = 4) or ($ic = 5); GIF
                    $size = _XGetSimpleSize($file, 7, 9, 0)
                    Exitloop
                Case ($ic = 6) or ($ic = 7); TIFF
                    $size = _XGetTIFFSize($file)
                    Exitloop
            EndSelect
        Endif
    Next
    if not IsArray ($size) Then SetError(1)
    Return($size)
EndFunc

;; Functions

Func _XGetSimpleSize($file, $xoff, $yoff, $ByteOrder)
    Local $size[2]
    $size[0] = _Dec(_XFileReadAtOffsetHEX($file, $xoff, 2), $ByteOrder)
    $size[1] = _Dec(_XFileReadAtOffsetHEX($file, $yoff, 2), $ByteOrder)
    Return ($size)
EndFunc

Func _XGetJpegSize($file)
Local $size[2]
Local $fs, $pos = 3

$fs = FileGetSize($file)

While $pos < $fs
    $data = _XFileReadAtOffsetHEX ($file, $pos, 4)
    if StringLeft($data, 2) = "FF" then; Valid segment start
        if StringInStr("C0 C2 CA C1 C3 C5 C6 C7 C9 CB CD CE CF", StringMid($data, 3, 2)) then; Segment with size data
           $seg = _XFileReadAtOffsetHEX ($file, $pos+5, 4)
           $size[1] = Dec(StringLeft($seg, 4))
           $size[0] = Dec(StringRight($seg, 4))
           Return($size)
        else
           $pos = $pos + Dec(StringRight($data, 4)) + 2
        endif
    else
        exitloop
    endif
Wend
Return("")
EndFunc

Func _XGetTIFFSize($file)
Local $pos = 3, $ByteOrder = 0, $size[2]

$id = _XFileReadAtOffsetHEX ($file, 1, 2)
If $id = "4D4D" then $ByteOrder = 1

$offset = _Dec(_XFileReadAtOffsetHEX($file, 5, 4), $ByteOrder) + 1
$fields = _Dec(_XFileReadAtOffsetHEX($file, $offset, 2), $ByteOrder)

For $ic = 0 To $fields-1
    $field = _XFileReadAtOffsetHEX($file, $offset + 2 + 12 * $ic, 12)
    $tag = StringLeft($field, 4)
    If $ByteOrder Then $tag = StringRight($tag, 2) & StringLeft($tag, 2)
    Select
        Case $tag = "0001"
            $size[0] = _XParseField($file, $field, $ByteOrder)
        Case $tag = "0101"
            $size[1] = _XParseField($file, $field, $ByteOrder)
    EndSelect
Next
If ($size[0] = 0) or ($size[1] = 0) Then Return("")
Return($size)
Endfunc

;; Parse TIFF fields

Func _XParseField($file, $tag, $ByteOrder)
    Local $type = _Dec(StringMid($tag, 5, 4), $ByteOrder)
    If $type < 5 Then Return (_Dec(StringRight($tag, 8), $ByteOrder))
    Local $count = _Dec(StringMid($tag, 9, 8), $ByteOrder)
    Local $offset = _Dec(StringRight($tag, 8), $ByteOrder)
    Local $tStr = _XFileReadAtOffsetHEX ($file, $offset, $count)
    Local $oStr = ""
    While StringLen($tStr) > 0
       $oStr = $oStr & Chr(Dec(StringLeft($tStr, 2)))
       $tStr = StringTrimLeft($tStr, 2)
    WEnd
    Return($oStr)
EndFunc

Func _XDec($input, $ByteOrder)
    If $ByteOrder then Return(Dec($input))
    Local $tStr = ""
    While StringLen($input) > 0
        $tStr = $tStr & StringRight($input, 2)
        $input = StringTrimRight($input, 2)
    WEnd
    Return (Dec($tStr))
EndFunc

Func _XFileReadAtOffsetHEX ($file, $offset, $bytes)
    Local $tfile = FileOpen($file, 0)
    Local $tstr = ""
    FileRead($tfile, $offset-1)
    For $i = $offset To $offset + $bytes - 1
        $tstr =  $tstr & Hex(Asc(FileRead($tfile, 1)), 2)
    Next
    FileClose($tfile)
    Return ($tstr)
Endfunc

Valuater · December 21, 2006

You have....

$c02 = GUICtrlCreateLabel('Bild in Bearbeitung', 20, 75, 190, 80)

Change it to....

$c02 = GUICtrlCreateLabel('Bild in Bearbeitung', 20, 75, 190, 20)

the label was "covering" the combo's area

8)

jlorenz1 · December 22, 2006

Oh, thankx.How stupid I can be? Johannes

Sign In

Strange - can't expand combobox $c03 in this script

Recommended Posts

jlorenz1

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

jlorenz1

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta