Icon View Thread

The following is the text of the current message along with any replies.
Messages 11 to 19 of 19 total
Thread OT - Open Pricture Dialog
Sat, Dec 1 2007 4:44 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Jeff


Now you tell me Smiley

However, just tried that in D6 and it works just like in D2006. Could be an OS thing or some other setting somewhere.

Roy Lambert
Mon, Dec 3 2007 4:26 PMPermanent Link

"Jeff Cook"
Roy Lambert wrote:

> Jeff
>
>
> I've just had a play with CodeGears TOpenPictureDialog in D2006 on XP
> and it shows all the files as pictures, multiple selections result in
> each of the selected ones having a black border. Naturally when you
> get beyond one selected the sidebar shows nothing.
>
> Roy Lambert

Sounds like exactly what I want - just need it in Delphi 6.

Cheers

Jeff

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com
Mon, Dec 3 2007 5:09 PMPermanent Link

"Jeff Cook"
Roy Lambert wrote:

> Jeff
>
>
> Now you tell me Smiley
>
> However, just tried that in D6 and it works just like in D2006. Could
> be an OS thing or some other setting somewhere.
>
> Roy Lambert

Without sounding like the cheapskate that I am ...

This CodeGear stuff looks like it will cost me oodles of money!  Maybe
my DIY job with a grid and generating my own thumbnails is the way to
go.

Cheers

Jeff

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com
Mon, Dec 3 2007 7:49 PMPermanent Link

David
On 12/3/07 5:09 PM, in article
09AB3150-0743-4149-B5CD-AC4BF5C432F9@news.elevatesoft.com, "Jeff Cook"
<jeffc@aspect.co.nz> wrote:

> This CodeGear stuff looks like it will cost me oodles of money!  Maybe
> my DIY job with a grid and generating my own thumbnails is the way to
> go.

That's what I was thinking.  It doesn't sound difficult at all.

Add a drive and directory selector at the top with a button to load images
from that directory.

Add a grid below with a checkbox and image column.  Show all of the images
in the folder and import the ones that have been checked.
Tue, Dec 4 2007 11:20 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Jeff


As I posted I tried in D6 and got the same result as in D2006 - so its probably an OS or settings thing. What OS are you using?

Roy Lambert
Tue, Dec 4 2007 2:43 PMPermanent Link

"Jeff Cook"
Roy Lambert wrote:

> Jeff
>
>
> As I posted I tried in D6 and got the same result as in D2006 - so
> its probably an OS or settings thing. What OS are you using?
>
> Roy Lambert

Kia Orana Roy

XP SP2.  I thought that my problem is that CodeGear (as far as I can
tell from looking at the webdite) costs buckets of money and pretty
hard to justify for the sake of a picture dialog.  I'm sure there are
lots of other goodies there too ....   Unless there are free downloads
of the bits I need it looks more like a DIY project.

Kia Manuia

Jeff

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com
Wed, Dec 5 2007 4:20 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Jeff

Out of interest, just create a form with a button and open picture dialog on it and post the exe to the binaries so I can try it here. If I get the same dialog that I get with my D6 we can try and track down what's happening.

I forgot to mention that my D6 is fully patched ie update 2 plus other bits eg rtl update 3

Roy Lambert
Thu, Dec 6 2007 10:13 PMPermanent Link

"Jeff Cook"
Roy Lambert wrote:

> Jeff
>
> Out of interest, just create a form with a button and open picture
> dialog on it and post the exe to the binaries so I can try it here.
> If I get the same dialog that I get with my D6 we can try and track
> down what's happening.
>
> I forgot to mention that my D6 is fully patched ie update 2 plus
> other bits eg rtl update 3
>
> Roy Lambert

I started to do as you suggested then a bl**dy great penny dropped.
The standard dialog is fine except that you need to press the "View
Menu" button and select "Thumbnails".  I can automate that with a
little help from Mr Google and and borland.public.delphi.graphics!  The
Code is as below my signature.

Thanks to all for posting and helping me in the right direction.

Cheers

Jeff

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com


(*
Newsgroups: borland.public.delphi.graphics
From: "Thomas Stutz" <tstutz-a-t-gmx-net>
Subject: Re: Open TOpenPictureDialog in Thumbnail mode (view)
*)

var
 Form1: TForm1;


implementation


{$R *.dfm}


const
 FCIDM_SHVIEW_LARGEICON  = 28713;
 FCIDM_SHVIEW_SMALLICON  = 28714;
 FCIDM_SHVIEW_LIST       = 28715;
 FCIDM_SHVIEW_REPORT     = 28716;
 FCIDM_SHVIEW_THUMBNAIL  = 28717; //    XP only
 FCIDM_SHVIEW_TILE       = 28718; //    XP


procedure TForm1.WMUser(var msg: TMessage);
var
Dlg: HWND;
Ctrl: HWND;
begin
 Dlg := msg.WParam;
 Ctrl := FindWindowEx(Dlg, 0, PChar('SHELLDLL_DefView'), nil);
 if Ctrl <> 0 then
 begin
   SendMessage(Ctrl, WM_COMMAND, FCIDM_SHVIEW_THUMBNAIL, 0 )
 end;
end;


procedure TForm1.OpenDialog1Show(Sender: TObject);
var
 Dlg: HWND;
begin
 Dlg := GetParent((Sender as TOpenDialog).Handle);
 PostMessage(Handle, WM_USER, Dlg, 0);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
 end;
end;
Fri, Dec 7 2007 3:55 AMPermanent Link

Roy Lambert

NLH Associates

Team Elevate Team Elevate

Jeff


That's sort of where I was heading. I have a suspicion that that's all the open picture dialog is really doing. If your sample opened here showing thumbnails I was going to suggest just telling the users to click on the button, but your approach is far better.

Roy Lambert
« Previous PagePage 2 of 2
Jump to Page:  1 2
Image