GUICtrlSetTip, nach anklicken kein Anzeige mehr

johny

Ich habe mit ein kleine Toolbar geschrieben, die auch wunderbar funzt, bis auf eine Kleinigkeit.

U. a. habe ich in dieser Toolbar mehrere Icons definiert und ein Infotext definiert, z.B.

Code

$bao = GUICtrlCreateIcon(@ScriptDir & "\icos\bao-16x16.ico", -1, 0, 3, 16, 16)
GUICtrlSetTip($bao, 'Burnatonce')

wenn ich jetzt mit der Maus drüberfahre, wird die Info auch angezeigt, wenn ich aber das Icon einmal angeklickt habe, wird die Info nicht mehr angezeigt

O.T. Wie fugt ihr diesen Tag Zeige in euren Posts ein?

**bernd670**

Hallo,

die Tags heissen [spoiler ] und [/spoiler ] (ohne Leerzeichen)!

Das mit dem ToolTip klappt bei mir auch wenn ich das Icon anklicke, das einzige was ich machen muss ist die Maus etwas bewegen nach dem anklicken!

johny

Du bist lustig, die Maus bewegt man ja automatisch, trotzdem funzt es nicht bei mir, da kann ich nachdem anklicken noch soviel rumzappeln mit der Maus.

Ich vermute mal das es ein BUG ist, trotzdem Danke für deine Mühen und für den Tag

Eddy_Erpel

Hallo,
ich habe es auch einmal ausprobiert und kann mich da nur der Aussage von Bernd anschliessen. Funktioniert tadellos, sowohl mit der 3.1.1.0 als auch mit der 3.1.1.127.

eddy_erpel

**peethebee**

Vielleicht liegt es an anderen Stellen in deinem Code...
Könntest du ihn vielleicht komplett posten?
Könnte sein, dass z.B. laufende Funktionen Aktualisierungen verhindern...

peethebee

johny

Ich hatte ihn noch nicht gepostet, weil er zu lang war und ich den einen Tag nicht kannte

Spoiler anzeigen

Code

#include<guiconstants.au3>
;-----------------------------------Spezielle Constants---------------------------------
; scroll constants
Global Const $SB_LINEDOWN = 1
Global Const $SB_LINEUP = 0
Global Const $SB_PAGEDOWN = 3
Global Const $SB_PAGEUP = 2
Global Const $SB_SCROLLCARET = 4
Global Const $EM_SCROLLCARET = 0x00B7
Global Const $EM_SCROLL = 0xB5
;-----------------------------------Spezielle Constants---------------------------------Ende---------------------
;Opt("TrayIconDebug", 1)
Opt("TrayIconHide", 1)
Dim $pos_2, $pos_3	
$fc = ControlGetHandle("freeCommander", "", "TfcCustomPanel15")
Opt("WinTitleMatchMode", 4)
GUICreate("OpenDir", 810, 110, -1, -1,  $WS_POPUPWINDOW + $WS_VISIBLE + $DS_SETFOREGROUND,$WS_EX_TOOLWINDOW, $fc)
;GUICreate("OpenDir", 450, 60, -1, -1,$WS_POPUPWINDOW,BitOr($WS_EX_TOOLWINDOW,$fc), $fc)
GUISetFont(8, 400, 1, "Courier New Bold")
AdlibEnable ( "FC_Start" , 250)
;--------------------------Menü------------------------
$extras = GUICtrlCreateMenu("DateiTools")
$extras_umb = GUICtrlCreateMenuitem("Multi-Umbenennen", $extras)
;grafik
$grafik = GUICtrlCreateMenu("Grafik")
$grafik_pf = GUICtrlCreateMenuitem("PhotoPhiltre", $grafik)
$grafik_futurix = GUICtrlCreateMenuitem("Futurix", $grafik)
$grafik_pe = GUICtrlCreateMenuitem("PhotoExplorer", $grafik)
$grafik_fpr = GUICtrlCreateMenuitem("FastStone Photo Resizer", $grafik)
;brennen
$brennen = GUICtrlCreateMenu("Brennen")
$brennen_eac = GUICtrlCreateMenuitem("ExactAudioCopy", $brennen)
$brennen_cdimage = GUICtrlCreateMenuitem("CDMage", $brennen)
$brennen_bootisogui = GUICtrlCreateMenuitem("BootIsoGui", $brennen)
$brennen_bao = GUICtrlCreateMenuitem("BAO", $brennen)
$brennen_baoboot = GUICtrlCreateMenuitem("BAO-Boot", $brennen)
$brennen_baoaudio = GUICtrlCreateMenuitem("BAO-Audio", $brennen)
$brennen_nero = GUICtrlCreateMenuitem("Nero", $brennen)
$brennen_nero_boot = GUICtrlCreateMenuitem("Nero Boot-DVD", $brennen)
$brennen_qemu = GUICtrlCreateMenuitem("Qemu", $brennen)


