AcidCorps Posted July 5, 2008 Share Posted July 5, 2008 I'm working on a application that will let you upload a file to multiple file hosting websites (rapidshare, megaupload, ect.) however I'm having an issue, I have the design of the GUI down (no functions created yet) however while testing the list view i have the issue that the last item added to the list view flashes repeately and I can't figure out how to fix this Here's the scrip: expandcollapse popup#include <GUIConstants.au3> #include <GuiListView.au3> #include <EzSkin.au3> Global $FontColor = '0xFFFFFF' Global $LastUploadDir = @MyDocumentsDir $EzGUI = EzSkinGUICreate("LacWare Uploader",500,500) $EzIcon = EzSkinIcon($EzGUI) EzSkinLabel('File(s):', 25, 50, 50, 15) $CurrentInput = GuiCtrlCreateInput('', 80, 50, 260, 15) $Browse = EzSkinButton('Browse', 350, 50, 50, 15) $Add = EzSkinButton('Add to List', 410, 50, 60, 15) $ListView = GuictrlCreateListView('Files waiting for upload', 25, 75, 450, 200) _GUICtrlListView_SetColumnWidth($ListView, 0,445) ;Seperator GuiCtrlCreateLabel('', 15, 375, 470, 3) GuiCtrlSetBKColor(-1, '0x4169E1') ;Servers $RapidShare = GuiCtrlCreateCheckbox('RapidShare.com', 20, 390, 100, 15) $Megaupload = GuiCtrlCreateCheckbox('Megaupload.com', 20, 410, 100, 15) $UploadTo = GuiCtrlCreateCheckbox('Upload.to', 20, 430, 100, 15) $TurboUpload = GuiCtrlCreateCheckbox('TurboUpload.com', 20, 450, 100, 15) $FilesTo = GuiCtrlCreateCheckbox('Files.to', 20, 470, 100, 15) $RapidUpload = GuiCtrlCreateCheckbox('Rapidupload.com', 140, 390, 100, 15) $Axifile = GuiCtrlCreateCheckbox('Axifile.com', 140, 410, 100, 15) $Zshare = GuiCtrlCreateCheckbox('zshare.net', 140, 430, 100, 15) $Myfreefilehosting = GuiCtrlCreateCheckbox('Myfreefilehosting...', 140, 450, 100, 15) $Zupload = GuiCtrlCreateCheckbox('zupload.com', 140, 470, 100, 15) $Divshare = GuiCtrlCreateCheckbox('DivShare.com', 260, 390, 100, 15) $Egoshare = GuiCtrlCreateCheckbox('Egoshare.com', 260, 410, 100, 15) $Zerowaitingtime = GuiCtrlCreateCheckbox('Zerowaitingtime...', 260, 430, 100, 15) $GigaSize = GuiCtrlCreateCheckbox('GigaSize.com', 260, 450, 100, 15) $MiHd = GuiCtrlCreateCheckbox('MiHd.net', 260, 470, 100, 15) $IfileIt = GuiCtrlCreateCheckbox('iFile.it', 380, 390, 100, 15) $Mediafire = GuiCtrlCreateCheckbox('Mediafire.com', 380, 410, 100, 15) $SuggestServer = EzSkinButton('Suggest Another', 380, 440, 100, 15) GUISetState() While 1 EzSkinOver() $msg = GUIGetMsg() Select Case $Msg = $EzIcon[1] Exit Case $Msg = $EzIcon[2] GuiSetState(@SW_Minimize, $EzGui) Case $Msg = $Browse $File = FileOpenDialog('Select file(s) to upload', $LastUploadDir, 'All Files (*.*)', 4) GuiCtrlSetData($CurrentInput, $File) Case $Msg = $Add GuiCtrlCreateListViewItem(GuiCtrlRead($CurrentInput), $ListView) Case $Msg = $SuggestServer $NewServer = InputBox('Suggest Server', 'Enter another server you would like added' & @CRLF & 'Be sure to include .com, org, ect.', 'www.exampleserver.to') EndSelect WEnd Func EzSkinLabel($iText, $iLeft, $iTop, $iWidth, $iHeight, $iColor = $FontColor, $iSize = 10, $iWeight = 600) Local $Return $Return = GuiCtrlCreateLabel($iText, $iLeft, $iTop, $iWidth, $iHeight) GuiCtrlSetFont($Return, $iSize, $iWeight) GuiCtrlSetColor(-1, $FontColor) Return $Return EndFunc Link to comment Share on other sites More sharing options...
rasim Posted July 5, 2008 Share Posted July 5, 2008 AcidCorpsMayb this functions helped?_GUICtrlListView_BeginUpdate() _GUICtrlListView_EndUpdate() Link to comment Share on other sites More sharing options...
AcidCorps Posted July 5, 2008 Author Share Posted July 5, 2008 Thank you that was the ticket. Link to comment Share on other sites More sharing options...
AcidCorps Posted July 5, 2008 Author Share Posted July 5, 2008 Case $Msg = $Add _GuiCtrlListView_EndUpdate($ListView) GuiCtrlCreateListViewItem(GuiCtrlRead($CurrentInput), $ListView) _GuiCtrlListView_BeginUpdate($ListView) ok so I updated it with the following lines, now it doesn't flash but the first input won't show up until theres a second one and then it works perfect. Link to comment Share on other sites More sharing options...
ProgAndy Posted July 5, 2008 Share Posted July 5, 2008 It should be: GuiCtrlListView_BeginUpdate($ListView) GuiCtrlCreateListViewItem(GuiCtrlRead($CurrentInput), $ListView) _GuiCtrlListView_EndUpdate($ListView) *GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes Link to comment Share on other sites More sharing options...
AcidCorps Posted July 5, 2008 Author Share Posted July 5, 2008 (edited) heh, wow, dyslexia rules, except now it's back to flashing again? Edited July 5, 2008 by AcidCorps Link to comment Share on other sites More sharing options...
Valuater Posted July 9, 2008 Share Posted July 9, 2008 (edited) Nice use of EzSkin AcidCorps... however, your EzSkinLabel uses an incorrect parameter Func EzSkinLabel($iText, $iLeft, $iTop, $iWidth, $iHeight, $iColor = $FontColor, $iSize = 10, $iWeight = 600) Local $Return $Return = GuiCtrlCreateLabel($iText, $iLeft, $iTop, $iWidth, $iHeight) GuiCtrlSetFont($Return, $iSize, $iWeight) GuiCtrlSetColor(-1, $FontColor) Return $Return EndFunc this line should be GuiCtrlSetColor(-1, $iColor) not GuiCtrlSetColor(-1, $FontColor) again, nice one 8) Edited July 9, 2008 by Valuater Link to comment Share on other sites More sharing options...
AcidCorps Posted July 10, 2008 Author Share Posted July 10, 2008 thanks for the correction Valuater, and thanks for the ez skin option Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now