Skrip Posted April 21, 2008 Share Posted April 21, 2008 (edited) Check it out.. Dim $test Dim $set Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1) Banner("Written by Firestorm, with AutoIt", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0) Func Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1) $set = 0 $stop = 0 Do $set = $set + 1 $string = StringLeft($text, $set) SplashTextOn("", $string, $w, $h, $posx, $posy, $opt) Sleep($wait * 1000) If $string = $text Then Sleep(750) $stop = 1 EndIf Until $stop = 1 $stop = 0 If $unscroll = 1 Then Do $set = $set - 1 $string = StringLeft($text, $set) SplashTextOn("", $string, $w, $h, $posx, $posy, $opt) Sleep($wait * 1000 / 2) If $string = "" Then $stop = 1 EndIf Until $stop = 1 EndIf SplashOff() EndFunc ;==>Banner Edited April 21, 2008 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
JustinReno Posted April 22, 2008 Share Posted April 22, 2008 Cool, nice concept. But it flickers. Link to comment Share on other sites More sharing options...
Swift Posted April 22, 2008 Share Posted April 22, 2008 Same here, really nice, but flickers Link to comment Share on other sites More sharing options...
Skrip Posted April 22, 2008 Author Share Posted April 22, 2008 (edited) I'm not getting a flicker here...lol. EDIT: Well, the text does flicker a bit. Not too noticable on my PC though. Edited April 22, 2008 by Firestorm [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
JustinReno Posted April 22, 2008 Share Posted April 22, 2008 The whole GUI looks like its going through various shades of gray each time it adds/deletes a letter. Link to comment Share on other sites More sharing options...
Skrip Posted April 22, 2008 Author Share Posted April 22, 2008 Hmm...Well, AFAIK can't fix that in autoit. [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] Link to comment Share on other sites More sharing options...
ptrex Posted April 22, 2008 Share Posted April 22, 2008 @Firestorm I don"t see a flicker here works nice !! regards ptrex Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New Link to comment Share on other sites More sharing options...
GEOSoft Posted April 22, 2008 Share Posted April 22, 2008 I get the flicker too but I suspect that it's hardware related. Monitor refresh rate perhaps? George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
arcker Posted April 22, 2008 Share Posted April 22, 2008 i've always fixed flickering by playing with wm_paint, but each time its hard to do. -- Arck System _ Soon -- Ideas make everything "La critique est facile, l'art est difficile" Projects :[list] [*]Au3Service : Run your exe as service V3 / Updated 29/07/2013Â Get it Here [/list] Link to comment Share on other sites More sharing options...
LIMITER Posted April 22, 2008 Share Posted April 22, 2008 (edited) Nice work but ... it flickers here too EDIT: After playing a little with the code i managed to eliminate the flicker Dim $test Dim $set _Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1) _Banner("Written by Firestorm & Updated by L|M|TER", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0) Func _Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1) $set = 0 $stop = 0 SplashTextOn("L|M|TER Banner", "", $w, $h, $posx, $posy, $opt) Do $set = $set + 1 $string = StringLeft($text, $set) ControlSetText("L|M|TER Banner", "", "Static1", $string) Sleep($wait * 1000) If $string = $text Then Sleep(750) $stop = 1 EndIf Sleep(20) Until $stop = 1 $stop = 0 If $unscroll = 1 Then Do $set = $set - 1 $string = StringLeft($text, $set) ControlSetText("L|M|TER Banner", "", "Static1", $string) Sleep($wait * 1000 / 2) If $string = "" Then $stop = 1 EndIf Sleep(10) Until $stop = 1 EndIf SplashOff() EndFunc Edited April 22, 2008 by LIMITER Link to comment Share on other sites More sharing options...
Skrip Posted April 22, 2008 Author Share Posted April 22, 2008 Nice work but ... it flickers here too EDIT: After playing a little with the code i managed to eliminate the flicker Dim $test Dim $set _Banner("Thank you for using our program.", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 1) _Banner("Written by Firestorm & Updated by L|M|TER", 500, 17, @DesktopWidth / 2 - 250, @DesktopHeight / 2 + 222, 1, 0.075, 0) Func _Banner($text, $w, $h, $posx, $posy, $opt, $wait = 0.075, $unscroll = 1) $set = 0 $stop = 0 SplashTextOn("L|M|TER Banner", "", $w, $h, $posx, $posy, $opt) Do $set = $set + 1 $string = StringLeft($text, $set) ControlSetText("L|M|TER Banner", "", "Static1", $string) Sleep($wait * 1000) If $string = $text Then Sleep(750) $stop = 1 EndIf Sleep(20) Until $stop = 1 $stop = 0 If $unscroll = 1 Then Do $set = $set - 1 $string = StringLeft($text, $set) ControlSetText("L|M|TER Banner", "", "Static1", $string) Sleep($wait * 1000 / 2) If $string = "" Then $stop = 1 EndIf Sleep(10) Until $stop = 1 EndIf SplashOff() EndFunc Ah ha! Very nice (I think..I don't get the flicker) I do not see any flicker here, or on my version, but if this works better..by all means! [left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left] 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