Icons zur laufzeit erzeugen

Reply to Icons zur laufzeit erzeugen on Tue, 23 Nov 2004 17:32:37 GMT

Hannah — Tue, 23 Nov 2004 17:32:37 GMT

Hi !

Ich möchte das alle Files eines Dir. als Icons & Filenamen darunter auf meiner Form dargestelt werden. Jetzt weiss ich ja voher nicht wieviele Files in einem Dir. sind. Also möchte ich die die Icons je nach Bedarf erzeugen. Gibt es da eine geschickte Möglichkeit ? Kann man ausserdem irgendwie das Icon auslesen das Windows benutzt oder muss ich für jeden Dateityp eine Eigene Grafikdatei haben ? Kann man ausserem das Icon mit dem Label geschickt kombinieren so das man die quasi wie ein Objekt behandeln kann wenn man es zB verschieben möchte ? Hoffe auf Antworten Danke !!

Reply to Icons zur laufzeit erzeugen on Tue, 23 Nov 2004 19:25:26 GMT

DerAltenburger — Tue, 23 Nov 2004 19:25:26 GMT

.
  .
  .
  SHFILEINFO shFinfo;
  HIMAGELIST hImgList = NULL;
  hImgList = (HIMAGELIST)SHGetFileInfo( FName.c_str(),
                                        0,
                                        &shFinfo,
                                        sizeof( shFinfo ),
                                        SHGFI_ICON);
  TIcon *Icon;
  Icon=new TIcon;
  Icon->Handle=CopyIcon(shFinfo.hIcon);
  FImage->AutoSize=true;
  FImage->Stretch=false;
  FImage->Picture->Assign(Icon);
  delete Icon;
  FImage->Left=(ClientWidth-FImage->Width) / 2;
  FImage->Top=(ClientHeight-FImage->Height) / 2;
  .
  .
  .

in FName (AnsiString steht der Name einer bel. Datei - mit ERWEITERUNG
FImage ist eine Variable *TImage zur Anzeige.

Das ist Teil einer Funktion bei meinem Prog. Liefert das Windows- verknüpfte Symbol.

Reply to Icons zur laufzeit erzeugen on Wed, 24 Nov 2004 18:24:44 GMT

Hannah — Wed, 24 Nov 2004 18:24:44 GMT

Hmm danke das ist schonmal hervorragend - aber ich muss ha dieses FImage schon auf der Form haben wenn ich das nun aber für x Files machen will kann ich ja nicht auf gut Glück schonmal 10 oder so erstellen sondern muss evtl. im laufe des Programms mehr haben. Wie mache ich das ?

Reply to Icons zur laufzeit erzeugen on Wed, 24 Nov 2004 20:23:22 GMT

DerAltenburger — Wed, 24 Nov 2004 20:23:22 GMT

Z.B.:

Du machst ne Box mit Rollbalken.

Fuer jeden eintrag erzeugst Du DYNAMISCH ein TImage (oder eine spezielle, eigene Komponente - mit nem Image)
Dem Image verpasst Du das Icon und setzt "Parent des Image" auf die Box
Dann noch Left und Top passend zur Box einstellen - fertig.

Reply to Icons zur laufzeit erzeugen on Wed, 24 Nov 2004 22:10:06 GMT

Hannah — Wed, 24 Nov 2004 22:10:06 GMT

Juhuu ! Das klappt soweit ! Aber wie kann ich so Sachen wie "OnClick" für die dynamisch erzeugten Images definieren ?

Reply to Icons zur laufzeit erzeugen on Wed, 24 Nov 2004 23:02:27 GMT

Hannah — Wed, 24 Nov 2004 23:02:27 GMT

Also hab in der FAQ gelesen ich kann sowas machen wie Image[i]->OnClick=Image1Click;

Das geht auch soweit aber wenn ich jetzt zB wenn eins der Images angeklickt wird den zugehörigen i Wert ausegeben will - wie mache ich das ? Kann ich das irgendwie übergeben ? Danke !

Reply to Icons zur laufzeit erzeugen on Mon, 29 Nov 2004 09:09:49 GMT

Hannah — Mon, 29 Nov 2004 09:09:49 GMT

Keiner ?

Reply to Icons zur laufzeit erzeugen on Mon, 29 Nov 2004 09:26:41 GMT

Linnea — Mon, 29 Nov 2004 09:26:41 GMT

du kannst z.B. beim erstellen der Images Image->Tag einen Wert geben und diesen dann abfragen