OK. Updated program and three pictures complete with GPS data (2 in Guernsey, 1 in Berlin) are here.
Mode feature - Removed.
Extra program close button - Gone.
Right click delete file feature - Added.
Auto rotate - Changed to a CheckBox .
Key scrolling feature on FileView - Added.
EXIF '-common' feature - Added.
You can now click the main photo to pop it out and click it again to close.
Font size and bold text - Removed.
Note that most of the internal window components are re-sizeable.
The program uses the excellent 'Task' feature to collect the EXIF data in the background which uses a separate processor core.
I was looking at the Histogram option but it seems that you, SteveDee, have the only example on the web. Unfortunately I can't work out how to use it, help required please.
Regarding RAW images, if you have some do they not display the EXIF data?
The idea of a button to an external photo editor is a sound idea but each distro has different ones. I suppose I could ask the user to point to their favorite editor. - Requires more thought.
The idea of user selecting the type of data displayed is possible but would be quite a task. There is already a search box to fine tune the displayed data. - Requires more thought.
I think that covers it all so far. Thanks SteveDee and Cage for your input.
PhotoEXIF
Re: PhotoEXIF
cogier it's looking great. Very nice work. I have a quick launcher program that allows the user to look up a program to place it into an index file. You could do something similar in a config file in your configs folder. Look at this code I use and modify it to your liking for your program. Should give you a good place to start.
Public Sub Form_Open()
Me.Center
'TextBox1.SetFocus
btnSelect.Enabled = False
End
Public Sub Form_KeyPress()
If Key.Code = Key.Esc Then
Me.Close
Endif
If ListBox1.Text <> "" And Key.Code = Key.Return Then
btnSelect_Click
Endif
End
Public Sub ListBox1_DblClick()
'Message("You Selected " & ListBox1.Text)
Global.CopyCmd = ListBox1.Text
Me.Close
End
Public Sub btnCancel_Click()
Me.Close
End
Public Sub btnSearch_Click()
Dim SearchFor As String
Dim fileName As String
'ListBox1.Clear
' ListBox1.SetFocus
SearchFor = TextBox1.Text
If SearchFor = "" Then
Message.Title = "Error"
Message.Error("You Need To Enter Search Data")
Return
Endif
For Each fileName In Dir("/usr/bin/", "*", gb.File)
If InStr(UCase(filename), UCase(SearchFor)) Then
ListBox1.Add("/usr/bin/" & fileName)
Endif
Next
btnSelect.Enabled = True
End
Public Sub btnSelect_Click()
If ListBox1.Text = "" Then
Message.Title = "Error"
Message.Error("You Need To Click on File First")
Return
Endif
Global.CopyCmd = ListBox1.Text
Me.Close
End
- Attachments
-
- fileSearch.png (29.43 KiB) Viewed 10447 times
Re: PhotoEXIF
I really like these changes Charlie.
I just noticed that I should see "Show" top left. This didn't appear at all in my first screen shot (see earlier post) and now I see "how". I also get a message complaining about my browser (...that may be due to some security setting or NoScript or the wrong browser being selected on my system).
I was thinking about those little triangle things in the Gambas IDE that we use to collapse/retrieve panels, and wondered if they could be used in this application.
I think the way they disappear in the IDE is too subtle, but in your app you could use them for the EXIF window but make sure they are visible all the time.
The folder tree view is annoying (as it often is on other apps). Its too narrow when you want to see it, and too wide when you don't.
I added this code:-
This kind of approach may allow you to remove the Show: Folder/EXIF/GPS checkboxes altogether.
I just noticed that I should see "Show" top left. This didn't appear at all in my first screen shot (see earlier post) and now I see "how". I also get a message complaining about my browser (...that may be due to some security setting or NoScript or the wrong browser being selected on my system).
I was thinking about those little triangle things in the Gambas IDE that we use to collapse/retrieve panels, and wondered if they could be used in this application.
I think the way they disappear in the IDE is too subtle, but in your app you could use them for the EXIF window but make sure they are visible all the time.
The folder tree view is annoying (as it often is on other apps). Its too narrow when you want to see it, and too wide when you don't.
I added this code:-
Public Sub DirChooser1_Enter()
HSplit2.Layout = [100, 0]
End
Public Sub DirChooser1_Leave()
HSplit2.Layout = [5, 95]
End
Which seems to solve these issues (well...for me, anyway).This kind of approach may allow you to remove the Show: Folder/EXIF/GPS checkboxes altogether.
- cogier
- Site Admin
- Posts: 1125
- Joined: Wednesday 21st September 2016 2:22pm
- Location: Guernsey, Channel Islands
Re: PhotoEXIF
Steve did you try the Bing maps? Regarding the 'Show' issue you can resize the directory and file windows which should solve your problem.
Any advice on Histograms?
Cage, thanks for the code I will look at that later.
Any advice on Histograms?
Cage, thanks for the code I will look at that later.
Re: PhotoEXIF
Yes, Bing is OK
Take a look at my code here; http://captainbodgit.blogspot.com/2012/ ... iewer.htmlAny advice on Histograms?
EDIT: my comment in the article above about the Red & Blue histograms problem was subsequently fixed after I spoke to Benoit in Oct 2012. I think he just crossed them over.
Re: PhotoEXIF
Your welcome cogier. You helped me so I am glad to help you when ever I can.
- cogier
- Site Admin
- Posts: 1125
- Joined: Wednesday 21st September 2016 2:22pm
- Location: Guernsey, Channel Islands
Re: PhotoEXIF
Updated program is here.
Histogram - Added. Matt and I spent yesterday afternoon working it all out, thanks Steve for your work on this, it guided us in the right direction. I have taken the basics and will put it on the Farm as an example.
Picture edit feature - Added. Please look at the EdList file and let me know if there are any other photo editors I have missed. The list is used to see what you might already have on your computer.
The problem with the buttons being 'squashed' has been addressed. I have moved them and if the window area is too small they will drop down onto a new line.
Cage just a small point regarding your code.
Histogram - Added. Matt and I spent yesterday afternoon working it all out, thanks Steve for your work on this, it guided us in the right direction. I have taken the basics and will put it on the Farm as an example.
Picture edit feature - Added. Please look at the EdList file and let me know if there are any other photo editors I have missed. The list is used to see what you might already have on your computer.
The problem with the buttons being 'squashed' has been addressed. I have moved them and if the window area is too small they will drop down onto a new line.
Cage just a small point regarding your code.
If Key.Code = Key.Esc Then
Me.Close
Endif
This can be simplified to.
If Key.Code = Key.Esc Then Me.Close
As before please let me have your comments.Re: PhotoEXIF
Cogier as always your suggestions very much welcome. My biggest problem is that I am an old school programmer. I do appreciate your suggestions and end up using them, thank you. As for your program it's really coming together really nicely. As it stands right now I would put it the top 3 programs that are available. It is now going to be used on my system. I do have one question though. Can you explain exactly how the settings command works. I have search for an answer but what I have found were very vague. I managed to make it work but it's not putting the file where would like it. If you could help out with that I would really be grateful.
Re: PhotoEXIF
Just checked the latest version, and its looking really good.
I'm only left with 2 or 3 very minor points.
Although most people will only have picture files in their picture folders, I often end up with pictures in a mixed file folder (e.g. the Desktop, Downloads & so on). So I suggest you set up the FileView Filter, e.g.
Also, I'd swap the edit icon for the 'brush & palette' icon (I think its just called "color").
P.S. I never use the one line IF...Then... as I think the If...EndIf block stands out better in the code and its easier to enter a breakpoint if needed.
And anyway, the block auto completes after typing Then<enter>
...Or if<tab> when "Code Snippets" are enabled.
I'm only left with 2 or 3 very minor points.
Although most people will only have picture files in their picture folders, I often end up with pictures in a mixed file folder (e.g. the Desktop, Downloads & so on). So I suggest you set up the FileView Filter, e.g.
FileView1.Filter = ["*.bmp", "*.gif", "*.jpg", "*.png", "*.tif"]
I'd also suggest moving the Help icon to join the others. This would allow the FileChooser & FileView to fill the gap 'floor to ceiling'.Also, I'd swap the edit icon for the 'brush & palette' icon (I think its just called "color").
P.S. I never use the one line IF...Then... as I think the If...EndIf block stands out better in the code and its easier to enter a breakpoint if needed.
And anyway, the block auto completes after typing Then<enter>
...Or if<tab> when "Code Snippets" are enabled.
- cogier
- Site Admin
- Posts: 1125
- Joined: Wednesday 21st September 2016 2:22pm
- Location: Guernsey, Channel Islands
Re: PhotoEXIF
I thought about this and maybe I could add it as an option. The reason I did not do this is because many other files can have a wealth of EXIF information. Have a look at mp4 files for example.Although most people will only have picture files in their picture folders, I often end up with pictures in a mixed file folder (e.g. the Desktop, Downloads & so on). So I suggest you set up the FileView Filter, e.g. FileView1.Filter = ["*.bmp", "*.gif", "*.jpg", "*.png", "*.tif"]
Good point! I have already posted this on the Farm so I might wait a while before I update this. (UPDATE. I have updated this on the Farm as I found a small bug and there had only been one download.)I'd also suggest moving the Help icon to join the others. This would allow the FileChooser & FileView to fill the gap 'floor to ceiling'.
I had a look but could not work out to which one you are referring. 'Color' on my system looks like this . 'Edit' seemed appropriate but it's all subjective...Also, I'd swap the edit icon for the 'brush & palette' icon (I think its just called "color").
I didn't know that one. You learn something every day...Or if<tab> when "Code Snippets" are enabled.