Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Thanks to Rob Kennedy for pointing me in the direction of ShGetFileInfo. I then Googled on that and found these two examples - <a href="http://www.delphi3000.com/articles/article_1086.asp?SK=" rel="noreferrer">Delphi 3000</a>, <a href="http://www.swissdelphicenter.ch/torry/showcode.php?id=421" rel="noreferrer">Torry's</a>. From that I wrote the following class to do what I needed.</p> <p>Also, just as I was finishing up Bill Miller's answer gave me the final bit of help I needed. Originally I was passing full file names through to ShGetFileInfo, which wasn't ideally what I wanted. The tweak suggested of passing "*.EXT" was great. </p> <p>The class could do with more work but it does what I need. It seems to handle file extensions that have no details associated either. </p> <p>Finally, in what I'm using I've switched it to using a TcxImageList instead of a TImageList, since I was having problems with black borders appearing on the icons, because it was a quick fix.</p> <pre><code>unit FileAssociationDetails; { Created : 2009-05-07 Description : Class to get file type description and icons. * Extensions and Descriptions are held in a TStringLists. * Icons are stored in a TImageList. Assumption is all lists are in same order. } interface uses Classes, Controls; type TFileAssociationDetails = class(TObject) private FImages : TImageList; FExtensions : TStringList; FDescriptions : TStringList; public constructor Create; destructor Destroy; override; procedure AddFile(FileName : string); procedure AddExtension(Extension : string); procedure Clear; procedure GetFileIconsAndDescriptions; property Images : TImageList read FImages; property Extensions : TStringList read FExtensions; property Descriptions : TStringList read FDescriptions; end; implementation uses SysUtils, ShellAPI, Graphics, Windows; { TFileAssociationDetails } constructor TFileAssociationDetails.Create; begin try inherited; FExtensions := TStringList.Create; FExtensions.Sorted := true; FDescriptions := TStringList.Create; FImages := TImageList.Create(nil); except end; end; destructor TFileAssociationDetails.Destroy; begin try FExtensions.Free; FDescriptions.Free; FImages.Free; finally inherited; end; end; procedure TFileAssociationDetails.AddFile(FileName: string); begin AddExtension(ExtractFileExt(FileName)); end; procedure TFileAssociationDetails.AddExtension(Extension : string); begin Extension := UpperCase(Extension); if (Trim(Extension) &lt;&gt; '') and (FExtensions.IndexOf(Extension) = -1) then FExtensions.Add(Extension); end; procedure TFileAssociationDetails.Clear; begin FExtensions.Clear; end; procedure TFileAssociationDetails.GetFileIconsAndDescriptions; var Icon: TIcon; iCount : integer; Extension : string; FileInfo : SHFILEINFO; begin FImages.Clear; FDescriptions.Clear; Icon := TIcon.Create; try // Loop through all stored extensions and retrieve relevant info for iCount := 0 to FExtensions.Count - 1 do begin Extension := '*' + FExtensions.Strings[iCount]; // Get description type SHGetFileInfo(PChar(Extension), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo), SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES ); FDescriptions.Add(FileInfo.szTypeName); // Get icon and copy into ImageList SHGetFileInfo(PChar(Extension), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES ); Icon.Handle := FileInfo.hIcon; FImages.AddIcon(Icon); end; finally Icon.Free; end; end; end. </code></pre> <p>Also here is an example test app using it, it's very simple, just a form with a TPageControl on it. My actual use was not for this, but for with a Developer Express TcxImageComboxBox in a TcxGrid.</p> <pre><code>unit Main; { Created : 2009-05-07 Description : Test app for TFileAssociationDetails. } interface uses Windows, Forms, FileAssociationDetails, Classes, Controls, ComCtrls; type TfmTest = class(TForm) PageControl1: TPageControl; procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } FFileDetails : TFileAssociationDetails; public { Public declarations } end; var fmTest: TfmTest; implementation {$R *.dfm} procedure TfmTest.FormShow(Sender: TObject); var iCount : integer; NewTab : TTabSheet; begin FFileDetails := TFileAssociationDetails.Create; FFileDetails.AddFile('C:\Documents and Settings\...\Test.XLS'); FFileDetails.AddExtension('.zip'); FFileDetails.AddExtension('.pdf'); FFileDetails.AddExtension('.pas'); FFileDetails.AddExtension('.XML'); FFileDetails.AddExtension('.poo'); FFileDetails.GetFileIconsAndDescriptions; PageControl1.Images := FFileDetails.Images; for iCount := 0 to FFileDetails.Descriptions.Count - 1 do begin NewTab := TTabSheet.Create(PageControl1); NewTab.PageControl := PageControl1; NewTab.Caption := FFileDetails.Descriptions.Strings[iCount]; NewTab.ImageIndex := iCount; end; end; procedure TfmTest.FormClose(Sender: TObject; var Action: TCloseAction); begin PageControl1.Images := nil; FFileDetails.Free; end; end. </code></pre> <p>Thanks everyone for your answers!</p>
    singulars
    1. This table or related slice is empty.
    1. POHow to get icon and description from file extension using Delphi?
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USPauk
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POHow to get icon and description from file extension using Delphi?
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    1. COA note: when passing full filenames, shortcuts like '%1' as a shortcut for icon or bitmap files will yield the correct result for each specific file. *.ext will just show a generic icon in such cases.
      singulars
      1. PO
      1. USMartijn
    2. CO@Martijn, What do you mean by using '%1'? Can you show an example?
      singulars
      1. PO
      1. USpcunite
    3. CO@pcunite: I now see that my comment wasn't very clear. In some cases, "%1" is defined as DefaultIcon for a file type; this is usually the case for `.ico` files: each icon file itself contains the icon to display. In such a case, using the full filename will yield the correct icon. Using only the extension here would result in a 'generic' icon.
      singulars
      1. PO
      1. USMartijn
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload