bob.frew

Hi M23, yes - should push me in the right direction cheers Bob

Hi M23, many thanks for taking the time to look at my problem. Very helpful indeed. I had assumed (there's that word again) a couple of variables might have been lying about after the scroll bar had moved the display so that I did not need to get involved with the scrollbars themselves. Not being used to using DllCall the _Get_Factors() function phases me somewhat. I will have to come back to that later. If all goes to plan I hope to be able to move the scrollbars to a given position once this first part is working ok. So will no doubt be doing some reading at that time. For now you have got me moving forward again - Am sorry about posting the code outside a box. Have made a note to self for next time. I like your use of Accelerator key. I had not come across those before. Thanks again ... Bob

Opt ("ExpandEnvStrings", 0) Opt ("ExpandVarStrings", 1) Opt ("MustDeclareVars", 1) opt ('MouseCoordMode', 2) ; set relative coordinate system ; #include <Array.au3> #Include <File.au3> #include <Date.au3> #include <GDIPlus.au3> #include <Misc.au3> #include <GUIConstants.au3> #include <GUIConstantsEx.au3> #include "GUIScrollbars_Ex.au3" #include <WindowsConstants.au3> #include <ButtonConstants.au3> ; ------------------------------------------------ version specifics Dim $version = "V2.1" Dim $version_date = "Nov 2013" Dim $ico = @ScriptDir & "\_images\im.ico" Dim $tname = " ImgPart " & $version ; ------------------------------------------------ GUI variables Dim $Cwindow,$Main_msg,$Child_GUI Dim $c_cancel_button,$c_start_button Dim $window_colour = 0x00005b ; dark blue Dim $f_colour_front = 0x000000 ; white Dim $f_colour_back = 0x007c7c ; pale green Dim $font = "Arial Narrow" Dim $font2 = "Century Gothic" ; ------------------------------------------------ Dim $cancelled = 0; ; ------------------------------------------------ get image file Dim $file_in = FileOpenDialog("ImgPart - Choose file", "", "img (*.*)", 1 + 2 ) ; e.g. "F:\_Current\Lang\AutoIt\Mint\_data\pdf\Mint_2012_01.pdf" If @error Then MsgBox(4096,"ImgPart","No File(s) chosen. Prog ends ") Exit EndIf ; ------------------------------------------------ get info on image _GDIPlus_Startup () Local $hImage = _GDIPlus_ImageLoadFromFile($file_in) If @error Then MsgBox(16, "Error", "Does the file exist?") Exit 1 EndIf Dim $W = _GDIPlus_ImageGetWidth($hImage) Dim $H = _GDIPlus_ImageGetHeight($hImage) _GDIPlus_ImageDispose ($hImage) _GDIPlus_ShutDown () ; ------------------------------------------------ ;MsgBox(4096,"ImgPart","$W = " & $W & ", $H = " & $H) ; ###################################################################################### createGUI() showGUI() Exit ; ###################################################################################### ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func createGUI() Local $tbase = 640; ; MsgBox(4096,"ImgPart","$W = " & $W & ", $H = " & $H & ", tbase = " & $tbase) Local $twidth = 140; Local $r = 190; ; $Cwindow = GUICreate($tname, $W, $H+100, 10, 10, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_HSCROLL + $WS_VSCROLL) $Cwindow = GUICreate($tname, 600, 700, 10, 10, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) GUISetIcon($ico) GUISetBkColor($window_colour) ; use width and height as per image $c_cancel_button = GUICtrlCreatePic("", 30, $tbase, 60, 20) ; GUICtrlSetImage($c_cancel_button, @ScriptDir & "\_images\Stop_60.jpg") GUISetState(@SW_SHOW, $Cwindow) ; -------------------------------------------------------------------- $Child_GUI = GUICreate("Child", 600, 600, 0, 0, $WS_CHILD, -1, $Cwindow) GUICtrlCreatePic($file_in, 0, 0, $W, $H) GUISetState(@SW_SHOW, $Child_GUI) _GUIScrollbars_Generate($Child_GUI, $W, $H) Return EndFunc ;==>createCatalogueGUI ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func showGUI() Local $hDLL = DllOpen("user32.dll") While 1 $Main_msg = GUIGetMsg() If $Main_msg = $GUI_EVENT_CLOSE Then $cancelled = 1; ExitLoop EndIf If $Main_msg = $c_cancel_button Then $cancelled = 1; ExitLoop EndIf #cs If $Main_msg = $c_start_button Then validate() If $valid=1 Then ExitLoop EndIf EndIf #ce If _IsPressed("20", $hDLL) Then ; ConsoleWrite("_IsPressed - Space Bar was pressed." & @CRLF) While _IsPressed("20", $hDLL) ; Wait until key is released. Sleep(250) WEnd ; ConsoleWrite("_IsPressed - Space Bar was released." & @CRLF) addPoint() EndIf Wend Return EndFunc ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func addPoint() Local $mouse = MouseGetPos() MsgBox(0, "Mouse x,y: ", $mouse[0] & "," & $mouse[1]) Local $a = GUIGetCursorInfo($Child_GUI) MsgBox(0, "GUI get Mouse x,y: ", $a[0] & ", " & $a[1] ) ; GUICtrlSetData($x, $a[0]) ; GUICtrlSetData($y, $a[1]) Return EndFunc ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // Am only at start of this idea Bob

Hi people, I hope you can help. I have a GUI with a scrollable child GUI containing an image. I am trying to get the x,y position of the mouse relative to the image. I'm using opt ('MouseCoordMode', 2) MouseGetPos() and GUIGetCursorInfo($Child_GUI) both return the position of the mouse on the window. So unless there is another command I have overlooked ??? !! The alternate way is if I knew the current top and left of the image that is actually visible. From this it would be simple to calculate the image (x,y) that the mouse is over. I have used #include "GUIScrollbars_Ex.au3" for the scrollbars. Had hoped the values I need would be lurking in that code but if they are I can't see them. I suspect I am missing the point somewhere (again) All help greatly appreciated. Bob

Many thanks for replies Sorry funkey I should have said that @error returned a 1 I have gone from XP to Windows 7 so this is the first I knew of this authorisation business. As I am the sole user and classed as Administrator you would think that gave me access to everything. Seems I am wrong. RegWrite now works after I added the #requireadmin line So at least I can use the script Have to do more reading to be able follow your alternate Raven1 Thanks again people p.s. Anyone know how to do a #requireadmin("YES") kind of thing to lose the MS dialog box ???

Hi folks, I'll apologise in advance. This is probably one of those daft things I can't see for looking. I'm on Windows 7 32 bit with AutoIt V3.3.0.0 Windows keeps losing a setting for the Logon screen when I switch themes (I do that a lot as I prefer high contrast black background) I use a small Autoit script to do the switch of theme so I figured I would just ensure that the registry setting was as it should be at the end of the process. Opt ("ExpandEnvStrings", 0) Opt ("ExpandVarStrings", 1) Opt ("MustDeclareVars", 1) #include <GUIConstants.au3> Dim $keyname = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background" Dim $valuename = "OEMBackground" Dim $type = "REG_DWORD" Dim $val = 1; "1"; 0x00000001; "0x00000001"; 00000001; "00000001"; readReg() writeReg() readReg() Exit ; ------------------------------------------------------------------------------- Func readReg() Local $var = RegRead($keyname, $valuename) MsgBox(4096, "value found = ", $var) EndFunc ; ------------------------------------------------------------------------------- Func writeReg() Local $var = RegWrite($keyname, $valuename, $type, $val) MsgBox(4096, "return after write = ", $var) EndFunc This is my first attempt at accessing the registry The RegWrite command always returns 0. The RegRead seems ok, so the problem must be in the other parameters. I have tried all variations I can think of. If it was a basic getting access at all kind of thing, then why can I make this change using Regedit All help greatly appreciated Bob

Many thanks for that Linux. It now works as I wanted it to. I wish I could say the same for my understanding of the process. Are these statements operating on the whole ListView control rather than an item within it? Anyone know of anything I should go away and read? Cheers Bob

Hi people, hope someone can help. I had this kind of thing working ok before. Then updating code for 3.2.12.0 I find it no longer does. All I want to do is click on a line on the ListView and change the background colour to red. I believe I am achieving this, but can't see it because of the "focus" line. I don't mind if I lose the "focus" line altogether or change its colour or temporarily disable it just so long as I can see red after selecting the line. Have tried to suss this for a while now and drawn a blank. All pushes in the right direction welcome. Thanks Bob ; View catalogue Opt("ExpandEnvStrings", 0) Opt("ExpandVarStrings", 1) Opt("MustDeclareVars", 1) Opt("GUIOnEventMode", 1) #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ListviewConstants.au3> #include <Array.au3> #include <Date.au3> #Include <File.au3> #Include <GuiListView.au3> Dim $CVwindow, $cv_catname, $cv_label1, $cv_label2 Dim $cv_add_cat_button, $cv_find_desc_button, $cv_show_catalogue_button, $cv_tvguide_button Dim $cv_overview_button, $cv_finish_button, $cv_toggle_button Dim $cv_desc, $cv_end, $cv_selection_ID Dim $cv_listview Dim $cv_lastred = -1; Dim $cv_lv_selected = 0; Dim $cv_catA[1000] Dim $cv_catN[1000] Dim $version = "V1.20" Dim $version_date = "Apr 2008" Dim $ico = "_images\cat.ico" Dim $today = @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC Dim $window_colour = 0x00005b; dark blue Dim $f_colour_front = 0x000000; white Dim $f_colour_back = 0x007c7c; pale green Dim $font = "Arial Narrow" Dim $font2 = "Century Gothic" Dim $catname = " Catalogue " & $version Dim $MArrN[1000][5] Dim $MArrA[1000][5] Dim $MArr_highest_index Dim $tArray[5], $g = 0 viewCat() Exit ; ------------------------------------------------------------------------------------------------ Func viewCat() $cv_catname = $catname & " View" loadMArrA() ; _ArrayDisplay($MArrA,"source arr") makeCatalogueViewGUI() GUIDelete($CVwindow) Return EndFunc ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func makeCatalogueViewGUI() $CVwindow = GUICreate($cv_catname, 800, 460, 30, 10, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) GUISetOnEvent($GUI_EVENT_CLOSE, "cv_quit_view") GUISetBkColor($window_colour) ; - - - - - $cv_listview = GUICtrlCreateListView(" Id|Title", 10, 30, 400, 430) GUICtrlSetColor($cv_listview,0xffffff) GUICtrlSetBkColor ($cv_listview,0x00347c) $cv_desc = GuiCtrlCreateEdit("No description available", 420,30,360,430,$WS_VSCROLL) GUICtrlSetFont ($cv_desc,12, 400,0 , $font) GUICtrlSetColor($cv_desc,0xffffff) GUICtrlSetBkColor ($cv_desc,0x00347c) ; set alphabetic sequence For $g = 0 To $MArr_highest_index $cv_catA[$g] = GUICtrlCreateListViewItem($MArrA[$g][0] & "|" & $MArrA[$g][1] , $cv_listview) If $cv_catA[$g] = 0 Then MsgBox(0, "Error", "Unable to add to ListView for ." & $MArrA[$g][0]) EndIf GUICtrlSetOnEvent($cv_catA[$g], "cv_catA_event") Next _GUICtrlListView_SetColumnWidth($cv_listview, 0, $LVSCW_AUTOSIZE); size columns _GUICtrlListView_SetColumnWidth($cv_listview, 1, $LVSCW_AUTOSIZE) GUISetState(@SW_SHOW, $CVwindow) Do ; GUICtrlSetState ( $cv_listview, $GUI_NOFOCUS ) Until $cv_end = 1 Return EndFunc ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func cv_quit_view() $cv_end = 1 Return EndFunc ;==> ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func cv_catA_event() If $cv_lastred <> -1 Then GUICtrlSetBkColor($cv_catA[$cv_lastred], 0x00347c) ; restore normal EndIf Local $ListIndices = _GUICtrlListView_GetSelectedIndices($cv_listview) If $ListIndices <> $LV_ERR Then ; something selected $cv_lastred = $ListIndices ; GUICtrlSetBkColor($cv_catA[$cv_lastred], 0xff2200) ; dark red orange ; _GUICtrlListView_SetItemSelected($cv_listview,$cv_lastred,0,0) ; unselect, unfocus GUICtrlSetBkColor($cv_catA[$cv_lastred], 0xff2200) ; dark orange _GUICtrlListView_SetItemFocused($cv_listview, $cv_lastred, 0) ; unfocus _GUICtrlListView_SetItemSelected($cv_listview, $cv_lastred, 0) ; unselect setFieldsForA() GUISetState($CVwindow) ;MsgBox(0, "In cv_catA_event()", "after setFieldsForA()") EndIf Return EndFunc ; -------------------------------------------------------------------------- Func setFieldsForA() Local $i = $MArrA[$cv_lastred][0] ; id Local $t = $MArrA[$cv_lastred][1] ; title Local $d = $MArrA[$cv_lastred][3] ; description Local $y = $MArrA[$cv_lastred][4] ; year If $d = "" Then $d = "No description available" EndIf GUICtrlSetData($cv_desc, $d) ; description Return EndFunc ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func loadLine($ln) $tArray = StringSplit($ln, "^") $MArrA[$g][0] = $tArray[1]; id $MArrA[$g][1] = $tArray[2]; title $MArrA[$g][2] = $tArray[3]; subt $MArrA[$g][3] = $tArray[4]; desc $MArrA[$g][4] = $tArray[5]; date $g = $g + 1 Return EndFunc ; -------------------------------------------------------------------------- Func loadMArrA() loadLine("0043^A Private Function^^With its gentle, witty portrait of postwar Britain and its sly digs at bourgeois aspirations, this comedy has the stamp of Ealing about it. Scripted by Alan Bennett, it is an often hilarious mixture of well-observed social comedy and sometimes laborious earthy humour, much of the latter being inspired by the bodily functions of a pig being fattened for a feast to celebrate the 1947 royal wedding. Michael Palin does a nice line in mortified meekness, but he is upstaged by Maggie Smith, as his scheming wife, and Liz Smith, whose eccentric antics and distracted ramblings provide some of the highlights.^2004") loadLine("0044^Some Like It Hot^^^") loadLine("0045^Addams Family Values^^Sequel to the black comedy about the morbid Addams clan. The new nanny turns out to be a serial murderer bent on stealing Uncle Fester's money. When Pugsley and Wednesday's suspicions are aroused, the nanny persuades Morticia and Gomez to dispatch them to summer camp, and while she wreaks havoc at the family home, the siblings are forced to watch wholesome children's television and participate in group hugs.^") loadLine("0046^Monsters Inc.^^^") loadLine("0047^Chicken Run^^Award-winning animation from the Aardman team, telling the story of a band of chickens doomed to a life of egg-laying on a Yorkshire chicken farm. When a flamboyant American rooster arrives on the scene, the hens hope he can teach them to fly to freedom. However, when a chicken-pie making machine is installed, their need becomes urgent and they must devise other means of escape. With the voices of Mel Gibson and Julia Sawalha.^") loadLine("0048^Kind Hearts And Coronets^^^") loadLine("0049^The Ipcress File^^Spy thriller in which agent Harry Palmer is assigned to investigate a bizarre brain drain among scientists, and finds himself embroiled in a world of espionage where nobody can be trusted and nothing is what it seems. Based on the novel by Len Deighton, it spawned two sequels.^") $MArr_highest_index = $g - 1 Return EndFunc ; -------------------------------------------------------------------------- ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Func deleteCatalogueViewGUI() GUIDelete($CVwindow) Return EndFunc

Hi Zedna many thanks for that. I have it working now. I have NOW read your relevant post. sorry I missed it on my zoom through the pages. If including these DllOpen/Close lines can't be included in the _FTPOpen/Close functions then maybe the example.au3 could be amended to include them. Cheers Bob

Hi people, can anyone help please. This is my first attempt at using FTP.au3 and I just can't get it to go. Using the sample code as a starting point I have tried substituting my info without success. I normally use Filezilla for FTP which works fine - see attached image of site settings it is using. Have tried using port 0 and 21 and assorted guesses as to what some of the other parameters might be. I get a value back from _FTPOpen but then the connect fails, I am hoping this is something silly I have done / not done. Please see attached code. Bob CODE; first attempt 17/07/2007Opt ("ExpandEnvStrings", 0) Opt ("ExpandVarStrings", 1) Opt ("MustDeclareVars", 1) #include <GUIConstants.au3> #include <FTP.au3> ; ----------------------------------------------------- Dim $server = 'upload.ntlworld.com' Dim $username = 'robert.frew' Dim $pass = 'mypasswd' ; not the real one Dim $port = 21; Dim $Open = _FTPOpen('MyFTP') Dim $Conn = _FTPConnect($Open, $server, $username, $pass, $port) ; $Ftpp = _FtpPutFile($Conn, 'C:\WINDOWS\Notepad.exe', '/somedir/Example.exe') Dim $Ftpp = _FtpPutFile($Conn, 'C:\xmltv\web\listings.htm', '/tvguide.htm') Dim $Ftpc = _FTPClose($Open) MsgBox(0,"Trial FTP of HTM File", "$Open = " & $Open & @CRLF & "$Conn = " & $Conn & @CRLF & "$Ftpp = " & $Ftpp & @CRLF & "$Ftpc = " & $Ftpc) Exit

Hi all, Can anyone help with this one. It is probably the way I am reading things. Was it Henry Ford who said "You can have any colour you like as long as its black" ? I'm using Windows XP SP2 with AutoIt V1.1.113 beta Having dabbled with AutoIt for a while now I came back to a problem I had shelved - "transparent image on a GUI". I have run some tests and it seems that:- With no extended style on GUICreate 1) If your image background colour is black then the transparency works beautifully. 2) If your image background colour is NOT black then the transparency doesn't work and you see the image background. With the extended style $WS_EX_LAYERED on GUICreate 1) If your image background colour is black then the transparency works beautifully. 2) If your image background colour is NOT black then the transparency works too well and you see what is behind the GUI window. I tried this with several different images and different image background colours with results as above every time. Having found a way of working I am now a happy bunny again, but is there a better way ?? or if not should the help file just say to use a black image background? Cheers Bob (have attached code and files) p.s. I may well have messed up the attaching bit, in which case OOPS. Merlin1 has a black background and Merlin2 a red one #include <GUIConstants.au3> Dim $WindowColour = 0x005757; Dim $pic1 = "merlin1.gif" Dim $pic2 = "merlin2.gif" Dim $w1, $w2 Dim $pc1, $pc2 $w1 = GUICreate("Trial without style", 400, 200, 30, 30 ) GUISetBkColor($WindowColour) GUICtrlCreateLabel("Trial of transparency with different background colours", 10, 10, 380, 30) GUICtrlSetFont(-1,12,4,"","Arial") $pc1 = GuiCtrlCreatePic($pic1,10,60,100,100) $pc2 = GuiCtrlCreatePic($pic2,110,60,100,100) GUICtrlCreateLabel("This window times out in 6 seconds", 230, 60, 150, 40) GUICtrlSetFont(-1,14,4,"","Arial") GUISetState(@SW_SHOW, $w1) Sleep(6000) GUISetState(@SW_HIDE, $w1) $w2 = GUICreate("Trial with style", 400, 200, 30, 30, -1, $WS_EX_LAYERED ) GUISetBkColor($WindowColour) GUICtrlCreateLabel("Trial of transparency with different background colours", 10, 10, 380, 30) GUICtrlSetFont(-1,12,4,"","Arial") $pc1 = GuiCtrlCreatePic($pic1,10,60,100,100) $pc2 = GuiCtrlCreatePic($pic2,110,60,100,100) GUICtrlCreateLabel("This window times out in 6 seconds", 230, 60, 150, 40) GUICtrlSetFont(-1,14,4,"","Arial") GUISetState(@SW_SHOW, $w2) Sleep(6000) GUISetState(@SW_HIDE, $w2) Exit

