forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Minimize to tray
Goto page Previous  1, 2
 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Source Code
View previous topic :: View next topic  
Author Message
vdsalchemist
Admin Team


Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA

PostPosted: Mon Jun 18, 2007 12:26 am    Post subject: Reply with quote

andrewm,
I think your missing the #include ballon.dsu at the very begining of your script.

_________________
Home of

Give VDS a new purpose!
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
DaveR
Valued Contributor
Valued Contributor


Joined: 03 Sep 2005
Posts: 413
Location: Australia

PostPosted: Mon Jun 18, 2007 3:07 am    Post subject: Reply with quote

andrewm wrote:
Dave that's amazing! I can't tell you how much I appreciate your work.

You're welcome.

andrewm wrote:
I got the sound to play, but I got no balloon...I think it worked as I couldn't do anything with the icon just like you said, but I didn't get the balloon. I have balloon.dsu in the directory where we run the exe from...is that correct?

Balloon.dsu only needs to be accessible for the IDE - when you compile the exe. Any file specified with a "#include" line is added into the exe when it's compiled. So all you need to share with others is the compiled exe, vdspopup.dll and vdsrun50.dll.

I seem to remember having some problems with balloon.dsu when I first tried it. I found one problem was it used a , as the decimal seperator. So I edited the code and compiled my own version.

Here is my version of balloon.dsu. Paste it into a new project and compile it as balloon.dsu.

To compile a project as a dsu:
- View > Project Manager > Target
- Click on the little folders icon to select target file
- Under "Save as type" change it to "DialogScript Unit (*.dsu)"
Code:

# Balloon DSU
# © 2003 VisionWare
#--------------------------------------------------
   
#define command, balloon
#define command, blend_balloon

option decimalsep,"."

