Avatar billede zerohero Nybegynder
17. januar 2001 - 13:39 Der er 12 kommentarer og
1 løsning

Timagelist Transparent

Ja... Jeg troede egentligt det ville være så let (det er det måske også)...
Jeg har nogle små bitmaps i nogle Timages som via en procedure bliver kopier over i en Timagelist for senere at blive fremvist i en Ttabcontrol. Det fungere også fint, men uanset hvad jeg har prøvet kan jeg ikke få baggrunden på de små søde billeder gjort transparent. Her er min kode:

curdir := getcurrentdir;
for Drive := \'A\' to \'Z\' do
begin
case getdrivetype(Pchar(drive + \':\\\')) of

DRIVE_REMOVABLE:
begin
tabcontrol1.tabs.add(drive+\':\');
imagelist1.add(image1.picture.bitmap,image1.picture.bitmap);
end;

DRIVE_FIXED:
begin
tabcontrol1.tabs.add(drive+\':\');
imagelist1.add(image2.picture.bitmap,image2.picture.bitmap);
end;

DRIVE_CDROM:
begin
tabcontrol1.tabs.add(drive+\':\');
imagelist1.add(image3.picture.bitmap,image3.picture.bitmap);
end;

DRIVE_RAMDISK:
begin
tabcontrol1.tabs.add(drive+\':\');
imagelist1.add(image4.picture.bitmap,image4.picture.bitmap);
end;

DRIVE_REMOTE:
begin
tabcontrol1.tabs.add(drive+\':\');
imagelist1.add(image4.picture.bitmap,image4.picture.bitmap);
end;
end;
end;
tabcontrol1.tabindex := tabcontrol1.tabs.indexof(extractfiledrive(getcurrentdir));
curdrive := tabcontrol1.tabindex;
tabcontrol1.hint := directorylistbox1.directory;

Jeg har prøvet at ændre Timagelist.drawingstyle til dstransparent, ændret bkcolor, ændret blendcolor og endda prøvet at gøre dem transparent i Timage inden de blev kopieret over i Timaglisten
men intet har ændret sig....
Hvad er det lige jeg gør galt....

Help Me....
Avatar billede martinlind Nybegynder
17. januar 2001 - 13:48 #1
Du skal huske det skal være imglisten\'s Draw du skal bruge til at \"tegne\" med

/Martin
       
Avatar billede zerohero Nybegynder
17. januar 2001 - 13:53 #2
øhhh hvad mener du. Er det da ikke Timagelisten der tegner på Ttabcontrolen...(føler mig lidt uforstående)...
Avatar billede martinlind Nybegynder
17. januar 2001 - 13:58 #3
Sorry, jeg misforstod dig, du skal nok lege lidt med at sætte din bkcolor på din imagelist, hvis du prøver at tilføje dem designtime kan du se der er nogle farve parametre der kan ændres, så prøv om du kan få det til at virker den vej først, for så kan du helt sikkert også få det til at \"funke\" runtime. Prøv evt. at sætte bkcolor på imglisten til Image.Pixel[1,1]

/Martin
Avatar billede zerohero Nybegynder
17. januar 2001 - 14:03 #4
Det har jeg prøvet... pixel[0,0] på alle mine bitmaps har farven clfuchsia og det første jeg prøvede var at ændre bkcolor og blendcolor til clfuchsia men det virkede ikke...
Avatar billede martinlind Nybegynder
17. januar 2001 - 14:08 #5
Hmmmm, meget mærkeligt har du prøvet designtime ?

/Martin
Avatar billede zerohero Nybegynder
17. januar 2001 - 14:10 #6
Jep....
Avatar billede martinlind Nybegynder
17. januar 2001 - 14:16 #7
og det kunne du heller ikke få til at virke ?

kan du ikke maile en test bitmap til mig
martin@e-lind.dk

/martin
Avatar billede zerohero Nybegynder
17. januar 2001 - 14:28 #8
martinlind >> Jeg tror nok du skulle have modtaget en mail nu...
Avatar billede martinlind Nybegynder
17. januar 2001 - 14:30 #9
Kigger på det .....
Avatar billede zerohero Nybegynder
17. januar 2001 - 14:54 #10
Mange tak for programmet... men vil du ikke sende mig hele projektet så jeg kan studere lidt nærmere hvad du har gjort...
På forhånd tak... ZeroHero
Avatar billede martinlind Nybegynder
17. januar 2001 - 15:10 #11
Er sendt, så mangler vi bare point\'ene *S*
Avatar billede zerohero Nybegynder
17. januar 2001 - 16:10 #12
Martinlind >> bruger du Delphi 5, for når jeg jeg vil åbne den projekt du har sendt mig dukker en række fejlmedelelser op på min skærm...
Nå, men det er der jo ikke noget at gøre ved...
1000 tak for din ihærdige indsats og her er så dine velfortjente points...

ZeroHero
Avatar billede martinlind Nybegynder
17. januar 2001 - 16:15 #13
Yes, men du kan åbne projectet i notepad, så kan du se det meste, det er bare en form med en imgliste og en listview-control der er kædet sammen, og så har jeg loadet dit bitmap ind i img listen og lavet et item i listview\'et, og så kørte det uden prob., så måske det er en fejl i delphi4 imgliste, jeg synes faltisl jeg kan huske det var nogle der skrev om at den var fejl behæftet

/MArtin
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester