Author Topic: "Of The Bay" Version 2.00  (Read 45932 times)

0 Members and 1 Guest are viewing this topic.

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
AERO DockBar (Script file)
« Reply #15 on: October 28, 2008, 08:05:19 AM »
Thank you Bud!

I am glad to read that it runs also on your XP SP3 computer.

I did it, because i like to use a nice picture for my desktop background, but with all these icons spread out over it, it looks more like a teenager bed room than my wife's lounge. But now with DockBar, everything has been clean up to please her. ;D

The idea behind Dockbar is to use it also like a super-menu to start your own applications without resorting on shortcuts, and reading what to do from a disk file working like a playlist.

Example of script file:
(ApplicationFullPathName, WorkingDir, CmdLine, IconToUse)
Quote
"C:\MyApplications\BassBox24\BassBox.exe","","D:\Audio\PlayList.bbp","C:\MyApplications\DockBar\FolderIcon\BassBox.png"
"C:\MyApplications\MovieBox\MovieBox.exe","","","C:\MyApplications\DockBar\FolderIcon\MovieBox.png"
"D:\SED\SED_116.exe","","",C:\MyApplications\DockBar\FolderIcon\PowerBASIC.png"
"C:\WinDev12\Programmes\WinDev12.exe","@EXEPATH@","","@EXEICON@"
etc.

« Last Edit: October 28, 2008, 08:13:10 AM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
AERO DockBar (changing icon frame)
« Reply #16 on: October 28, 2008, 08:23:45 AM »
In AERO DockBar, each icon (32x32) is being drawn on a frame (48x48) named "Back.png" located in the "Resource" sub-folder.

Thus you can use your own frame if you replace "Back.png" with another PNG using a size of 48x48.

See the attached example (save first the current "Back.png" to later restore it)

 
« Last Edit: October 28, 2008, 09:00:39 AM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
Re: AERO DockBar
« Reply #17 on: October 28, 2008, 06:29:03 PM »
Then add a few more shortcuts  ;D

...
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
AERO DockBar (new version 1.02)
« Reply #18 on: October 28, 2008, 08:26:00 PM »
This new version allows you to change on the fly (from the poup menu) the icon's frame background.

It is provided with several PNG files that are stored in the \Resource\IconFrame sub-folder.

The new ZIP file is attached to the first post of this thread.

 8)
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
AERO DockBar (new version 1.03)
« Reply #19 on: October 29, 2008, 08:39:43 PM »
The shortcut detection has been enhanced to resolve missing virtual lnk files.

Code: [Select]
FUNCTION ResolveShortcutName(zLnk AS ASCIIZ) AS STRING
    LOCAL sUseIcon AS STRING

    IF zLnk = ShortCutDisplayName(%CSIDL_BITBUCKET) THEN sUseIcon = "RecycleBin.png":          GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_DRIVES)    THEN sUseIcon = "MyComputer.png":          GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_NETWORK)   THEN sUseIcon = "NetworkNeighborhood.png": GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_PERSONAL)  THEN sUseIcon = "MyDocuments.png":         GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_MYVIDEO)   THEN sUseIcon = "MyVideo.png":             GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_MYMUSIC)   THEN sUseIcon = "MyMusic.png":             GOTO ExitLnk
    EXIT FUNCTION

ExitLnk:
    FUNCTION = sUseIcon
END FUNCTION

You can even change the related icons and use your own as a replacement for those provided in the resource folder, the only mandatory is to respect the file name for the PNG files, or to edit the ResolveShortcutName function to use the new name.

I have also added .cpl file extension detection because the ISHellFolder interface is unable to handle them correctly.

Now Emil, you should see something...

 :o

« Last Edit: October 29, 2008, 08:42:51 PM by Patrice Terrier »
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
AERO DockBar (new version 1.04)
« Reply #20 on: October 30, 2008, 06:46:42 PM »
This new version introduces a new flare effect and some new menu options

The shorcut firing has been also reworked for better differentiation between EXE and virtual links.

The latest version is attached to the first post of this thread.

 8)

Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
"Of The Bay" has been released to replace the DockBar project
« Reply #21 on: October 31, 2008, 08:44:00 PM »
"Of The Bay" is the successor of the DockBar project with these new features:
- Enhanced flare effect.
- Hability to change the layer being used to display the icons.
- And further CPU % reduction.

The new ZIP file is attached to the first post of this thread
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Petr Schreiber

  • Sr. Member
  • ****
  • Posts: 411
Re: "Of The Bay"
« Reply #22 on: November 02, 2008, 03:01:09 PM »
Hi Patrice,

great job as usual - works well on my PC ( AMD Sempron 3400+, 1GB RAM, GeForce 6150LE, WinXP SP2+Updates CZ ).
One thing - it would be nice if I could drag some file on the dockbar ( document, program, ... ) from Windows Explorer for example.