;office
$o_progs = GUICtrlCreateMenu("Office")
$o_progs_fr = GUICtrlCreateMenuitem("Finereader", $o_progs)
;tools
$tools = GUICtrlCreateMenu("Tools")
$tools_aida = GUICtrlCreateMenuitem("Aida", $tools)
$tools_auotstart = GUICtrlCreateMenuitem("AutoStart", $tools)
$tools_taskmgr = GUICtrlCreateMenuitem("Taskmanager", $tools)
$regshot = GUICtrlCreateMenuitem("RegShot", $tools)
$tools_serconf = GUICtrlCreateMenuitem("ServConf", $tools)
$tools_siw = GUICtrlCreateMenuitem("SIW", $tools)
$tools_uninstaller = GUICtrlCreateMenuitem("Uninstaller", $tools)
GUICtrlCreateMenuitem('', $tools)
$tools_suche = GUICtrlCreateMenuitem("Suche", $tools)
GUICtrlCreateMenu("-------")
;ordner
$daten = GUICtrlCreateMenu("Daten")
$daten_doks = GUICtrlCreateMenuitem("Dokumente", $daten)
$daten_kh = GUICtrlCreateMenuitem("Gesundheit", $daten)
$daten_bilder = GUICtrlCreateMenuitem("Bilder", $daten)