Many thanks MHz, you've answered a couple of questions I had with that piece of code. I like it. This is probably the wrong place , (but it seems relevant to me) Has the other transparency problem which is bothering me been solved ? I want a transparent image on a GUI window which will show the GUI background colour through the transparent parts of the image. All I can get at the moment is to see through the image AND the GUI to whatever is behingd the GUI window. Am I missing a trick or is this just a "no can do" ? If anyone has an example of this it would be great. Hopeful --- Bob

Many thanks for replies. I have now installed latest beta and am away again. I wondered whether an additionl "Beta only" page could be added to the online documentation. This at minimum could just hold a list of new things in the latest beta but not yet in the latest released version. I this where someone says "Well if you look at this page ...." ?? Cheers Bob

[Hi, I hope you can point me in the right direction. I don't think I'm missing something I know it. I want to do some work with AutoIt to help dump some data to an Excel spreadsheet. I found in the forums that a file _ExcelCOM had been put together to help with this. On trying to run the examples they failed saying it did not recognise the function StringRegExp. Have downloaded latest version 3.1.1, have searched the included help file, have searched the online reference web pages all to no avail. I have the same problem with ObjCreate, IsObj and who knows what else. If these things are part of a version not yet released then why are they being talked about in the V3 Support forum (AutoIt and Regex). If they are part of V3.1.1 then why aren't they in the reference/ program ?? p.s. Am having fun using AutoIt and flush with the success of my first mini app. am keen to push onto bigger things.

This may help as a workaround. I set a background colour for the window using GUISetBkColor Then using your favourite program change your image to set the layer that you want to end up as transparent to be the same colour as the window background. I know it's not pretty, but it works.

Thanks for your help guys. I have managed to get the script working now after a bit of digging. I guess I'll spend the next few months reading up on the Windows API (I know nothing) and a lot more of the Autoit forum. Cheers ..Bob

Hi. I'm hoping you can help me. I'm using Windows XP Home with AutoIt v3.1 . I am trying to write a script that toggles between two desktop colour schemes (under Windows Classic style). I prefer working with yellow on black, but have to change when I encounter the old black text on black backround problem. I have the script working fine to the point where I need to read the current value in the selected combobox2 on the Appearance Tab of Display Properties. I used the Autoit Info tool to establish controlID etc. I have been trying to use the following $colournow = ControlGetText ( "Display Properties", "Appearance", "ComboBox2" ) (in all forms I can think of but without success. using controlID 1114 instead of ComboBox2 etc.) I get nothing in $colournow This is my first effort, beyond the "hello world" so I'm hoping I'm doing something wrong. Script so far is as follows ;- - - - - - - - - - - - - - - - - - - - Opt("ExpandEnvStrings",1) Opt("ExpandVarStrings",1) Opt("MustDeclareVars",1) ; Dim $colournow Run("C:\WINDOWS\system32\control.exe") WinWaitActive("Control Panel") ControlGetFocus ("Control Panel") Send("{DOWN 6}") Send("{ENTER}") WinClose("Control Panel") WinWaitActive("Display Properties") ControlGetFocus ("Display Properties") Send("^{TAB}") ; couldn't get Send("^{TAB 3}") to work Sleep(100) ; seems happier with pause to catch up Send("^{TAB}") Sleep(100) Send("^{TAB}") ; to the Appearance Tab Sleep(100) Send("{TAB}") ; to the Color scheme combobox $colournow = ControlGetText ( "Display Properties", "Appearance", "1114" ) If $colournow ="High Contrast #1" Then Send("{RIGHT 7}") Else Send("{LEFT 7}") EndIf Bob