This way it would not double desktop and it would add new dimension of usability.

The CPU usage is exemplary - 0 to 2%.


Thanks,
Petr
AMD Sempron 3400+ | 1GB RAM @ 533MHz | GeForce 6200 / GeForce 9500GT | 32bit Windows XP SP3

psch.thinbasic.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
Re: "Of The Bay"
« Reply #23 on: November 02, 2008, 05:20:48 PM »
Quote
it would be nice if I could drag some file on the dockbar
Hi Petr,

That's a good suggestion.

Here are a few guidances if anybody wants to do it ;D

Step 1: declaration section
Code: [Select]
%WM_DROPFILES = &H233
DECLARE SUB DragAcceptFiles LIB "SHELL32.DLL" ALIAS "DragAcceptFiles" (BYVAL hwnd AS DWORD, BYVAL fAccept AS LONG)
DECLARE SUB DragFinish LIB "SHELL32.DLL" ALIAS "DragFinish" (BYVAL hDrop AS DWORD)
DECLARE FUNCTION DragQueryFile LIB "SHELL32.DLL" ALIAS "DragQueryFileA" (BYVAL hDrop AS DWORD, BYVAL uiFile AS DWORD, lpStr AS ASCIIZ, BYVAL cch AS DWORD) AS DWORD

Step 2 To put in the main code section before entering the message pump
Code: [Select]
          CALL DragAcceptFiles(hMain, %TRUE)

Step 3 To put in the window proc
Code: [Select]
    CASE %WM_DROPFILES '// Drag & drop
         nFilesDropped = DragQueryFile(wParam, -1, "", 0)
         szFileName = ""
         nCount = 0
         IF nFilesDropped > 0 THEN
'            Put your code there
         END IF
         CALL DragFinish(wParam)
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
"Of The Bay" (released of version 1.10)
« Reply #24 on: November 03, 2008, 06:17:56 PM »
There are several new icon frames and backgrounds + subtile changes.

Latest ZIP file is attached to the first post of this thread.

 8)
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
"Of The Bay" (I heard you!)
« Reply #25 on: November 04, 2008, 07:07:28 PM »
Petr, Dominique,

I heard you!

Here is "Of The Bay" version 1.20, with drag and drop and smooth scrolling.

  • Drag and drop
Now you can start BassBox and MovieBox just as you did with the standard desktop icon.
  • Smooth scrolling
Starts when the mouse hover either the left or right arrow, if you click on the arrow you scroll the content either from the start or to the end.

The new zip file is attached to the first post of this thread.


 8)
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Petr Schreiber

  • Sr. Member
  • ****
  • Posts: 411
Re: "Of The Bay"
« Reply #26 on: November 04, 2008, 10:40:03 PM »
Hi Patrice,

good job! ;)
Works well here, CPU usage still at 0 to 2%...


Petr
AMD Sempron 3400+ | 1GB RAM @ 533MHz | GeForce 6200 / GeForce 9500GT | 32bit Windows XP SP3

psch.thinbasic.com

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
"Of The Bay" (updated to version 1.21)
« Reply #27 on: November 09, 2008, 02:53:51 PM »
Under request of Laurence Jackson,

I have added detection of embedded desktop subfolders:

FUNCTION ResolveShortcutName(zLnk AS ASCIIZ) AS STRING
    LOCAL sUseIcon AS STRING

    IF zLnk = ShortCutDisplayName(%CSIDL_BITBUCKET) THEN sUseIcon = "RecycleBin.png":             GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_DRIVES)    THEN sUseIcon = "MyComputer.png":             GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_NETWORK)   THEN sUseIcon = "NetworkNeighborhood.png":    GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_PERSONAL)  THEN sUseIcon = "MyDocuments.png":            GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_MYVIDEO)   THEN sUseIcon = "MyVideo.png":                GOTO ExitLnk
    IF zLnk = ShortCutDisplayName(%CSIDL_MYMUSIC)   THEN sUseIcon = "MyMusic.png":                GOTO ExitLnk

    IF (GetFileAttributes(FolderGet(%CSIDL_DESKTOP) + zLnk) AND 16) THEN sUseIcon = "Folder.png": GOTO ExitLnk
    EXIT FUNCTION

ExitLnk:
    FUNCTION = sUseIcon
END FUNCTION


The lattest ZIP project is attached to the first post of this thread.
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com

Offline Laurence Jackson

  • Newbie
  • *
  • Posts: 14
Re: "Of The Bay"
« Reply #28 on: November 09, 2008, 06:16:00 PM »
Great! Thank you!

Offline Patrice Terrier

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2391
  • Gender: Male
    • www.zapsolution.com
Re: "Of The Bay"
« Reply #29 on: November 13, 2008, 06:18:05 PM »
updated to version 1.22.
Patrice Terrier
GDImage (advanced graphic addon)
http://www.zapsolution.com