Ikoner Hvordan?

Du skal havde fat i en Icon Grabber komponent! Jeg gjorde det engang da jeg ville lave min egen stifinder!

http://www.torry.net/pages.php?id=105

Her findes et par komponenter som kan gøre det!

Øhhh ja, men der er kildekode med komponenterne... Det vil sige at du bare kan gå ind og se, hvordan de har gjort! Det har jeg gjort, og det virker perfekt!

Hmmm jeg tænkte bare på om der var nogle der hade en næmere kode i stedet for at side og tyde den anden.... Det ville være næmere
Men nå så må jeg jo gøre det.

Har du en kode til hvordan man kan Loade et bilede ind i et Treewive? For det har jeg ikke lige...

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Nu ved jeg faktisk ikke hvordan et TreeView fungerer, men du kan let læse ikoner fra filer ind i et image med følgende kode:

Uses ShellAPI;

procedure MinProcedure(Sender: TObject);
var
  FileInfo: SHFILEINFO;
begin
  SHGetFileInfo(PChar(FILNAVNHER), FileInfo, SizeOf(FileInfo), SHGFI_Icon);

  DrawIcon(Image1.Canvas.Handle, 0, 0, FileInfo.hIcon);
end;

- Mads

Du skal havde fat i en Icon Grabber komponent! Jeg gjorde det engang da jeg ville lave min egen stifinder!

http://www.torry.net/pages.php?id=105

Her findes et par komponenter som kan gøre det!

Hmmm Jeg vil helst undgå at bruge Componenter... Det må kunne gøres På en anden måde....

Men elers tak for tippet

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Øhhh ja, men der er kildekode med komponenterne... Det vil sige at du bare kan gå ind og se, hvordan de har gjort! Det har jeg gjort, og det virker perfekt!

Øhhh ja, men der er kildekode med komponenterne... Det vil sige at du bare kan gå ind og se, hvordan de har gjort! Det har jeg gjort, og det virker perfekt!

Hmmm jeg tænkte bare på om der var nogle der hade en næmere kode i stedet for at side og tyde den anden.... Det ville være næmere
Men nå så må jeg jo gøre det.

Har du en kode til hvordan man kan Loade et bilede ind i et Treewive? For det har jeg ikke lige...

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Øhhh ja, men der er kildekode med komponenterne... Det vil sige at du bare kan gå ind og se, hvordan de har gjort! Det har jeg gjort, og det virker perfekt!

Hmmm jeg tænkte bare på om der var nogle der hade en næmere kode i stedet for at side og tyde den anden.... Det ville være næmere
Men nå så må jeg jo gøre det.

Har du en kode til hvordan man kan Loade et bilede ind i et Treewive? For det har jeg ikke lige...

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Nu ved jeg faktisk ikke hvordan et TreeView fungerer, men du kan let læse ikoner fra filer ind i et image med følgende kode:

Kode 

Uses ShellAPI;

procedure MinProcedure(Sender: TObject);
var
  FileInfo: SHFILEINFO;
begin
  SHGetFileInfo(PChar(FILNAVNHER), FileInfo, SizeOf(FileInfo), SHGFI_Icon);

  DrawIcon(Image1.Canvas.Handle, 0, 0, FileInfo.hIcon);
end;

- Mads

undskyld... Der er en fejl i SHGetFileInfo(...);

Der burde stå:
SHGetFileInfo(PChar(FILNAVNHER), 0, FileInfo,SizeOf(FileInfo), SHGFI_ICON);
- Mads

Øhhh ja, men der er kildekode med komponenterne... Det vil sige at du bare kan gå ind og se, hvordan de har gjort! Det har jeg gjort, og det virker perfekt!

Hmmm jeg tænkte bare på om der var nogle der hade en næmere kode i stedet for at side og tyde den anden.... Det ville være næmere
Men nå så må jeg jo gøre det.

Har du en kode til hvordan man kan Loade et bilede ind i et Treewive? For det har jeg ikke lige...

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

Nu ved jeg faktisk ikke hvordan et TreeView fungerer, men du kan let læse ikoner fra filer ind i et image med følgende kode:

Kode 

Uses ShellAPI;

procedure MinProcedure(Sender: TObject);
var
  FileInfo: SHFILEINFO;
begin
  SHGetFileInfo(PChar(FILNAVNHER), FileInfo, SizeOf(FileInfo), SHGFI_Icon);

  DrawIcon(Image1.Canvas.Handle, 0, 0, FileInfo.hIcon);
end;

- Mads

undskyld... Der er en fejl i SHGetFileInfo(...);

Der burde stå:
SHGetFileInfo(PChar(FILNAVNHER), 0, FileInfo,SizeOf(FileInfo), SHGFI_ICON);
- Mads

Ja okay den kode ahr du jo givet mig på msn... hæhæ
langsomt svar fra mig hæhæ
Mads har vist fortjent de meste point
------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter

hmmmm Geæm det... Hvem har siste rodet ved denne tråd
LoLz
------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.

Darkfighter