$lager_filme = GUICtrlCreateMenuitem('Filme', $daten)
$lager_musik = GUICtrlCreateMenuitem('Musik', $daten)
;office
$office = GUICtrlCreateMenu("Office")
$office_office = GUICtrlCreateMenuitem("Office", $office)
$office_toolsmm = GUICtrlCreateMenuitem("ToolsMM", $office) 
$office_grafik = GUICtrlCreateMenuitem("Grafik", $office)
$office_o_tools = GUICtrlCreateMenuitem("Tools-Office", $office)
$office_pspad = GUICtrlCreateMenuitem("PsPad", $office)
GUICtrlCreateMenuitem("", $office)
$office_prog = GUICtrlCreateMenuitem("Programme", $office)
$office_prog_1 = GUICtrlCreateMenuitem("Programme1", $office)
GUICtrlCreateMenuitem("", $office)
$office_autoit = GUICtrlCreateMenuitem("Autoit", $office)
$office_brennen = GUICtrlCreateMenuitem("Brennen", $office)
$office_fc = GUICtrlCreateMenuitem("FC", $office)
$office_fc_tools = GUICtrlCreateMenuitem("FC-Tools", $office)
$office_kk =  GUICtrlCreateMenuitem("Kommunikartion", $office)
$office_tools = GUICtrlCreateMenuitem("Tools", $office)
$office_system = GUICtrlCreateMenuitem("System", $office)
;sys
$sys = GUICtrlCreateMenu("System")
$sys_temp = GUICtrlCreateMenuitem("Temp", $sys)
$sys_sys = GUICtrlCreateMenuitem("System32", $sys)
$sys_win = GUICtrlCreateMenuitem("Windows", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
;xpcd
$xpcd = GUICtrlCreateMenu("XPCD")
$xpcd_packs = GUICtrlCreateMenuitem('Packs', $xpcd) 
$xpcd_root = GUICtrlCreateMenuitem('XPCD', $xpcd)
$xpcd_install = GUICtrlCreateMenuitem('Install', $xpcd)
$xpcd_install_xptricks = GUICtrlCreateMenuitem('XP-TRICKS', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_oem = GUICtrlCreateMenuitem('$OEM$', $xpcd)
$xpcd_oem_win = GUICtrlCreateMenuitem('$$', $xpcd)
$xpcd_oem_sys = GUICtrlCreateMenuitem('System32', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_docs = GUICtrlCreateMenuitem('$DOCS', $xpcd)
$xpcd_docs_au = GUICtrlCreateMenuitem('All Users', $xpcd)
$xpcd_docs_au_ad = GUICtrlCreateMenuitem('Anwendungsdaten', $xpcd)
$xpcd_docs_au_sm = GUICtrlCreateMenuitem('Startmenü', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_docs_default = GUICtrlCreateMenuitem('DEFAULT USER', $xpcd)
$xpcd_docs_default_ad = GUICtrlCreateMenuitem('Anwendungsdaten', $xpcd)
$xpcd_docs_default_ql = GUICtrlCreateMenuitem('Quick Launch', $xpcd)
$xpcd_docs_default_sm = GUICtrlCreateMenuitem('Startmenü', $xpcd)
;Lager
$lager = GUICtrlCreateMenu("Lager")
$lager_down = GUICtrlCreateMenuitem('Downloads', $lager)
$lager_soft = GUICtrlCreateMenuitem('Software', $lager)
$lager_softdvd = GUICtrlCreateMenuitem('SoftDVD', $lager)
$lager_treiber = GUICtrlCreateMenuitem('Treiber', $lager)
;g
$g = GUICtrlCreateMenu("G:\")
$g_root = GUICtrlCreateMenuitem('Root G:', $g)
$g_guides = GUICtrlCreateMenuitem('Guides', $g)
$g_temp = GUICtrlCreateMenuitem('Temp', $g)
;ftp
$ftp = GUICtrlCreateMenu("FTP")
$ftp_avm_dsl = GUICtrlCreateMenuitem('DSL-Protect', $ftp)
$ftp_ata = GUICtrlCreateMenuitem('Firmware', $ftp)
$ftp_fax = GUICtrlCreateMenuitem('Fax4Box', $ftp)
$ftp_tapi = GUICtrlCreateMenuitem('Tapi', $ftp)
GUICtrlCreateMenuitem('', $ftp)
$ftp_gn = GUICtrlCreateMenuitem('German-nLite', $ftp)
$ftp_downloads = GUICtrlCreateMenuitem('Downloads', $ftp)
$ftp_addons = GUICtrlCreateMenuitem('Addons', $ftp)
$ftp_help = GUICtrlCreateMenuitem('Helpfiles', $ftp)
GUICtrlCreateMenuitem('', $ftp)
$ftp_packer = GUICtrlCreateMenuitem('Packer', $ftp)
$ftp_brenner = GUICtrlCreateMenuitem('Brenner', $ftp)
GUICtrlCreateMenu("-------")
;Hilfe
$hilfe = GUICtrlCreateMenu("Hilfe")
$hilfe_autoit = GUICtrlCreateMenuitem('Autoit', $hilfe)
$hilfe_autoit_b = GUICtrlCreateMenuitem('Autoit Beta', $hilfe) 
$hilfe_autoit_udf = GUICtrlCreateMenuitem("Autoit UDF's", $hilfe)
$hilfe_fc = GUICtrlCreateMenuitem('FC Hilfe', $hilfe) 
$hilfe_winfaq = GUICtrlCreateMenuitem('WINFAQ', $hilfe)
$hilfe_7zip = GUICtrlCreateMenuitem('7zip', $hilfe)


;sonstiges
GUICtrlCreateMenu("-------")
$project = GUICtrlCreateMenu("Projecte")
$project_xpcd = GUICtrlCreateMenuitem('XPCD', $project)
$project__ordner = GUICtrlCreateMenuitem('Toolbar', $project) 


;Buttons
$bao = GUICtrlCreateIcon(@ScriptDir & "\icos\bao-16x16.ico", -1, 0, 3, 16, 16)
GUICtrlSetTip($bao, 'Burnatonce')
$baoboot = GUICtrlCreateIcon(@ScriptDir & "\icos\baoboot-16x16.ico", -1, 25, 3, 16, 16)
GUICtrlSetTip($baoboot, 'Burnatonce-Boot-DVD')
$baoaudio = GUICtrlCreateIcon(@ScriptDir & "\icos\baoaudio-16x16.ico", -1, 50, 3, 16, 16)
GUICtrlSetTip($baoaudio, 'Burnatonce-Audio')
$autoitmacro = GUICtrlCreateIcon(@ScriptDir & "\icos\amg-16x16.ico", -1, 75, 3, 16, 16) 
GUICtrlSetTip($autoitmacro, 'AutoitMacro')
$eac = GUICtrlCreateIcon(@ScriptDir & "\icos\eac-16x16.ico", -1, 100, 3, 16, 16) 
GUICtrlSetTip($eac, 'ExactAudioCopy')
$bootisogui = GUICtrlCreateIcon(@ScriptDir & "\icos\bootisogui-16x16.ico", -1, 125, 3, 16, 16) 
GUICtrlSetTip($bootisogui, 'Boot-Iso-Gui')
$7zipgui = GUICtrlCreateIcon(@ScriptDir & "\icos\7zip-16x16.ico", -1, 150, 3, 16, 16) 
GUICtrlSetTip($7zipgui, '7zip-SFX')
$lister = GUICtrlCreateIcon(@ScriptDir & "\icos\lister-16x16.ico", -1, 175, 3, 16, 16) 
GUICtrlSetTip($lister, 'Lister')
$scite = GUICtrlCreateIcon(@ScriptDir & "\icos\SCITE-16x16.ico", -1, 200, 3, 16, 16)
GUICtrlSetTip($scite, 'Scite')
$pspad = GUICtrlCreateIcon(@ScriptDir & "\icos\pspad-16x16.ico", -1, 225, 3, 16, 16)
GUICtrlSetTip($pspad, 'PsPad')
$uniex = GUICtrlCreateIcon(@ScriptDir & "\icos\uni-16x16.ico", -1, 250, 3, 16, 16) 
GUICtrlSetTip($uniex, 'Entpacker')
$keeppasss = GUICtrlCreateIcon(@ScriptDir & "\icos\keepass-16x16.ico", -1, 275, 3, 16, 16)  
GUICtrlSetTip($keeppasss, 'KeepPass')
$netdrive = GUICtrlCreateIcon(@ScriptDir & "\icos\netdrive-16x16.ico", -1, 300, 3, 16, 16) 
GUICtrlSetTip($netdrive, 'NetDrive')
$clipput = GUICtrlCreateIcon(@ScriptDir & "\icos\clipput-16x16.ico", -1, 325, 3, 16, 16)
GUICtrlSetTip($clipput, 'Pfad Kopieren')
$cmd_fc = GUICtrlCreateIcon(@ScriptDir & "\icos\cmd-16x16.ico", -1, 350, 3, 16, 16)
GUICtrlSetTip($cmd_fc, 'Eingabeaufforderung')
$7zip_pack = GUICtrlCreateIcon(@ScriptDir & "\icos\7zip-16x16.ico", -1, 375, 3, 16, 16) 
GUICtrlSetTip($7zip_pack, '7zip Archiv anlegen')
$unlocker = GUICtrlCreateIcon(@ScriptDir & "\icos\unlocker.ico", -1, 400, 3, 16, 16)
GUICtrlSetTip($unlocker, 'Unlocker')
$firefox = GUICtrlCreateIcon(@ScriptDir & "\icos\ff-16x16.ico", -1, 425, 3, 16, 16)
GUICtrlSetTip($firefox, 'Firefox')
$thunderbird = GUICtrlCreateIcon(@ScriptDir & "\icos\tb-16x16.ico", -1, 450, 3, 16, 16)
GUICtrlSetTip($thunderbird, 'Thunderbird')
$processexplorer = GUICtrlCreateIcon(@ScriptDir & "\icos\pe16x16.ico", -1, 475, 3, 16, 16)
GUICtrlSetTip($processexplorer, 'ProcessExplorer')
$neustart = GUICtrlCreateIcon(@ScriptDir & "\icos\neu-16x16.ico", -1, 500, 3, 16, 16)
GUICtrlSetTip($neustart, 'Windows Herunterfahren')
$desktop = GUICtrlCreateIcon(@ScriptDir & "\icos\desktop-16x16.ico", -1, 575, 3, 16, 16)
GUICtrlSetTip($desktop, 'Desktop Anzeigen')
$filenew = GUICtrlCreateIcon(@ScriptDir & "\icos\filenew-16x16.ico", -1, 625, 3, 16, 16)
GUICtrlSetTip($filenew, 'Datei Anlegen')
$papierkorb = GUICtrlCreateIcon(@ScriptDir & "\icos\papierkorb-16x16.ico", -1, 700, 50, 16, 16)
GUICtrlSetTip($papierkorb, 'Papierkorb')
$ende = GUICtrlCreateIcon(@ScriptDir & "\icos\ende-16x16.ico", -1, 780, 3, 16, 16)
;Systemordner
$arbeitsplatz = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\arbeitsplatz.ico", -1, 450, 30, 32, 32)
GUICtrlSetTip($arbeitsplatz, 'Arbeitsplatz')
$systemsteurung  = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\systemsteurung.ico", -1, 490, 30, 32, 32)
GUICtrlSetTip($systemsteurung, 'Systemsteurung')
$verwaltung  = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\verwaltung.ico", -1, 540, 30, 32, 32)
GUICtrlSetTip($verwaltung, 'Verwaltung')
;$ordneroptionen  = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\ordner.ico", -1, 580, 30, 32, 32)
;GUICtrlSetTip($ordneroptionen, 'Ordneroptionen')
$drucker  = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\drucker.ico", -1, 620, 30, 32, 32)
GUICtrlSetTip($drucker, 'Drucker')


;favoriten
$fav_progs = GUICtrlCreateButton('Progs1', 10, 65, 45, 20)
$fav_sys = GUICtrlCreateButton('System', 60, 65, 55, 20)
$fav_packs = GUICtrlCreateButton('Packs', 120, 65, 40, 20)
$fav_fc = GUICtrlCreateButton('FC', 165, 65, 25, 20)
$fav_inet = GUICtrlCreateButton('Internet', 205, 65, 65, 20)
$fav_downlods = GUICtrlCreateButton('Donloads', 275, 65, 60, 20)
$fav_xpcd = GUICtrlCreateButton('XPCD', 340, 65, 40, 20)
$fav_temp = GUICtrlCreateButton('Temp', 400, 65, 40, 20)
$fav_brennen =  GUICtrlCreateButton('Brennen', 10, 35, 60, 20) 
$fav_office_tools =  GUICtrlCreateButton('Office-Tools', 80, 35, 90, 20) 
$seite = GUICtrlCreateCheckbox('Links', 230, 35, 60, 20)
GUICtrlSetFont($seite, 8, 800, 1, 'Verdana')


GUICtrlSetFont($fav_progs, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_packs, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_fc, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_downlods, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_xpcd, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_inet, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_sys, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_brennen, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_temp, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_office_tools, 8, 800, 1, 'Verdana')


;-------------------------Kommandozeile--------------------------------
;~ Dim $file
;~ If $CmdLine[0] = 1 Then
;~ 	$file = $CmdLine[1] 
;~ 		If StringInStr ($CmdLine[1], '.txt') or StringInStr ($CmdLine[1], '.ini' ) or StringInStr ($CmdLine[1], '.log' ) or StringInStr ($CmdLine[1], '.bat' )> 1 Then
;~  $test = StringInStr ($CmdLine[1], '.txt' )
;~ Run('E:\office\tools\PSPad\PSPad.exe  "' & $CmdLineRaw & '"')
;~ Exit
;~ Else
;~ 	GUICtrlSetData($input, $file)
;~ EndIf
;~ EndIf
;-------------------------Kommandozeile Ende--------------------------------
GUISetState()
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
;extras
Case $msg = $extras_umb
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\rename\lupas_fc.exe')
;grafik
Case $msg = $grafik_pe
	Run('E:\Office\Grafik\PhotoExplorer\ViewItPhotoExplorer_pro.exe')
	Case $msg = $grafik_pf
	Run('E:\Office\Grafik\PhotoFiltre\PhotoFiltre.exe')
	Case $msg = $grafik_futurix
	Run('E:\Office\Grafik\FuturixImager\fximager.exe')
	Case $msg = $grafik_fpr
	Run('E:\Office\Grafik\FastStone Photo Resizer\FSResizer.exe')
;brennen
Case $msg = $brennen_eac
	Run('E:\tools\brennen\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
	Case $msg = $brennen_bao
	Run('E:\tools\brennen\burnatonce\burnatonce.exe', "E:\tools\brennen\burnatonce")
	Case $msg = $brennen_baoaudio
	Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe', "E:\tools\brennen\burnatonce")
	Case $msg = $brennen_baoboot
	Run('E:\tools\brennen\burnatonce\burnatonce-start.exe', "E:\tools\brennen\burnatonce")
	Case $msg = $brennen_bootisogui
	Run('E:\tools\brennen\cdimagegui\cdimage-iso-brennen.exe', "E:\tools\brennen\cdimagegui")
	Case $msg = $brennen_cdimage
	Run('E:\tools\brennen\cdmage\CDmage.exe', "E:\tools\brennen\cdmage")
	Case $msg = $brennen_nero
	Run('E:\tools\brennen\Nero\Nero-Start.exe', "E:\tools\brennen\Nero")
	Case $msg = $brennen_nero_boot
	Run('E:\tools\brennen\Nero\nero-boot.exe', "E:\tools\brennen\Nero")
Case $msg = $brennen_qemu 
	Run('E:\tools\system\QemuManager\QemuManager.exe', 'E:\tools\system\QemuManager')
	;o_progs
Case $msg = $o_progs_fr
	Run('E:\Office\buero\finereader\HomeEdition.exe')
;tools
Case $msg = $tools_aida
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\aida32.exe')
		Case $msg = $tools_auotstart
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\autoruns\autoruns.exe')
Case $msg = $tools_taskmgr
	Run('taskmgr.exe')
Case $msg = $tools_serconf
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\ServConf\ServConf.exe')
Case $msg = $regshot
	Run('E:\tools\system\regcool\regshot.exe', 'E:\tools\system\regcool')
	Case $msg = $tools_uninstaller
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\uninstaller\utool.exe')
	Case $msg = $tools_suche
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\Suche\locate_fc.exe')
Case $msg = $tools_siw
	Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\siw\siw-start.exe')
	;Hilfe
Case $msg = $hilfe_autoit
	Run('cmd.exe /C E:\Office\Tools\pspad\help\AutoItdeutsch.chm', "", @SW_HIDE)
	Case $msg = $hilfe_autoit_b
	Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\AutoIt3-beta.chm', "", @SW_HIDE)
		Case $msg = $hilfe_autoit_udf
	Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\UDFs3.chm', "", @SW_HIDE)
			Case $msg = $hilfe_fc
	Run('cmd.exe /C  E:\TOOLS\SYSTEM\freeCommander\FreeCommander.chm', "", @SW_HIDE)
Case $msg = $hilfe_winfaq
	Run('cmd.exe /C E:\Office\Tools\pspad\help\winfaq.chm', "", @SW_HIDE)
Case $msg = $hilfe_7zip
	Run('cmd.exe /C E:\TOOLS\SYSTEM\freeCommander\7zip\7-zip.chm', "", @SW_HIDE)
	;projecte
Case $msg = $project_xpcd
	Run('E:\Office\Tools\PSPad\PSPad.exe E:\Office\Tools\PSPad\projecte\XPC.ppr')
	FileCopy('E:\Office\Tools\PSPad\projecte\XPC.ppr', 'E:\Office\Tools\PSPad\projecte\XPC2.ppr')
Case $msg = $project__ordner
	Run('E:\tools\system\Autoit3\scite-start.exe  E:\TOOLS\SYSTEM\freeCommander\openfile\ordner.au3')

	;buttons
	Case $msg = $bao
Run('E:\tools\brennen\burnatonce\burnatonce.exe')
	Case $msg = $baoaudio
	Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe')
Case $msg = $baoboot
	Run('E:\tools\brennen\burnatonce\burnatonce-start.exe')
Case $msg = $autoitmacro
	Run('E:\tools\SYSTEM\Autoit3\AutoItMacroGenerator02.exe')
Case $msg = $eac
	Run('E:\TOOLS\BRENNEN\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
Case $msg = $bootisogui
	Run('E:\tools\brennen\cdimagegui\bootisogui.exe')
Case $msg = $7zipgui
	Run('E:\TOOLS\SYSTEM\freeCommander\7zip\7zipgui_fc.exe')
	Case $msg = $lister
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\lister\lister-fc.exe')
		Case $msg = $scite
	Run('E:\tools\SYSTEM\Autoit3\SciTe_fc.exe')
Case $msg = $pspad
	Run('E:\Office\Tools\pspad\pspad_fc.exe')
	Case $msg = $uniex
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\universalextractor\bin\uniex_fc.exe')
Case $msg = $keeppasss
	Run('E:\tools\system\passwort\KeePass Password Safe\KeePass.exe')
Case $msg = $netdrive
	Run('E:\tools\kommunikation\netdrive\netdrive_dienst.exe')
Case $msg = $clipput
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\clip-ftp.exe')
Case $msg = $cmd_fc
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\cmd-start.exe')
Case $msg = $7zip_pack
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\7zip_fc.exe')
Case $msg = $unlocker
	Run('E:\tools\system\Unlocker\unlocker-start.exe')
Case $msg = $firefox
	Run('E:\tools\kommunikation\firefox\PortableFirefox.exe')
Case $msg = $thunderbird
	Run('E:\tools\kommunikation\PortableThunderbird\PortableThunderbird.exe')
Case $msg = $processexplorer
	Run(@WindowsDir & '\system32\taskmgr.exe')
Case $msg = $neustart
Run(@ScriptDir & '\neustart.exe')


Case $msg = $desktop
	Run('cmd.exe /C "' & @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\Desktop anzeigen.scf"', "", @SW_HIDE)
Case $msg = $filenew
	WinActivate("freeCommander", "3. Bearbeiten")  
	Send("^!{INS}")
	$file = InputBox('Neue Datei erstellen', "Dateinamen eingeben", "", "", 100, 100, -1, -1)
	$file_2 = ClipGet()
	FileWrite($file_2 & '\' & $file, ".")
Case $msg = $arbeitsplatz
	_dir('E:\System\Arbeitsplatz')
	Case $msg = $drucker
	_dir('E:\System\Drucker')
	Case $msg = $systemsteurung
	_dir('E:\System\Systemsteurung')
	Case $msg = $verwaltung
	_dir('E:\System\Verwaltung')
Case $msg = $papierkorb
	Run('subst.exe P: G:\Papierkorb', '', @SW_HIDE)
Case $msg = $ende
	WinActivate( "freeCommander" , "Bearbeiten")
	Send("!{F4}")
	While 1
	ProcessClose('ordner.exe')
WEnd
	Exit
;ordner


		Case $msg = $daten_doks
			_dir('D:\Dokummente')
				Case $msg = $daten_kh
			_dir('D:\Dokummente\Gesundheit')
				Case $msg = $daten_bilder
			_dir('D:\Bilder')
		Case $msg = $lager_filme
           _dir('F:\filme')	
Case $msg = $lager_musik
           _dir('F:\musik')			   
	;office		
		Case $msg = $office_tools
		_dir('E:\Tools')	
	Case $msg = $office_office
		_dir('E:\Office')
Case $msg = $office_toolsmm
_dir('E:\Office\mm\toolsMM')
	Case $msg = $office_o_tools
		_dir('E:\Office\Tools')	
		Case $msg = $fav_office_tools
		_dir('E:\Office\Tools')	
	Case $msg = $office_grafik
		_dir('E:\Office\Grafik')	
	Case $msg = $office_pspad
		_dir('E:\Office\Tools\pspad')	
	Case $msg = $office_prog
_dir('E:\Programme')
Case $msg = $office_prog_1
_dir('E:\Programme1')
Case $msg = $fav_progs
_dir('E:\Programme1')
;tools		
Case $msg = $office_kk
_dir('E:\tools\kommunikation')
Case $msg = $fav_inet
_dir('E:\tools\kommunikation')
	Case $msg = $office_brennen
       _dir('E:\tools\brennen\')
	   	Case $msg = $fav_brennen
       _dir('E:\tools\brennen\')
	Case $msg = $office_system
		_dir('E:\tools\system')	
	Case $msg = $fav_sys
		_dir('E:\tools\system')			
Case $msg = $office_fc
       _dir('E:\TOOLS\SYSTEM\freeCommander\')
	   Case $msg = $fav_fc
       _dir('E:\TOOLS\SYSTEM\freeCommander\')
Case $msg = $office_autoit
       _dir('E:\tools\SYSTEM\Autoit3')
Case $msg = $office_fc_tools
       _dir('E:\TOOLS\SYSTEM\freeCommander\tools\')	   
;sys
Case $msg = $sys_temp
	_dir(@TempDir)
	Case $msg = $sys_sys
	_dir(@SystemDir)
	Case $msg = $sys_win
	_dir(@WindowsDir)
;xpcd
Case $msg = $xpcd_packs
	_dir('E:\TOOLS\SYSTEM\nLite\packs')
	Case $msg = $fav_packs
	_dir('E:\TOOLS\SYSTEM\nLite\packs')
Case $msg = $xpcd_root
	_dir('F:\soft\XPCD\')
		Case $msg = $fav_xpcd
	_dir('F:\soft\XPCD\')
	Case $msg = $xpcd_oem
	_dir('F:\soft\XPCD\$OEM$')
	Case $msg = $xpcd_docs
	_dir('F:\soft\XPCD\$OEM$\$Docs')
	Case $msg = $xpcd_docs_au
	_dir('F:\soft\XPCD\$OEM$\$Docs\All Users')
	Case $msg = $xpcd_docs_au_ad
	_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Anwendungsdaten')
	Case $msg = $xpcd_docs_au_sm
	_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Startmenü')
	Case $msg = $xpcd_docs_default
	_dir('F:\soft\XPCD\$OEM$\$Docs\Default User')
	Case $msg = $xpcd_docs_default_ad
	_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten')
	Case $msg = $xpcd_docs_default_ql
	_dir('f:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch')
	Case $msg = $xpcd_docs_default_sm
	_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Startmenü')
Case $msg = $xpcd_oem_win
	_dir('f:\soft\XPCD\$OEM$\$$')
Case $msg = $xpcd_oem_sys
	_dir('f:\soft\XPCD\$OEM$\$$\system32')
	Case $msg = $xpcd_install
	_dir('F:\soft\XPCD\install\')
	Case $msg = $xpcd_install_xptricks
	_dir('f:\soft\XPCD\install\xp-tricks')	
	;lager
		Case $msg = $lager_down 
           _dir('F:\downloads')
		   Case $msg = $fav_downlods
           _dir('F:\downloads')
	Case $msg = $lager_soft
           _dir('F:\soft')	
		   Case $msg = $lager_softdvd
           _dir('F:\soft\softdvd')	
		   Case $msg = $lager_treiber
           _dir('F:\soft\softdvd\Treiber')	
		   ;g
	   Case $msg = $g_temp
		   _dir('G:\temp')
		   Case $msg = $fav_temp
		   _dir('G:\temp')
		    Case $msg = $g_guides
		   _dir('G:\Guides\German-nLite-Guides')
		    Case $msg = $g_root
		   _dir('G:\')
		   ;ftp
		   Case $msg = $ftp_avm_dsl
		   _dir('R:\fritz.box\fritzdsl\deutsch')
		   Case $msg = $ftp_ata
		   _dir('R:\fritz.box\fritzbox.fon_ata\firmware\deutsch')
		   Case $msg = $ftp_fax
		   _dir('R:\fritz.box\tools\fax4box')
		   Case $msg = $ftp_tapi
		   _dir('R:\fritz.box\tools\tapi4box')
		   Case $msg = $ftp_downloads
		   _dir('U:\johnystools')
		    Case $msg = $ftp_addons
		   _dir('U:\johnystools\JohnysAddons')
		    Case $msg = $ftp_help
		   _dir('U:\helpfiles')
		     Case $msg = $ftp_gn
		   _dir('S:\guides')
		     Case $msg = $ftp_packer
		   _dir('V:\pub\pc\pack')
		     Case $msg = $ftp_brenner
		   _dir('Q:\pub\filepilot\windows\cd-brenner')
;~ 			Case $msg = $ende
;~ 			Exit
			;ExitLoop
	EndSelect
WEnd
;Exit


;---------------------------Funktionen-------
Func _dir($dir)
	Opt("WinTitleMatchMode", 4)
WinActivate("freeCommander ","")
;MsgBox("", "", GUICtrlRead($seite))
$dll = DllOpen("user32.dll") 
If  GUICtrlRead($seite) = 1 Or _IsPressed('10', $dll) Then
	DllClose($dll)
;If 	
ControlClick("freeCommander","","TfcDirView2")
ElseIf GUICtrlRead($seite) = 4 Or Not _IsPressed('10', $dll) Then
	DllClose($dll)
ControlClick("freeCommander","","TfcDirView1")
	EndIf
ControlSetText("freeCommander","Bearbeiten","Edit1", $dir)
ControlClick("freeCommander","Bearbeiten","Edit1")		
Send("{Enter}")
WinActivate("freeCommander","Bearbeiten")
WinActivate("OpenDir", "")
DllClose($dll)
;Exit
EndFunc


Func _RunDOS($sCommand)
	Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc   ;==>_RunDOS
;E:\TOOLS\SYSTEM\AutoIt3\beta\Aut2Exe\Aut2exe.exe

EXIT


Func FC_Start()
Dim $pos_2, $pos_3, $pos	
If WinExists( "freeCommander" , "Bearbeiten") Then
	HotKeySet("{F9}", "Uniextract")
	HotKeySet("{F8}", "ClipGetFtp")
HotKeySet("{F10}", "pack_7zip")
HotKeySet("!{DEL}", "loeschen")
HotKeySet("{NUMPADSUB}", "_links")
HotKeySet("{BROWSER_BACK}", '_zurueck')
HotKeySet("{BROWSER_FORWARD}", '_vorwaerts')
$pos = WinGetPos ( "freeCommander" , "Bearbeiten")
$pos_2 = $pos[0] + 300
$pos_3 = $pos[1] + 23
EndIf
WinMove ( "OpenDir", "", $pos_2, $pos_3)
EndFunc


Func _zurueck()
	Send("!{LEFT}")
EndFunc


Func _vorwaerts()
	Send('!{RIGHT}')
EndFunc


Func _links()
	WinActivate("OpenDir","")
	;MsgBox("", "",   GUICtrlRead($seite))
	If GUICtrlRead($seite) = 4 Then 
GUICtrlSetState($seite, $GUI_CHECKED)
Else
GUICtrlSetState($seite, $GUI_UNCHECKED)
	EndIf
	EndFunc


Func pack_7zip()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\7zip_fc.exe')
EndFunc


Func ClipGetFtp()
	Run('E:\TOOLS\SYSTEM\freeCommander\openfile\clip-ftp.exe')
EndFunc


Func Uniextract()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\universalextractor\bin\uniex_fc.exe')
EndFunc


Func loeschen()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\loeschen.exe')
EndFunc


Func _datei()
	$file = InputBox('Neue Datei erstellen', "Dateinamen eingeben", "", "*", 50, 50, -1, -1)
	Send("^!{INS}")
	$file_2 = ClipGet()
	FileWrite($file_2 & '\' & $file, "")
EndFunc
;E:\TOOLS\SYSTEM\AutoIt3\beta\Aut2Exe\Aut2exe.exe

Alles anzeigen

ich danke euch schonmal für eure Mühe

Edit= :party4:Jungs ihr habt mich auf die richtige Idee gebracht, es liegt hier dran
AdlibEnable ( "FC_Start" , 250)

Habs jetzt so gelöst, das ich die Infos mit in die Funktion FC_Start packe und jetzt funzt es, nochmal BigTHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxx

**bernd670**

Wenn du jetzt innerhalb der spoiler-Tags noch die code-Tags verwendest wird der Code auch lesbar dargestellt oder schreibst du ohne Einrückungen!

johny

THX für den Hinweis, korregiert

milko

Hi,

das obige Problem habe ich auch bislang und habe deshalb statt dessen immer die Funktion Tooltip verwendet (ist aber umständlich).
Ich habe ein kleines Script, wo man das Problem nachvollziehen kann, ein Klick auf das Icon und der Tipp taucht nicht mehr auf. Was mach ich da falsch?

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

GUICreate("Test-GUI",250,100)
GUISetBkColor (0x00E0FFFF)

[/autoit][autoit][/autoit][autoit]

$button = GUICtrlCreateButton ("OK",90,70,70,20)
$tipp=GUICtrlCreateIcon("shell32.dll", 24, 115, 30,16,16)
GUICtrlSetTip($tipp,"Hier steht der Tipp")
GUISetState()

[/autoit][autoit][/autoit][autoit]

While 1
$msg = GUIGetMsg ()
Select
Case $msg = $GUI_EVENT_CLOSE
exit
Case $msg = $button
exit
EndSelect
Wend

[/autoit][autoit][/autoit][autoit][/autoit]