#
# Balloon command
#
:balloon
    # Create temporary files
    if @equal(%1, init)
       %%FilenameToExport = @windir(t)\"balloon_close_normal.bmp"

       %%Export =
       %%Export = %%Export"42 4D AA 03 00 00 00 00 00 00 36 00 00 00 28 00 00 00 11 00 00 00 11 00 00 00 01 00 18 00 00 00 00 "
       %%Export = %%Export"00 74 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 E1 FF FF E1 FF FF E1 FF FF E1 FF FF "
       %%Export = %%Export"E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF E1 FF FF "
       %%Export = %%Export"E1 FF FF E1 FF FF 00 DC F3 F5 B0 C6 CE A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE "
       %%Export = %%Export"C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 B0 C6 CE DC F3 F5 E1 FF FF 00 B0 C6 CE EB F7 F8 F5 "
       %%Export = %%Export"FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 "
       %%Export = %%Export"FF FF EB F7 F8 B0 C6 CE E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF "
       %%Export = %%Export"F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE "
       %%Export = %%Export"C7 F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF "
       %%Export = %%Export"FF F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF BA CB D4 87 "
       %%Export = %%Export"9C AA F5 FF FF F5 FF FF F5 FF FF F5 FF FF 87 9C AA BA CB D4 F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 "
       %%Export = %%Export"FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF 87 9C AA 87 9C AA 87 9C AA F5 FF FF F5 FF FF 87 9C AA "
       %%Export = %%Export"87 9C AA 87 9C AA F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF "
       %%Export = %%Export"FF F5 FF FF 87 9C AA 87 9C AA 9A AF BB 9A AF BB 87 9C AA 87 9C AA F5 FF FF F5 FF FF F5 FF FF F5 FF "
       %%Export = %%Export"FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF 9A AF BB 87 9C AA 87 "
       %%Export = %%Export"9C AA 9A AF BB F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF "
       %%Export = %%Export"F5 FF FF F5 FF FF F5 FF FF F5 FF FF 9A AF BB 87 9C AA 87 9C AA 9A AF BB F5 FF FF F5 FF FF F5 FF FF "
       %%Export = %%Export"F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF F5 FF FF 87 9C AA 87 9C "
       %%Export = %%Export"AA 9A AF BB 9A AF BB 87 9C AA 87 9C AA F5 FF FF F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 "
       %%Export = %%Export"BE C7 F5 FF FF F5 FF FF F5 FF FF 87 9C AA 87 9C AA 87 9C AA F5 FF FF F5 FF FF 87 9C AA 87 9C AA 87 "
       %%Export = %%Export"9C AA F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF BA CB D4 "
       %%Export = %%Export"87 9C AA F5 FF FF F5 FF FF F5 FF FF F5 FF FF 87 9C AA BA CB D4 F5 FF FF F5 FF FF F5 FF FF A6 BE C7 "
       %%Export = %%Export"E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF "
       %%Export = %%Export"FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF A6 BE C7 E1 FF FF 00 A6 BE C7 F5 FF FF F5 FF FF F5 "
       %%Export = %%Export"FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 "
       %%Export = %%Export"FF FF A6 BE C7 E1 FF FF 00 B0 C6 CE EB F7 F8 F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF "
       %%Export = %%Export"F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF F5 FF FF EB F7 F8 B0 C6 CE E1 FF FF 00 DC F3 F5 B0 C6 "
       %%Export = %%Export"CE A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE C7 A6 BE "
       %%Export = %%Export"C7 A6 BE C7 B0 C6 CE DC F3 F5 E1 FF FF 00 "
       
       binfile open, 1, %%FilenameToExport, CREATE
       binfile write, 1, HEX, %%Export
       binfile Close, 1

       %%FilenameToExport = @windir(t)\"balloon_close_up.bmp"
       
       %%Export =
       %%Export = %%Export"42 4D AA 03 00 00 00 00 00 00 36 00 00 00 28 00 00 00 11 00 00 00 11 00 00 00 01 00 18 00 00 00 00 "
       %%Export = %%Export"00 74 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D4 F0 F0 C3 DD DD B3 CB CB A8 BE BE "
       %%Export = %%Export"A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A8 BE BE "
       %%Export = %%Export"B3 CB CB C3 DD DD 00 D5 EB EB EC F2 F2 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF "
       %%Export = %%Export"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF E4 E8 E8 B0 C1 C1 B3 CB CB 00 F1 F7 F7 A3 D1 EF 0F "
       %%Export = %%Export"82 CF 15 85 D0 19 87 D1 19 87 D1 17 8C D3 17 93 D5 14 99 D9 0F A1 DD 0C A4 DE 07 A4 DD 02 A1 DC 00 "
       %%Export = %%Export"90 D1 9F CE E7 E4 E8 E8 A8 BE BE 00 FF FF FF 10 98 F2 1E A0 F6 29 A4 F6 2D A5 F5 2D A7 F5 2C AC F7 "
       %%Export = %%Export"2B B3 F6 27 BD F8 1F C6 FA 19 CC F9 10 CF FA 06 CA FA 01 B9 F4 00 90 D1 FF FF FF A2 B8 B8 00 FF FF "
       %%Export = %%Export"FF 19 A3 FE 2B AA FF 37 AF FF 3C B3 FF 3C B3 FF 3B B8 FF 3A C0 FF 34 CA FF 2C D5 FF 22 DC FF 17 DE "
       %%Export = %%Export"FF 0C DA FF 04 CA FA 02 A1 DC FF FF FF A2 B8 B8 00 FF FF FF 21 A6 FF 37 AF FF 42 B4 FF B5 E2 FF FF "
       %%Export = %%Export"FF FF 46 BC FF 43 C4 FF 3E CE FF 34 DA FF FF FF FF A5 F4 FF 12 DE FF 0A CF FA 07 A4 DD FF FF FF A2 "
       %%Export = %%Export"B8 B8 00 FF FF FF 2B AA FF 42 B3 FF 4C B7 FF FF FF FF FF FF FF FF FF FF 47 C5 FF 40 CE FF FF FF FF "
       %%Export = %%Export"FF FF FF FF FF FF 18 DC FF 13 CD FA 0C A5 DD FF FF FF A2 B8 B8 00 FF FF FF 34 AE FF 4C B7 FF 52 BA "
       %%Export = %%Export"FF 55 BB FF FF FF FF FF FF FF E4 F6 FF E3 F7 FF FF FF FF FF FF FF 23 D9 FF 1E D4 FF 1C C8 FA 14 A3 "
       %%Export = %%Export"DC FF FF FF A2 B8 B8 00 FF FF FF 41 B3 FF 55 BB FF 5A BD FF 59 BD FF 53 BC FF E5 F5 FF FF FF FF FF "
       %%Export = %%Export"FF FF E1 F7 FF 29 CB FF 23 CB FF 22 C7 FF 23 BE F9 1A 9D D9 FF FF FF A2 B8 B8 00 FF FF FF 45 B5 FF "
       %%Export = %%Export"5F BF FF 61 C0 FF 5D BF FF 57 BD FF E5 F5 FF FF FF FF FF FF FF E1 F5 FF 29 BE FF 24 BE FF 27 BD FF "
       %%Export = %%Export"29 B5 F8 1F 97 D7 FF FF FF A2 B8 B8 00 FF FF FF 52 BA FF 69 C3 FF 69 C3 FF 61 C0 FF FF FF FF FF FF "
       %%Export = %%Export"FF E4 F6 FF E2 F4 FF FF FF FF FF FF FF 25 B2 FF 29 B1 FF 2C AE F8 21 91 D5 FF FF FF A2 B8 B8 00 FF "
       %%Export = %%Export"FF FF 55 BB FF 75 C8 FF 72 C7 FF FF FF FF FF FF FF FF FF FF 48 B7 FF 3C B3 FF FF FF FF FF FF FF FF "
       %%Export = %%Export"FF FF 2C AD FF 2F A9 F8 23 8D D3 FF FF FF A2 B8 B8 00 FF FF FF 63 C1 FF 84 CE FF 7D CB FF C5 E8 FF "
       %%Export = %%Export"FF FF FF 5A BD FF 4F B9 FF 45 B5 FF 3B B1 FF FF FF FF AD DE FF 31 AD FF 2F A9 F8 23 8D D3 FF FF FF "
       %%Export = %%Export"A2 B8 B8 00 FF FF FF 71 C6 FF 96 D5 FF 8C D1 FF 7B CA FF 71 C6 FF 69 C3 FF 60 BF FF 59 BD FF 51 BA "
       %%Export = %%Export"FF 4B B7 FF 45 B5 FF 3B B1 FF 30 A8 F7 1E 8A D1 FF FF FF A8 BE BE 00 FF FF FF 7B CA FF A1 D9 FF 93 "
       %%Export = %%Export"D4 FF 80 CC FF 75 C8 FF 6F C5 FF 69 C3 FF 64 C1 FF 5F BF FF 57 BD FF 4D B8 FF 41 B3 FF 2F A7 F7 19 "
       %%Export = %%Export"88 D1 FF FF FF B3 CB CB 00 F4 FB FB C5 E8 FF 76 C8 FF 6D C5 FF 5D BF FF 52 BA FF 4F B9 FF 52 BA FF "
       %%Export = %%Export"4D B8 FF 47 B5 FF 41 B3 FF 3B B1 FF 31 AD FF 22 A0 F4 A8 D3 F0 EC F2 F2 C3 DD DD 00 E2 FA FA F4 FB "
       %%Export = %%Export"FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF "
       %%Export = %%Export"FF FF FF FF F1 F7 F7 D5 EB EB D4 F0 F0 00 "

       binfile open, 1, %%FilenameToExport, CREATE
       binfile write, 1, HEX, %%Export
       binfile close, 1

       %%FilenameToExport = @windir(t)\"balloon_close_down.bmp"
       
       %%Export =
       %%Export = %%Export"42 4D 26 04 00 00 00 00 00 00 36 00 00 00 28 00 00 00 12 00 00 00 12 00 00 00 01 00 18 00 00 00 00 "
       %%Export = %%Export"00 F0 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 DD FB FB D4 F0 F0 C3 DD DD B3 CB CB "
       %%Export = %%Export"A8 BE BE A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 A2 B8 B8 "
       %%Export = %%Export"A8 BE BE B3 CB CB C3 DD DD 00 00 DB F8 F8 D5 EB EB EC F2 F2 FF FF FF FF FF FF FF FF FF FF FF FF FF "
       %%Export = %%Export"FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF E4 E8 E8 B0 C1 C1 B3 CB CB 00 "
       %%Export = %%Export"00 D8 F5 F5 F1 F7 F7 9F C5 DE 00 73 C2 00 79 CB 00 79 CC 00 79 CC 00 7B CD 00 7E CE 00 81 CF 00 83 "
       %%Export = %%Export"D0 00 84 D1 00 86 D1 00 87 D2 00 83 D0 9F CF ED E4 E8 E8 A8 BE BE 00 00 D7 F4 F4 FF FF FF 00 61 A3 "
       %%Export = %%Export"00 74 C4 00 79 CC 00 79 CC 00 7B CD 00 7C CD 00 83 D0 00 87 D2 00 8D D4 00 90 D5 00 91 D6 00 8F D5 "
       %%Export = %%Export"00 8A D3 00 83 D0 FF FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF 00 5F A2 00 74 C4 00 79 CB 00 79 CB 00 "
       %%Export = %%Export"79 CC 00 7E CE 00 84 D1 00 89 D3 00 91 D6 00 94 D7 00 95 D8 00 95 D8 00 8F D5 00 86 D1 FF FF FF A2 "
       %%Export = %%Export"B8 B8 00 00 D6 F3 F3 FF FF FF 00 5F A1 00 73 C2 00 79 CB 48 9F DA 78 B9 E4 00 7E CE 00 86 D1 00 8D "
       %%Export = %%Export"D4 00 93 D7 78 C8 EB 48 B6 E4 00 97 D8 00 91 D6 00 86 D1 FF FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF "
       %%Export = %%Export"00 5C 9B 00 73 C2 00 78 CA 78 B7 E3 78 B9 E4 78 BB E5 00 84 D1 00 8B D4 78 C5 E9 78 C7 EA 78 C8 EB "
       %%Export = %%Export"00 94 D7 00 91 D6 00 84 D1 FF FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF 00 59 97 00 70 BF 00 75 C9 00 "
       %%Export = %%Export"75 C9 78 B7 E3 78 B9 E4 67 B5 E3 67 B9 E5 78 C5 E9 78 C5 E9 00 94 D7 00 91 D6 00 8D D4 00 83 D0 FF "
       %%Export = %%Export"FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF 00 55 8F 00 6D BB 00 72 C7 00 72 C7 00 75 CA 67 AF E1 78 BB "
       %%Export = %%Export"E5 78 BD E6 67 B9 E5 00 8B D4 00 8D D4 00 8A D3 00 87 D2 00 81 CF FF FF FF A2 B8 B8 00 00 D6 F3 F3 "
       %%Export = %%Export"FF FF FF 00 51 8A 00 6A B7 00 6F C3 00 71 C7 00 73 C9 67 AD E0 78 B9 E4 78 BB E5 67 B5 E3 00 84 D1 "
       %%Export = %%Export"00 86 D1 00 84 D1 00 83 D0 00 7E CE FF FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF 00 4C 81 00 65 B1 00 "
       %%Export = %%Export"6C BF 00 6E C4 78 B4 E2 78 B4 E2 67 AD DF 67 AF E1 78 BB E5 78 BB E5 00 7E CE 00 7E CE 00 7D CE 00 "
       %%Export = %%Export"7B CD FF FF FF A2 B8 B8 00 00 D6 F3 F3 FF FF FF 00 47 78 00 61 AA 00 68 BA 78 B1 DE 78 B3 E1 78 B3 "
       %%Export = %%Export"E1 00 73 C9 00 75 CA 78 B8 E3 78 B9 E4 78 B9 E4 00 7B CD 00 7B CD 00 79 CC FF FF FF A2 B8 B8 00 00 "
       %%Export = %%Export"D7 F4 F4 FF FF FF 00 44 74 00 5C A2 00 63 B1 48 91 CD 78 B1 DE 00 6E C4 00 71 C7 00 72 C7 00 75 C9 "
       %%Export = %%Export"78 B7 E3 48 9F DA 00 79 CB 00 79 CC 00 79 CC FF FF FF A2 B8 B8 00 00 D8 F5 F5 FF FF FF 00 40 6C 00 "
       %%Export = %%Export"58 9A 00 60 A9 00 64 B2 00 68 BA 00 6C BF 00 6F C3 00 72 C7 00 75 C9 00 77 CA 00 79 CB 00 79 CB 00 "
       %%Export = %%Export"79 CC 00 79 CB FF FF FF A8 BE BE 00 00 DB F8 F8 FF FF FF 00 3C 66 00 52 8C 00 57 98 00 5A 9E 00 60 "
       %%Export = %%Export"A9 00 64 AE 00 68 B5 00 6B B8 00 6F BE 00 70 BF 00 72 C0 00 73 C2 00 73 C2 00 72 C0 FF FF FF B3 CB "
       %%Export = %%Export"CB 00 00 DD FB FB F4 FB FB 9F B2 BF 00 3C 65 00 42 70 00 43 73 00 48 7B 00 4F 86 00 52 8B 00 55 8F "
       %%Export = %%Export"00 59 97 00 5C 9C 00 5F A1 00 5F A1 00 61 A3 9F C5 DE EC F2 F2 C3 DD DD 00 00 E1 FF FF E2 FA FA F4 "
       %%Export = %%Export"FB FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF "
       %%Export = %%Export"FF FF FF FF FF F1 F7 F7 D5 EB EB D4 F0 F0 00 00 E1 FF FF E1 FF FF DD FB FB DB F8 F8 D8 F5 F5 D7 F4 "
       %%Export = %%Export"F4 D6 F3 F3 D6 F3 F3 D6 F3 F3 D6 F3 F3 D6 F3 F3 D6 F3 F3 D6 F3 F3 D6 F3 F3 D7 F4 F4 D8 F5 F5 DB F8 "
       %%Export = %%Export"F8 DD FB FB 00 00 "

       binfile open, 1, %%FilenameToExport, CREATE
       binfile write, 1, HEX, %%Export
       binfile close, 1
       
       exit
    end
   
    # Remove temporary files
    if @equal(%1, removefiles)
       file delete, @windir(t)\"balloon_close_up.bmp"
       file delete, @windir(t)\"balloon_close_down.bmp"
       file delete, @windir(t)\"balloon_close_normal.bmp"
       exit
    end
   
    #--- Balloon title
    if @null(%1)
       error 2
    else
       %%Balloon_Title = %1
    end
   
    #--- Balloon text
    if @null(%2)
       error 2
    else
       %%Balloon_Text = %2
    end
   
    #--- Delay
    if %3
       if @not(@numeric(%3))
          error 14
       end
       %%Balloon_Duration = %3
    else
       %%Balloon_Duration = 110
    end
   
    #--- Make hyperlink yes/no
    if %4
       %%Balloon_MakeHyperlink = 1
    else
       %%Balloon_MakeHyperlink =
    end
   
    #--- Balloon glyph
    if %5
       %%Balloon_Glyph = %5
    else
       %%Balloon_Glyph =
    end
   
    #--- Wav
    if %6
       %%Balloon_Wav = %6
    else
       %%Balloon_Wav =
    end
   
    #--- X pos
    if %7
       if @not(@numeric(%7))
          error 14
       end
       %%Balloon_X = %7
    else
       %%Balloon_X = @diff(@sysinfo(screenwidth), 352)
    end
   
    #--- Y pos
    if %8
       if @not(@numeric(%8))
          error 14
       end
       %%Balloon_Y = %8
    else
       %%Balloon_Y = @diff(@diff(@sysinfo(screenheight), @winpos(#Shell_TrayWnd, H)), 60)
    end
   
    DIALOG CREATE,YourForum CheckUp Infobox,%%Balloon_Y,%%Balloon_X,352,60,NOTITLE,INVISIBLE,CLASS BalloonDSU,ONTOP,NOSYS
    DIALOG ADD,STYLE,normal_highlite,Tahoma,,U,,0080C0
    DIALOG ADD,STYLE,normal,Tahoma,,L,,
    DIALOG ADD,STYLE,title,Tahoma,,B,,
       %%DefaultPixels = 35
    DIALOG ADD,TEXT,text,25,32,,,%%Balloon_Text,,normal,TRANSPARENT
    %%TextHeight = @dlgpos(text, H)
    DIALOG REMOVE, text
   
    if @null(%8)
       %%Balloon_Y = @diff(@diff(@sysinfo(screenheight), @winpos(#Shell_TrayWnd, H)), @fadd(%%TextHeight, %%DefaultPixels))
    end
    DIALOG SETPOS, , %%Balloon_Y, , , @fadd(%%TextHeight, %%DefaultPixels) 
   
    DIALOG ADD,SHAPE,l_box,0,0,50,@fadd(%%TextHeight, %%DefaultPixels),FFFFE1,BLACK,,ROUNDRECT
    DIALOG ADD,SHAPE,box_r,0,302,50,@fadd(%%TextHeight, %%DefaultPixels),FFFFE1,BLACK,,ROUNDRECT
    DIALOG ADD,SHAPE,l_middle_bg,0,22,292,@fadd(%%TextHeight, %%DefaultPixels),FFFFE1,BLACK,,RECTANGLE
    DIALOG ADD,SHAPE,box_middle,1,22,298,@fadd(%%TextHeight, @diff(%%DefaultPixels, 2)),FFFFE1,FFFFE1,,RECTANGLE
    DIALOG ADD,BITMAP,icon,7,10,16,16,%%Balloon_Glyph
    DIALOG ADD,TEXT,title_text,8,32,,,%%Balloon_Title,,title,TRANSPARENT
    DIALOG ADD,TEXT,text,25,32,,,%%Balloon_Text,,normal,TRANSPARENT
    DIALOG ADD,TEXT,highlited_text,25,32,,,%%Balloon_Text,,normal_highlite,TRANSPARENT,CLICK,HAND
    DIALOG HIDE,highlited_text
    DIALOG ADD,BITMAP,balloon_close_button,3,331,17,17,@windir(t)\"balloon_close_normal.bmp",,CLICK
    blend_balloon 0
    DIALOG SHOW
   
    if %%Balloon_Wav
       play %%Balloon_Wav
    end
       
    %l = 0
    repeat
       blend_balloon %l
       %l = @fadd(%l, 15)
       wait 0.01
    until @greater(%l, 255)
   
    %E =
    %%Sleep = 0
    %%Balloon_Text_Highlited =
    %%balloon_close_button_Up =
    repeat
       %%Sleep = @succ(%%Sleep)
       
       %%T_DlgMousePos = @diff(@mousepos(y), @dlgpos(, t))
       %%L_DlgMousePos = @diff(@mousepos(x), @dlgpos(, l))
           
       #--- Change the text in a hyperlink look-a-like
       if @both(@both(@both(@greater(%%T_DlgMousePos, @dlgpos(text, t)), @not(@greater(%%T_DlgMousePos, @fadd(@dlgpos(text, h), @dlgpos(text, t))))), @both(@greater(%%L_DlgMousePos, @dlgpos(text, l)), @not(@greater(%%L_DlgMousePos, @fadd(@dlgpos(text, w), @dlgpos(text, l)))))), %%Balloon_MakeHyperlink)
          if @not(%%Balloon_Text_Highlited)
             %%Balloon_Text_Highlited = 1
             dialog hide, text
             dialog show, highlited_text
           end
       else
           if %%Balloon_Text_Highlited
            %%Balloon_Text_Highlited =
            dialog hide, highlited_text
            dialog show, text
         end
       end
      
       #--- Change the close-button when the mouses hovers over it
       if @both(@both(@greater(%%T_DlgMousePos, @dlgpos(balloon_close_button, t)), @not(@greater(%%T_DlgMousePos, @fadd(@dlgpos(balloon_close_button, h), @dlgpos(balloon_close_button, t))))), @both(@greater(%%L_DlgMousePos, @dlgpos(balloon_close_button, l)), @not(@greater(%%L_DlgMousePos, @fadd(@dlgpos(balloon_close_button, w), @dlgpos(balloon_close_button, l))))))
          if @not(%%balloon_close_button_Up)
             %%balloon_close_button_Up = 1
             dialog set, balloon_close_button, @windir(t)\"balloon_close_up.bmp"
          end
       else
          if %%balloon_close_button_Up
             %%balloon_close_button_Up =
             dialog set, balloon_close_button, @windir(t)\"balloon_close_normal.bmp"
          end
       end
       
       %E = @event()
     
       if @equal(%E, balloon_close_buttonCLICK)
          dialog set, balloon_close_button, @windir(t)\"balloon_close_down.bmp"
         
          repeat
             wait 0.01
          until @not(@mousedown())
         
          %%T_DlgMousePos = @diff(@mousepos(y), @dlgpos(, t))
          %%L_DlgMousePos = @diff(@mousepos(x), @dlgpos(, l))
          if @both(@both(@greater(%%T_DlgMousePos, @dlgpos(balloon_close_button, t)), @not(@greater(%%T_DlgMousePos, @fadd(@dlgpos(balloon_close_button, h), @dlgpos(balloon_close_button, t))))), @both(@greater(%%L_DlgMousePos, @dlgpos(balloon_close_button, l)), @not(@greater(%%L_DlgMousePos, @fadd(@dlgpos(balloon_close_button, w), @dlgpos(balloon_close_button, l))))))
             %%Sleep = %%Balloon_Duration
             dialog set, balloon_close_button, @windir(t)\"balloon_close_up.bmp"
          else
             dialog set, balloon_close_button, @windir(t)\"balloon_close_normal.bmp"
          end
          %E =
       end
       wait 0.01
    until @equal(%%Sleep, %%Balloon_Duration) %E
   
    if @not(@greater(5, @substr(@sysinfo(winver), 1, 1)))
       %l = 255
       repeat
          blend_balloon %l
          %l = @diff(%l, 15)
          wait 0.01
       until @equal(%l, 0)
    end
   
    if @equal(%E, highlited_textCLICK)
       blend_balloon 0
       goto BalloonCLICK
    end
   
    blend_balloon 0
   
    dialog close
    wait event
    %%temp = @event()
    exit
     
:blend_balloon
    %W = @substr(@sysinfo(winver), 1, 1)
    if @greater(5, %W)
       exit
    end
   
    loadlib user32
    %H = @strdel(@winexists(#BalloonDSU), 1, 1)
    if %H
       %I = @lib(user32, GetWindowLongA, INT:, %H, -20)
       %I = @lib(user32, SetWindowLongA, INT:, %H, -20, @sum($80000,$80))
       %I = @lib(user32, SetLayeredWindowAttributes, INT:, %H, 0, %1, $2)
    end
    freelib user32
    exit

Actually, looking at balloon.dsu's source I can see some improvements I can make to it... Cool

_________________
cheers

Dave
Back to top
View user's profile Send private message Visit poster's website
Vic D'Elfant
Past Contributor
Past Contributor


Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands

PostPosted: Mon Jun 18, 2007 4:44 pm    Post subject: Reply with quote

Dave® wrote:
Actually, looking at balloon.dsu's source I can see some improvements I can make to it... Cool

Feel free to send the updated package (source + compiled .dsu) over and I'll update the download on the VDSWORLD website Smile

Oh and if you do, please add a name and/or link to the source code to give yourself credit for the improvements you've made.

_________________
phpBB Development Team
Back to top
View user's profile Send private message Visit poster's website
andrewm
Newbie


Joined: 13 Jun 2007
Posts: 11

PostPosted: Mon Jun 18, 2007 6:27 pm    Post subject: Reply with quote

Dave,

I have released the updated code, and the balloon now shows up, but if you just click the "x" it keeps popping up, and it sometimes closes the app...

Is this just the nature of VDS, or the balloon piece?
Back to top
View user's profile Send private message
andrewm
Newbie


Joined: 13 Jun 2007
Posts: 11

PostPosted: Fri Jun 22, 2007 2:09 pm    Post subject: Reply with quote

Hi Dave, or Vic as well...

Do you have any ideas for the above question?

Thanks!!!

Andrew
Back to top
View user's profile Send private message
Vic D'Elfant
Past Contributor
Past Contributor


Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands

PostPosted: Fri Jun 22, 2007 2:12 pm    Post subject: Reply with quote

I'm afraid not... I've been out of the loop for too long to remember VDS' way of doing things (and the problems that pop up every now and then) Sad
_________________
phpBB Development Team
Back to top
View user's profile Send private message Visit poster's website
DaveR
Valued Contributor
Valued Contributor


Joined: 03 Sep 2005
Posts: 413
Location: Australia

PostPosted: Fri Jun 22, 2007 3:43 pm    Post subject: Reply with quote

andrewm wrote:
Dave,

I have released the updated code, and the balloon now shows up, but if you just click the "x" it keeps popping up, and it sometimes closes the app...

Is this just the nature of VDS, or the balloon piece?

It's a mistake in my code Embarassed. Which comes from not being able to properly test it here.

On line 118 you should find the following code (under the Timer label):
Code:
  if %%new
    # Show 'new ticket' balloon
    goto NewTicketFound
  end
  goto loop1


If you change it to the following it should fix your problem:
Code:
  if %%new
    # Reset 'new' flag
    %%new =
    # Show 'new ticket' balloon
    goto NewTicketFound
  end
  goto loop1


PS I forgot that I hadn't answered your previous question... sorry.

_________________
cheers

Dave
Back to top
View user's profile Send private message Visit poster's website
andrewm
Newbie


Joined: 13 Jun 2007
Posts: 11

PostPosted: Fri Jun 22, 2007 4:30 pm    Post subject: Reply with quote

Thanks so much Dave...I have released the fix and we will see what happens!

The only other request I have received from the helpdesk staff is, the monitor window, when you have it open, it ontop of all other windows. Can I change this?

~Andrew
Back to top
View user's profile Send private message
DaveR
Valued Contributor
Valued Contributor


Joined: 03 Sep 2005
Posts: 413
Location: Australia

PostPosted: Sat Jun 23, 2007 2:01 am    Post subject: Reply with quote

Yep. Under the 'create dialog' label just change this line:

Code:
  DIALOG CREATE,%%title,5,5,550,178,savepos,ontop


to this:

Code:
  DIALOG CREATE,%%title,5,5,550,178,savepos

_________________
cheers

Dave
Back to top
View user's profile Send private message Visit poster's website
andrewm
Newbie


Joined: 13 Jun 2007
Posts: 11

PostPosted: Mon Jun 25, 2007 12:12 pm    Post subject: Reply with quote

Thanks Dave!!!

I have to resist the urge to list all the other little quirks with the program Smile

Is this what you do for a living?

~Andrew
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Source Code All times are GMT
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group