Addition 2 new themes, check out the screenshot, and more functions.
New functions for the color manipulation.
I think this the first control how this in PSC, this's a PropertyGrid based in the VB 6.0 PropertyGrid control (the screenshot tell all).
The credits are in the UC, I used some UC of PSC contributor.
Any comment are wellcome, ideas are good, vote is perfect for me but not are necessary :)
NOTE: I tested in WinXP only but in various PC's.
Thanks TerriTop
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
Hi Heriberto, maybe also changing VB scrollbars to own? Scrolling should moving the properties immediatly and the design should be looking modern on older systems, too. I have a problem with clicks on + and - : I always need more than one to open / close. A very large project, much work in it! My ***** and regards - LiTe (If this comment was disrespectful, please report it.)
An excellent start, keep on working. Try to include scrollbar to the usercontrol. My *****. Thanks for sharing this project. (If this comment was disrespectful, please report it.)
excellent. more than just a start, in my experience all but complete! the scroll bars are not much of an issue, although would be nice if it accepted "big changes" instead of just arrow clicks. Also the +/- should be expanded/collapsed on single-click instead of double-click. You've got my 4*, will go to 5* with these simple changes...also...wow...clean code. thx (If this comment was disrespectful, please report it.)
Now expand/collapsed with single click and I work hardly in the scrollbar's, I think work fine now. (If this comment was disrespectful, please report it.)
Unfortunately, I can't get to see all the glorious action with this since it's well and truly far from VB5 compatible. None the less, you have my thumbs up, there's comprehensive documentation, a tremendous amount of effort with the code. This submission is nothing short nor far from a very serious and genuine attempt at something good. ***** (If this comment was disrespectful, please report it.)
One suggestion, for better clarity, it would be best to inc the ver num with updates. Or just specify (Update 6 Dec) without a ver num. Makes sense to have both, but they need to be in sync. (If this comment was disrespectful, please report it.)
sweet...updates are great. cool, quick and clean. can't wait to use it on a project. updated to 5*, now just one holdout with a 4*, someone get ahold of "aliteraktif" and tell him to change his vote :) Thanks for the code Heriberto. (If this comment was disrespectful, please report it.)
Regrettably I don't have VB 5.0 to try to make it compatible, I'll try to look for it to see that possibilities are of implementing it for VB 5.0.
Thanks to all the votes and the comments.
I put in the next week one update more coz I don't have Internet in my home, I'm sorry for this. (If this comment was disrespectful, please report it.)
I work in this moment in Tooltiptext's (for incomplete text) and in another project, I try to update this the next week. (If this comment was disrespectful, please report it.)
Excellent *****. But i think this control will be better by using only original VB controls (CommandButton,Listview,DateTimePicker,Combobox instead of isButton,Coollist,McCalendar,Scombobox) And perhaps by adding some other features inexistants in VB6 GridProperty (If this comment was disrespectful, please report it.)
Hi Habin, good to see you, I knew the Xtreme Suite is really good ^^, but isn't free ActiveX :(, for this I developed this, I remember you needed a grid since last month and Juan Román too. (If this comment was disrespectful, please report it.)
I'm trying different settings and properties of this control and so far I'm not able to figure out one thing ... I'm not able to collect Bold/Italics/Underline etc. information of Font dialog. When I click the button for Font in PropertyGrid control and set Bold, the Value on ValueChanged event somehow not returning it to my StdFont variable that collects it. I checked in User Control code and there it does return Bold = True while preparing data to return as Value; but when that collected in ValueChanged event, it always returs False for Bold/Italics etc. What I'm doing wrong? Am I missing anything here? Please advise. (If this comment was disrespectful, please report it.)
Hi Heriberto, I downloaded and tested your updated control but still I could not gather the sub-info of property. (such as Size of Font etc.). Have you addressed this issue which we discussed earlier? (If this comment was disrespectful, please report it.)
I saw your code and in isButton_Click, for Font, you're directly setting the return value as psFont.sSelectedFont!! The easiest work around I see for this issue is following the Common Dialog Control style of Property structure. Just make those dialog properties as Public available under PropertyGrid control interface. On ValueChanged, I will collect the name of font directly from Value whilst if required, I will simply access the other related properties of control. So, for example, I will collect Font Name from Value and then I will look for a Common Dialog Control style property FontSize, FontBold etc. to collect related information. I don't know if this sort of implementation is possible easily or not. Just wanted to give a thought. What you think? (If this comment was disrespectful, please report it.)
Hi Ruturaaj yeah I see your comment and I search about of how implement Sub-Info Property, is really hard to pass all information about the control in one structure.
Anyway I work in Tooltiptext incomplete text and full property values return, for appearance I debug any possible bugs.
@CataLyst-KK: You can explain me more your suggestion, please. (If this comment was disrespectful, please report it.)
Great code, thank you very much !5****** ! Small bug: if you use the control in a form, that is set to TOPMOST, list (e.g. for boolean values) will not open anymore.
To reproduce, add the following statement into your sample form('frmPPal'):
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
in form_load event:
SetWindowPos frmpPal.hwnd, -1, 0, 0, 0, 0, 3
(If this comment was disrespectful, please report it.)
Hi! That was great and easiest way to have the Font issue resolved! Aah, before your updated version, what I did is ... I exposed the Font common dialog box properties as control's public properties. So, what I was doing is ... if the Font value-set is to be collected from control then I used to get the Font name from Value on ValueChanged and then access other properties in the same way as we do in Font common dialog! While putting time and effort in doing all this, I didn't have a slight hint of adding a ByVal to ValueChanged event itself! LOL! Thanks so much for your update. (If this comment was disrespectful, please report it.)
I found the solution for the TOPMOST problem: in SCmb_click, simply add the following line: SetWindowPos lstFX1.hwnd, -1, 0, 0, 0, 0, 2 Or 1 (If this comment was disrespectful, please report it.)
Nice update Heriberto! I like this project a lot....any chance you will provide support for native API scrollbars in future releases? GDuncan (PCSID=59803) has built a nice tool which would allow drop in place replacement of the current Win9x versions....keep up the great work! TerriTop (If this comment was disrespectful, please report it.)
Heriberto, found the bug/feature with the scrolling which does not update the grid until mouseup....in the zWndProc1, WM_VSCROLL case, move the ReDraw from the SB_ENDSCROLL to the outer case (i.e. just before the End Select for the VSCROLL) this will yield smooth scrolling instead of the current which is more jumpy (is this a word?)....hope this helps TerriTop (If this comment was disrespectful, please report it.)
Thx for the comment TerriTop, I worked some hours for update this control, I think added more functions, i.e. set the Colors in Hex, RGB or Website color, support for ListView control, List for images Only and other things.
I check out the GDuncan code.
Again thx for the comment. (If this comment was disrespectful, please report it.)
Hi Heriberto! Excellent work dear! Some updates should be done such as, If you change the font, it works fine but when you again click on the property grid, it reverts to its previous font! (If this comment was disrespectful, please report it.)
Hi body is true, but draw all controls in a single file is very difficult to find a bug and scale the all project, for this I used another controls. (If this comment was disrespectful, please report it.)
Hi Heriberto. Very nice work. One of the best on PSC. Everything is good except I have the same Font issue as mentioned above. You change it and it disappears. Also too. Is the a way to save the contents to an external file? One way or another. 5 big ones. (If this comment was disrespectful, please report it.)
Font BUG fix! Note: All the code changes are in the PropertyGrid.ctl 1 - add this new function torwards the top as it can blow chunks with all the sub classing.
Private Function CloneFont(Font As StdFont) As StdFont Set CloneFont = New StdFont CloneFont.Name = Font.Name CloneFont.Size = Font.Size CloneFont.Bold = Font.Bold CloneFont.Italic = Font.Italic CloneFont.Underline = Font.Underline CloneFont.Strikethrough = Font.Strikethrough End Function
2 - Search for 'ElseIf (ChildOrd(j).TypeGrid = PropertyItemFont) Then' Two lines below you will see 'Set lFont = ChildOrd(j).theFont' Change to 'Set lFont = CloneFont(ChildOrd(j).theFont) '
At least this is working for me... :) (If this comment was disrespectful, please report it.)
Hi JakeBullet, mmm you can loop the PropertyGrid and save all info in any file, you can use GetCountCategory and GetCountChild combine with GetChildValue (If this comment was disrespectful, please report it.)
It has an error in my system.When I open fontdialog,it prompt me overflow at line 4563.It's not support unicode font. (If this comment was disrespectful, please report it.)
>>ideas are good I think, database binding would be great, plus data 'pagination' (paging). Suppose, if data is huge, serve it for control can display if something like 'GoFwd'/'GoBack' used. M?
(If this comment was disrespectful, please report it.)
Despite I asked moderator to delete this my comment before it diplayed here (it`s my mistake: a comment for another post, for another grid) this is published. never mind ;-) Moderator is sleeping or is deadly drunk, may be...((((( (If this comment was disrespectful, please report it.)
good work but painfully slow (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 39 Users
Download code
12/1/2006 8:11:12 PM: 
