This is an update to my recent Glassbutton.
What is new:
* Better rendering
* Shadow can now be none, glow or drop
* Possible to change shadow color
* Glossy level adjustable
* Adjusment of image position and text gap
* Act like Windows 7 buttons
I am working on a new version with some more options, requests from users, which I dont know when will be finnished so in the mean time enjoy this. I hope you like it.
GlassButton test demo
I liked the idea of having a “glassbutton” to use on my VistaPanel. So I decided to try making one. This is the result. It sure took a lot more work than I was thinking it would! Personally I like the result. There are some options to fine tune the result like, Glossy, GlossyLevel and the SingleBorder properties. Best result requires experimenting.
The “Arrow” property will add just that an arrow to the right side of the button. Combining it with the “DuoStyle” property will make the arrow get its own button part. Like you see in the image.
Hope you like it, have fun! Feedback is always welcome!
I am happy to announce that SmartPath v2.3 is here.
– Pressing arrow button now toggle popup menu.
– New event, OnError. Thanks Castor69.
– New property AutoComplete.
– Color properties for button painting have been added.
– Bug in keyboard navigating have been fixed.
– Bug in edit path have been fixed.
– Some small code optimization.
OnError AException values:
0 : Create directory failed
Well I finally had some time to update my smartpath component. So what did I do? It is now possible to navigate the smartpath using the keyboard just set AllowKeyNav to true and you are set. I had some trouble making it work so report back any bugs you find, in my testing it worked as expected. Ownerdraw now has its own property, set it when using ownerdraw event. New Folder in home menu is now optionally. ParentFont added. A new property named ClickSetPath will set the path automatically when button on path is clicked so you no longer need to set it in the OnClickEvent. Changed AllowEdit to be set to true as default. OnMouseLeaveEvent should now be working again. Some code optimized.
Download SmartPath v2.2
Good looking SmartPath
This is just an update of my SmartPath component. Some elements have been removed while some elements have been added.
I added a transparent option, and lookup in edit mode. The search option was removed. Some bugs were removed and the code tweaked a little.
New property added
When set to true it works like normal but if you set it to false it will not check if net disks(drives) are ready. I have a net drive that lose connection all the time, making me crazy every time I am going to pick a disk, so I had to do something about it. Default is False.
Hope you like it.
Roy M Klever
Good looking vista panel
What is it? Simply a panel with a gradient that look like the gradient used in Vista. Play with the colors and I am sure you can come up with something you like. There really isn’t more to say about this small component.
Some times I just get the idea of trying to figure out how they make that gradient, well this is my take at the Vista gradient bar. Enjoy!
Roy M Klever
SmartTabs in use
Here is a new component of mine, rkSmartTabs. Its a simple but easy to use tab bar component. It was made for my explorer application but I guess others might find it usefull too. I do not have a demo yet but you can download an early beta of my explorer to see and and get a feel for how it works. rkSmartTabs is rendered using GDI+ so you must make it available for Delphi. Hope you find it useful. Feedback is always welcome.
Download BlaiseExplorer (540KB)
Tip: Use Ctrl left and right arrow to open/close all groups.
Showing Vista Progress Bar
I guess most of you have allready found a replacement for default progressbar in D2007. If not take a look at my solution. It have similar look to the system progressbar but without any animation.
The component will work in any delphi version but I have only tested it in D2007 and D2010.
It is licensed as freeware so no limitations on its use except you can not charge for it.
The small but smart color picker
This is my attempt at making a small but smart color picker. It has two modes and can be used for live color updating. The mode shown in image is Alphamode:= True, second mode will then be Alphamode:= False which will be more aimed at web design.
To set the colorpickers color use:
SetColor(Color, Alpha, Update) or SetColor(Color, Update) where Update is a boolean which if false will set old color to color value.
Alpha is a value between 0 and 255.
To get color value use GetColor. Alpha value is stored in RGBAlpha.
Download: Color Picker (260kB)
Smart path demo application
After a lot of testing, tweaking and fixing version 2 of rkSmartPath is available.
* Now it is possible to disable edit of path
* Added owner draw event
* Using displayname for folders
* Added search event. Use path edit for searching/filtering
* Tweaks and fixes
* End arrow only if there is folders in last folder
What is rkSmartPath: it is a component for Delphi that will allow you to navigate the filesystem similar to explorer in Vista. Folder path is represented as buttons and arrows. Pressing a button will allow you to set that path, pressing an arrow will let you pick a folder in that folder. Try the demo and you see what I am talking about.
How it looks with Athen theme
Download TBX test version